From: Sam S. <sd...@gn...> - 2006-01-26 17:02:58
|
I modified CVS head to do the following: SAVEINITMEM now accepts :SCRIPT that defaults to (NOT INIT-FUNCTION) When the image created with :SCRIPT T (default) is invoked, the tradition behavior is exhibited: first positional argument is the script file name, the rest is placed into *ARGS* When the image created with :SCRIPT NIL is invoked, all positional arguments go into *ARGS*. this means: $ ./clisp -q -K boot -norc -x '(saveinitmem "adder" :executable t :norc t :quiet t :init-function (lambda () (print (reduce (function +) ext:*args* :key (function read-from-string))) (ext:exit)))' $ ./adder 1 2 3 4 10 $ I want "./adder -help" to print the function doc for init-function too. I appreciate feedback. -- Sam Steingold (http://www.podval.org/~sds) running w2k http://www.jihadwatch.org http://www.iris.org.il http://ffii.org http://www.openvotingconsortium.org http://www.dhimmi.com http://truepeace.org The only substitute for good manners is fast reflexes. |