newlispfanclub.alh.net

Maurizio

Thanks, very clear explanation
Maurizio

Maurizio

However I don't understand the following example: in context FIRST the x gets the correct value, in context SECOND a pre-definition of x is neeed, otherwise an error occurs. Any suggestion ? Regards Maurizio (context 'FIRST) (define (create aname val) (new FIRST aname) (set 'aname (eval aname)) (set...

Maurizio

calling sec:init i'm trying to create a new object, of type ctx, in the object sec, but newlisp complains with the following error symbol not in MAIN context in function new : asymbol called from user defined function sec:init this is the program : (context 'CTX) (define (doit) (set 'x 1)) (context ...

Maurizio

I've seen a certain improvement reorganizing the alternatives in the regex so that the patterns that recognize the more frequents tokens are the firsts in the expression. anyway I'm trying with a 130kb file with 15600 tokens. Now the scan time is about 1 second. (pentium 4 - 2.80 ghz, + hyperthreadi...

Maurizio

The speed improvement is about 4/5 times
I mean, before your suggestion the parse time was about 5 seconds,
now only 1 sec.
(I'm just experimenting, I really dont need to parse very big files)

Thanks,

Maurizio

Maurizio

Thank you very much.

btw, it seems to me
(push $0 tokens -1)

and not
(push $1 tokens -1)

Regards
Maurizio

Maurizio

I try to parse a text file separating every "word" according to a regular expression. The code is reported below What I see, is that even with a moderate text file (190k) it is very slow. I suppose this is due to the continuos string splitting after each succesfull parse. Any suggestion ? Btw, shoul...

Maurizio

Thank you very much
Maurizio

Maurizio

I'd like to read a file in a list, having each line as a separate string. I've tried this, but it seems to me a little clumsy. Is it there a better way ? Regards Maurizio (define (read-my-file) (set 'lst '()) (set 'in-file (open "myfile.txt" "read")) (while (read-line in-file) (set 'lst (append lst ...

Maurizio

Great little change !
thank you very much.
Maurizio

Maurizio

Thanks, I'll do that. Anyway I suppose there is something wrong about it. I'm required to know the internal details of any macros before I'm able to use them ? What if I use someone other's code ? Perhaps simply I cannot use directly any of my macros as a parameter to someone other's code ? Regards ...

Maurizio

the following program gives an overflow error I'm using vers 8.3.6 on win2k Regards Maurizio (define (tostring argos) (join (map eval argos) " ")) (define-macro (packleft) (tk "pack " (tostring (args)))) (define (test) (tk "toplevel .main") (set 'aname (tk "button .main.1")) (set 'asecond (tk "butto...

Maurizio

Thank you very much
Maurizio

Maurizio

Thank you very much
now it's a little clearer...
Regards
Maurizio.

Maurizio

in this case, wouldn't

(set 'ctx ctx)

do the same thing as

(set 'ctx (eval ctx))

?
Regards
Maurizio

Maurizio

would be very fine to have a way to comment out several rows of code
(something like /* and */)
sometimes, while debugging, I found the necessity to
comment out several procedures at once,
and it's very disturbing to have to comment every single line.

Regards
Maurizio

Maurizio

Looking in the manual, in the parahraph Context as classes,
I see the following statement :

(set 'ctx (eval ctx)) ;; get context out of symbol

I really don't understand it.
Any explanation ?

Regards
Maurizio

Maurizio

sorry, i see.

I must remove print in the function definitions

Regards
Maurizio

Maurizio

I'm trying a simple lisp program activated via httpd this is the source : (define (bold text) (print (string "" text ""))) (define (italic text) (print (string "" text ""))) (print "Content-type: text/html\n\n") (print "<html>") (print "<body>") (print (string " this is " (bold "bol...

Maurizio

Wonderful !
Now it works correctly.
Regards
Maurizio

Maurizio

is it possible to start newlisp httpd .....
without having a command window floating around ?
I'd like to start the program using a batch file, or a menu or desktop link
and it should run httpd without showing any window,
or better, with a little icon in the tray area....

Regards

Maurizio

Maurizio

My idea was to test a user-entered argument
to checkit was a proper number.
i've solved the problem with the following function

Code: Select all

(define (number? x,temp)
  (set 'temp (integer x))
  (and temp
     (= x (format "%d" temp))))

Regards
Maurizio

Maurizio

well, but "12a", as well "12xyz" should not be considered an integer !
regards
Maurizio

Maurizio

it seems that
(integer "12a")
returns 12 instead of nil
it's a bug or a feature ?
(if it's a feature, how can i check for a valid integer ?)

Regards
Maurizio

Maurizio

Thank you very much
Maurizio

newlispfanclub.alh.net

Search found 52 matches

what's wrong with this ?

About parse and scannig

Is it there a better way to read a file in a list ?

What's wrong with this ? (unexpected stack overflow)

Block comments

About contexts and context evaluation

unexpected echo

hiding httpd command window

problem with integer