util/syntax-help

   1 ;; syntax-help
   2 ;; include this in your init.lsp for syntax commandline help on Mac OS X
   3 ;; or other UNIX operating systems.
   4 ;; example:
   5 ;;   > (help starts-with)
   6 ;;   syntax: (starts-with <str str-key> [<num-option>] )
   7 ;;   syntax: (starts-with <list> [<expr>] )
   8 ;;
   9 ;; For Win32 change the manual path accordingly
  10
  11 (define-macro (help)
  12         (let (func-name (name (args 0)))
  13                 (dolist (item
  14                         (find-all (format {<b>(syntax: \(%s.*?)</b>} func-name)
  15                                 (read-file "/usr/share/doc/newlisp/newlisp_manual.html") $1)) ; UNIX
  16                         (replace "<em>" item "<")
  17                         (replace "</em>" item ">")
  18                         (println  item ""))))
  19
  20 ;; eof
  21