newlispfanclub.alh.net

HPW

>Therefor my vote would for the current syntax or Lutz's version.

So no problem! :-)

It is Lutz's version.

HPW

Turtle in the new 7.3.7 brings up an error:

bad screen distance "302,1612092"

HPW

> nl-math.c module line 1411, you ...

1411 is the empty last line in the 7.3.4 source distribution.

When we compiled we get some warnings about CR.
After converting to UNIX-file format no more warnings appear.

HPW

We have succesfull compiled newlisp 7.3.4 on our host running solaris.
Now it can be used on both sides. Great!

HPW

newLISP v7.3.5 Copyright (c) 2003 Lutz Mueller. All rights reserved.

> (upper-case "ASDasdöäüßÖÄÜ")
"ASDASDÖÄÜßÖÄÜ"
> (lower-case "ASDasdöäüßÖÄÜ")
"asdasdöäüßöäü"
>

Works well on WIN2K PRO and WIN XP PRO (Both German)!
Great!

HPW

Hm, Autolisp does not have a let.

But my vote would for the current syntax or Lutz's version. It keeps the structure in larger sources. A good editor can jump to the closing paranthesis.

HPW

Is there any way to support upper-case/lower-case with umlauts?

Example:

(upper-case "Testöäüß")

gives:

"TESTöäüß"

One possibility is to define my own function with parsing/replacing the umlauts. Other ideas?

HPW

>I will give it a try.

I agree with you, it is worth the try.
Would be nice to be able to get the direct way.
So keep on!

HPW

So far a workaround:

Code: Select all

(set 'tmpfile(tk "::freewrap::unpack  /DBA/artbez.lsp C:/temp/"))
(load tmpfile)
(delete-file tmpfile)

This is fast enough.

HPW

With the new 7.3.4 I have no problem to load the huge Lisp-file from a file directly. It is really fast. But when I try it from the wrapped EXE or file-system through the TK-frontend it seems to hang. When I use a far more smaller file, it comes back at once. (tk "set fle [open /DBA/artbez.lsp r]; N...

HPW

From the 7.3.4:

>list now accepts an unlimited number of arguments

Does it only means 'list. What is with commands like 'set/'setq?
Does they accept unlimited numbers of arguments?

HPW

Good to hear. That way is the best possible.
Thanks for the quick fix.

HPW

>if " (CADT_MBI_MDEF_LISP "A0002") " is a function which has to be evaluated, >then of course you would need 'list' so all elements in the list are evaluated first. Yes in the moment it has to be evaluated. It is on the alisp-side where I load it at different times where the function return differen...

HPW

I have a huge lisp table and want to read it. Here 2 sample rows: (setq CADT_WOINT_ARTBEZTAB (list (list "A0002" "Test1" "PRO-MEH" (CADT_MBI_MDEF_LISP "A0002") "100100" nil "S" "0") (list "A0010" "Test2" "PRO-ELK" (CADT_MBI_MDEF_LISP "A0010") "102401" nil "S" "1") ... ) ) ) But in row 2048 I get an:...

HPW

Thanks for it! By the way: set Ide(Console.... In my own special main-tcl I have changed all first chars of the Ide-var-names to capital letters, because they are sorted by them when it save the config. This is case-sensitive and so I get a clean alpha-sort when all are capital letters. But it's jus...

HPW

With this modified proc the pos is stored when you save the settings. proc SaveSettings {} { global Ide txt statusText set posxprefix "+" set posyprefix "+" set Ide(WinPosX) [append posxprefix [winfo x .]] set Ide(WinPosY) [append posyprefix [winfo y .]] set initFile [open "newlisp-tk.config" w] put...

HPW

Testing it with:

Code: Select all

(import "msvcrt" "sprintf")
(sprintf (last (dump '/)) "%c %c" 0 32)

and

Code: Select all

(import "msvcrt" "memcpy")
(memcpy (last (dump '/)) (pack "c c" 0 32) 2)

crashes both on WIN XP prof.

I am not sure if it is worth to think more about this hack,
because it is platform-dependent.

HPW

I think this code:

Code: Select all

(if (> (last (sys-info)) 7207)
	(global 'defun))

Should be this:

Code: Select all

(if (> (nth 5 (sys-info)) 7207)
	(global 'defun))

HPW

Bug is still in 7300 source distribution!

HPW

So with 7.2.8 this no longer works.

Code: Select all

(defun test ( a b c / x y)(setq x 10 y(div a b)))

symbol is protected : /
called from user defined function test

So have to change to the ',' but loose xlisp-compatibility.

HPW

I think this depends on what you can do in TCL/TK for international support.

May be you should surf on comp.lang.tcl and search for 'code page'.

When you found a solution for TCL/TK you have to modify the newlisp-tk.tcl from the source distribution to get a new EXE with your language support.

HPW

if { [llength $Ide(DirectConsoleCmd)] > 0 } { set cmdpos [lsearch -exact $Ide(DirectConsoleCmd) [string tolower $lastCommand]] if { $cmdpos > -1 } { set lastCommand "(" append lastCommand [lindex $Ide(DirectLispCmd) $cmdpos] ")" } } Adding the '-exact' option will prevent to activate the first comm...

HPW

One Problem, this does not work any more:

Code: Select all

(defun test ( a b c / x y)(setq x 10 y(/ a b )))

operator '/' is set to nil inside the function.
But we can do this:

Code: Select all

(defun test ( a b c / x y)(setq x 10 y(div a b )))

HPW

When I read this sample code in the help: (define (my-func a b c , x y z) (set 'x .....) ... ... ) Make me thinking if this is possible (replacing comma with forward slash): (defun my-func (a b c / x y)(setq x 10 y (+ a b c))) And it works! :-) Will help me in my work for an xlisp/alisp compatible l...

HPW

>HTML and launching a browser would be the easiest. That have I done with my alisp-code and it only has to be ported. >Don't know about the TCL-extensions. I am investigating on this, but it seems that multiplatform-support for it is tricky. >Best quality for printing of course PDF. Post Script the ...

newlispfanclub.alh.net

Search found 1390 matches

Turtle.lsp bug in 7.3.7

solaris compile

upper-case/lower-case with umlauts?

call stack overflow in function list:

Bug in init.lsp from 7300

Commas in parameter lists