home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / new / util / cli / parex / parexscripts / stripguide.pxs < prev    next >
Text File  |  1994-02-17  |  6KB  |  149 lines
  1. ; PARex v3.xx script: "PAREX:StripGUIDE.pxs"
  2. ; ~~~~~~~~~~~~~~~~~~~  ~~~~~~~~~~~~~~~~~~~~
  3. ; Update: 24-Nov-93
  4.  
  5. ; $VER: StripGUIDE.pxs 39.020 (24.11.93) PARex v3.xx script for StripGUIDE.
  6.  
  7. ; All commands upto AmigaGuide v3.0 (v39.11) are supported. New commands can be
  8. ; added in a jiffy!
  9.  
  10.  
  11. ; ## Preserve fake AmigaGuide commands ##
  12.  
  13.   REPL \\@ BY \\@                ; PARex interpretes "\\@" as "\@" !!
  14.  
  15. ; ## The following AmigaGuide commands should only occur once, and at the beginning! ##
  16.  
  17. { REPL  "@DATABASE # #\"{#?}#\"\n"
  18.         BY "Database: \"{}\"\n"
  19.         OR "Database: \"\e[1m{}\e[0m\"\n" WHEN bold
  20.         CONTEXT                  ; remember the name after the command!
  21.         TIMES 1 }                ; the @DATABASE command only occurs once, so there's
  22.                                  ; no need to search for it again (speeds up searching)
  23. ; STRIP @DATABASE TO \n TIMES 1  ; this commands discards the DATABASE command (remove
  24.                                  ; previous line and remove the first ";" ot this line
  25.                                  ; to use this command
  26.  
  27. { REPL  "@MASTER # #\"{#?}#\"\n"
  28.         BY "MasterDoc: \"{}\"\n"
  29.         OR "MasterDoc: \"\e[1m{}\e[0m\"\n" WHEN bold
  30.         CONTEXT
  31.         TIMES 1 }
  32. ; STRIP @MASTER TO \n TIMES 1    ; completely discards this line (remove previous line
  33.                                  ; and un-comment this line to use)
  34.  
  35. { REPL  "@AUTHOR # #\"{#?}#\"\n"
  36.         BY "Author: \"{}\"\n"
  37.         OR "Author: \"\e[1m{}\e[0m\"\n" WHEN bold
  38.         CONTEXT
  39.         TIMES 1 }
  40. ; STRIP @AUTHOR TO \n TIMES 1    ; completely discards this line (remove previous line
  41.                                  ; and un-comment this line to use)
  42.  
  43. { REPL  "@(C) # #\"{#?}#\"\n"
  44.         BY "©: \"{}\"\n"
  45.         OR "©: \"\e[1m{}\e[0m\"\n" WHEN bold
  46.         CONTEXT
  47.         TIMES 1 }
  48. ; STRIP @(C) TO \n TIMES 1       ; completely discards this line (remove previous line
  49.                                  ; and un-comment this line to use)
  50.  
  51. { REPL  "@$VER: # #\"{#?}#\"\n"
  52.         BY "$VER: \"{}\"\n"
  53.         OR "$VER: \"\e[1m{}\e[0m\"\n" WHEN bold
  54.         CONTEXT
  55.         TIMES 1 }
  56. ; STRIP @$VER:    TO \n TIMES 1  ; completely discards this line (remove previous line
  57.                                  ; and un-comment this line to use)
  58.  
  59.   STRIP @WORDWRAP TO \n TIMES 1  ; ...
  60.  
  61. ; ## The following AmigaGuide commands refer to the manner in which the text is shown. ##
  62. ; ## These commands are only supported with AmigaGuide v3.x and later! ##
  63.  
  64.   REPL  @{b}              BY \e[1m       OR "" WHEN plaintext
  65.   REPL  @{ub}             BY \e[0m       OR "" WHEN plaintext
  66.   REPL  @{i}              BY \e[3m       OR "" WHEN plaintext
  67.   REPL  @{ui}             BY \e[0m       OR "" WHEN plaintext
  68.   REPL  @{u}              BY \e[4m       OR "" WHEN plaintext
  69.   REPL  @{uu}             BY \e[0m       OR "" WHEN plaintext
  70.   REPL  "@{fg text}"      BY \e[31m      OR "" WHEN plaintext
  71.   REPL  "@{fg shine}"     BY \e[32m      OR "" WHEN plaintext
  72.   REPL  "@{fg shadow}"    BY \e[6\"z     OR "" WHEN plaintext
  73.   REPL  "@{fg fill}"      BY \e[33m      OR "" WHEN plaintext
  74.   REPL  "@{fg filltext}"  BY \e[31m      OR "" WHEN plaintext
  75.   REPL  "@{fg back}"      BY \e[30m      OR "" WHEN plaintext
  76.   REPL  "@{fg highlight}" BY \e[32m      OR "" WHEN plaintext
  77.   REPL  "@{bg text}"      BY \e[41m      OR "" WHEN plaintext
  78.   REPL  "@{bg shine}"     BY \e[42m      OR "" WHEN plaintext
  79.   REPL  "@{bg shadow}"    BY \e[6"z      OR "" WHEN plaintext
  80.   REPL  "@{bg fill}"      BY \e[43m      OR "" WHEN plaintext
  81.   REPL  "@{bg filltext}"  BY \e[41m      OR "" WHEN plaintext
  82.   REPL  "@{bg back}"      BY \e[40m      OR "" WHEN plaintext
  83.   REPL  "@{bg highlight}" BY \e[42m      OR "" WHEN plaintext
  84.  
  85. ; ## AmigaGuide commands that we can completely discard since they don't carry any info! ##
  86.  
  87.   STRIP @REM      TO \n          ; catches both @REM and @REMARK !
  88.  
  89.   STRIP @ENDNODE  TO \n          ; discards this command
  90.  
  91.   STRIP @FONT     TO \n          ; ...
  92.  
  93.   STRIP @INDEX    TO \n          ; ...
  94.  
  95.   STRIP @HELP     TO \n          ; ...
  96.  
  97.   STRIP @KEYWORDS TO \n          ; ...
  98.  
  99.   STRIP @TOC      TO \n          ; ...
  100.  
  101.   STRIP @PREV     TO \n          ; ...
  102.  
  103.   STRIP @NEXT     TO \n          ; ...
  104.  
  105.   STRIP @WIDTH    TO \n          ; ...
  106.  
  107.   STRIP @HEIGHT   TO \n          ; ...
  108.  
  109. ; ## Some AmigaGuide commands where the info is useful to keep! ##
  110.  
  111. { REPL  "@NODE # ?#? # #\"{#?}#\"\n"
  112.         BY {}\n
  113.         OR \e[1m{}\e[0m\n WHEN bold
  114.         CONTEXT }
  115.   STRIP @NODE     TO \n          ; in case no title is given, discard
  116.  
  117.  
  118. { REPL  "@DNODE # ?#? # #\"{#?}#\"\n"
  119.         BY {}\n
  120.         OR \e[1m{}\e[0m\n WHEN bold
  121.         CONTEXT }
  122.   STRIP @DNODE    TO \n          ; in case no title is given, discard
  123.  
  124.  
  125. { REPL  "@TITLE # #\"{#?}#\"\n"
  126.         BY {}\n
  127.         OR \e[1m{}\e[0m\n WHEN bold
  128.         CONTEXT }
  129.  
  130. { REPL  "@'{\"{#?}\"#?'}"
  131.         BY {}
  132.         OR \e[1m{}\e[0m WHEN bold
  133.         CONTEXT }
  134.  
  135.   EXITPXS   ; just to note to PARex that what follows is of no importance!
  136.  
  137. ; -- Comments --
  138.  
  139. o  The 'WHEN bold' refers to the WHEN option when PARex is started. Only if you start
  140.    PARex with 'WHEN bold' will the preserved string be printed in bold text, otherwise
  141.    plain text is used!
  142.  
  143. o  Some AmigaGuide commands only occur once in the document, therefore we may use TIMES 1
  144.    to indicate to PARex that we only need to search for a command once. This will speed
  145.    up the searching, since unnecesary searching is avoided!
  146.  
  147. o  The 'WHEN plaintext' forces PARex to remove all text attributes.
  148.  
  149.