Show More
@@ -0,0 +1,10 b'' | |||
|
1 | (let ((root (asdf:system-source-directory :txt2web))) | |
|
2 | (asdf:initialize-source-registry | |
|
3 | `(:source-registry | |
|
4 | :ignore-inherited-configuration | |
|
5 | (:directory ,root) | |
|
6 | (:tree ,(format nil "~A~A" root ".qlot/dists"))))) | |
|
7 | ||
|
8 | (asdf:load-system :txt2web) | |
|
9 | (uiop:register-image-restore-hook 'txt2web::entry-point-no-args nil) | |
|
10 | (uiop:dump-image "txt2web" :executable t) |
@@ -1,10 +1,6 b'' | |||
|
1 | 1 | |
|
2 | 2 | BIN = txt2web |
|
3 | PKG = $(BIN) | |
|
4 | SYSTEM = $(BIN) | |
|
5 | DIST = txt2web.tar.xz | |
|
6 | ||
|
7 | LISP = sbcl | |
|
3 | DIST = $(BIN).tar.xz | |
|
8 | 4 | |
|
9 | 5 | all: $(BIN) |
|
10 | 6 | |
@@ -13,11 +9,7 b' dist: $(DIST)' | |||
|
13 | 9 | graphs: diagrams.png |
|
14 | 10 | |
|
15 | 11 | $(BIN): *.asd src/*.lisp src/*.ps strings/*.sexp |
|
16 | buildapp.$(LISP) --asdf-path .\ | |
|
17 | --asdf-tree .qlot/dists\ | |
|
18 | --load-system $(SYSTEM)\ | |
|
19 | --entry $(PKG):entry-point\ | |
|
20 | --output $(BIN) | |
|
12 | sbcl --load build.lisp -- $(BIN) | |
|
21 | 13 | |
|
22 | 14 | install-deps: |
|
23 | 15 | sbcl --load install-deps.lisp |
@@ -68,7 +68,7 b" IF OBJ '\xd0\x9a\xd0\xbe\xd0\xbd\xd1\x81\xd1\x82\xd1\x80\xd1\x83\xd0\xba\xd1\x82\xd0\xbe\xd1\x80':" | |||
|
68 | 68 | DELOBJ 'Конструктор' |
|
69 | 69 | ' - Вот тебе конструктор.' |
|
70 | 70 | ' - Спасибо, брат.' |
|
71 | DELACT | |
|
71 | DELACT $SELACT | |
|
72 | 72 | END |
|
73 | 73 | END |
|
74 | 74 | IF OBJ 'Плюшевый медведь': |
@@ -76,7 +76,7 b" IF OBJ '\xd0\x9f\xd0\xbb\xd1\x8e\xd1\x88\xd0\xb5\xd0\xb2\xd1\x8b\xd0\xb9 \xd0\xbc\xd0\xb5\xd0\xb4\xd0\xb2\xd0\xb5\xd0\xb4\xd1\x8c':" | |||
|
76 | 76 | DELOBJ 'Плюшевый медведь' |
|
77 | 77 | ' - Вот тебе плюшевый медведь.' |
|
78 | 78 | ' - Спасибо, брат.' |
|
79 | DELACT | |
|
79 | DELACT $SELACT | |
|
80 | 80 | END |
|
81 | 81 | END |
|
82 | 82 | IF OBJ 'Вязальный набор': |
@@ -84,7 +84,7 b" IF OBJ '\xd0\x92\xd1\x8f\xd0\xb7\xd0\xb0\xd0\xbb\xd1\x8c\xd0\xbd\xd1\x8b\xd0\xb9 \xd0\xbd\xd0\xb0\xd0\xb1\xd0\xbe\xd1\x80':" | |||
|
84 | 84 | DELOBJ 'Вязальный набор' |
|
85 | 85 | ' - Вот тебе вязальный набор.' |
|
86 | 86 | ' - Спасибо, сынок.' |
|
87 | DELACT | |
|
87 | DELACT $SELACT | |
|
88 | 88 | END |
|
89 | 89 | END |
|
90 | 90 | IF OBJ 'Инструменты': |
@@ -92,7 +92,7 b" IF OBJ '\xd0\x98\xd0\xbd\xd1\x81\xd1\x82\xd1\x80\xd1\x83\xd0\xbc\xd0\xb5\xd0\xbd\xd1\x82\xd1\x8b':" | |||
|
92 | 92 | DELOBJ 'Инструменты' |
|
93 | 93 | ' - Вот тебе инструменты.' |
|
94 | 94 | ' - Спасибо, сын.' |
|
95 | DELACT | |
|
95 | DELACT $SELACT | |
|
96 | 96 | END |
|
97 | 97 | END |
|
98 | 98 | ACT 'Идти в порт':GOTO 'Работа' |
@@ -4,13 +4,14 b'' | |||
|
4 | 4 | (defvar *app-name* "") |
|
5 | 5 | |
|
6 | 6 | (defun entry-point-no-args () |
|
7 | (format t "~A~%" uiop:*command-line-arguments*) | |
|
7 | 8 | (entry-point uiop:*command-line-arguments*)) |
|
8 | 9 | |
|
9 | 10 | (defun entry-point (args) |
|
10 |
(setf *app-name* ( |
|
|
11 | (setf *app-name* (uiop:argv0)) | |
|
11 | 12 | (let ((*package* (find-package :txt2web))) |
|
12 | 13 | (catch :terminate |
|
13 |
(let ((compiler (apply #'make-instance 'compiler (parse-opts |
|
|
14 | (let ((compiler (apply #'make-instance 'compiler (parse-opts args)))) | |
|
14 | 15 | (write-compiled-file compiler)))) |
|
15 | 16 | (values)) |
|
16 | 17 |
General Comments 0
You need to be logged in to leave comments.
Login now