1 changed files with 16 additions and 0 deletions
@ -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…
Reference in new issue