181 lines
2.7 KiB
Text
181 lines
2.7 KiB
Text
native func alen
|
|
native func aget
|
|
native func aput
|
|
native func anew
|
|
native func _array
|
|
func __array {
|
|
"NotImplemented" "Not implemented" throw
|
|
}
|
|
|
|
native func _char
|
|
native func _int
|
|
native func _file
|
|
native func _float
|
|
native func _long
|
|
native func _double
|
|
|
|
func __char {
|
|
_char
|
|
}
|
|
func __int {
|
|
_int
|
|
}
|
|
func __file {
|
|
_file
|
|
}
|
|
native func __float
|
|
func __long {
|
|
_long
|
|
}
|
|
native func __double
|
|
|
|
native func ischar
|
|
native func isint
|
|
native func isfloat
|
|
native func islong
|
|
native func isdouble
|
|
|
|
native func stop
|
|
native func include
|
|
native func putchar
|
|
native func read
|
|
native func type
|
|
native func mktype
|
|
# call a dynamically computed function
|
|
native func call
|
|
native func typename
|
|
native func throw
|
|
# try and catch are keywords, not functions
|
|
# storelength
|
|
native func stlen
|
|
|
|
native func eq
|
|
native func gt
|
|
native func lt
|
|
native func not
|
|
|
|
"char" mktype =TYPE_CHAR
|
|
"int" mktype =TYPE_INT
|
|
"file" mktype =TYPE_FILE
|
|
"float" mktype =TYPE_FLOAT
|
|
"long" mktype =TYPE_LONG
|
|
"double" mktype =TYPE_DOUBLE
|
|
"array" mktype =TYPE_ARRAY
|
|
|
|
"string" mktype =TYPE_STRING
|
|
func _string {
|
|
=object
|
|
|
|
object ischar if {
|
|
0 _char 1 anew =object
|
|
}
|
|
object isint if {
|
|
itos =object
|
|
}
|
|
object isfloat if {
|
|
ftoi =object
|
|
}
|
|
object islong if {
|
|
ltoi =object
|
|
}
|
|
object isdouble if {
|
|
dtoi =object
|
|
}
|
|
|
|
object
|
|
}
|
|
func __string {
|
|
_string
|
|
}
|
|
func isstring {
|
|
isarray
|
|
}
|
|
|
|
func itos {
|
|
ntos
|
|
}
|
|
|
|
func ltos {
|
|
ntos
|
|
}
|
|
|
|
func ftos {
|
|
ntos
|
|
}
|
|
|
|
func dtos {
|
|
ntos
|
|
}
|
|
|
|
# Number to string
|
|
func ntos {
|
|
"" =s
|
|
=n
|
|
|
|
n type =thetype
|
|
|
|
while n 0 eq not {
|
|
n (n 10 % dup =x) - =n
|
|
s (n '0' + _char) strconcat =s
|
|
}
|
|
|
|
s
|
|
}
|
|
|
|
# Copy array
|
|
func acopy {
|
|
# bind args
|
|
=len
|
|
=idx2
|
|
=idx1
|
|
=arr2
|
|
=arr1
|
|
|
|
0 =i
|
|
while (i len lt) (i 1 + =i) {
|
|
arr2 i idx2 + (arr1 i idx1 + aget) aput
|
|
}
|
|
}
|
|
|
|
func strconcat {
|
|
# bind args
|
|
_string =str2
|
|
_string =str1
|
|
|
|
0 _char str1 alen str2 alen anew = str
|
|
|
|
str1 str 0 0 str1 alen acopy
|
|
str2 str 0 str1 alen str2 alen acopy
|
|
|
|
str
|
|
}
|
|
|
|
func strsplit {
|
|
# bind args
|
|
_string =str
|
|
_string =splitter
|
|
|
|
0 =i
|
|
0 =j
|
|
"" 0 anew =sequences
|
|
while (i str alen lt) (i 1 + =1) {
|
|
str i aget =chr
|
|
splitter 0 aget =spl
|
|
while (chr spl eq) (j 1 + =j) {
|
|
(str i j + aget) (splitter j aget) eq not if {
|
|
sequences =oldsq
|
|
"" (seq dup =lseq 1 + dup =seq) anew =sequences
|
|
oldsq sequences 0 0 oldsq alen acopy
|
|
sequences lseq
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
func puts {
|
|
_string =str
|
|
0 =i
|
|
while (i str alen lt) (i 1 + =i) {
|
|
str i aget putchar
|
|
}
|
|
}
|