newLisp version function

Dmi · Post by **Dmi** » Sun Mar 26, 2006 9:35 pm

Is there a way to know the version currently running?
For programmatically displaying a string like:
"newLISP v.8.8.0-p2 on linux"

Sammo · Post by **Sammo** » Sun Mar 26, 2006 9:47 pm

Does the sys-info function help?

((sys-info) -2)
;-> 8802

Dmi · Post by **Dmi** » Sun Mar 26, 2006 10:37 pm

Thanks!
I haven't found it when has a look into sys-info :-\

Sammo · Post by **Sammo** » Sun Mar 26, 2006 10:42 pm

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))))) ))

Dmi · Post by **Dmi** » Mon Mar 27, 2006 5:48 pm

Nice! I'm using it now!
The only point is that my 8.8.0-p2 returns "8800" as ((sys-info) -2)

pjot · Post by **pjot** » Mon Mar 27, 2006 7:50 pm

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

Dmi · Post by **Dmi** » Mon Mar 27, 2006 8:44 pm

Oke! DEC forever! :-)