1 (in-package "PARENSCRIPT")
3 (defparameter *js-target-version
* 1.3)
5 (defmacro ps
(&body body
)
6 "Given Parenscript forms (an implicit progn), compiles those forms
7 to a JavaScript string at macro-expansion time."
9 `(with-output-to-string (,s
)
11 `(write-string ,x
,s
))
13 (compile-parenscript-form `(progn ,@body
)
14 :expecting
:statement
))))))
15 (defun ps* (&rest body
)
16 "Compiles BODY to a JavaScript string.
18 (compiled-form-to-string (compile-parenscript-form `(progn ,@body
) :expecting
:statement
)))
20 (defmacro ps-doc
(&body body
)
21 "Expands Parenscript forms in a clean environment."
22 (let ((*ps-gensym-counter
* 0)
23 (*ps-special-variables
* nil
))
24 (macroexpand-1 `(ps ,@body
))))
26 (defun ps-doc* (ps-form)
27 (let ((*ps-gensym-counter
* 0)
28 (*ps-special-variables
* nil
))
31 (defun compiled-form-to-string (ps-compiled-form)
32 (with-output-to-string (s)
33 (dolist (x (parenscript-print ps-compiled-form
))
34 (write-string (if (stringp x
) x
(eval x
)) s
))))
36 (defvar *js-inline-string-delimiter
* #\"
37 "Controls the string delimiter char used when compiling Parenscript in ps-inline.")
39 (defun ps-inline* (form &optional
(*js-string-delimiter
* *js-inline-string-delimiter
*))
40 (concatenate 'string
"javascript:" (ps* form
)))
42 (defmacro/ps ps-inline
(form &optional
(string-delimiter *js-inline-string-delimiter
*))
43 `(concatenate 'string
"javascript:"
44 ,@(let ((*js-string-delimiter
* string-delimiter
))
45 (parenscript-print (compile-parenscript-form form
:expecting
:statement
)))))
47 (defvar *ps-read-function
* #'read
48 "This should be a function that takes the same inputs and returns the same
49 outputs as the common lisp read function. We declare it as a variable to allow
50 a user-supplied reader instead of the default lisp reader.")
52 (defun ps-compile-stream (stream)
53 "Compiles a source stream as if it were a file. Outputs a Javascript string."
54 (let ((*ps-compilation-level
* :toplevel
)
56 (end-read-form '#:unique
))
57 (flet ((read-form () (funcall *ps-read-function
* stream nil end-read-form
)))
59 ;; cons up the forms, compiling as we go, and print the result
60 (do ((form (read-form) (read-form))
62 ((eql form end-read-form
)
63 (format nil
"~{~A~^;~%~}"
65 #'(lambda (x) (or (null x
) (= 0 (length x
))))
66 (mapcar 'compiled-form-to-string
(nreverse compiled-forms
)))))
67 (push (compile-parenscript-form form
:expecting
:statement
) compiled-forms
))))
70 (defun ps-compile-file (source-file)
71 "Compiles the given Parenscript source file and returns a Javascript string."
72 (with-open-file (stream source-file
:direction
:input
)
73 (ps-compile-stream stream
)))