cl-quasi-quote project

;; Lets see what the front page example looks like if we transform it down to literal byte arrays:
QQT> (bind ((code ｢<body
               ,(concatenate 'string "some runtime" " generated <escaped> text")
               `str("***<put some unescaped text here!>***")
               ;; let's insert some JavaScript here, with some unquoted runtime part
               `js(print (+ 2 ,(+ 20 20))
                  `str(#\Newline "***<put one more unescaped text here!>***"))>｣))
  (pprint-xml/js code t t)
  (emit-xml/js code))


(PROGN
 (WRITE-SEQUENCE #(60 98 111 100 121 62) *XML/JS-STREAM*)
 (CL-QUASI-QUOTE::WRITE-QUASI-QUOTED-BINARY
  (BIND
   ((*TRANSFORMATION*
     #<QUASI-QUOTED-STRING-TO-QUASI-QUOTED-BINARY {100820EB89}>))
   (CL-QUASI-QUOTE::TRANSFORM-QUASI-QUOTED-STRING-TO-QUASI-QUOTED-BINARY
    (BIND
     ((*TRANSFORMATION*
       #<CL-QUASI-QUOTE-XML::QUASI-QUOTED-XML-TO-QUASI-QUOTED-STRING {100820EAB9}>))
     (CL-QUASI-QUOTE-XML::TRANSFORM-QUASI-QUOTED-XML-TO-QUASI-QUOTED-STRING/ELEMENT
      (PROGN
       (CONCATENATE 'STRING "some runtime"
                    " generated <escaped> text"))))))
  *XML/JS-STREAM*)
 (WRITE-SEQUENCE
  #(42 42 42 60 112 117 116 32 115 111 109 101 32 117 110 101 115 99 97
    112 101 100 32 116 101 120 116 32 104 101 114 101 33 62 42 42 42 10 60
    115 99 114 105 112 116 62 10 47 47 32 60 33 91 67 68 65 84 65 91 10
    112 114 105 110 116 40 40 50 32 43 32)
  *XML/JS-STREAM*)
 (CL-QUASI-QUOTE::WRITE-QUASI-QUOTED-BINARY
  (BIND
   ((*TRANSFORMATION*
     #<QUASI-QUOTED-STRING-TO-QUASI-QUOTED-BINARY {100820EB89}>))
   (CL-QUASI-QUOTE::TRANSFORM-QUASI-QUOTED-STRING-TO-QUASI-QUOTED-BINARY
    (BIND
     ((*TRANSFORMATION*
       #<QUASI-QUOTED-JS-TO-QUASI-QUOTED-STRING {100820C419}>))
     (CL-QUASI-QUOTE-JS::TRANSFORM-QUASI-QUOTED-JS-TO-QUASI-QUOTED-STRING
      (+ 20 20)))))
  *XML/JS-STREAM*)
 (WRITE-SEQUENCE
  #(41 10 42 42 42 60 112 117 116 32 111 110 101 32 109 111 114 101 32 117
    110 101 115 99 97 112 101 100 32 116 101 120 116 32 104 101 114 101 33
    62 42 42 42 41 10 47 47 32 93 93 62 10 60 47 115 99 114 105 112 116 62
    10 60 47 98 111 100 121 62)
  *XML/JS-STREAM*)
 +VOID+)
STYLE-WARNING:
   Installing the XML reader on character #\< while it already has a reader installed: #<CLOSURE (LABELS CL-QUASI-QUOTE-XML::XML-TOPLEVEL-READER-WRAPPER) {10084B0DA9}>
"<body>some runtime generated &lt;escaped&gt; text***<put some unescaped text here!>***
<script>
// <![CDATA[
print((2 + 40)
***<put one more unescaped text here!>***)
// ]]>
</script>
</body>"
cl-quasi-quote repl examples
