Show More
@@ -0,0 +1,24 b'' | |||
|
1 | ||
|
2 | (defsystem txt2web | |
|
3 | :description "QSP compiler to monolithic HTML page" | |
|
4 | :depends-on (:alexandria :system-locale ;; General | |
|
5 | :esrap ;; Parsing | |
|
6 | :parenscript :flute ;; Codegening | |
|
7 | ) | |
|
8 | :pathname "src/" | |
|
9 | :serial t | |
|
10 | :components ((:file "package") | |
|
11 | (:file "utils") | |
|
12 | (:file "l10n") | |
|
13 | (:file "walker") | |
|
14 | ||
|
15 | (:file "patches") | |
|
16 | (:file "js-syms") | |
|
17 | (:file "main-macros") | |
|
18 | (:file "ps-macros") | |
|
19 | (:file "api-macros") | |
|
20 | (:file "intrinsic-macros") | |
|
21 | ||
|
22 | (:file "class") | |
|
23 | (:file "main") | |
|
24 | (:file "parser"))) |
@@ -1,6 +1,7 b'' | |||
|
1 | 1 | |
|
2 | 2 | BIN = txt2web |
|
3 | 3 | PKG = $(BIN) |
|
4 | SYSTEM = $(BIN) | |
|
4 | 5 | DIST = txt2web.tar.xz |
|
5 | 6 | |
|
6 | 7 | LISP = sbcl |
@@ -14,7 +15,7 b' graphs: diagrams.png' | |||
|
14 | 15 | $(BIN): *.asd src/*.lisp src/*.ps strings/*.sexp |
|
15 | 16 | buildapp.$(LISP) --asdf-path .\ |
|
16 | 17 | --asdf-tree .qlot/dists\ |
|
17 |
--load-system $( |
|
|
18 | --load-system $(SYSTEM)\ | |
|
18 | 19 | --entry $(PKG):entry-point\ |
|
19 | 20 | --output $(BIN) |
|
20 | 21 | |
@@ -40,7 +41,7 b' clean:' | |||
|
40 | 41 | rm -f $(BIN) $(DIST) |
|
41 | 42 | |
|
42 | 43 | clean-deps: |
|
43 | rm qlfile.lock | |
|
44 | rm -rf .qlot | |
|
44 | -rm qlfile.lock | |
|
45 | -rm -rf .qlot | |
|
45 | 46 | |
|
46 | 47 | .PHONY: all graphs install-deps update-deps clean upload |
@@ -1,52 +1,52 b'' | |||
|
1 | 1 | ("quicklisp" . |
|
2 | 2 | (:class qlot/source/dist:source-dist |
|
3 | 3 | :initargs (:distribution "http://beta.quicklisp.org/dist/quicklisp.txt" :%version :latest) |
|
4 |
:version "2020-0 |
|
|
4 | :version "2020-06-10")) | |
|
5 | 5 | ("alexandria" . |
|
6 | 6 | (:class qlot/source/ql:source-ql |
|
7 | 7 | :initargs (:%version :latest) |
|
8 |
:version "ql-2020-0 |
|
|
8 | :version "ql-2020-06-10")) | |
|
9 | 9 | ("system-locale" . |
|
10 | 10 | (:class qlot/source/ql:source-ql |
|
11 | 11 | :initargs (:%version :latest) |
|
12 |
:version "ql-2020-0 |
|
|
12 | :version "ql-2020-06-10")) | |
|
13 | 13 | ("esrap" . |
|
14 | 14 | (:class qlot/source/ql:source-ql |
|
15 | 15 | :initargs (:%version :latest) |
|
16 |
:version "ql-2020-0 |
|
|
16 | :version "ql-2020-06-10")) | |
|
17 | 17 | ("parenscript" . |
|
18 | 18 | (:class qlot/source/ql:source-ql |
|
19 | 19 | :initargs (:%version :latest) |
|
20 |
:version "ql-2020-0 |
|
|
20 | :version "ql-2020-06-10")) | |
|
21 | 21 | ("flute" . |
|
22 | 22 | (:class qlot/source/ql:source-ql |
|
23 | 23 | :initargs (:%version :latest) |
|
24 |
:version "ql-2020-0 |
|
|
24 | :version "ql-2020-06-10")) | |
|
25 | 25 | ("cl-ppcre" . |
|
26 | 26 | (:class qlot/source/ql:source-ql |
|
27 | 27 | :initargs (:%version :latest) |
|
28 |
:version "ql-2020-0 |
|
|
28 | :version "ql-2020-06-10")) | |
|
29 | 29 | ("anaphora" . |
|
30 | 30 | (:class qlot/source/ql:source-ql |
|
31 | 31 | :initargs (:%version :latest) |
|
32 |
:version "ql-2020-0 |
|
|
32 | :version "ql-2020-06-10")) | |
|
33 | 33 | ("named-readtables" . |
|
34 | 34 | (:class qlot/source/ql:source-ql |
|
35 | 35 | :initargs (:%version :latest) |
|
36 |
:version "ql-2020-0 |
|
|
36 | :version "ql-2020-06-10")) | |
|
37 | 37 | ("assoc-utils" . |
|
38 | 38 | (:class qlot/source/ql:source-ql |
|
39 | 39 | :initargs (:%version :latest) |
|
40 |
:version "ql-2020-0 |
|
|
40 | :version "ql-2020-06-10")) | |
|
41 | 41 | ("let-over-lambda" . |
|
42 | 42 | (:class qlot/source/ql:source-ql |
|
43 | 43 | :initargs (:%version :latest) |
|
44 |
:version "ql-2020-0 |
|
|
44 | :version "ql-2020-06-10")) | |
|
45 | 45 | ("documentation-utils" . |
|
46 | 46 | (:class qlot/source/ql:source-ql |
|
47 | 47 | :initargs (:%version :latest) |
|
48 |
:version "ql-2020-0 |
|
|
48 | :version "ql-2020-06-10")) | |
|
49 | 49 | ("trivial-indent" . |
|
50 | 50 | (:class qlot/source/ql:source-ql |
|
51 | 51 | :initargs (:%version :latest) |
|
52 |
:version "ql-2020-0 |
|
|
52 | :version "ql-2020-06-10")) |
@@ -1,5 +1,5 b'' | |||
|
1 | 1 | |
|
2 |
(in-package |
|
|
2 | (in-package txt2web.api) | |
|
3 | 3 | |
|
4 | 4 | (defpsmacro with-call-args (args &body body) |
|
5 | 5 | `(progn |
@@ -1,5 +1,5 b'' | |||
|
1 | 1 | |
|
2 | (in-package sugar-qsp.api) | |
|
2 | (in-package txt2web) | |
|
3 | 3 | |
|
4 | 4 | ;;; API deals with DOM manipulation and some bookkeeping for the |
|
5 | 5 | ;;; intrinsics, namely variables |
@@ -1,5 +1,5 b'' | |||
|
1 | 1 | |
|
2 |
(in-package |
|
|
2 | (in-package txt2web) | |
|
3 | 3 | |
|
4 | 4 | (defclass compiler () |
|
5 | 5 | ((body :accessor body :initform #.(load-src "extras/body.html")) |
@@ -1,5 +1,5 b'' | |||
|
1 | 1 | |
|
2 |
(in-package |
|
|
2 | (in-package txt2web.lib) | |
|
3 | 3 | |
|
4 | 4 | ;;;; Macros implementing some intrinsics where it makes sense |
|
5 | 5 | ;;;; E.g. an equivalent JS function exists, or it's a direct API call |
@@ -1,5 +1,5 b'' | |||
|
1 | 1 | |
|
2 |
(in-package |
|
|
2 | (in-package txt2web) | |
|
3 | 3 | |
|
4 | 4 | ;;;; Functions and procedures defined by the QSP language. |
|
5 | 5 | ;;;; They can call api and deal with locations and other data directly. |
@@ -1,5 +1,5 b'' | |||
|
1 | 1 | |
|
2 |
(in-package |
|
|
2 | (in-package txt2web.js) | |
|
3 | 3 | |
|
4 | 4 | ;;; Contains symbols from standard JS library to avoid obfuscating |
|
5 | 5 | ;;; and/or namespacing them |
|
1 | NO CONTENT: file was removed |
General Comments 0
You need to be logged in to leave comments.
Login now