newLisp version function

[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"

[Sammo]

Does the sys-info function help?



((sys-info) -2)

;-> 8802

[Dmi]

Thanks!

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

[Sammo]

Hello Dmi,



I'm glad that helped. Here's a function using sys-info that might also be helpful.

Code Select Expand

(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]

Nice! I'm using it now!

The only point is that my 8.8.0-p2 returns "8800" as ((sys-info) -2)

[pjot]

There is a 'secret' number for Tru64Unix as well (9), maybe you want to add it also:

Code Select Expand


(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]

Oke! DEC forever! :-)