newlispfanclub.alh.net

eddier

Lutz, It would be nice to have expand work on stuff like (setq a 'r) (expand (a:a b) 'a ) => (r:r b) instead of having to do string manipulation like below (define-macro (def-mac _dm _body) (let (_s (string _dm)) (eval-string (format "(context '%s) (define-macro (%s:%s) %s) (context 'MAIN)" _s _s _s...

eddier

on the line with

Code: Select all

 (format "(define-macro (:%s) (format \"<%s%%s\" (<tag /> (args))))"

Kill the space between "(<tab" and "/>"

I don't know how that got in there.

Eddie

eddier

I thought I had posted this, but I guess I didn't. And if I did, this is an update. Anyway a convient cgi.lsp for cgi. (context 'CGI) ;; by Eddie Rucker ;; allows easyly interchangable HTML and newLISP code ;; version 0.6 (Dec 2, 2004) -- made code a bit better, turned around the "=" ;; version 0.5 ...

eddier

OOPS! Use the following.

Code: Select all

(define (subs w)
  (replace "<%([^<%]+?)%>" w (string (eval-string $1)) 0)
  (if (> $0 0) (subs w) w))

Eddie

eddier

Correction. To handle both nesting of "<% %>"s and sequences of "<% %>"s, change the substitute code to (define (subs %w) (replace "(<%([^<%]+?)%>)" %w (string (eval-string $2)) 0) (if (> $0 0) (subs %w) %w)) (setq iftest true dotrue "hello" dofalse "goodbye") (setq text [text]<p><%(if <%iftest%> "<...

eddier

Kind of a macro within macro within ... thingy that really helps with html code. (define (<page> %w) (replace "`(.+?)`" %w (string (eval-string $1)) 516) (if (> $0 0) (<page> %w) %w)) ... (let (isfred true val "fred") (print [text]Content-type: text/html <html> <body> <p>`(if test "Hello `val`!" "Yo...

eddier

Tradeoffs Tradeoffs Tradeoffs ... We like small size and efficiency so we can live with it.

Thanks Lutz!

Eddie

eddier

Okidoki! What if {} were made to handle text of indefinite length (just to be not limited to 2048 chars). Then one could use {} for inline and [text][/text] for multiline. The only use I can see for the {} buggers is for pattern matching since I can't use \n, \t, etc. within them. For example I cann...

eddier

I see your point lwix. Also check for white space between the [text] and \n.
So that (I'm using "{}" in place of "[text][/text]."

Code: Select all

(print { \t\t\t ; white space
Content-type: text/html

<html>
.
.
.
</html>})

equals

Code: Select all

(print {Content-type: text/html

<html>
.
.
.
</html>})

I like it.

Eddie

eddier

I wished [text][/text] was the {}.
Instead of "", [text][/text], and {} just have "" and {}.

Just my two cents.

Eddie

eddier

Yes, but doesn't newlisp use doubles internally and not floats?
in (float_print 1.2) the 1.2 is being passed as a double isn't it?

Eddie

eddier

I've seen this error (%f and double) or (%lf and float) many times in plain C. I bet if you change float to double you will have no problem.

Eddie

eddier

In order to evaluate functions you need to add in the (string function as (define (subs w) (replace "`(.+?)`" w (string (eval-string $1)) 0)) This allows stuff like numbers and lists to be substituted. (println (subs [text]Content-type: text/html <html> <body> <p>1 + 2 + ... + 8 = `(apply + (sequenc...

eddier

Works the same way with 0 or 512.

Eddie

eddier

Correction! Sometimes I do foolish things.

eddier

Sometimes I don't just do foolish things. This works maybe a bit faster? I chose the backquotes for less typing. (define (subs w) (replace "`(.+)`" w (eval-string $1) 0)) Example (setq title "The Big Heading" section "Section I") (println (subs [text] <html> <body> <h1>`title`</h1> <h2>`section`</h2...

eddier

Thanks Lutz! This will do fine if I change file-name to a string-var.

Eddie

eddier

What would really be wonderful for us cgi tinkerers would be to evaluate variables and functions within the [text] [/text] tags like (set 'title "Today") (pr [text]Content-type: text/html <html> <head> <title>#{title}</title> </head> <body> <p>Today is #{(now)}</p> </body> </html> [/text]) I have do...

eddier

Thanks Lutz :)

Eddie

eddier

I would use the (letrec more. What is the difference between let* and let?

Eddie

eddier

Would it be difficult to fix let so that I could reference other local variables like

Code: Select all

(let (x (car L) y (car x) ...)

This would reduce the amount of nested lets like

Code: Select all

(let (x (car L))
  (let (y (car x))
  ...

What do you think about this one?

Eddie

eddier

Ok, tommorrow I'll take a hack at your hack at quack and see what we can do.

Eddie

eddier

I've only played with the scheme.el in emacs. I've used emacs for about 8 years but to be honest, I don't know anything about its inner workings. I discovered a few things by hunting them down on the Internet. I used the M[ key sequence and ran newLISP from the shell command line. I've never tried x...

eddier

I dont like typing much either. For non cgi programs, I've redone many of the commands by adding the following to my init.lsp. (constant (global 'const) constant) (constant (global 'df) define) (constant (global 'dm) define-macro) (constant (global 'ap) apply) (constant (global 'filt) filter) (const...

eddier

Lutz,

Did you mean "no circular lists" instead of "now circular lists?"

newlispfanclub.alh.net

Search found 294 matches

expand and define-macro

cgi and html

html

[text][/text]

let