Hello,
recently I tried to use ES Modules with Parenscript so I modified the code. I just wanted to share the patch - maybe you want to include it in the official repository.
Kind regards, Moritz Hedtke From 4862600435c3dfbf4b329b5d4578e5ae77f9eaa2 Mon Sep 17 00:00:00 2001 From: mohe2015 <[email protected]> Date: Sun, 24 Mar 2019 13:00:31 +0100 Subject: [PATCH] Implement importing and exporting ES Modules --- src/js-ir-package.lisp | 4 ++++ src/package.lisp | 6 ++++++ src/printer.lisp | 15 +++++++++++++++ src/special-operators.lisp | 12 ++++++++++++ 4 files changed, 37 insertions(+) diff --git a/src/js-ir-package.lisp b/src/js-ir-package.lisp index dd5fa80..46aefc7 100644 --- a/src/js-ir-package.lisp +++ b/src/js-ir-package.lisp @@ -144,4 +144,8 @@ #:funcall #:escape #:regex + #:export + #:export-default + #:import + #:import-default )) diff --git a/src/package.lisp b/src/package.lisp index 2a39628..3262cc8 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -150,6 +150,12 @@ ;; compile-time stuff #:eval-when + ;; modules + #:export + #:export-default + #:import + #:import-default + ;; body forms #:progn diff --git a/src/printer.lisp b/src/printer.lisp index fc52e71..df94dfa 100644 --- a/src/printer.lisp +++ b/src/printer.lisp @@ -415,3 +415,18 @@ vice-versa.") ;; literal-js should be a form that evaluates to a string containing ;; valid JavaScript (psw literal-js)) + +(defprinter ps-js:export (object) + "export " (ps-print object)) + +(defprinter ps-js:export-default (object) + "export default " (ps-print object)) + +(defprinter ps-js:import (file objects) + "import { " + (loop for (object . remaining) on objects do + (psw object) (when remaining (psw ", "))) + " } from " (ps-print file)) + +(defprinter ps-js:import-default (file name) + "import " (psw name) " from " (ps-print file)) diff --git a/src/special-operators.lisp b/src/special-operators.lisp index a3abc90..4a90683 100644 --- a/src/special-operators.lisp +++ b/src/special-operators.lisp @@ -702,3 +702,15 @@ code in :execute." (if (member :execute situation-list) (ps-compile `(progn ,@body)) (ps-compile `(progn)))) + +(define-expression-operator export (object) + `(ps-js:export ,(ps-compile object))) + +(define-expression-operator export-default (object) + `(ps-js:export-default ,(ps-compile object))) + +(define-expression-operator import (file &rest objects) + `(ps-js:import ,file ,objects)) + +(define-expression-operator import-default (file name) + `(ps-js:import-default ,file ,name))
>From 4862600435c3dfbf4b329b5d4578e5ae77f9eaa2 Mon Sep 17 00:00:00 2001 From: mohe2015 <[email protected]> Date: Sun, 24 Mar 2019 13:00:31 +0100 Subject: [PATCH] Implement importing and exporting ES Modules --- src/js-ir-package.lisp | 4 ++++ src/package.lisp | 6 ++++++ src/printer.lisp | 15 +++++++++++++++ src/special-operators.lisp | 12 ++++++++++++ 4 files changed, 37 insertions(+) diff --git a/src/js-ir-package.lisp b/src/js-ir-package.lisp index dd5fa80..46aefc7 100644 --- a/src/js-ir-package.lisp +++ b/src/js-ir-package.lisp @@ -144,4 +144,8 @@ #:funcall #:escape #:regex + #:export + #:export-default + #:import + #:import-default )) diff --git a/src/package.lisp b/src/package.lisp index 2a39628..3262cc8 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -150,6 +150,12 @@ ;; compile-time stuff #:eval-when + ;; modules + #:export + #:export-default + #:import + #:import-default + ;; body forms #:progn diff --git a/src/printer.lisp b/src/printer.lisp index fc52e71..df94dfa 100644 --- a/src/printer.lisp +++ b/src/printer.lisp @@ -415,3 +415,18 @@ vice-versa.") ;; literal-js should be a form that evaluates to a string containing ;; valid JavaScript (psw literal-js)) + +(defprinter ps-js:export (object) + "export " (ps-print object)) + +(defprinter ps-js:export-default (object) + "export default " (ps-print object)) + +(defprinter ps-js:import (file objects) + "import { " + (loop for (object . remaining) on objects do + (psw object) (when remaining (psw ", "))) + " } from " (ps-print file)) + +(defprinter ps-js:import-default (file name) + "import " (psw name) " from " (ps-print file)) diff --git a/src/special-operators.lisp b/src/special-operators.lisp index a3abc90..4a90683 100644 --- a/src/special-operators.lisp +++ b/src/special-operators.lisp @@ -702,3 +702,15 @@ code in :execute." (if (member :execute situation-list) (ps-compile `(progn ,@body)) (ps-compile `(progn)))) + +(define-expression-operator export (object) + `(ps-js:export ,(ps-compile object))) + +(define-expression-operator export-default (object) + `(ps-js:export-default ,(ps-compile object))) + +(define-expression-operator import (file &rest objects) + `(ps-js:import ,file ,objects)) + +(define-expression-operator import-default (file name) + `(ps-js:import-default ,file ,name))
