Show More
@@ -6,3 +6,4 b'' | |||||
6 | tests |
|
6 | tests | |
7 | txt2web |
|
7 | txt2web | |
8 | txt2web.tar.xz |
|
8 | txt2web.tar.xz | |
|
9 | system-index.txt |
@@ -1,6 +1,7 b'' | |||||
1 |
|
1 | |||
2 | BIN = txt2web |
|
2 | BIN = txt2web | |
3 | DIST = $(BIN).tar.xz |
|
3 | DIST = $(BIN).tar.xz | |
|
4 | SCRIPT = $(BIN).ros | |||
4 |
|
5 | |||
5 | all: $(BIN) |
|
6 | all: $(BIN) | |
6 |
|
7 | |||
@@ -8,8 +9,11 b' dist: $(DIST)' | |||||
8 |
|
9 | |||
9 | graphs: diagrams.png |
|
10 | graphs: diagrams.png | |
10 |
|
11 | |||
11 | $(BIN): *.asd src/*.lisp src/*.ps strings/*.sexp |
|
12 | $(BIN): bin/$(BIN) | |
12 | sbcl --load build.lisp -- $(BIN) |
|
13 | ln -f $< | |
|
14 | ||||
|
15 | bin/$(BIN): *.asd src/*.lisp src/*.ps strings/*.sexp bin/$(BIN).ros | |||
|
16 | ros build bin/$(SCRIPT) | |||
13 |
|
17 | |||
14 | %.png: %.dot |
|
18 | %.png: %.dot | |
15 | dot $< -T png -o $@ |
|
19 | dot $< -T png -o $@ | |
@@ -18,7 +22,7 b' graphs: diagrams.png' | |||||
18 | tar cfvJ $@ $< extras |
|
22 | tar cfvJ $@ $< extras | |
19 |
|
23 | |||
20 | clean: |
|
24 | clean: | |
21 | rm -f $(BIN) $(DIST) |
|
25 | rm -f $(BIN) bin/$(BIN) $(DIST) | |
22 |
|
26 | |||
23 | clean-cache: |
|
27 | clean-cache: | |
24 | -rm -rf ~/.cache/common-lisp |
|
28 | -rm -rf ~/.cache/common-lisp |
@@ -1,14 +1,13 b'' | |||||
1 |
|
1 | |||
2 | (in-package txt2web) |
|
2 | (in-package txt2web) | |
3 |
|
3 | |||
4 | (defvar *app-name* "") |
|
4 | (defvar *app-name* "txt2web") | |
5 |
|
5 | |||
6 | (defun entry-point-no-args () |
|
6 | (defun entry-point-no-args () | |
7 | (setf *delivered* t) |
|
7 | (setf *delivered* t) | |
8 | (entry-point uiop:*command-line-arguments*)) |
|
8 | (entry-point uiop:*command-line-arguments*)) | |
9 |
|
9 | |||
10 | (defun entry-point (args) |
|
10 | (defun entry-point (args) | |
11 | (setf *app-name* (uiop:argv0)) |
|
|||
12 | (let ((*package* (find-package :txt2web))) |
|
11 | (let ((*package* (find-package :txt2web))) | |
13 | (catch :terminate |
|
12 | (catch :terminate | |
14 | (let ((compiler (apply #'make-instance 'compiler (parse-opts args)))) |
|
13 | (let ((compiler (apply #'make-instance 'compiler (parse-opts args)))) |
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