24 lines
547 B
Text
24 lines
547 B
Text
native engage-compatibility-mode
|
|
func # { pop }
|
|
func puts { print }
|
|
func fcall { call }
|
|
func strconcat { concat }
|
|
func aget { swap :get }
|
|
func stoi { _mega }
|
|
func itos { _str }
|
|
def argv'pre-isbplmod &argv =argv'pre-isbplmod
|
|
func argv {
|
|
def args argv'pre-isbplmod call =args
|
|
def nargs args:len 2 - anew =nargs
|
|
args nargs 2 0 nargs:len acopy
|
|
nargs
|
|
}
|
|
func inc {
|
|
"isbpl.spl: ISBPL code tried to call inc, an untranslatable function" println
|
|
pop
|
|
}
|
|
func dec {
|
|
"isbpl.spl: ISBPL code tried to call inc, an untranslatable function" println
|
|
pop
|
|
}
|