Remove buildapp

build.lisp

@@ -0,0 +1,10 b''
+(let ((root (asdf:system-source-directory :txt2web)))
+  (asdf:initialize-source-registry
+   `(:source-registry
+     :ignore-inherited-configuration
+     (:directory ,root)
+     (:tree ,(format nil "~A~A" root ".qlot/dists")))))
+
+(asdf:load-system :txt2web)
+(uiop:register-image-restore-hook 'txt2web::entry-point-no-args nil)
+(uiop:dump-image "txt2web" :executable t)

Makefile

@@ -1,10 +1,6 b''
 
 BIN = txt2web
-PKG = $(BIN)
-SYSTEM = $(BIN)
-DIST = txt2web.tar.xz
-
-LISP = sbcl
+DIST = $(BIN).tar.xz
 
 all: $(BIN)
 
@@ -13,11 +9,7 b' dist: $(DIST)'
 graphs: diagrams.png
 
 $(BIN): *.asd src/*.lisp src/*.ps strings/*.sexp
-	buildapp.$(LISP) --asdf-path .\
-		--asdf-tree .qlot/dists\
-		--load-system $(SYSTEM)\
-		--entry $(PKG):entry-point\
-		--output $(BIN)
+	sbcl --load build.lisp -- $(BIN)
 
 install-deps:
 	sbcl --load install-deps.lisp

examples/txt2gam-game.txt

@@ -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':"
 		DELOBJ 'Конструктор'
 		' - Вот тебе конструктор.'
 		' - Спасибо, брат.'
-		DELACT
+		DELACT $SELACT
 	END
 END
 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':"
 		DELOBJ 'Плюшевый медведь'
 		' - Вот тебе плюшевый медведь.'
 		' - Спасибо, брат.'
-		DELACT
+		DELACT $SELACT
 	END
 END
 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':"
 		DELOBJ 'Вязальный набор'
 		' - Вот тебе вязальный набор.'
 		' - Спасибо, сынок.'
-		DELACT
+		DELACT $SELACT
 	END
 END
 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':"
 		DELOBJ 'Инструменты'
 		' - Вот тебе инструменты.'
 		' - Спасибо, сын.'
-		DELACT
+		DELACT $SELACT
 	END
 END
 ACT 'Идти в порт':GOTO 'Работа'

src/main.lisp

@@ -4,13 +4,14 b''
 (defvar *app-name* "")
 
 (defun entry-point-no-args ()
+  (format t "~A~%" uiop:*command-line-arguments*)
   (entry-point uiop:*command-line-arguments*))
 
 (defun entry-point (args)
-  (setf *app-name* (first args))
+  (setf *app-name* (uiop:argv0))
   (let ((*package* (find-package :txt2web)))
     (catch :terminate
-      (let ((compiler (apply #'make-instance 'compiler (parse-opts (rest args)))))
+      (let ((compiler (apply #'make-instance 'compiler (parse-opts args))))
         (write-compiled-file compiler))))
   (values))