added gt, lt, eq, not native function definitiona
This commit is contained in:
parent
8304163a8d
commit
10e60b8b65
1 changed files with 8 additions and 3 deletions
11
std.isbpl
11
std.isbpl
|
@ -49,6 +49,11 @@ native func throw
|
||||||
# storelength
|
# storelength
|
||||||
native func stlen
|
native func stlen
|
||||||
|
|
||||||
|
native func eq
|
||||||
|
native func gt
|
||||||
|
native func lt
|
||||||
|
native func not
|
||||||
|
|
||||||
"char" mktype =TYPE_CHAR
|
"char" mktype =TYPE_CHAR
|
||||||
"int" mktype =TYPE_INT
|
"int" mktype =TYPE_INT
|
||||||
"file" mktype =TYPE_FILE
|
"file" mktype =TYPE_FILE
|
||||||
|
@ -127,7 +132,7 @@ func acopy {
|
||||||
=arr1
|
=arr1
|
||||||
|
|
||||||
0 =i
|
0 =i
|
||||||
while (i len st) (i 1 + =i) {
|
while (i len lt) (i 1 + =i) {
|
||||||
arr2 i idx2 + (arr1 i idx1 + aget) aput
|
arr2 i idx2 + (arr1 i idx1 + aget) aput
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
@ -153,7 +158,7 @@ func strsplit {
|
||||||
0 =i
|
0 =i
|
||||||
0 =j
|
0 =j
|
||||||
"" 0 anew =sequences
|
"" 0 anew =sequences
|
||||||
while (i str alen st) (i 1 + =1) {
|
while (i str alen lt) (i 1 + =1) {
|
||||||
str i aget =chr
|
str i aget =chr
|
||||||
splitter 0 aget =spl
|
splitter 0 aget =spl
|
||||||
while (chr spl eq) (j 1 + =j) {
|
while (chr spl eq) (j 1 + =j) {
|
||||||
|
@ -170,7 +175,7 @@ func strsplit {
|
||||||
func puts {
|
func puts {
|
||||||
_string =str
|
_string =str
|
||||||
0 =i
|
0 =i
|
||||||
while (i str alen st) (i 1 + =i) {
|
while (i str alen lt) (i 1 + =i) {
|
||||||
str i aget putchar
|
str i aget putchar
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue