isbpl/std.isbpl

410 lines
7.6 KiB
Text
Raw Normal View History

2022-03-05 20:55:03 +01:00
native dup
native pop
native swap
func # { pop }
native alen
native aget
native aput
native anew
native _array
2022-02-05 21:20:51 +01:00
native _char
2022-03-05 20:55:03 +01:00
native _byte
native _int
native _float
native _long
native _double
2022-02-05 21:20:51 +01:00
native ischar
2022-03-05 20:55:03 +01:00
native isbyte
native isint
native isfloat
native islong
native isdouble
2022-03-05 20:55:03 +01:00
native isarray
2022-02-05 21:20:51 +01:00
2022-03-04 20:20:46 +01:00
"call a dynamically computed function" #
"Please keep in mind that this will throw a native error if" #
"called incorrectly - this means wrong layer parameter will" #
"instantly crash the program." #
2022-02-23 17:20:09 +01:00
native _layer_call
2022-02-23 17:18:26 +01:00
func call {
2022-03-05 20:55:03 +01:00
1 _layer_call
2022-02-23 17:18:26 +01:00
}
2022-03-24 15:25:07 +01:00
native subprocess
2022-03-05 20:55:03 +01:00
"This returns the last word as a string, from an index." #
"index has to be <16, index 0 is this call" #
2022-03-04 20:20:46 +01:00
native _last_word
native include
native putchar
native mktype
2022-03-04 20:20:46 +01:00
native getos
2022-03-05 20:55:03 +01:00
native typename
native gettype
native settype
2022-03-05 20:55:03 +01:00
"try and do are keywords, not functions" #
native throw
native exit
2022-02-05 21:20:51 +01:00
native eq
native gt
native lt
native not
2022-03-04 20:20:46 +01:00
native neg
native or
native and
native +
native -
native /
native *
native **
native %
native ^
2022-03-16 00:45:22 +01:00
native fcall
2022-04-16 00:44:52 +02:00
native deffunc
2022-04-16 00:10:51 +02:00
native defmethod
2022-04-16 00:44:52 +02:00
native deffield
2022-04-17 17:40:25 +02:00
native callmethod
2022-03-16 00:45:22 +01:00
func ++ { 1 + }
func -- { 1 - }
2022-03-04 20:20:46 +01:00
"this looks so wrong" #
func ( { }
func ) { }
2022-03-05 20:55:03 +01:00
func ; { }
2022-03-04 20:20:46 +01:00
2022-03-05 20:55:03 +01:00
"int must be registered first." #
2022-03-04 20:20:46 +01:00
def TYPE_INT "int" mktype =TYPE_INT
2022-03-05 20:55:03 +01:00
def TYPE_CHAR "char" mktype =TYPE_CHAR
def TYPE_BYTE "byte" mktype =TYPE_BYTE
2022-03-04 20:20:46 +01:00
def TYPE_FLOAT "float" mktype =TYPE_FLOAT
def TYPE_LONG "long" mktype =TYPE_LONG
def TYPE_DOUBLE "double" mktype =TYPE_DOUBLE
def TYPE_NULL "null" mktype =TYPE_NULL
native null
2022-03-16 00:45:22 +01:00
def TYPE_FUNCTION "func" mktype =TYPE_FUNCTION
2022-03-04 20:20:46 +01:00
def TYPE_ARRAY "array" mktype =TYPE_ARRAY
2022-04-16 22:13:08 +02:00
def TYPE_STRING "string" mktype =TYPE_STRING
2022-03-04 20:20:46 +01:00
2022-04-16 18:44:07 +02:00
def TYPE_JIO "jio" mktype =TYPE_JIO
"class" {
pop
native jio.class
jio.class
} TYPE_JIO defmethod
2022-04-16 21:05:17 +02:00
"getclass" {
pop
native jio.getclass
jio.getclass
} TYPE_JIO defmethod
"context" {
pop
native jio.context
jio.context
} TYPE_JIO defmethod
2022-04-16 18:44:07 +02:00
def JIO 0 TYPE_JIO settype =JIO
2022-02-05 21:20:51 +01:00
func _string {
2022-03-04 20:20:46 +01:00
def object =object
2022-02-05 21:20:51 +01:00
object ischar if {
2022-03-05 20:55:03 +01:00
1 anew =object
object TYPE_STRING settype
}
object isbyte if {
2022-03-06 16:34:37 +01:00
object itos =object
2022-02-05 21:20:51 +01:00
}
object isint if {
2022-03-06 16:34:37 +01:00
object itos =object
2022-02-05 21:20:51 +01:00
}
object isfloat if {
2022-03-06 16:34:37 +01:00
object ftoi =object
2022-02-05 21:20:51 +01:00
}
object islong if {
2022-03-06 16:34:37 +01:00
object ltoi =object
2022-02-05 21:20:51 +01:00
}
object isdouble if {
2022-03-06 16:34:37 +01:00
object dtoi =object
2022-02-05 21:20:51 +01:00
}
2022-03-05 20:55:03 +01:00
2022-03-05 21:07:29 +01:00
object isarray if {
object TYPE_STRING settype =object
}
2022-03-05 20:55:03 +01:00
object isstring not if {
"IncompatibleTypes" "Incompatible types: " object gettype typename " - string" strconcat strconcat throw
}
2022-03-05 21:07:29 +01:00
object
2022-02-05 21:20:51 +01:00
}
func isstring {
2022-03-05 20:55:03 +01:00
gettype typename "string" eq
2022-02-05 21:20:51 +01:00
}
2022-03-06 16:34:37 +01:00
func stoi {
stol _int
}
func stof {
stod _float
}
2022-02-05 21:20:51 +01:00
func itos {
2022-03-06 15:26:08 +01:00
_long ltos
2022-02-05 21:20:51 +01:00
}
func ftos {
_double dtos
2022-02-05 21:20:51 +01:00
}
func dtos {
2022-03-06 15:26:08 +01:00
"NotImplemented" "dtos is not implemented" throw
2022-02-05 21:20:51 +01:00
}
2022-03-06 16:34:37 +01:00
func stod {
"NotImplemented" "stod is not implemented" throw
}
2022-03-04 20:20:46 +01:00
"Number to string" #
2022-03-06 15:26:08 +01:00
func ltos {
def n =n "bind number" #
def s 0 anew =s "make array" #
def ne n 0 lt dup if { n neg =n } =ne
func rem { 10 _long / }
2022-02-05 21:20:51 +01:00
2022-03-06 15:26:08 +01:00
def c0 "0" char =c0
2022-02-05 21:20:51 +01:00
n 0 gt not if {
"0" =s
}
2022-03-06 15:26:08 +01:00
while { n 0 gt } {
( ( ( n 10 _long % _char ) c0 + ) _char 1 anewput _string ) s strconcat =s
n rem =n "divide by ten to remove last digit" #
2022-02-05 22:16:59 +01:00
}
2022-03-06 15:26:08 +01:00
ne if { "-" s strconcat =s }
2022-02-05 21:20:51 +01:00
2022-03-06 15:26:08 +01:00
s _string
2022-02-05 21:20:51 +01:00
}
2022-03-06 15:26:08 +01:00
func stol {
def s _array =s "bind string" #
def n 0 _long =n "the number to return" #
def ne s 0 aget "-" char eq =ne
def len s alen =len
ne if { s ( len 1 - dup =len anew ) 1 0 len acopy =s }
func rem { dup ( ( def len alen 1 - =len ) len anew ) 1 0 len acopy }
def c0 "0" char =c0
2022-03-05 20:55:03 +01:00
2022-03-06 15:26:08 +01:00
while { s alen 0 eq not } {
def chr s char =chr "extract first char" #
n 10 _long * =n
n ( chr c0 - _long ) + =n
s rem =s "remove first digit" #
2022-03-04 20:20:46 +01:00
}
2022-02-05 21:20:51 +01:00
n ( ne 2 * 1 - neg ) _long *
2022-03-04 20:20:46 +01:00
}
2022-03-06 15:26:08 +01:00
func char { _array 0 aget }
2022-03-04 20:20:46 +01:00
"Copy array" #
func acopy {
"bind args" #
def len =len
def idx2 =idx2
def idx1 =idx1
def arr2 =arr2
def arr1 =arr1
def i 1 neg =i
2022-03-06 15:26:08 +01:00
while { ( i ++ =i ) ( i len lt ) } {
arr2 ( i idx2 + ) ( arr1 ( i idx1 + ) aget ) aput
2022-02-05 21:20:51 +01:00
}
2022-03-06 15:26:08 +01:00
arr2
2022-02-05 21:20:51 +01:00
}
func strconcat {
2022-03-04 20:20:46 +01:00
"bind args" #
2022-03-06 15:26:08 +01:00
def str2 _string _array =str2
def str1 _string _array =str1
2022-03-05 20:55:03 +01:00
2022-03-06 15:26:08 +01:00
def str str1 alen str2 alen + anew =str
2022-03-05 20:55:03 +01:00
2022-03-06 15:26:08 +01:00
str1 str 0 0 str1 alen acopy pop
str2 str 0 str1 alen str2 alen acopy pop
2022-02-05 21:20:51 +01:00
2022-03-06 15:26:08 +01:00
str _string
2022-02-05 21:20:51 +01:00
}
func strsplit {
2022-03-04 20:20:46 +01:00
"bind args" #
def splitter _string =splitter
def str _string =str
2022-02-05 21:20:51 +01:00
2022-02-05 22:35:14 +01:00
1 neg =i
2022-03-04 20:20:46 +01:00
def sequences "" 0 anew =sequences
def sequence "" =sequence
while { ( i 1 + =i ) ( i str alen lt ) } {
2022-03-04 20:20:46 +01:00
def chr str i aget =chr
def spl splitter 0 aget =spl
2022-02-05 23:16:53 +01:00
sequence chr strconcat =sequence
2022-02-05 22:35:14 +01:00
1 neg =j
while { ( j 1 + =j ) ( chr spl eq ) } {
2022-02-05 23:16:53 +01:00
j splitter alen eq if {
2022-03-04 20:20:46 +01:00
def oldsq sequences =oldsq
"" ( sequences alen dup =seq 1 + ) anew =sequences
2022-02-05 21:20:51 +01:00
oldsq sequences 0 0 oldsq alen acopy
2022-02-05 22:35:14 +01:00
sequences seq sequence aput
2022-02-05 23:16:53 +01:00
"" =sequence
2 stop
2022-02-05 22:35:14 +01:00
}
2022-02-05 23:16:53 +01:00
str i j + aget dup =chr
splitter j aget dup =spl
2022-02-05 21:20:51 +01:00
}
}
2022-02-05 22:35:14 +01:00
sequences
2022-02-05 21:20:51 +01:00
}
func strjoin {
2022-03-04 20:20:46 +01:00
"bind args" #
def joiner _string =joiner
def arr _array =arr
1 neg =i
2022-03-04 20:20:46 +01:00
def s "" =s
while { ( i 1 + =i ) ( i arr alen lt ) } {
s arr i aget joiner strconcat strconcat =s
}
s
}
func strsub {
2022-03-04 20:20:46 +01:00
"bind args" #
def pos2 _int =pos2
def pos1 _int =pos1
def string _string =string
pos2 pos1 - =length
( o _char length anew dup ) string swap pos1 0 length acopy
}
2022-02-05 21:20:51 +01:00
func puts {
2022-03-05 20:55:03 +01:00
def str _array =str
def i 1 neg =i
while { ( i 1 + =i ) ( i str alen lt ) } {
2022-02-05 21:20:51 +01:00
str i aget putchar
}
}
2022-02-23 17:18:26 +01:00
func anewput {
def size =size
def arr size anew =arr
2022-03-05 20:55:03 +01:00
2022-02-23 17:18:26 +01:00
def i 0 =i
2022-03-06 15:26:08 +01:00
def tmp
2022-03-04 20:20:46 +01:00
while { i size lt } {
2022-03-06 15:26:08 +01:00
=tmp arr i tmp aput
i inc
2022-02-23 17:18:26 +01:00
}
arr areverse
}
func areverse {
def arr =arr
def new arr alen anew =new
def i arr alen 1 - =i
def j 0 =j
2022-03-04 20:20:46 +01:00
while { i 0 lt not } {
2022-02-23 17:18:26 +01:00
new j arr i aget aput
j 1 + =j
i 1 - =i
}
new
}
2022-03-04 20:20:46 +01:00
func strcontains {
def check =check "bind check" #
def s =s "bind string" #
def found 0 =found
def counter 0 =counter
def i 0 =i
def j 0 =j
while { i s alen lt } {
s i aget check j aget eq dup if {
counter inc
}
not if {
0 =counter
}
counter check alen eq if {
3 stop
}
i inc
}
counter check alen eq
2022-02-23 17:18:26 +01:00
}
2022-03-04 20:20:46 +01:00
"These functions are magic, they use natives to get recent words and modify the" #
"variables, do not touch them unless you know exactly what you're doing!" #
func inc {
2022-03-05 20:55:03 +01:00
def varname 4 _last_word =varname
2022-03-04 20:20:46 +01:00
pop
( varname 1 _layer_call ) "Get var" #
1 + "Increment" #
( "=" varname strconcat 1 _layer_call ) "Store var" #
}
2022-02-23 17:18:26 +01:00
func dec {
2022-03-05 20:55:03 +01:00
def varname 4 _last_word =varname
2022-03-04 20:20:46 +01:00
pop
( varname 1 _layer_call ) "Get var" #
1 - "Decrement" #
( "=" varname strconcat 1 _layer_call ) "Store var" #
}
func strlowercase {
2022-03-06 20:07:48 +01:00
def s _array =s "bind string" #
2022-03-04 20:20:46 +01:00
def i 0 =i
while { i s alen lt } {
2022-03-06 20:07:48 +01:00
def chr s i aget =chr
chr "A" char lt not chr "Z" char gt not and if {
s i chr "a" char "A" char - + aput
2022-03-04 20:20:46 +01:00
}
i inc
}
2022-03-06 20:07:48 +01:00
s _string
2022-02-23 17:18:26 +01:00
}
2022-03-04 20:20:46 +01:00
func struppercase {
2022-03-06 20:07:48 +01:00
def s _array =s "bind string" #
2022-03-04 20:20:46 +01:00
def i 0 =i
while { i s alen lt } {
2022-03-06 20:07:48 +01:00
def chr s i aget =chr
chr "a" char lt not chr "z" char gt not and if {
s i chr "a" char "A" char - - aput
2022-03-04 20:20:46 +01:00
}
i inc
}
2022-03-06 20:07:48 +01:00
s _string
2022-03-04 20:20:46 +01:00
}
func main {
pop 0
}