development version newLISP 8.9.4

[Lutz]

* additions and bug fixes

for change notes and files see:

http://newlisp.org/downloads/development/

Lutz

ps: the UUID type 4 generation will still change (at least for UNIX), but type 1 is usable

[HPW]

http://newlisp.org/downloads/developmen ... .9.0-4.txt

Minor: The change log starts with 8.9.3 instead of 8.9.1

Thanks again for the new releaese!

[pjot]

Lutz,

There are some compile problems with Tru64 though:

peter> make
./build

Discovered True64 Unix, please read doc/TRU64BUILD
cc -ieee -xtaso -pedantic -c -O3 -DSOLARIS -DTRU64 -D_POSIX_PII_SOCKET newlisp.c
cc -ieee -xtaso -pedantic -c -O3 -DSOLARIS -DTRU64 -D_POSIX_PII_SOCKET nl-symbol.c
cc -ieee -xtaso -pedantic -c -O3 -DSOLARIS -DTRU64 -D_POSIX_PII_SOCKET nl-math.c
cc -ieee -xtaso -pedantic -c -O3 -DSOLARIS -DTRU64 -D_POSIX_PII_SOCKET nl-list.c
cc -ieee -xtaso -pedantic -c -O3 -DSOLARIS -DTRU64 -D_POSIX_PII_SOCKET nl-liststr.c
cc -ieee -xtaso -pedantic -c -O3 -DSOLARIS -DTRU64 -D_POSIX_PII_SOCKET nl-string.c
cc -ieee -xtaso -pedantic -c -O3 -DSOLARIS -DTRU64 -D_POSIX_PII_SOCKET nl-filesys.c
cc: Warning: nl-filesys.c, line 1899: In this statement, & before array "uuid->node" is ignored. (addrarray)
memcpy(&uuid->node, (void *)nodeID, 6);
---------------^
cc: Warning: nl-filesys.c, line 1899: In this statement, & before array "uuid->node" is ignored. (addrarray)
memcpy(&uuid->node, (void *)nodeID, 6);
---------------^
cc: Warning: nl-filesys.c, line 1906: In this statement, & before array "uuid->node" is ignored. (addrarray)
memcpy(&uuid->node, node, 6);
---------------^
cc: Warning: nl-filesys.c, line 1906: In this statement, & before array "uuid->node" is ignored. (addrarray)
memcpy(&uuid->node, node, 6);
---------------^
cc -ieee -xtaso -pedantic -c -O3 -DSOLARIS -DTRU64 -D_POSIX_PII_SOCKET nl-sock.c
cc -ieee -xtaso -pedantic -c -O3 -DSOLARIS -DTRU64 -D_POSIX_PII_SOCKET nl-import.c
cc -ieee -xtaso -pedantic -c -O3 -DSOLARIS -DTRU64 -D_POSIX_PII_SOCKET nl-xml.c
cc -ieee -xtaso -pedantic -c -O3 -DSOLARIS -DTRU64 -D_POSIX_PII_SOCKET nl-web.c
cc -ieee -xtaso -pedantic -c -O3 -DSOLARIS -DTRU64 -D_POSIX_PII_SOCKET nl-matrix.c
cc -ieee -xtaso -pedantic -c -O3 -DSOLARIS -DTRU64 -D_POSIX_PII_SOCKET nl-debug.c
cc -ieee -xtaso -pedantic -c -O3 -DSOLARIS -DTRU64 -D_POSIX_PII_SOCKET pcre.c
cc newlisp.o nl-symbol.o nl-math.o nl-list.o nl-liststr.o nl-string.o nl-filesys.o nl-sock.o nl-import.o nl-xml.o nl-web.o nl-matrix.o nl-debug.o pcre.o -taso -lm -lrt -ldb -lbsd -o newlisp
ld:
Unresolved:
strtoll
*** Exit 1
Stop.
*** Exit 1
Stop.

The 'strtoll' is not recognized. What exactly are you expecting for 'long long'? Running 'types.c' on Tru64Unix:

peter> ./types
type bytes
---------------
char 1
char * 8
void * 8
short int 2
int 4
long 8
long int 8
long long 8
float 4
double 8
wchar_t 4

It seems that 'long long' has the same size as 'long', therefore I propose to change 'strtoll' to strtol' when compiling for Tru64.

If I change it like that, and run 'qa-dot', all tests run successfull:

peter> ./qa-dot

Testing built-in functions ...

! != $ % &
* + - / <
<< <= = > >=
>> NaN? ^ abs acos
add address amb and append
append-file apply args array array-list
array? asin assoc atan atan2
atom? base64-dec base64-enc bayes-query bayes-train
begin beta betai binomial case
catch ceil change-dir char chop
clean close command-line cond cons
constant context context? copy-file cos
count cpymem crc32 crit-chi2 crit-z
current-line date date-value debug dec
def-new define define-macro delete delete-file
device difference directory directory? div
do-until do-while dolist dotimes dotree dump dup empty?
encrypt ends-with env erf error-event
error-number error-text eval eval-string exec
exit exp expand explode factor
fft file-info file? filter find
find-all first flat float float?
floor flt for fork format
fv gammai gammaln get-char get-float
get-int get-integer get-string get-url global
if ifft import inc index
int integer integer? intersect invert
irr join lambda? last legal?
length let letex letn list
list? load log lookup lower-case
macro? main-args make-dir map match
max member min mod mul
multiply name net-accept net-close net-connect
net-error net-eval net-listen net-local net-lookup
net-peek net-peer net-ping net-receive net-receive-from
net-receive-udp net-select net-send net-send-to net-send-udp
net-service net-sessions new nil? normal
not now nper npv nth
nth-set number? open or pack
parse peek pipe pmt pop
post-url pow pretty-print primitive? print
println prob-chi2 prob-z process push
put-url pv quote quote? rand
random randomize read-buffer read-char read-file
read-key read-line real-path tested ok
ref
regex remove-dir rename-file replace replace-assoc
reset rest reverse rotate save
search seed seek select semaphore
sequence series set set! set-locale
set-nth setq sgn share signal
silent sin sleep --- sleep duration: 1000 ---
slice sort
source sqrt starts-with string string?
sub swap sym symbol? symbols
sys-error sys-info tan throw throw-error
time time-of-day timer title-case trace
trace-highlight transpose trim true? unify
unique unless unpack until upper-case
uuid wait-pid while write-buffer write-char
write-file write-line xml-error xml-parse xml-type-tags
zero? | ~

Testing contexts as objects and scoping rules ...


ALL FUNCTIONS FINISHED SUCCESSFULL

total time: 5987
newLISP v.8.9.4 on Tru64Unix, execute 'newlisp -h' for more info.

> ring...

Peter

[pjot]

Also in the file 'doc/TRU64BUILD' you still mention the file 'tru64.c':

Note that the tru64 version of newLISP limits the number of parameters in
(format fmt ...) to 32. This can be changed defining a different value for
MAX_FORMAT in tru64.c.

This part can be removed completely. There is no such limitation anymore.

Finally, the 'build' script mentions:

OSF1)
echo Discovered True64 Unix, please read doc/TRU64BUILD
make -f makefile_tru64
exit
;;

Please change to 'Discovered Tru64Unix' (without the 'e').

Many thanks!
Peter

[newdep]

Hi Lutz,

I dont know how you manage it but the UUID I needed last week ;-)
(Therefor I create my own random ID generator but the uuid is nicer ;-)

I needed it for random file generation! very nice this enhancement..!

Thanks, Norman.

PS: compliments on the manual michael!

[Lutz]

The & before the uuid->node definitely has to go, for some reason gcc did not complain about it on the systems I tried.

strtoll() was used, because I could not specify a long long (8 byte) hex constant, so I just converted from a string. Tru64 can probably specify the hex constant directly and you can get rid of the string conversion alltogether.

I made several other changes meanwhile, trying to stay closer to the spec when it comes to type 4 UUIDs, but still have to run tests on Win32.

Thanks for pointing out the things to change in some of the files for tru64, I will repost as 8.9.5 by the end of this week.

Lutz

to Norman: yes, UUIDs are very handy in many situations, file-ids, session-ids and zillions of other stuff. I am trying to get more DCE stuff into place, perhaps the next is an LDAP module?

[pjot]

Many thanks! As soon as 8.9.5 is ready I'll check it out. :-)

Peter

[starseed]

to Norman: yes, UUIDs are very handy in many situations, file-ids, session-ids and zillions of other stuff. I am trying to get more DCE stuff into place, perhaps the next is an LDAP module?

And my nice gensym can be replaced by

Code: Select all

(sym (uuid))

[newdep]

>> perhaps the next is an LDAP module?

Instresting ;-) If youre able to build a module on this then a Module
for snmp-browsing or snmp-walk is very near ;-) (Which I like to
build in newlisp ;-)

Regards, Norman.

[Lutz]

I was trying to compile OpenLDAP on OS X, but no luck for now, I will have a dedicated Linux/OpenBSD machine later this year, then I try again.

The API looks streight forward for implementing a lib-import module for in newLISP.

Lutz

[Lutz]

Still problems with UUID generation, don't use it yet.

Lutz