slondr
/
white-tiger
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

functional entry point 

the command-line utility now prints the abstract syntax list to stdout
This commit is contained in:
Eric S. Londres 2023-03-30 21:42:11 -04:00
parent d34e68198b
commit 03c0eaae60
Signed by: slondr
GPG Key ID: A2D25B4D5CB970E4
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/white-tiger.lisp
View File

@ -1,8 +1,8 @@
;; (defpackage white-tiger
;; (:use :cl)
;; (:export #:node #:make-node #:node-type #:node-text-component #:node-preformat #:start))
(defpackage white-tiger
(:use :cl)
(:export #:start))
;; (in-package white-tiger)
(in-package white-tiger)
(defstruct node
(type)
@ -46,7 +46,11 @@
(cons (line-to-node (car line-list) line-type (if (eq line-type :preformat) nil preformat-mode))
(parse-gemtext-file (cdr line-list) (if (eq line-type :preformat) (not preformat-mode) preformat-mode))))))
(defun start (filename)
(defun start-parse (filename)
(let ((file-contents (read-file filename)))
(parse-gemtext-file file-contents nil)))
;; entry point
(defun start ()
(let ((filename (car (cdr sb-ext:*posix-argv*))))
(format t "~a~%" (start-parse filename))))