Initial commit of newLISP.

[newlisp.git] / guiserver / word-count.lsp

;; demo script: word-count.lsp
;; this script is registered in the Tool menu of newlisp-edit.lsp

(set 'content (read-file (main-args 2)))

(println 
        "Words: " (length (find-all "\\w+" content))
  " Bytes: " ((file-info (main-args 2)) 0))

(exit)