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