7 lines
152 B
Text
7 lines
152 B
Text
|
;; demo script: uppercase.lsp
|
||
|
|
;; this script is registered in the Tool menu of newlisp-edit.lsp
|
||
|
|
|
||
|
|
(print (upper-case (read-file (main-args 2))))
|
||
|
|
|
||
|
|
(exit)
|