doc.lsp

(define-macro (doc func-name)
  (let ((func-name (string func-name)))
      (set 'f (read-file {/e:/newlisp/newlisp_manual.html}))
          (set 'r (regex (string "<a name=\"" func-name "\"></a>") f))
          (set 'n0 (r 1))
          (set 'n1 ((regex "<a name=" f 0 (+ n0 (r 2))) 1))
          (set 'html-text (slice f n0 (- n1 n0)))
          (replace "<.*?>" html-text "" 0)
          (replace "&lt;"  html-text "<")
          (replace "&gt;"  html-text ">")
          (replace "&amp;" html-text "&")
          (replace "&nbsp;" html-text " ")
          (replace "&mdash" html-text "...")
          (replace "\n\n+" html-text "\n\n" 1)
          (replace "^\n+|\n+$" html-text "" 1)
      (println "--------------------------")
          (println html-text)
          (println "--------------------------") 
          'end))