From 5cad35b39e6ba16557b477d1eae7479c43290193 Mon Sep 17 00:00:00 2001
From: riton <riton@riton.home>
Date: Mon, 24 Mar 2025 02:09:09 +0300
Subject: =?UTF-8?q?ana=20fonksiyon=20ve=20executable=20=C3=BCretimi?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 ana.lisp     | 7 +++++++
 build.sh     | 5 +++++
 html-jen.asd | 5 ++++-
 3 files changed, 16 insertions(+), 1 deletion(-)
 create mode 100755 build.sh

diff --git a/ana.lisp b/ana.lisp
index ac4c9ca..4b74169 100644
--- a/ana.lisp
+++ b/ana.lisp
@@ -27,3 +27,10 @@
                                  :if-does-not-exist :create
                                  :if-exists :supersede)
         (şablonlu-yazdır root dış)))))
+
+(defun ana ()
+  (let ((args sb-ext:*posix-argv*))
+    (assert (= 3 (length args)))
+    (let ((kaynak (nth 1 args))
+          (hedef (nth 2 args)))
+      (markdown->html kaynak hedef))))
diff --git a/build.sh b/build.sh
new file mode 100755
index 0000000..82e247a
--- /dev/null
+++ b/build.sh
@@ -0,0 +1,5 @@
+#!/bin/sh
+
+sbcl --eval '(asdf:load-system :html-jen)' \
+     --eval '(asdf:make :html-jen)' \
+     --eval '(quit)'
diff --git a/html-jen.asd b/html-jen.asd
index bbad5d4..e2532cd 100644
--- a/html-jen.asd
+++ b/html-jen.asd
@@ -7,4 +7,7 @@
                (:file "tanım")
                (:file "okur")
                (:file "üretim")
-               (:file "ana")))
+               (:file "ana"))
+  :build-operation "program-op"
+  :build-pathname "html-üret"
+  :entry-point "html-jen::ana")
-- 
cgit v1.2.3