March 2008 - parenscript-devel - mailman3.common-lisp.net

[parenscript-devel] js-script deprecated
by Wout Perquin 17 Jan '09

17 Jan '09

Hi, I am quite impressed by ParenScript. I installed it last August, but only recently I started playing with it. Some observations/comments : - js-script was in the Aug-2007 release but now it has been deprecated. By what has it been replaced ? - the js-script didn't work with with-html-output of cl-who, so I wrote my own macro js-script to do the script-tag + CDATA stuff which is still required for scripts in the header - the tutorial (Aug-28, 2007 p3) still refers to js-script -Wout

6 10

[parenscript-devel] Generating HTML in parenscript
by Gary King 26 Nov '08

26 Nov '08

I've just started playing with Parenscript and feel confused about HTML generation. Since Parenscript already includes (the unexported) process-html-forms, it seems to be able to (almost) handle much of the logic for simple HTML generation. Consider that > (parenscript::process-html-forms > `(:html > (:head (:title "ParenScript tutorial: 1st example")) > (:body (:h1 "ParenScript tutorial: 1st example") > (:p "Please click the link below." :br > ((:a :href "#" :onclick ,(ps-inline > (alert "Hello World"))) > "Hello World"))))) produces > (+ "<html/><head><title>ParenScript tutorial: 1st example</title></ > head><body><h1>ParenScript tutorial: 1st example</h1><p>Please click > the link below.<br/><a href=\"#\" onclick=\"javascript:alert(\"Hello > World\")\">Hello World</a></p></body>") It's easy to refactor process-html-forms to arrive at the (slightly incorrect) HTML in a string: > "<html/><head><title>ParenScript tutorial: 1st example</title></ > head><body><h1>ParenScript tutorial: 1st example</h1><p>Please click > the link below.<br/><a href=\"#\" onclick=\"javascript:alert(\"Hello > World\")\">Hello World</a></p></body>" and probably easy to futz with *js-inline-string-delimiter* and the like to get the correct quotes around the body of the onclick handler. So... since Parenscript doesn't do this, I have to ask "Why not"?! It would be nice to use Parenscript for simple HTML generation without having to get (Portable) AServe or some other more full-featured HTML generator. Am I missing something? thanks, -- Gary Warren King, metabang.com Cell: (413) 559 8738 Fax: (206) 338-4052 gwkkwg on Skype * garethsan on AIM

2 4

[parenscript-devel] Lisp-like shadowing behavior
by Daniel Gackle 18 Apr '08

18 Apr '08

Below is a ps macro that simulates the shadowing of special variables in Lisp. I'm wondering if anyone thinks this would be useful to add to Parenscript. I wrote it because I have some Javascript functions that reference global variables, and wanted to write some test functions for those without modifying global state. One option of course would be to simply write the original functions to take parameters instead of the global variables. But that complicates their signatures and I'm loath to modify production code to suit tests. With this macro, my test can do this: (ps (shadow-let ((*global-var* "test value")) (function-that-uses-global-var))) and the original value of *global-var* will be restored: var _js3778 = null; try { _js3778 = GLOBALVAR; GLOBALVAR = 'test value'; functionThatUsesGlobalVar(); } finally { GLOBALVAR = _js3778; }; Daniel ------------------------------------------------------------------------ (defpsmacro shadow-let (bindings &body body) (labels ((wrap-expr (bindings body) (if (null bindings) body (list (list 'temporarily-bind (car bindings) (wrap-expr (cdr bindings) body)))))) `(macrolet ((temporarily-bind ((var expr) body) (with-ps-gensyms (temp) `(progn (defvar ,temp nil) (try (progn (setf ,temp ,var) (setf ,var ,expr) ,@body) (:finally (setf ,var ,temp))))))) ,(cons 'progn (wrap-expr bindings body)))))

3 3

[parenscript-devel] Log macro
by Daniel Gackle 01 Apr '08

01 Apr '08

I wrote a simple ps macro to work like CL's log. It seems like a candidate for inclusion in PS itself. Daniel (defpsmacro log (number &optional base) (cond ((null base) `(*math.log ,number)) ((= base 10) `(* (log ,number) *math.*log10e*)) (t `(/ (log ,number) (log ,base)))))

2 2

[parenscript-devel] Merging some improvements, additions, and cleanup
by Travis Cross 31 Mar '08

31 Mar '08

Greetings, I've made a number of improvements to the ParenScript code base. What's the best way for us to merge these changes into the darcs repo on common-lisp.net? Most of the updates fall into five basic broad categories: * Rewriting PS special forms to better match their CL equivalents. For example, DO now does parallel assignment, supports a return value, and can properly initialize variables that don't increment. * Improving coverage of CL by adding such forms as SETQ and PSETF. * Improving access to JS capabilities, such as labeled for loops. * Documentation and test case updates. * Miscellaneous code cleanups, whitespaceification, and global standardizations. The changes are fully backward compatible, as long as you weren't relying on the 'broken' sequential assignment that DO and LET were doing. ;) DO* and LET* are now available for that purpose, of course. Looks like in total I added somewhere around 350 lines and removed 210 lines from the code base, excluding documentation and test cases. To the documentation I added 368 lines and removed 227. The changes are reasonably tested and have been in use on my production systems for a couple of months. I've included the darcs changelog below my signature. Since I use ParenScript rather heavily, it's very likely that I'll be making more substantial changes on an ongoing basis. I'd be happy to help maintain the project. Let me know. Cheers, -- Travis P.S. My branch of parenscript can currently be found here: http://darcs.tcross.org/parenscript/ $ darcs chan --reverse [snip...] Tue Feb 26 22:59:53 UTC 2008 Travis Cross <tc@tra...> * Corrected spelling error. Tue Feb 26 23:09:02 UTC 2008 Travis Cross <tc@tra...> * Whitespace standardization in src/package.lisp. Sun Mar 30 01:46:18 UTC 2008 Travis Cross <tc@tra...> * Added support for breaking and continuing to arbitrary labels. Sun Mar 30 02:05:25 UTC 2008 Travis Cross <tc@tra...> * Greatly simplified implementation of lexical-let*. Sun Mar 30 02:08:29 UTC 2008 Travis Cross <tc@tra...> * Added lexical-let. Sun Mar 30 02:14:00 UTC 2008 Travis Cross <tc@tra...> * Added simple-let* and aliased let* to it. Sun Mar 30 02:22:18 UTC 2008 Travis Cross <tc@tra...> * Added simple-let, which does parallel binding without a lambda. Sun Mar 30 02:23:16 UTC 2008 Travis Cross <tc@tra...> * Aliased let to simple-let. Sun Mar 30 02:25:53 UTC 2008 Travis Cross <tc@tra...> * Added psetf. Sun Mar 30 02:27:55 UTC 2008 Travis Cross <tc@tra...> * Added setq and psetq. Sun Mar 30 02:33:34 UTC 2008 Travis Cross <tc@tra...> * Updated let1-dynamic to clean up its temporary stack variable after use. Sun Mar 30 19:35:12 UTC 2008 Travis Cross <tc@tra...> * Improved, extended, and refactored iteration special forms. * Added support for DO*. * DO now does parallel assignment. * DO/DO* now correctly support init-forms such as: (do (a (b) (c 1) (d 1 (1+ d))) ...) * DO/DO*/DOTIMES/DOLIST/DOEACH now support return values via a lambda transform. * DOEACH now supports implicit key/value destructuring, e.g.: (doeach ((key val) arr res) ...) * Added labeled-for to facilitate creating labeled for loops. * Restructured low level printer operators to better match the underlying JS. Sun Mar 30 19:57:12 UTC 2008 Travis Cross <tc@tra...> * Whitespaceification: removed indentation tabs throughout project. ...and replaced each tab with 8 spaces. Tab indentation had previously been used inconsistently and was dominated by space-based indentation. In the future, disable indent-tabs-mode in emacs! (setq indent-tabs-mode nil) Sun Mar 30 20:11:34 UTC 2008 Travis Cross <tc@tra...> * Some minor comment and whitespace cleanup. Sun Mar 30 22:28:56 UTC 2008 Travis Cross <tc@tra...> * Updated the documentation and test cases. Sun Mar 30 22:35:50 UTC 2008 Travis Cross <tc@tra...> * Cleaned up and rearranged the package exports a bit. Sun Mar 30 22:38:31 UTC 2008 Travis Cross <tc@tra...> * Removed deprecated exports that are no longer implemented. Sun Mar 30 22:51:16 UTC 2008 Travis Cross <tc@tra...> * Added a mechanism for expanding parenscript forms in a clean environment. Sun Mar 30 22:53:08 UTC 2008 Travis Cross <tc@tra...> * Added myself to the list of contributors. Sun Mar 30 23:39:49 UTC 2008 Travis Cross <tc@tra...> * Cleaned up and standardized indentation of JS code in the reference documentation.

2 2

[parenscript-devel] how to represent "bandInfos[1].highlight = true; "?
by Kevin Layer 06 Mar '08

06 Mar '08

(setf (.highlight (aref band-infos 1)) t) almost does it, but adds ()'s: bandInfos[1].highlight() = true; I've tried every permutation I can think of... thanks. Kevin

2 1