util/preparepdf

   1 #!/usr/bin/newlisp
   2 #
   3 # this utility is called from Makefile:
   4 #     make preparepdf
   5 # to prepare the file for PDF conversion, byt replaceing all <span class="function"></span>
   6 # with <font color="#DD0000"></font> in the syntax statements and replacing &rarr; (one line
   7 # arrow with &rArr; (double line arrow)
   8 #
   9 # USAGE: preparepdf newlisp_manual.html newlisp_manual_preparepdf.html
  10 #
  11 (set 'text (read-file (main-args 2))) ; input file
  12
  13 (replace {(<h2><span class="function">)(.*?)(</span></h2>)} text
  14          (append {<h2><font color="#DD0000">} $2 {</font></h2>}) 0)
  15
  16 (println $0 " replacements made for syntax color")
  17
  18 (replace {&rarr;} text {&rArr;} 0)
  19
  20 (println $0 " replacements made for arrow code")
  21
  22 (write-file (main-args 3) text) ; output file
  23
  24 (exit)
  25
  26