- cl-who-devel@common-lisp.net - mailman3.common-lisp.net

[cl-who-devel] Fwd: *downcase-tags-p* for attributes, setting *downcase-tags-p* for compile-time
by Dave Cooper 24 Aug '07

24 Aug '07

Hi, Has anyone else found it necessary to conditionalize the downcasing of attribute names, like what is currently done with regular tags? For example in the following bit of X3D: (with-html-output (*stream* nil :indent t) (:Shape (:Appearance (:Material :diffuseColor "0 1 0") ... ))) the diffuseColor attribute name needs to have its case preserved. Second question: the *downcase-tags-p* has to be set to nil at compile time. This is probably more of a general Lisp question and not so specific to cl-who, but what is the preferred way of setting a variable like this to a non-default value for the duration of compiling a file, similar to what one would do with a special variable at runtime with (let ((*downcase-tags-p* nil)) ...) or (let (*downcase-tags-p*) ...) ? I am hoping to find something less error-prone (and thread-unsafe) than this: ;; beginning of the file (eval-when (compile load eval) (setq *downcase-tags-p* nil)) ;; ... ;; end of the file (eval-when (compile load eval) (setq *downcase-tags-p* t)) ;; Thanks, -dave -- Dave Cooper, Head of Product Development, Genworks International dave(a)genworks.com, dave.genworks.com(skype) USA: 248-327-3253(o), 1-800-731-9220(toll-free) UK: +44 (0) 191 645 1699

2 1

[cl-who-devel] Heap corruption?
by John Thingstad 03 Aug '07

03 Aug '07

Below is a selection of code I have written and the output it generates. The part that function generates a nested list of lists for a tree control. My system runs under Huchentoot. I use Lispworks under Windows. The output looks good. I can run it approx 10 times in a row. Then something fails. Among the errors are: 1. MySQL: 2006 - connection lost 2. MySQL: "select * from blog-header where (id = 199)" selector just be one row 3. The browser dons't update at all. When I go back other pages show incorrect data. I have isolated it to navigate-blog, navigate-year and navigate-month functions. I tried completly rewiting it (this is the second version), but get the same problem. Any idea what is happening here? (defun remove-prefix (uri prefix) "Returns the prefix from an uri in search of a blog name. Big assumtion: Blog names consists only of latin characters." (let ((scanstring (concatenate 'string prefix "([A-Za-z]+)"))) (multiple-value-bind (dummy matchvector) (scan-to-strings scanstring uri) (declare (ignore dummy)) (if matchvector (svref matchvector 0) "")))) (defconstant *month-abbrev* (list "jan" "feb" "mar" "apr" "may" "jun" "jul" "aug" "sep" "oct" "nov" "dec")) (defun get-month-string (month) (nth (decf month) *month-abbrev*)) (defun extract-year (date-string) (parse-integer (subseq date-string 0 4))) (defun extract-month (date-string) (parse-integer (subseq date-string 5 7))) ;; Result format: ((year (month (date title url) ...) ...) ...) (defun make-navigate-list (item-list name) (let (last-year last-month year-list month-list result-list) (iter (for item in (reverse item-list)) (let* ((date-string (getf item :pub_time)) (year (extract-year date-string)) (month (extract-month date-string))) (when (or (not last-year) (< year last-year)) (setf last-year year) (setf last-month nil) (when month-list (push (reverse month-list) year-list)) (setf month-list nil) (when year-list (push (reverse year-list) result-list)) (setf year-list (list (format nil "~D" year)))) (when (or (not last-month) (< month last-month)) (setf last-month month) (when month-list (push (reverse month-list) year-list)) (setf month-list (list (get-month-string month)))) (push (list (subseq (getf item :pub_time) 0 10) (or (getf item :title) "") (format nil "~A?id=~D" name (getf item :id))) month-list))) (when month-list (push (reverse month-list) year-list)) (when year-list (push (reverse year-list) result-list)) (reverse result-list))) (defun navigate-month (month-list) (with-html-output-to-string (*standard-output* nil :prologue nil :indent t) (:li (:a :href (format nil "/~A/" (first month-list)) (fmt "~A" (first month-list))) (:ul (iter (for item in (rest month-list)) (htm (:li (:a :href (third item) (fmt "~A ~A" (first item) (second item)))))))))) (defun navigate-year (year-list) (with-html-output-to-string (*standard-output* nil :prologue nil :indent t) (:li (:a :href (format nil "/~A/" (first year-list)) (fmt "~A" (first year-list))) (iter (for month-list in (rest year-list)) (htm (:ul (fmt "~A" (navigate-month month-list)))))))) (defun navigate-blog (items name) (let ((navigate-list (make-navigate-list items name))) (with-html-output-to-string (*standard-output* nil :prologue nil :indent t) (:div :id "bloglist" (:ul :id "navigation" :class "foldertree" (iter (for year-list in navigate-list) (fmt "~A" (navigate-year year-list)))))))) (defun present-blog (blog) (let* ((item-id (or (and (get-parameter "id") (parse-integer (get-parameter "id"))) (latest-blog-item-id (getf blog :name)))) (item (get-blog-item item-id))) (with-html-output-to-string (*standard-output* nil :prologue t :indent t) (:html :xmlns "http://www.w3.org/1999/xhtml" (:head (:title (fmt "~A - ~A" (escape-string (getf blog :title)) (escape-string (getf item :title)))) (:link :href *blog-css-file* :rel "stylesheet" :type "text/css") (:link :href *tree-css-file* :rel "stylesheet" :type "text/css" :media "screen, projection") (:script :type "text/javascript" :src *tree-js-file* "")) (:body (:div :id "left-column" (:a :href *blog-homepage* "Blog home") (fmt "~A" (navigate-blog (get-items (getf blog :id)) (script-name)))) (:div :id "wrapper" (:div :id "header" (:h1 (escape-string (fmt "~A" (escape-string (getf blog :title)))))) (:div :id "main" (if item (htm (:h3 (fmt "~A" (escape-string (getf item :title)))) (:h4 (fmt "~A" (escape-string (getf item :pub_time)))) (:p (fmt "~A" (or (getf item :contents) "")))) (htm (:p (:em "This blog is empty!"))))))))))) (defun no-blog () (with-html-output-to-string (*standard-output* nil :prologue t :indent t) (:html :xmlns "http://www.w3.org/1999/xhtml" (:head (:title "Error") (:link :href *blog-css-file* :rel "stylesheet" :type "text/css")) (:body (:div :id "left-column" (:a :href *blog-homepage* "Blog home")) (:div :id "wrapper" (:div :id "header" (:h1 :class "middle" "Error!")) (:div :id "main" (:h2 :class "middle" "No such page") (:p :class "middle" "The blog that you requested does not exist!"))))))) (defun blog-page () (no-cache) (let ((blog (get-blog (remove-prefix (script-name) *blog-prefix*)))) (if blog (present-blog blog) (no-blog)))) ;;----------------------------------------------------------------------------------------------------------- Which generatates something like the following <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <html xmlns='http://www.w3.org/1999/xhtml'> <head> <title>Many Items blog - Tomorrow </title> <link href='/static-files/stylesheet.css' rel='stylesheet' type='text/css' /> <link href='/static-files/foldertree.css' rel='stylesheet' type='text/css' media='screen, projection' /> <script type='text/javascript' src='/static-files/treeMenu.js'> </script> </head> <body> <div id='left-column'> <a href='/blogs.html'> Blog home </a> <div id='bloglist'> <ul id='navigation' class='foldertree'> <li> <a href='/2007/'>2007 </a> <ul> <li> <a href='/jul/'>jul </a> <ul> <li> <a href='/blogs/many?id=204'>2007-07-18 Tomorrow </a> </li> <li> <a href='/blogs/many?id=202'>2007-07-18 Tomorrow </a> </li> <li> <a href='/blogs/many?id=200'>2007-07-18 Tomorrow </a> </li> <li> <a href='/blogs/many?id=199'>2007-07-17 Today </a> </li> <li> <a href='/blogs/many?id=201'>2007-07-17 Today </a> </li> <li> <a href='/blogs/many?id=203'>2007-07-17 Today </a> </li> <li> <a href='/blogs/many?id=193'>2007-07-17 First item </a> </li> </ul> </li> </ul> <ul> <li> <a href='/jun/'>jun </a> <ul> <li> <a href='/blogs/many?id=198'>2007-06-12 Hollydays </a> </li> <li> <a href='/blogs/many?id=194'>2007-06-11 Second item </a> </li> </ul> </li> </ul> <ul> <li> <a href='/mar/'>mar </a> <ul> <li> <a href='/blogs/many?id=197'>2007-03-15 Easter </a> </li> </ul> </li> </ul> </li> <li> <a href='/2006/'>2006 </a> <ul> <li> <a href='/dec/'>dec </a> <ul> <li> <a href='/blogs/many?id=195'>2006-12-24 Christmas </a> </li> </ul> </li> </ul> <ul> <li> <a href='/mar/'>mar </a> <ul> <li> <a href='/blogs/many?id=196'>2006-03-14 Easter </a> </li> </ul> </li> </ul> </li> </ul> </div> </div> <div id='wrapper'> <div id='header'> <h1>Many Items blog </h1> </div> <div id='main'> <h3>Tomorrow </h3> <h4>2007-07-18 00:00:00 </h4> <p> </p> </div> </div> </body> </html>

1 1

[cl-who-devel] Exposing String Escape Functions
by Volkan YAZICI 24 Jul '07

24 Jul '07

Hi, In a parser I'm working on, trying to convert hand-written documents into XHTML form. And for this purpose using CL-WHO integrated within META-SEXP. Because of character-by-character parsing, I need to escape unrecognized atoms on-the-fly. At the moment, I'm using below method. (elt (cl-who:escape-string (make-string 1 :initial-element character-needs-escaping)) 0) Yep, quite nasty code piece to escape a single character. Therefore, I'd ask if it'd be possible to expose the character escaping routines. (If you approve the proposal, I'm volunteered to send a patch.) Regards.

2 7

[cl-who-devel] CL-WHO mlisp patch
by Richard Newman 17 Jul '07

17 Jul '07

Edi, folks, Here's a one-line patch to make CL-WHO 0.9.1 compile cleanly on Allegro CL's modern mode. -R --- specials-old.lisp 2007-04-27 02:33:42.000000000 -0700 +++ specials.lisp 2007-07-16 21:32:02.000000000 -0700 @@ -96,7 +96,7 @@ "The list of HTML tags that should be output as empty tags. See *HTML-EMPTY-TAG-AWARE-P*.") -(defvar *html-empty-tag-aware-p* T +(defvar *html-empty-tag-aware-p* t "Set this to NIL to if you want to use CL-WHO as a strict XML generator. Otherwise, CL-WHO will only write empty tags listed in *HTML-EMPTY-TAGS* as <tag/> \(XHTML mode) or <tag> \(SGML

1 0

[cl-who-devel] patch + unit test code (Re: *html-empty-tag* bug)
by Mac Chan 28 May '07

28 May '07

Attached is a patch to fix html-empty-tag bug and also some unit test code to help spotting problems in case there are ignorant people like me who submit bad code ;-) Thanks, -- Mac

2 1

[cl-who-devel] convert-tag-to-string-list and *html-empty-tag* bug maybe :)
by Simon Cusack 28 May '07

28 May '07

Hi, >From my testing it seems that the default convert-tag-to-string-list isn't finding the tags in html-empty-tag when it should. It looks like tag is getting converted to a string but *html-empty-tags* are keywords. I changed (member tag *html-empty-tags*) to (member tag *html-empty-tags* :test #'string-equal) and made it happy. the following test (in-package :who) (with-html-output-to-string (blah) (with-html-output (blah) (:input :value "test this") (:div) (:div "test this"))) Used to produce: "<input value='test this'></input><div></div><div>test this</div>" and now produces; "<input value='test this' /><div></div><div>test this</div>"

3 4

[cl-who-devel] MACROLET inside HTM
by Volkan YAZICI 22 May '07

22 May '07

Hi, I've been trying to use MACROLET in HTM with no success: (with-html-output (*standard-output*) (:div (macrolet ((foo (bar) `(:div ,bar))) (htm (foo "baz") (foo "moo"))))) Here's the fully macroexpand result of the above form: (LET ((*STANDARD-OUTPUT* *STANDARD-OUTPUT*)) (PROGN (WRITE-STRING "<div>" *STANDARD-OUTPUT*) (MACROLET ((FOO (BAR) `(:DIV ,BAR))) (HTM (:DIV "baz") (:DIV "moo"))) (WRITE-STRING "</div>" *STANDARD-OUTPUT*))) I will be appreciated if anybody would help me to figure out how to use MACROLET inside HTM bodies. Regards.

2 1

[cl-who-devel] escaping attributes question
by Simon Cusack 22 May '07

22 May '07

Hi all, I have read the syntax and semantics chapter and was just wondering why values in the attribute position aren't escaped by default? Or is there something I am missing? - sim

3 5

[cl-who-devel] semantic for (str NIL) and (esc NIL)
by Mac Chan 08 May '07

08 May '07

Hi all, This happened to me a couple times where I have a form like this (with-html (:html (:body (str (get-error-messages))))) Now if there's no error, (get-error-messages) returns NIL, otherwise it returns a description of the problem. This function also serve as a predicate for other code. But (str (get-error-messages)) actually prints a "NIL" to the browser. Of course I could replace (str (get-error-messages)) with (let ((messages (get-error-messages)) (when messages (str messages)))) or (str (or (get-error-messages) "")) however it's getting rather verbose. But the real issue is that the string "NIL" really doesn't make sense in HTML, XML or JSON. It's only something that a Lisp programmer would understand. So I'm purposing to change the substitution of (str form) => (princ form1 s) to (str form) => (let ((#:result form1)) (when #:result (princ #:result s))) Attached is a diff for this change in case you guys agree that this makes sense. Thanks, -- Mac

4 3

[cl-who-devel] html empty tags
by Mac Chan 27 Apr '07

27 Apr '07

As you probably know, there are certain html tags that will break the browser's rendering if they are not paired up properly with a close tag </tag> even if it's content is empty. For example, <textarea> and <script> (ie) Well today I'm bitten by this, where <div id='header' /> messes up firefox's rendering coupled with some css rules. Even though I'm awared of how to get around it, sometimes it's rather hard to spot that with a sea of nested (:div (:div ...)). This is also a recurring problem for newbie and there were a few threads regarding this. Attach is a patch to fix this. [Special variable] *html-empty-tag-aware* Set to NIL to if you want to use cl-who as a strict XML generator. Otherwise, CL-WHO will only close empty tag defined in *html-empty-tags* with <tag/> (XHTML mode) or <tag> (SGML mode). For all other tags, it will always generate <tag></tag>. The default is T. [Special variable] *html-empty-tags* List of html tags that should close by itself. The default values are '(:base :basefont :br :frame :hr :img :input :isindex :link :meta :nextid :range :spacer :wbr :audioscope :area :param :keygen :col :limittext :spot :tab :over :right :left :choose :atop :of) I'm not sure if anyone is using cl-who to generate XML. If it is, then you need to set *html-empty-tag-aware* to NIL, because this patch will change the default behavior (to do the right thing). Regards, -- Mac

3 4