Maintenance Release newLISP v.10.1.1

[TedWalther]

I see in your log you ran vim before running the makefile.  Did you have to change anything?

[pjot]

No, just checking how the generated Makefile looks like. It is an old habit of me to use 'vim' for every tiny task. My bad.



Peter

[HPW]

After testing a while the latest 10.1.1 I ran into problem with (source ...) or (print ...)

Code Select Expand


(device(open CallBackFilename "a"))
(println)
(setq MbiVarStr(source 'CADT_WOINT_BG 'CADT_WOINT_HG 'CADT_WOINT_TG 'CADT_WOINT_NIS_DAT 'CADT_WOINT_SCI_DAT 'CADT_WOINT_WPL_DAT 'CADT_WOINT_WPR_DAT 'CADT_WOINT_BLV_DAT 'CADT_WOINT_BLL_DAT 'CADT_WOINT_BLR_DAT 'CADT_WOINT_BLH_DAT 'CADT_WOINT_FRO_DAT 'CADT_WOINT_ZUB_DAT 'CADT_WOINT_WUF_DAT 'CADT_WOINT_NL_VAR 'CADT_WOINT_NB_VAR 'CADT_WOINT_NB_RAD 'CADT_WOINT_NB_VIS 'CADT_WOINT_NB_ENA))
(print MbiVarStr)
(close (device))


When reaching symbol CADT_WOINT_FRO_DAT the contained assoc-list is broken and source-string generating stopped.

So either in (source ..) or in (print ...) is a problem.

Switching back to 10.1.0 does work OK.



Any changes there?

[HPW]

And why is the size of the DLL so different?



newLISP 10.1.0 238 KB

newLISP 10.1.1 254 KB



??

[Lutz]

None of the routines involved, including internal helpers, have changed for 'source' and 'print' between 10.1.0 and 10.1.1.



My MinGW MSYS and GCC version have been updated from 10.1.0 to 10.1.1 which probably is responsible for the size of the DLLs and may be responsible for the problem you have with 'source' or 'print'.



I made Win32 installer of 10.1.1 with the old environment and have send you a private message with the address, where you can pick it up.

[HPW]

I will try it out.

Thanks.



Hans-Peter

[HPW]

This time I test with the EXE.

My code to reproduce the problem:

Code Select Expand


(set 'CADT_WOINT_BG "200000")

(set 'CADT_WOINT_HG "250000")

(set 'CADT_WOINT_TG "7800")

(set 'CADT_WOINT_NIS_DAT '(
  (("Artnr" "O0005") ("RaumAr" "INNIS") ("ErfArt" "CADAS") ("HoeheL" "250000") ("HoeheM"
    "250000")
   ("HoeheR" "250000")
   ("HoeheF" "250000")
   ("BreitU" "200000")
   ("BreitM" "200000")
   ("BreitO" "200000")
   ("BreitF" "200000")
   ("Tiefe" "7800")
   ("AufscL" "0")
   ("AufscR" "0")
   ("OffsetX" "0"))))

(set 'CADT_WOINT_SCI_DAT '(
  (("Artnr" "O9402") ("Breite" "200000") ("AnzTu" "2TUER") ("AnzES" "4ESTO") ("AnzMS"
    "OHNE")
   ("AnscLi" "WAND")
   ("AnscRe" "WAND")
   ("OffsetX" "0")
   ("OffsetZ" "0")
   ("UPOS_LISP" "((setq CADT_WOINT_WANDZOFF "2500"))"))))

(set 'CADT_WOINT_WPL_DAT '(
  (("Artnr" "O9550") ("FueFvo" "M01") ("FueFhi" "M01") ("Varian" "L") ("Hoehe" "246000")
   ("OffsetX" "0")
   ("OffsetY" "-4050")
   ("OffsetZ" "0")
   ("UPOS_LISP" "((setq CADT_WOINT_EINBAU "LAUFV"))"))))

(set 'CADT_WOINT_WPR_DAT '(
  (("Artnr" "O9550") ("FueFvo" "M01") ("FueFhi" "M01") ("Varian" "R") ("Hoehe" "246000")
   ("OffsetX" "200000")
   ("OffsetY" "-250")
   ("OffsetZ" "0")
   ("UPOS_LISP" "((setq CADT_WOINT_EINBAU "LAUFH"))"))))

(set 'CADT_WOINT_BLV_DAT nil)

(set 'CADT_WOINT_BLL_DAT nil)

(set 'CADT_WOINT_BLR_DAT nil)

(set 'CADT_WOINT_BLH_DAT nil)

(set 'CADT_WOINT_FRO_DAT '(
  (("Artnr" "O7154") ("FueFvo" "M01") ("FueFhi" "M01") ("ProArl" "GRILV") ("ProAul"
    "DIPRV")
   ("ProArr" "GRILV")
   ("ProAur" "ABDEP")
   ("Laufar" "OBENL")
   ("Buerst" "OHNE")
   ("StopLi" "OHNE")
   ("StopRe" "OHNE")
   ("FarbSt" "")
   ("Anschl" "NACHR")
   ("Hoehe" "244700")
   ("Breite" "98250")
   ("OffsetX" "3500")
   ("OffsetY" "-4300")
   ("OffsetZ" "1300"))
  (("Artnr" "O7154") ("FueFvo" "M01") ("FueFhi" "M01") ("ProArl" "ABSCH") ("ProAul"
    "ABDEP")
   ("ProArr" "GRILV")
   ("ProAur" "DIPRV")
   ("Laufar" "OBENL")
   ("Buerst" "BUERL")
   ("StopLi" "OHNE")
   ("StopRe" "OHNE")
   ("FarbSt" "")
   ("Anschl" "NACHL")
   ("Hoehe" "244700")
   ("Breite" "98250")
   ("OffsetX" "98250")
   ("OffsetY" "-500")
   ("OffsetZ" "1300"))))

(set 'CADT_WOINT_ZUB_DAT nil)

(set 'CADT_WOINT_WUF_DAT nil)

(set 'CADT_WOINT_NL_VAR '(
  ("AnordnungAuswahl" "O22ZL")
  ("AufschlagLi" 0)
  ("AufschlagRe" 0)
  ("BlendenV" "")
  ("BlendenH" "")
  ("BlendenHoe" "BlendenHoe56")
  ("BlenFv" "M01")
  ("BlenFh" "M01")
  ("FueFvo" "M01")
  ("FueFhi" "M01")
  ("FuelF1" nil)
  ("FuelF2" nil)
  ("FuelF3" nil)
  ("FueF1H" nil)
  ("FueF2H" nil)
  ("FueF3H" nil)
  ("LaufSchiene" "LaufSchieneD2")
  ("LaufUnten" "")
  ("NischBreite" 2000)
  ("NischBreiteU" 2000)
  ("NischBreiteM" 2000)
  ("NischBreiteO" 2000)
  ("NischHoehe" 2500)
  ("NischHoeheL" 2500)
  ("NischHoeheM" 2500)
  ("NischHoeheR" 2500)
  ("TuerAnordnung" "AnordnungNI")
  ("TuerAnzahl" "TuerAnzahl2")
  ("Tuerart" "TuerartS")
  ("Tuervar" "TuervarE")
  ("WandansFh" "M01")
  ("WandansFv" "M01")
  ("WandansL" "Checked")
  ("WandansR" "Checked")))

(set 'CADT_WOINT_NB_VAR '(
  ("Anordnung" "O22ZL")
  ("AufschlagLi" "0")
  ("AufschlagRe" "0")
  ("BlendenH" "")
  ("BlendenHoeObj" "")
  ("BlendenV" "")
  ("FRO_Breite" "982.5")
  ("FRO_Hoehe" "2447.0")
  ("FrontArtnr" "O7154")
  ("GesamtBreite" "2000.0")
  ("LaufSchieneObj" "LaufSchieneD2")
  ("LaufUntenObj" "")
  ("LaufUntenPicFile" "")
  ("NischBreite" "2000")
  ("NischBreiteM" "2000")
  ("NischBreiteO" "2000")
  ("NischBreiteU" "2000")
  ("NischHoehe" "2500")
  ("NischHoeheL" "2500")
  ("NischHoeheM" "2500")
  ("NischHoeheR" "2500")
  ("TuerAnordnung" "1")
  ("TuerAnordnungL" "1")
  ("TuerAnordnungR" "1")
  ("TuerAnzahlObj" "")
  ("TuerartObj" "TuerartS")
  ("TuervarObj" "TuervarE")
  ("WandansL" "Checked")
  ("WandansR" "Checked")))

(set 'CADT_WOINT_NB_RAD '(
  ("BlendenHoe" 0)
  ("LaufSchiene" 1)
  ("LaufUnten" nil)
  ("TuerAnzahl" 1)
  ("Tuerart" 0)
  ("Tuervar" 0)))

(set 'CADT_WOINT_NB_VIS '(
  ("AufschlagLi" "False")
  ("AufschlagRe" "False")
  ("GWandansFv" "True")
  ("GWandansFh" "True")
  ("GFueFvo" "True")
  ("GFuelFv" "False")
  ("GFueFhi" "False")
  ("GFuelFh" "False")
  ("GBlenFv" "False")
  ("GBlenFh" "False")))

(set 'CADT_WOINT_NB_ENA '(
  ("LaufSchieneD1" "True")
  ("LaufSchieneD2" "True")
  ("LaufSchieneB1" "True")
  ("LaufSchieneB2" "True")
  ("LaufUntenA" "False")
  ("LaufUntenL" "False")
  ("LaufUntenF" "False")
  ("WandansL" "True")
  ("WandansR" "True")
  ("CWandansFh" "False")
  ("TuerAnzahl1" "False")
  ("TuerAnzahl2" "True")
  ("TuerAnzahl3" "False")
  ("TuerAnzahl4" "True")
  ("BArtikelListe" "True")
  ("BExit" "True")
  ("BWeiter" "True")))


  (device(open "c:\tmp\nl_testout.lsp" "a"))
  (println)
  (setq MbiVarStr(source 'CADT_WOINT_BG 'CADT_WOINT_HG 'CADT_WOINT_TG 'CADT_WOINT_NIS_DAT 'CADT_WOINT_SCI_DAT 'CADT_WOINT_WPL_DAT 'CADT_WOINT_WPR_DAT 'CADT_WOINT_BLV_DAT 'CADT_WOINT_BLL_DAT 'CADT_WOINT_BLR_DAT 'CADT_WOINT_BLH_DAT 'CADT_WOINT_FRO_DAT 'CADT_WOINT_ZUB_DAT 'CADT_WOINT_WUF_DAT 'CADT_WOINT_NL_VAR 'CADT_WOINT_NB_VAR 'CADT_WOINT_NB_RAD 'CADT_WOINT_NB_VIS 'CADT_WOINT_NB_ENA))
  (print MbiVarStr)
  (close (device))


So the new version fail with this and the version made with the old enviroment works.

So they are not completly compatible.

[HPW]

The new version seems to fail with a amount of 2050 Bytes of source string.

[Lutz]

The new version of MinGW GCC seems to limit to 2048 characters. You can show this with the following simple program on Win32 (v 10.1.1):

Code Select Expand

(setq atxt (string (sequence 1 1000)))
(println atxt)

(write-file "text.txt" atxt )

(exit)


it will cut of at about 500 for the display but save it in full length. I may have to go back to the older GCC when on Win32, if I cannot work around this.

[Lutz]

A release update 10.1.2 for Win32 only has been posted here to correct this problem:



http://www.newlisp.org/downloads/newlisp-10102-win-gs-132.exe">http://www.newlisp.org/downloads/newlis ... gs-132.exe">http://www.newlisp.org/downloads/newlisp-10102-win-gs-132.exe