14 May 2003 cbbrowne   » (Master)

(defun ocaml-build-email-address (name host) 
  (format nil "let name=~S and tld=~S in name ^ \"@\" ^ tld;;" 
          name host)) 

(defun ocaml-build-email-address-2 (name host) (format nil "let name=~S and tld=~S in String.concat \"@\" [name;tld];;" name host))

(defun snobol-build-email-address (name host &optional (revp nil)) (if revp (concatenate 'string "output = reverse(" (quotify (reverse host)) " " (quotify (reverse name)) ")") (concatenate 'string "output = (" (quotify name) " " (quotify host) ")")))

(defun sql-build-email-address (name host) (format nil "select '~A' || '~A';" name host))

(defun a+-build-email-address (name host) (format nil "~S,~S" name host))

Latest blog entries     Older blog entries

New Advogato Features

New HTML Parser: The long-awaited libxml2 based HTML parser code is live. It needs further work but already handles most markup better than the original parser.

Keep up with the latest Advogato features by reading the Advogato status blog.

If you're a C programmer with some spare time, take a look at the mod_virgule project page and help us with one of the tasks on the ToDo list!