;#t2.lsp
(set 'ARGS (main-args))
(define (get-arg argname '_result)
(let (ix (find argname ARGS))
(and ix (pop ARGS ix))
(if (catch (ARGS ix) '_result)
(and (pop ARGS ix) _result)
nil
)
)
)
(constant 'EXECUTE_PATH "/usr/bin/newlisp")
(constant 'ARG_SECOND "t2.lsp")
(constant 'TIME_CLOCK 4000)
(constant 'DEAD (get-arg "--dead"))
(when DEAD
(write-file (string "t2_txt." (date-value)) (string (date-value)))
(exit)
)
(while (not DEAD)
(sleep 2000) ;; Two line code . actually only sleep 2 seconds !!!
(sleep 2000) ;; Without this will generate an error !!!
(println "Sleep... " TIME_CLOCK )
(if CPID (destroy CPID))
(set 'CPID (process (join (map string (list EXECUTE_PATH ARG_SECOND "--clock" TIME_CLOCK "--dead 4free" )) " ") ))
(println "CPID :--> " CPID )
(println (join (map string (list EXECUTE_PATH ARG_SECOND "--clock" TIME_CLOCK "--dead 4free" )) " "))
;(sleep 2000) ;;Here is also possible to insert the code.
)
(exit)
t2.lsp is A self-calling script.
anyboday have idea?
And How to suppress output from return values from Quote
function?
Quote
function no effect.
Works well here on a Windows 7 system, with and without the second sleep at the beginning of the
The
The
I THINK This's a bug ?!
#p1.lsp
(while 1
(sleep 5000)
(dotimes (n 2)
(process (string "/usr/bin/newlisp " " p2.lsp " n))
)
)
(exit)
(println "Current PIS is " (sys-info 7) " ---> " (last $main-args))
(exit)
Quote
newLISP v.10.5.4 32-bit on Linux IPv4/6 UTF-8 libffi.
$newlisp p1.lsp
p1 process --- 1 time
p1 process --- 2 time
Current PIS is 891 ---> 0
Current PIS is 892 ---> 1
p1 process --- 3 time
Current PIS is 894 ---> 0
....
oh.................. so rapid
Program did not sleep for 5 seconds, but has continued rapid execution.
sleep function does not execute.
The
VERY THX Lutz !
Everything there is reason.
My knowledge is so poor that it did not notice the problem is the signal.
Now I found two ways to avoid this problem.
Or use
(dotimes (n 2) (process (string "/usr/bin/newlisp " " p2.lsp " n))
(timer 'p1 5))
(p1)
good solutions!