ISBPL

Constant ISBPL 

Source
pub const ISBPL: &str = "\"#time.spl\" import\nnative engage-compatibility-mode\nfunc # { pop }\nfunc puts { print }\nfunc fcall { call }\nfunc strconcat { concat }\nfunc aget { swap :get }\nfunc stoi { _mega }\nfunc stol { _mega }\nfunc _int { _mega }\nfunc itos { _str }\ndef argv\'pre-isbplmod &argv =argv\'pre-isbplmod\nfunc argv { \n\tdef args argv\'pre-isbplmod call =args\n\tdef nargs args:len 2 - anew =nargs\n\targs nargs 2 0 nargs:len acopy\n\tnargs\n}\nfunc eputs {\n\tprint\n}\ndef import-transformers List:new =import-transformers\nfunc isbplmod\'import-transform { with s ;\n\t\"spl: [compat] transforming import \" s concat println\n\ts:_char \"#\" :_char eq if {\n\t\t\"#nop.spl\" =s\n\t}\n\n\t{ with tf ;\n\t\ts tf:call =s\n\t} import-transformers:foreach\n\t\"spl: [compat] transformed to \" s concat println\n\ts\n}\nfunc inc {\n\t\"isbpl.spl: ISBPL code tried to call inc, an untranslatable function\" println\n\tpop\n}\nfunc dec {\n\t\"isbpl.spl: ISBPL code tried to call inc, an untranslatable function\" println\n\tpop\n}\nfunc getms {\n\t0 time:unixms\n}\nfunc sleep {\n\ttime:sleep\n}\n\nfunc main { }\n";