Ben / Nujel

/* This file is auto-generated, manual changes will be overwritten! */
unsigned char binlib_no_data[] = "#{##(\"nujel\" init/executable-name init/args tree/new init/options init/option-map init/parse-args/eval-next-module init/parse-args/eval-next init/parse-args/run-repl tree/set! m anonymous (option) #@() #{##(init/parse-args/eval-next-module)\n"
"1B050001\n"
"} h (option) #{##(module/main :help exit)\n"
"0E001A012404020D0E020200040101\n"
"} no-color (option) #{##(module/import module/load :ansi current-closure disable!)\n"
"0E000E011A020E03040004021A04040207040D1B050401\n"
"} color (option) #{##(module/import module/load :ansi current-closure disable!)\n"
"0E000E011A020E03040004021A04040207040D1C050401\n"
"} x (option) #{##(init/parse-args/eval-next init/parse-args/run-repl)\n"
"1B05000D1C050101\n"
"} :default (option) #{##(tree/set! init/options option)\n"
"0E000E010E021B040301\n"
"} init/parse-option (option) #{##(init/option-map option :default #f)\n"
"0E000E012B0C0A00100D0E001A022B0C0A00060D1A030E01040101\n"
"} init/parse-options (options) #{##(options init/parse-option string->keyword cut for-each map split \"\" string->symbol)\n"
"0E0002002B022D200B00160E010E020E030E0002010402040104010900170E04\n"
"0E050E060E001A0704020E0804020E01040201\n"
"} init/parse-arg (arg args) #{##(init/parse-args/eval-next print/error eval-in root-closure do read arg init/parse-args/eval-next-module anonymous (e) #@() #{##(print/error e exit)\n"
"0E000E0104010D0E020201040101\n"
"} string/cut module/main string->keyword args exit init/parse-options (e) #{##(print/error e exit)\n"
"0E000E0104010D0E020201040101\n"
"} file/eval-module init/parse-args/run-repl)\n"
"0E000B001F0E011900170E020E030E040E050E0604011404020D1C0500160900\n"
"890E070B00411A081A091A0A1A0B171900320E0602002B023A200B00100E0C0E\n"
"06020104020506090004240D0E0D0E0E0E0604010E0F1204020D0E1002000401\n"
"160900460E0602002B022D200B00120E110E0C0E0602010402040109002C1B0B\n"
"00271A081A121A0A1A13171900140E140E060E0F1204020D0E1002000401160D\n"
"1C05150900042401\n"
"} init/parse-args (args) #{##(args init/parse-arg init/parse-args init/parse-args/run-repl)\n"
"0E000B00170E010E00110E0004020D0E020E001204010900050E0301\n"
"} init/bin (args) #{##(print/error args init/executable-name init/parse-args module/main :repl)\n"
"0E0019001F0E011105020D0E030E011204010B000D0E041A0524040209000424\n"
"1601\n"
"} init args #{##(args init/args System/Architecture wasm init/wasm init/bin)\n"
"0E0005010D0E021A03200B000C0E040E0004010900090E050E00040101\n"
"})\n"
"1A0007010D2407020D0E0324040107040D0E0324040107050D151C07060D1C07\n"
"070D1B07080D0E090E051A0A1A0B1A0C1A0D1A0E1704030D0E090E051A0F1A0B\n"
"1A101A0D1A111704030D0E090E051A121A0B1A131A0D1A141704030D0E090E05\n"
"1A151A0B1A161A0D1A171704030D0E090E051A181A0B1A191A0D1A1A1704030D\n"
"0E090E051A1B1A0B1A1C1A0D1A1D1704030D1A1E1A1F1A0D1A2017071E0D1A21\n"
"1A221A0D1A231707210D1A241A251A0D1A261707240D1A271A281A0D1A291707\n"
"270D1A2A1A2B1A0D1A2C17072A0D1A2D1A2E1A0D1A2F17072D16072D01\n"
"}#{##(file/copy (source-path destination-path) #@(documentation: \"Copy a file from SOURCE-PATH to DESTINATION-PATH\") #{##(spit destination-path slurp source-path)\n"
"0E000E010E020E030401040201\n"
"} file/read (path) #@(documentation: \"Read in a file using the Nujel reader\") #{##(read file/load path)\n"
"0E000E010E020401040101\n"
"} file/read/single (path) #@(documentation: \"Read a single value from a file\") #{##(file/read path)\n"
"0E000E0104011101\n"
"} file/eval (path environment) #@(documentation: \"Evaluate a Nujel source file in the current context\") #{##(eval-in environment root-closure #f do read file/read path)\n"
"0E000E010C0A000D0D0E020C0A00060D1A031A040E050E060E07040104011404\n"
"0201\n"
"} file/eval-module (path args) #{##(module/resolve-string cat path/without-extension path path/working-directory mod-name module/load mod :environment type-of resolve exports throw list \"Couldn't load \" \" as a module since it has no exports\" current-lambda tree/has? :main args)\n"
"0E000E010E020E03040104010E040400040207050D0E060E05040107070D1A08\n"
"0E090E070401200B0007240900060E07010D0E0A1A0B0E070402070B0D0E0B0B\n"
"00072409001B0E0C0E0D0E011A0E0E031A0F040324240E100400040404010D0E\n"
"110E0B1A1204020B000F0E0B1A122B0E1304010900042401\n"
"} file/compile (path environment) #@(documentation: \"Compile a Nujel source file into optimized object code\") #{##(do read file/read path source compile* environment #f object-code file/write string/write \"\" cat path/without-extension \".no\")\n"
"1A000E010E020E03040104011407040D0E050E040E060C0A00100D15240D1316\n"
"0C0A00060D1A07040207080D0E090E080B000C0E0A0E0804010900051A0B0E0C\n"
"0E0D0E0304011A0E040204020D0E080101\n"
"} file/compile/module (path environment base-dir) #{##(string->keyword path/without-extension string/cut path length base-dir module-name defmodule/defer def *module* append read file/read source compile* environment #f object-code file/write string/write \"\" cat \".no\")\n"
"0E000E010E020E030E040E05040104020401040107060D1A070E061A081A090E\n"
"06241414140E0A0E0B0E0C0E0304010401240402141414070D0D0E0E0E0D0E0F\n"
"0C0A00100D15240D13160C0A00060D1A10040207110D0E120E110B000C0E130E\n"
"1104010900051A140E150E010E0304011A16040204020D0E110101\n"
"} file/compile/argv (#nil) #@() #{##(last-pair init/args path index-of \"_modules/\" module file/compile/module string/cut file/compile exit)\n"
"0E000E0104011107020D0E030E021A04040207050D0E050200210B001A0E060E\n"
"02240E070E0202000E05020925040304030900090E080E0204010D0E09020004\n"
"0101\n"
"} file/test/module/run (tests module-name) #{##(module/import module/load :test current-closure run-test! tests ΓεnΣym-1 :pair type-of throw list :type-error \"Improper list detected, please provide a proper list instead\" current-lambda \"Expected a value of type :pair\" expr eval-in do require module-name append)\n"
"0E000E011A020E03040004021A04040207040D150E0507060D2409007A0D1A07\n"
"0E080E060401200B0007240900150E090E0A1A0B1A0C0E050E0D040004040401\n"
"0D0E080E0604011A07200B0007240900150E090E0A1A0B1A0E0E060E0D040004\n"
"0404010D0E0611070F0D0E040E100E0304000E0F121104021A111A120E132414\n"
"140E140E0F1212240402141404020D0E061205060E060AFF870D241601\n"
"} file/test/valid-test-form? (form) #{##(form deftest)\n"
"0E00111A012001\n"
"} file/test/module (path base-dir) #@(documentation: \"Test a module by running all contained tests\") #{##(string/cut path length base-dir rel-path string->keyword path/without-extension module-name module/import module/load :ansi current-closure blue :test init! finish! file/test/module/run filter read file/read file/test/valid-test-form?)\n"
"0E000E010E020E030401040207040D0E0402002B022F200B00100E000E040201\n"
"04020504090004240D0E050E060E040401040107070D0E080E091A0A0E0B0400\n"
"04021A0C0402070C0D0E080E091A0D0E0B040004021A0E0402070E0D0E080E09\n"
"1A0D0E0B040004021A0F0402070F0D0E0E04000D0E100E110E120E130E010401\n"
"04010E1404020E0704020D0E0F0E0C0E070401040101\n"
"} file/test/directory (base-dir) #{##(sum map filter sort flatten directory/read-recursive base-dir path/ext?! \"nuj\" anonymous (path) #@() #{##(file/test/module path base-dir)\n"
"0E000E010E02040201\n"
"})\n"
"0E000E010E020E030E040E050E060401040104010E071A08040104021A091A0A\n"
"1A0B1A0C170402040101\n"
"} file/file? (filename) #{##(file/stat filename :regular-file?)\n"
"0E000E0104011A022B01\n"
"} file/dir? (filename) #{##(file/stat filename :directory?)\n"
"0E000E0104011A022B01\n"
"} directory/read-relative (path) #{##(map directory/read path anonymous (a) #@() #{##(cat path \"/\" a)\n"
"0E000E011A020E03040301\n"
"})\n"
"0E000E010E0204011A031A041A051A0617040201\n"
"} directory/read-recursive/fn (A) #{##(file/dir? A directory/read-recursive)\n"
"0E000E0104010B000C0E020E0104010900050E0101\n"
"} directory/read-recursive (path) #{##(flatten filter map directory/read-relative path directory/read-recursive/fn identity)\n"
"0E000E010E020E030E0404010E0504020E060402040101\n"
"} load (filename) #{##(anonymous (err) #@() #{##(print/error err)\n"
"0E000E0104010D1C01\n"
"} file/eval filename println cat \"Loaded \")\n"
"1A001A011A021A03171900190E040E0504010D0E060E071A080E05040204010D\n"
"1B1601\n"
"} slurp/buffer (pathname) #@(documentation: \"Read the entirety of PATHNAME and return it as a string if possible, otherwise return #nil.\") #{##(file/open-input* pathname fh anonymous (#nil) #@() #{##(file/close* fh)\n"
"0E000E0104010D240101\n"
"} file/seek* file/tell* size buffer/allocate buf file/read* file/close*)\n"
"0E000E01040107020D0E020B00072409000524010D1A031A041A051A06171900\n"
"410E070E020200020204030D0E080E02040107090D0E070E020200020004030D\n"
"0E0A0E090401070B0D0E0C0E020E0B0E0904030D0E0D0E0204010D0E0B011601\n"
"} file/read/buffer slurp (pathname) #{##(buffer->string slurp/buffer pathname)\n"
"0E000E010E020401040101\n"
"} spit (pathname content) #{##(file/open-output* pathname :replace fh anonymous (#nil) #@() #{##(file/close* fh)\n"
"0E000E0104010D1C0101\n"
"} file/write* content file/close*)\n"
"0E000E011A02040207030D0E030B0007240900051C010D1A041A051A061A0717\n"
"1900130E080E030E0904020D0E0A0E030401160D1B0101\n"
"} file/write (content pathname) #@(documentation: \"Writes CONTENT into PATHNAME\") #{##(spit pathname content)\n"
"0E000E010E02040201\n"
"} make-input-port stdin* stdin current-input-port (#nil) #{##(stdin)\n"
"0E0001\n"
"} current-input-port! (nport) #{##(nport stdin)\n"
"0E00050101\n"
"} make-output-port stdout* stdout current-output-port (#nil) #{##(stdout)\n"
"0E0001\n"
"} current-output-port! (nport) #{##(nport stdout)\n"
"0E00050101\n"
"} stderr* stderr current-error-port (#nil) #{##(stderr)\n"
"0E0001\n"
"} current-error-port! (nport) #{##(nport stderr)\n"
"0E00050101\n"
"} newline (port) #@(documentation: \"Print a single line feed character\") #{##(port stdout #f block-write \"\\r\\n\")\n"
"0E000C0A000D0D0E010C0A00060D1A021A031A0404020D2401\n"
"} print (v port) #@(documentation: \"Display V on the standard output port\") #{##(write/raw v port stdout #f)\n"
"0E000E010E020C0A000D0D0E030C0A00060D1A041B04030D0E010101\n"
"} error (v port) #@(documentation: \"Prints v on the standard error port\") #{##(print v stderr)\n"
"0E000E010E02040201\n"
"} read-line/raw (port buf) #@(documentation: \"Reads in a line of user input and returns it\") #{##(i c buffer/u8* buf view buffer/length! 128 buffer/length port char-read :end-of-file buffer/set!)\n"
"020007000D020007010D0E020E03040107040D240900680D240900110D0E051A\n"
"060E070E0304012504010E000E070E030401210AFFE90D0E081A09040105010D\n"
"0E011A0A200B00130E002A0B0007240900050E0001090004240D0E01020A200B\n"
"00090E0001090004240D0E0B0E040E000E0104030D02010E002505001B0AFF9A\n"
"01\n"
"} read-line (#nil) #{##(buffer/allocate 128 buf read-line/raw stdin len buffer->string)\n"
"0E001A01040107020D0E030E040E02040207050D0E050C0B000C0D0E060E020E\n"
"05040201\n"
"} input readline (prompt) #@(documentation: \"Read a line of input in a user friendly way after writing PROMPT\") #{##(stdout block-write prompt \"\" #f flush-output read-line)\n"
"0E001A010E020C0A000D0D1A030C0A00060D1A0404020D0E001A0504010D0E06\n"
"040001\n"
"} popen/trim (cmd) #@(documentation: \"Run CMD using popen and return the trimmed stdout\") #{##(trim popen cmd)\n"
"0E000E010E02040112040101\n"
"} path/working-directory +root-working-dir+ *module-path* module/loader/filesystem (name) #{##(keyword->string name name-string System/OS Windows string/cut fmt-arg-0 cat \".nuj\" module-path file/read source list module def *module* *module-path* path/dirname do read expr eval-in current-closure mod)\n"
"0E000E01040107020D0E0202002B022F200B00072409000524010D0E031A0420\n"
"0B00100E050E02020104020502090004240D150E0207060D0E070E061A080402\n"
"1607090D0E0A0E090401070B0D0E0B0B00072409000524010D0E0C1A0D1A0E1A\n"
"0F0E01241414141A0E1A100E110E090401241414140E120E130E0B0401140404\n"
"07140D0E150E1604000E14040207170D0E170101\n"
"} module/add-loader)\n"
"1A001A011A021A031707000D1A041A051A061A071707040D1A081A091A0A1A0B\n"
"1707080D1A0C1A0D1A0E1A0F17070C0D1A101A111A0E1A121707100D1A131A14\n"
"1A151A161707130D1A171A181A151A191707170D1A1A1A1B1A1C1A1D17071A0D\n"
"1A1E1A1F1A1C1A2017071E0D1A211A221A1C1A231707210D1A241A251A261A27\n"
"1707240D1A281A291A151A2A1707280D1A2B1A2C1A1C1A2D17072B0D1A2E1A2F\n"
"1A1C1A3017072E0D1A311A321A1C1A331707310D1A341A351A1C1A361707340D\n"
"1A371A381A1C1A391707370D1A3A1A3B1A1C1A3C17073A0D1A3D1A3E1A3F1A40\n"
"17073D0D0E3D07410D1A421A431A3F1A441707420D0E4207040D1A451A461A3F\n"
"1A471707450D1A481A491A4A1A4B1707480D0E4C0E4D0401074E0D1A4F1A501A\n"
"1C1A5117074F0D1A521A531A1C1A541707520D0E550E56040107570D1A581A59\n"
"1A1C1A5A1707580D1A5B1A5C1A1C1A5D17075B0D0E550E5E0401075F0D1A601A\n"
"611A1C1A621707600D1A631A641A1C1A651707630D1A661A671A681A69170766\n"
"0D1A6A1A6B1A6C1A6D17076A0D1A6E1A6F1A701A7117076E0D1A721A731A741A\n"
"751707720D1A761A771A741A781707760D0E7607790D1A7A1A7B1A7C1A7D1707\n"
"7A0D1A7E1A7F1A801A8117077E0D0E82040007830D0E82040007840D1A851A86\n"
"1A1C1A871707850D0E880E85040101\n"
"}#{##(repl/wasm (line) #@(documentation: \"Evaluate LINE in the wasm context\") #{##(string/write print/error eval-in root-closure do read line)\n"
"0E000E011900130E020E030E040E050E06040114040216040101\n"
"} init/wasm (args) #@() #{##(repl/welcome)\n"
"0E00040001\n"
"})\n"
"1A001A011A021A031707000D1A041A051A061A0717070401\n"
"}";