src/compilation-interface.lisp

   1 (in-package :parenscript)
   2
   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 :expecting :statement) output-stream))
   9
  10 (defmacro ps (&body body)
  11   "A macro that returns a Javascript string of the supplied Parenscript forms."
  12   `(ps* '(progn ,@body)))
  13
  14 (defun ps* (&rest body)
  15   "Compiles BODY to a JavaScript string.
  16 Body is evaluated."
  17   (compile-script `(progn ,@body)))
  18
  19 (defun ps-inline* (form)
  20   (concatenate 'string
  21                "javascript:"
  22                (remove #\Newline
  23                        (parenscript-print (compile-parenscript-form form :expecting :statement))
  24                        :from-end t)))
  25
  26 (defmacro ps-inline (&body body)
  27   `(ps-inline* '(progn ,@body)))