Very early quick project, which I may abandon

tools/QuickProject.cake

@@ -0,0 +1,16 @@
+;; TODO This is gross: Import all of cakelisp just for the file and process code
+(set-cakelisp-option cakelisp-src-dir "/home/macoy/Repositories/cakelisp/src") ;; TODO
+(add-c-search-directory-global "/home/macoy/Repositories/cakelisp/src") ;; TODO
+(add-cakelisp-search-directory "/home/macoy/Repositories/cakelisp/runtime")
+(import "CakelispLib.cake")
+(c-import "<stdio.h>"
+          "FileUtilities.hpp")
+
+(defun main (num-arguments int arguments ([] (const (* char))) &return int)
+  (unless (= 2 num-arguments)
+    (fprintf stderr "Expected project directory\n")
+    (return 1))
+  (var path (* (const char)) (at 1 arguments))
+  (unless (makeDirectory path)
+    (return 1))
+  (return 0))