Page 1 of 1
newLisp version function
Posted: Sun Mar 26, 2006 9:35 pm
by Dmi
Is there a way to know the version currently running?
For programmatically displaying a string like:
"newLISP v.8.8.0-p2 on linux"
Posted: Sun Mar 26, 2006 9:47 pm
by Sammo
Does the sys-info function help?
((sys-info) -2)
;-> 8802
Posted: Sun Mar 26, 2006 10:37 pm
by Dmi
Thanks!
I haven't found it when has a look into sys-info :-\
Posted: Sun Mar 26, 2006 10:42 pm
by Sammo
Hello Dmi,
I'm glad that helped. Here's a function using sys-info that might also be helpful.
Code: Select all
(define (newLisp-version)
(let
(
OS '("unknown" "linux" "bsd" "osx" "solaris" "cygwin" "win32")
FORMAT "newLisp v%s.%s.%s-p%s on %s"
)
;body of let
(apply format (flat (list FORMAT (explode (string ((sys-info) -2))) (OS ((sys-info) -1))))) ))
Posted: Mon Mar 27, 2006 5:48 pm
by Dmi
Nice! I'm using it now!
The only point is that my 8.8.0-p2 returns "8800" as ((sys-info) -2)
Posted: Mon Mar 27, 2006 7:50 pm
by pjot
There is a 'secret' number for Tru64Unix as well (9), maybe you want to add it also:
Code: Select all
(set OS '("unknown" "linux" "bsd" "osx" "solaris" "cygwin" "win32" "" "" "Tru64Unix"))
Actually, the number 7 is used for the Win32 version compiled with Borland, and 8 is used for WindowsCE.
Peter
Posted: Mon Mar 27, 2006 8:44 pm
by Dmi
Oke! DEC forever! :-)