Browse Source

Very early quick project, which I may abandon

master
Macoy Madson 9 months ago
parent
commit
4d2b5bc718
  1. 16
      tools/QuickProject.cake

16
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))
Loading…
Cancel
Save