[clinton/parenscript.git] / src / compilation-interface.lisp

(in-package :parenscript)

(defun compile-script (script-form &key (output-stream nil))
  "Compiles the Parenscript form SCRIPT-FORM into Javascript.
Non-null PRETTY-PRINT values result in a pretty-printed output code.
If OUTPUT-STREAM is NIL, then the result is a string; otherwise code
is output to the OUTPUT-STREAM stream."
  (parenscript-print (compile-parenscript-form script-form) output-stream))

(defmacro ps (&body body)
  "A macro that returns a Javascript string of the supplied Parenscript forms."
  `(ps* '(progn ,@body)))

(defun ps* (&rest body)
  "Return the javascript string representing BODY.
Body is evaluated."
  (compile-script `(progn ,@body)))
Commit	Line	Data
9da682ca RD	1	(in-package :parenscript)
9da682ca RD	2
839600e9 VS	3	(defun compile-script (script-form &key (output-stream nil))
	4	"Compiles the Parenscript form SCRIPT-FORM into Javascript.
	5	Non-null PRETTY-PRINT values result in a pretty-printed output code.
	6	If OUTPUT-STREAM is NIL, then the result is a string; otherwise code
	7	is output to the OUTPUT-STREAM stream."
	8	(parenscript-print (compile-parenscript-form script-form) output-stream))
b5be3f57	9
4a987e2b	10	(defmacro ps (&body body)
a9fce0a7	11	"A macro that returns a Javascript string of the supplied Parenscript forms."
4a987e2b	12	`(ps* '(progn ,@body)))
a9fce0a7	13
4a987e2b	14	(defun ps* (&rest body)
a9fce0a7	15	"Return the javascript string representing BODY.
a9fce0a7	16	Body is evaluated."
4b5d1808	17	(compile-script `(progn ,@body)))