Now I met the first problem , it seems newlisp eval-string will change %; to be none.
here is
Code: Select all
<%
(print "Content-type: text/html\r\n\r\n")
;(module "web.lsp")
;(Web:send-headers)
%>
<html>
<body>
<div style ="height:30px;width:100%; background:black;"></div>
<div>
<%
(print (string "It works newlisp with module web " (date)) )
%>
</div>
</body>
</html>
Code: Select all
<html>
<body>
<div style ="height:30px;width:100It works newlisp with module web Tue Nov 15 20:07:16 2011
</div>
</body>
</html>
why?
newlisp will change %; ??
I use put-page code from module CGI ,I think this code is ok
Code: Select all
(define (put-page file-name , page start end)
(set 'page (read-file file-name))
(set 'start (find "<%" page))
(set 'end (find "%>" page))
(while (and start end)
(print (slice page 0 start))
(eval-string (slice page (+ start 2) (- end start 2)) MAIN (print (last-error)))
;(if-not (nil? err-ret) (print (string err-ret)))
(set 'page (slice page (+ end 2)))
(set 'start (find "<%" page))
(set 'end (find "%>" page)))
(print page))
https://github.com/guu/newlisp-fastcgi/ ... r/fcgi.lsp