June 2012 - parenscript-devel - mailman3.common-lisp.net

[parenscript-devel] :join isn't being interpreted as a javascript function
by Russell Sim 31 Jul '12

31 Jul '12

Hi, I think I have encountered a bug while using the who-ps-html macro. (who-ps-html (:li (:img :src icon :size 40) (:p message) (:span :class "author" name) (:span :class "date" timestamp))) The first expansion of the who-ps-html yields, (STRINGIFY "<LI><IMG SRC=\"" ICON "\" SIZE=\"40\">" MESSAGE "" NAME "" TIMESTAMP "</LI>") But the javascript generated is, ['<LI><IMG SRC="', icon, '" SIZE="40">', message, '', name, '', timestamp, '</LI>']['join']('') I have been able to get the correct behaviour by applying the following patch, since join is a symbol that is imported via the ps-js-symbols package. commit 86d39309692987644798148e24fd67b70667eaa7 (HEAD, refs/heads/master) Author: Russell Sim <russell.sim(a)gmail.com> Date: Tue May 29 09:12:30 2012 +1000 Fixed :join bug in stringify expansion. Modified src/non-cl.lisp diff --git a/src/non-cl.lisp b/src/non-cl.lisp index 387bd29..f2ed0e7 100644 --- a/src/non-cl.lisp +++ b/src/non-cl.lisp @@ -203,7 +203,7 @@ (defpsmacro stringify (&rest things) (if (and (= (length things) 1) (stringp (car things))) (car things) - `((@ (list ,@things) :join) ""))) + `((@ (list ,@things) join) ""))) (defun stringify (&rest things) "Like concatenate but prints all of its arguments." (format nil "~{~A~}" things)) Cheers, Russell

3 4

[parenscript-devel] Parenscript onsubmit="return validate()"
by Juan Reynoso Elias 29 Jul '12

29 Jul '12

*Hello I work with parenscript and UCW, I need validate some input text and I have control the submit of the form.* *Here use parenscript, it's a code for my function "validate" ** ( setf xvalue document.form1.mac.value ) (setf result ((@(regex "/([A-Fa-f0-9]{2,2}:{1}){5}([A-Fa-f0-9]{2})$/") test) xvalue )) (if (eql F **result** ) ((alert "Fail") (setf document.form1.mac.style.background-color "red") F ) ; ==> javascript return false; (alert "Ok") T)) ; ==> javascript return true;* *Html code , called function validate **<form id="form1" onsubmit="return validate();" > Here, I have a question, How I do same with parenscript *>> *"return validate();"* (<ucw:form :name "form1" :onsubmit (ps (validate) ; *Here I have a problem* * *>> *"return validate();"* *(*defun validate () * ( setf xvalue document.form1.mac.value ) (setf result ((@(regex "/([A-Fa-f0-9]{2,2}:{1}){5}([A-Fa-f0-9]{2})$/") test) xvalue )) (if (eql F **result** ) ((alert "Fail") (setf document.form1.mac.style.background-color "red") F ) ; ==> javascript return false; (alert "Ok") T))) ; ==> javascript return true;* -- I.S.C. Juan Reynoso Elias Departamento de Soporte Técnico del Instituto de la Función Registral del Estado de México. Vicente Guerrero 102, Col Santa Ana Tlapaltitlán, Toluca, Méx. C.P. 50160. Tel. 2106852.

2 1

[parenscript-devel] create object doesn't accept symbols
by Russell Sim 29 Jul '12

29 Jul '12

Hey, I have hit another small bug while I was using some older code which was using quoted symbols as keys when defining an object. For example when I evaluate CL-USER> (ps:ps (ps:create 'test "bang" 'symbol-saved-my-life "parenscript")) I get the following error. Slot key 'TEST is not one of symbol, string or number. [Condition of type SIMPLE-ERROR] I have personally been using keywords instead of quoted symbols but it seems there was a time when quoted symbols were ok and the documentation seems to suggest that symbols should be fine? The following patch enables quoted symbols to work again and will convert them to the appropriate camelCase form. CL-USER> (ps:ps (ps:create 'test "bang" 'symbol-saved-my-life "parenscript")) "({ 'test' : 'bang', 'symbolSavedMyLife' : 'parenscript' });" Cheers, Russell commit 84d94815b1655179b283627a64bf6ed1ac1dba07 (HEAD, refs/heads/master) Author: Russell Sim <russell.sim(a)gmail.com> Date: Sat Jun 2 14:48:20 2012 +1000 Allow quoted strings to be used as keys in objects Modified src/non-cl.lisp diff --git a/src/non-cl.lisp b/src/non-cl.lisp index f2ed0e7..5cba0a8 100644 --- a/src/non-cl.lisp +++ b/src/non-cl.lisp @@ -52,12 +52,18 @@ `(ps-js:object ,@(loop for (key val-expr) on arrows by #'cddr collecting (progn - (assert (or (stringp key) (numberp key) (symbolp key)) - () - "Slot key ~s is not one of symbol, string or number." - key) - (cons (aif (and (symbolp key) (reserved-symbol? key)) it key) - (compile-expression val-expr)))))) + (assert (or (stringp key) (numberp key) (symbolp key) (eq 'quote (car key))) + () + "Slot key ~s is not one of symbol, string or number." + key) + (cons (acond + ((and (symbolp key) (reserved-symbol? key)) + it) + ((and (consp key) (eq 'quote (car key))) + (symbol-to-js-string (eval key))) + (t + key)) + (compile-expression val-expr)))))) (define-expression-operator %js-getprop (obj slot) (let ((expanded-slot (ps-macroexpand slot))

2 1

[parenscript-devel] Inconsistent compilation of the empty list?
by Daniel Gackle 27 Jul '12

27 Jul '12

I have some test data where occasionally an empty list appears as an element inside of some other list. It's getting compiled to the JS string "[]" when what I need is the array literal [], in a way that seems inconsistent. Specifically, these are good: PS> (ps []) "[];" PS> (ps '()) "[];" PS> (ps '(1 2)) "[1, 2];" But these are not, because they generate either the string '[]' or null as the second element, when what I need is the array literal []: PS> (ps '(1 [])) "[1, '[]'];" PS> (ps '(1 ())) "[1, null];" Is this an inconsistency? Is there a workaround? Daniel

2 1

[parenscript-devel] top-level LET and LET* will not create global variables
by Yakov Zaytsev 27 Jul '12

27 Jul '12

Is this expected? CL-USER> (ql:quickload "parenscript") ... CL-USER> (defpackage :ps-user (:use :cl :ps)) #<The PS-USER package, 0/16 internal, 0/16 external> CL-USER> (in-package "PS-USER") #<The PS-USER package, 0/16 internal, 0/16 external> PS-USER> (ps (let ((s-a)))) "(function () { var sA = null; return null; })();" Also, $ cat foo.lisp (let ((s-a)) (+ s-a 42) (chain s-a (append-child foo))) PS-USER> (ps-compile-file "foo.lisp") "(function () { var sA = null; sA + 42; return sA.appendChild(foo); })(); " PS-USER> Which is against documentation "Top-level LET and LET* forms will create new global variables, or overwrite the values of already existing global variables with the same name." Please comment

3 2