command line with clingon (how to use it i dont get it???)

2 files changed, 109 insertions, 24 deletions

diff --git a/cl-forth.asd b/cl-forth.asd
index f192b5e..6702f90 100644
--- a/cl-forth.asd
+++ b/cl-forth.asd
@@ -3,7 +3,7 @@
   :version "0.1"
   :author "Emre Akan"
   :licence "MIT"
-  :depends-on ("iterate" "cl-fad")
+  :depends-on ("iterate" "cl-fad" "clingon")
   :serial t
   :components ((:file "package")
                (:file "util")
diff --git a/main.lisp b/main.lisp
index a04fa05..a43f798 100644
--- a/main.lisp
+++ b/main.lisp
@@ -1,25 +1,30 @@
 (in-package :cl-forth)
 
-(defun main ()
-  (let ((args (rest sb-ext:*posix-argv*)))
-    (let ((flag (first args)))
-      (cond ((string= flag "-c")
-             ;; (iter (for (k v) in-hashtable *operations*)
-             ;;       (for i from 0)
-             ;;       (format t "~s: ~s~%" i k))
-             ;; (let ((tokens (lex-file (second args))))
-             ;;   (format t "~s~%" tokens)
-             ;;   (let ((program (prog-from-tokens tokens)))
-             ;;     (format t "~s~%" program)
-             ;;     (generate-program program :compile t)))
-             (generate-program (make-program (second args)) :compile t))
-            ((string= flag "-p")
-             (format t "~a" (make-program (second args))))
-            ((string= flag "-t")
-             (run-tests))
-            ((string= flag "-s")
-             (simulate-program (make-program (second args))))
-            (t (format t "~a is not a valid flag~%" flag))))))
+;; (defun main ()
+;;   (let ((args (rest sb-ext:*posix-argv*)))
+;;     (let ((flag (first args)))
+;;       (cond ((string= flag "-c")
+;;              ;; (iter (for (k v) in-hashtable *operations*)
+;;              ;;       (for i from 0)
+;;              ;;       (format t "~s: ~s~%" i k))
+;;              ;; (let ((tokens (lex-file (second args))))
+;;              ;;   (format t "~s~%" tokens)
+;;              ;;   (let ((program (prog-from-tokens tokens)))
+;;              ;;     (format t "~s~%" program)
+;;              ;;     (generate-program program :compile t)))
+;;              (generate-program (make-program (second args)) :compile t))
+;;             ((string= flag "-p")
+;;              (format t "~a" (make-program (second args))))
+;;             ((string= flag "-t")
+;;              (run-tests))
+;;             ((string= flag "-s")
+;;              (simulate-program (make-program (second args))))
+;;             ((string= flag "-i")
+;;              (simulate-program (with-open-file (str (second args))
+;;                                  (read str))))
+;;             ((string= flag "-e")
+;;              (print 5))
+;;             (t (format t "~a is not a valid flag~%" flag))))))
 
 ;; (defun make-exe ()
 ;;   (sb-ext:save-lisp-and-die #P"cl-forth"
@@ -38,8 +43,8 @@
   (generate-program (make-program *example-path*) :path "test/output.asm"
                                                   :compile t))
 
-(defun example-interpret ()
-  (interpret-program (make-program *example-path*)))
+;; (defun example-interpret ()
+;;   (interpret-program (make-program *example-path*)))
 
 (defun example-run ()
   (example-compile)
@@ -49,4 +54,84 @@
   (iter (for line = (progn (format t "~&> ") (read-line)))
         (when (string= line "bye")
           (finish))
-        (interpret-program (parse-tokens (lex-line line 0)))))
+        (simulate-program (parse-tokens (lex-line line 0)))))
+
+(defun subcommands ()
+  (list (clingon:make-command
+         :name "derle"
+         :description "Dosyadaki programı derle"
+         :usage "<dosya-ismi>"
+         :handler (lambda (cmd) (generate-program
+                            (make-program
+                             (car (clingon:command-arguments cmd)))
+                            :compile t)))
+        (clingon:make-command
+         :name "test"
+         :description "Testleri çalıştır."
+         :handler (lambda (cmd) (declare (ignore cmd)) (run-tests))) 
+        (clingon:make-command
+         :name "sim"
+         :description "Dosyadaki programı simüle et."
+         :usage "<dosya-ismi>"
+         :handler (lambda (cmd) (simulate-program
+                            (make-program
+                             (car (clingon:command-arguments cmd))))))))
+
+(defun top-level-options ()
+  (list (clingon:make-option
+         :flag
+         :description "Programın seçeneklerini göster."
+         :short-name #\h
+         :key :help)))
+
+(defun top-level-handler (cmd)
+  (clingon:print-usage-and-exit cmd t))
+
+(defun top-level-command ()
+  (clingon:make-command
+   :name "cl-forth"
+   :description "cl-forth derleyicisi"
+   :version "0.1.0"
+   :authors '("Emre Akan <akannemre@gmail.com>")
+   :options (top-level-options)
+   :handler #'top-level-handler
+   :sub-commands (subcommands)))
+
+(defun main ()
+  (let ((app (top-level-command)))
+    (clingon:run app)))
+
+;; (defun handler (cmd)
+;;   (let ((help (clingon:getopt cmd :help))
+;;         (comp (clingon:getopt cmd :compile))
+;;         (sim (clingon:getopt cmd :simulate))
+;;         (test (clingon:getopt cmd :test)))
+;;     (cond ((or (not (null help)) (= 0 (length cmd (clingon:command-arguments cmd))))
+;;            (clingon:print-usage (cli-command) t))
+;;           ((not (null compile))
+;;            (generate-program (make-program (second args)) :compile t))
+;;           ((not null sim)
+;;            (simulate-program (make-program (second args))))
+;;           ((not null test)
+;;            (run-tests)))))
+
+;; (defun sim-options ()
+;;   (list (clingon:make-option
+;;          :filepath
+;;          :description "Dosyadaki programı simüle et."
+;;          :short-name #\s
+;;          :key :simulate)))
+
+;; (defun comp-options ()
+;;   (list (clingon:make-option
+;;          :filepath
+;;          :description "Dosyadaki programı derle."
+;;          :short-name #\c
+;;          :key :compile)))
+
+;; (defun test-options ()
+;;   (list (clingon:make-option
+;;          :flag
+;;          :description "Testleri çalıştır."
+;;          :short-name #\t
+;;          :key :test)))