/* Compilerswitches in Textswitches umsetzen
** Userswitches werden zur Zeit nicht angerührt
**
** $VER: Switches2Text.hit 2.0 (2.3.93)
** $Id: Switches2Text.hit,v 1.2 1993/03/02 20:03:51 piet Exp $
*/

OPTIONS RESULTS

SetBookmark SwitchAux
Move 1 0
Find '"|#SWITCHES#|"'
GetLine
IF Left(RESULT,12)~='|#SWITCHES#|' THEN DO
  BeepScreen
  GotoBookmark SwitchAux
  ClearBookmark SwitchAux
  WriteString "Sorry, there is no |#SWITCHES#| mark here!"
  EXIT
END;
ELSE DO

  switches = SubStr(RESULT,13)

  /* Switches sind bekannt, jetzt an die Einfügestelle gehen */
  DO UNTIL Left(RESULT,2)~='|#'
    MoveDown
    GetLine
  END
  /* Cursor steht direkt unter dem Magic Cookie */

  IF SubStr(switches,3,2)~='--' THEN DO
    Insert '"$$Library:=TRUE"'
    NewLine
  END

  /* Switches umsetzen */
  DO i=2 TO 16
    /* switches einfügen, die von der Vorgabe abweichen. */
    /* Vorgabe: x:gesetzt, -:nicht gesetzt, 0:gar nicht, ?:immer */
    defaultsw=SubStr('0x00-xxxxx-xx---',i,1)
    IF SubStr(switches,i,1)~=defaultsw & defaultsw~='0' THEN DO
      label=word('/EXECUTBL/ StrZeroChk /DEVICE/ Library ChipMem LongAllign',
		 'RangeChk  OverflowChk StackChk NilChk ModulaII ReturnChk',
		 'LocalChk MC68020 MC68881 Debug', i);
      IF SubStr(switches,i,1)='x' THEN
	flag='TRUE'
      ELSE
	flag='FALSE'
      Insert '"$$'label':='flag'"'
      NewLine
    END

  END
END

ClearBookmark SwitchAux
EXIT


/********************************\
  Andere -vermutliche- Switches:
    LoadA4
    EntryCode
    WithArea
    WithModify
    OwnHeap
    ConstChk
    PushRegs
    AssTypeChk
    CompleteAss
    RelayPTR
    LargeCode
    TypeChk
    Symbols
    MC68040
\********************************/