development version newLISP v.8.5.10

[Lutz]

This is the last development release before the newLISP v.8.6.0 release due June 10th. It is a release candidate for newLISP 8.6.0. See the newLISP 8.6.0 release notes for a detail of all the changes and additions between 8.5.0 and 8.6.0.



for files and release notes see here: http://newlisp.org/downloads/development/">http://newlisp.org/downloads/development/



Lutz

[HPW]

Thanks for the win-timer!

But it is not mentioned in the release notes?

[Lutz]

Oops, thanks, find a corrected version here: http://newlisp.org/downloads/development/newLISP_86_Release_Notes.html">http://newlisp.org/downloads/developmen ... Notes.html">http://newlisp.org/downloads/development/newLISP_86_Release_Notes.html



Lutz

[pjot]

Compiles well on Tru64Unix 4.0f.



However, on Tru64Unix 5.1 still the compile warnings appear for (char **) and also the '(struct sockaddr *)&remote_sin, &remote_sin_len)' which is declared as a long in the 'socket.h' headerfile.



I know these warnings are of minor importance, still, just for curiosity's sake, do you want me to describe the locations where these warnings appear to make adjustments, or do you think it is OK to leave it like that?



Peter

[Lutz]

I changed one of the '(char **)0' to NULL, the one appearing the nl-web.c, what are the others giving warnings in tru64?



for the  '(struct sockaddr *)&remote_sin, &remote_sin_len' in nl-sock just do whatever is required, probably declaring it as 'long emote_sin_len', which would not be accepted by the other compiles so theire would have to be an #ifdef tru64.



The important thing is send me the changes, so I know what/where to apply.



Lutz

[pjot]

Ah yes, I see now, indeed the nl-web.c generates no error anymore, thanks. Below the current compileprocess for newlisp 8.5.10 on Tru64Unix 5.1B. The result of the tests appear aligned in columns, this is not visible below.



(For Tru64Unix 4.0 there are no compilewarnings.)

cbcl01> make tru64

make -f makefile_tru64

cc -ieee -xtaso -pedantic -c -O2 -DSOLARIS -DTRU64 -DNANOSLEEP -D_POSIX_PII_SOCKET newlisp.c

cc: Warning: newlisp.c, line 2439: In this statement, the referenced type of the pointer value "(char ...)0" is "short pointer to char", which is not compatible with "long pointer to char". (ptrmismatch)

                newCell = stuffInteger((UINT)strtoul(token,(char **)0,0));

-----------------------------------------------------------^

cc: Warning: newlisp.c, line 2443: In this statement, the referenced type of the pointer value "(char ...)0" is "short pointer to char", which is not compatible with "long pointer to char". (ptrmismatch)

                newCell = stuffInteger((UINT)strtol(token,(char **)0,0));

----------------------------------------------------------^

cc -ieee -xtaso -pedantic -c -O2 -DSOLARIS -DTRU64 -DNANOSLEEP -D_POSIX_PII_SOCKET nl-symbol.c

cc -ieee -xtaso -pedantic -c -O2 -DSOLARIS -DTRU64 -DNANOSLEEP -D_POSIX_PII_SOCKET nl-math.c

cc -ieee -xtaso -pedantic -c -O2 -DSOLARIS -DTRU64 -DNANOSLEEP -D_POSIX_PII_SOCKET nl-list.c

cc -ieee -xtaso -pedantic -c -O2 -DSOLARIS -DTRU64 -DNANOSLEEP -D_POSIX_PII_SOCKET nl-liststr.c

cc -ieee -xtaso -pedantic -c -O2 -DSOLARIS -DTRU64 -DNANOSLEEP -D_POSIX_PII_SOCKET nl-string.c

cc: Warning: nl-string.c, line 840: In this statement, the referenced type of the pointer value "(char ...)0" is "short pointer to char", which is not compatible with "long pointer to char". (ptrmismatch)

result = strtol(intString,(char **)0,(int)base);

--------------------------^

cc -ieee -xtaso -pedantic -c -O2 -DSOLARIS -DTRU64 -DNANOSLEEP -D_POSIX_PII_SOCKET nl-filesys.c

cc -ieee -xtaso -pedantic -c -O2 -DSOLARIS -DTRU64 -DNANOSLEEP -D_POSIX_PII_SOCKET nl-sock.c

cc -ieee -xtaso -pedantic -c -O2 -DSOLARIS -DTRU64 -DNANOSLEEP -D_POSIX_PII_SOCKET nl-import.c

cc -ieee -xtaso -pedantic -c -O2 -DSOLARIS -DTRU64 -DNANOSLEEP -D_POSIX_PII_SOCKET nl-xml.c

cc -ieee -xtaso -pedantic -c -O2 -DSOLARIS -DTRU64 -DNANOSLEEP -D_POSIX_PII_SOCKET nl-web.c

cc -ieee -xtaso -pedantic -c -O2 -DSOLARIS -DTRU64 -DNANOSLEEP -D_POSIX_PII_SOCKET nl-matrix.c

cc -ieee -xtaso -pedantic -c -O2 -DSOLARIS -DTRU64 -DNANOSLEEP -D_POSIX_PII_SOCKET nl-debug.c

cc -ieee -xtaso -pedantic -c -O2 -DSOLARIS -DTRU64 -DNANOSLEEP -D_POSIX_PII_SOCKET tru64.c

cc -ieee -xtaso -pedantic -c -O2 -DSOLARIS -DTRU64 -DNANOSLEEP -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 tru64.o pcre.o -taso -lm -lrt -ldb -lbsd -Lffi-tru64-5.1 -lffi -o newlisp

strip newlisp

cbcl01> ./newlisp qa_dot



Testing built-in functions ...



!              !=             $              %              &

*              +              -              /              <

<<             <=             =              >              >=

>>             NaN?           ^              abs            acos

add            address        amb            and            append

apply          args           array          array-list     array?

asin           assoc          atan           atan2          atom?

base64-dec     base64-enc     begin          beta           betai

binomial       case           catch          ceil           change-dir

char           chop           close          command-line   cond

cons           constant       context        context?       copy-file

cos            count          cpymem         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            error-event    error-number   error-text     eval

eval-string    exec           exit           exp            expand

explode        factor         fft            file-info      file?

filter         find           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            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-listen     net-local      net-lookup     net-peek

net-peer       net-receive    net-receive-from net-receive-udp net-select

net-send       net-send-to    net-send-udp   net-service    net-sessions

new            normal         not            now            nper

npv            nth            nth-set        open           or

pack           parse          pipe           pmt            pop

post-url       pow            pretty-print   primitive?     print

println        prob-chi2      prob-z         process        push

put-url        pv             quote          quote?         rand

random         read-buffer    read-char      read-file      read-key

read-line      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           share          signal         silent         sin

sleep          --- sleep duration: 1000 ---

slice          sort           source         sqrt

starts-with    string         string?        sub            swap

sym            symbol         symbol?        symbols        sys-error

sys-info       tan            throw          throw-error    time

time-of-day    timer          trace          trace-highlight transpose

trim           unique         unless         unpack         until

upper-case     wait-pid       while          write-buffer   write-char

write-file     write-line     xml-error      xml-parse      xml-type-tags

|              ~



Testing contexts as objects and scoping rules ...





ALL FUNCTIONS FINISHED SUCCESSFULL



newLISP v.8.5.10 on Tru64Unix, execute 'newlisp -h' for more info.



> ring...





> (exit)

So the lines 2439 and 2442 of 'newlisp.c' can change to NULL, I suppose; also line 840 from 'nl-string.c'.



The file 'nl-sock' changed this (line 636-642):

Code Select Expand


#ifdef WIN_32
int remote_sin_len;
#elif TRU64
unsigned long remote_sin_len;
#else
UINT remote_sin_len;
#endif


Peter

[Lutz]

Thanks Peter, I integrated everything into the next version



Lutz