; PARex v3.xx script: "PAREX:StripGUIDE.pxs"
; ~~~~~~~~~~~~~~~~~~~  ~~~~~~~~~~~~~~~~~~~~
; Update: 13-Nov-93

; $VER: StripGUIDE.pxs 39.019 (13.11.93) PARex v3.xx script for StripGUIDE.

; All commands upto AmigaGuide v3.0 (v39.11) are supported. New commands can be
; added in a jiffy!


; ## Preserve fake AmigaGuide commands ##

  REPL \\@ BY \\@                ; PARex interpretes "\\@" as "\@" !!

; ## The following AmigaGuide commands should only occur once, and at the beginning! ##

{ REPL  "@DATABASE # #\"{#?}#\"\n"
        BY "Database: \"{}\"\n"
        OR "Database: \"\e[1m{}\e[0m\"\n" WHEN bold
        CONTEXT                  ; remember the name after the command!
        TIMES 1 }                ; the @DATABASE command only occurs once, so there's
                                 ; no need to search for it again (speeds up searching)
; STRIP @DATABASE TO \n TIMES 1  ; this commands discards the DATABASE command (remove
                                 ; previous line and remove the first ";" ot this line
                                 ; to use this command

{ REPL  "@MASTER # #\"{#?}#\"\n"
        BY "MasterDoc: \"{}\"\n"
        OR "MasterDoc: \"\e[1m{}\e[0m\"\n" WHEN bold
        CONTEXT
        TIMES 1 }
; STRIP @MASTER TO \n TIMES 1    ; completely discards this line (remove previous line
                                 ; and un-comment this line to use)

{ REPL  "@AUTHOR # #\"{#?}#\"\n"
        BY "Author: \"{}\"\n"
        OR "Author: \"\e[1m{}\e[0m\"\n" WHEN bold
        CONTEXT
        TIMES 1 }
; STRIP @AUTHOR TO \n TIMES 1    ; completely discards this line (remove previous line
                                 ; and un-comment this line to use)

{ REPL  "@(C) # #\"{#?}#\"\n"
        BY "©: \"{}\"\n"
        OR "©: \"\e[1m{}\e[0m\"\n" WHEN bold
        CONTEXT
        TIMES 1 }
; STRIP @(C) TO \n TIMES 1       ; completely discards this line (remove previous line
                                 ; and un-comment this line to use)

{ REPL  "@$VER: # #\"{#?}#\"\n"
        BY "$VER: \"{}\"\n"
        OR "$VER: \"\e[1m{}\e[0m\"\n" WHEN bold
        CONTEXT
        TIMES 1 }
; STRIP @$VER:    TO \n TIMES 1  ; completely discards this line (remove previous line
                                 ; and un-comment this line to use)

  STRIP @WORDWRAP TO \n TIMES 1  ; ...

; ## The following AmigaGuide commands refer to the manner in which the text is shown. ##
; ## These commands are only supported with AmigaGuide v3.x and later! ##

  REPL  @{b}              BY \e[1m       OR "" WHEN plaintext
  REPL  @{ub}             BY \e[0m       OR "" WHEN plaintext
  REPL  @{i}              BY \e[3m       OR "" WHEN plaintext
  REPL  @{ui}             BY \e[0m       OR "" WHEN plaintext
  REPL  @{u}              BY \e[4m       OR "" WHEN plaintext
  REPL  @{uu}             BY \e[0m       OR "" WHEN plaintext
  REPL  "@{fg text}"      BY \e[31m      OR "" WHEN plaintext
  REPL  "@{fg shine}"     BY \e[32m      OR "" WHEN plaintext
  REPL  "@{fg shadow}"    BY \e[6\"z     OR "" WHEN plaintext
  REPL  "@{fg fill}"      BY \e[33m      OR "" WHEN plaintext
  REPL  "@{fg filltext}"  BY \e[31m      OR "" WHEN plaintext
  REPL  "@{fg back}"      BY \e[30m      OR "" WHEN plaintext
  REPL  "@{fg highlight}" BY \e[32m      OR "" WHEN plaintext
  REPL  "@{bg text}"      BY \e[41m      OR "" WHEN plaintext
  REPL  "@{bg shine}"     BY \e[42m      OR "" WHEN plaintext
  REPL  "@{bg shadow}"    BY \e[6"z      OR "" WHEN plaintext
  REPL  "@{bg fill}"      BY \e[43m      OR "" WHEN plaintext
  REPL  "@{bg filltext}"  BY \e[41m      OR "" WHEN plaintext
  REPL  "@{bg back}"      BY \e[40m      OR "" WHEN plaintext
  REPL  "@{bg highlight}" BY \e[42m      OR "" WHEN plaintext

; ## AmigaGuide commands that we can completely discard since they don't carry any info! ##

  STRIP @REM      TO \n          ; catches both @REM and @REMARK !

  STRIP @ENDNODE  TO \n          ; discards this command

  STRIP @FONT     TO \n          ; ...

  STRIP @INDEX    TO \n          ; ...

  STRIP @HELP     TO \n          ; ...

  STRIP @KEYWORDS TO \n