TudbuT/isbpl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

change stream api syntax

Browse source
This commit is contained in:
Daniella / Tove 2022-03-12 20:05:04 +01:00
parent 052b17c864
commit 9ad3cefda3
2 changed files with 15 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
helloworldgen.isbpl
View file

@ -2,16 +2,16 @@
func main {
pop
def id "helloworld.isbpl" STREAM_CREATE_FILE_OUT stream =id
def id "helloworld.isbpl" STREAM.create.file.out stream =id
def s "func main {\n \"Hello World!\\n\" puts\n 0\n}" _array =s
def i 0 =i
while { i s alen lt } {
( s i aget ) id STREAM_WRITE stream
( s i aget ) id STREAM.write stream
i inc
}
id STREAM_CLOSE stream
id STREAM.close stream
"Testing: \n" struppercase puts
"helloworld.isbpl" include

22
stream.isbpl
View file

@ -2,16 +2,18 @@
native stream
def STREAM_CREATE_FILE_IN riota =STREAM_CREATE_FILE_IN
def STREAM_CREATE_FILE_OUT iota =STREAM_CREATE_FILE_OUT
def STREAM_CREATE_SOCKET iota =STREAM_CREATE_SOCKET
def STREAM_CLOSE iota =STREAM_CLOSE
def STREAM_READ iota =STREAM_READ
def STREAM_WRITE iota =STREAM_WRITE
def STREAM.create.file.in riota =STREAM.create.file.in
def STREAM.create.file.out iota =STREAM.create.file.out
def STREAM.create.socket iota =STREAM.create.socket
def STREAM.close iota =STREAM.close
def STREAM.read iota =STREAM.read
def STREAM.write iota =STREAM.write
"not implemented:" #
"def STREAM_AREAD iota =STREAM_AREAD" #
"def STREAM_AWRITE iota =STREAM_AWRITE" #
def STREAM.aread iota =STREAM.aread
def STREAM.awrite iota =STREAM.awrite
def STREAM.create.server iota =STREAM.create.server
func stream.readline {
def id =id
@ -20,7 +22,7 @@ func stream.readline {
def tmparray 0 anew =tmparray
def i 1 neg =i
while { ( i 1 + =i ) ( byte 10 eq not ) } {
id STREAM_READ stream =byte
id STREAM.read stream =byte
array ( ( array alen 1 + anew ) dup =tmparray ) 0 0 ( array alen ) acopy =array
array dup alen 1 - byte _char aput
}
@ -32,6 +34,6 @@ func stream.write {
def str _array =str
def i 1 neg =i
while { ( i 1 + =i ) ( i str alen lt ) } {
str i aget id STREAM_WRITE stream
str i aget id STREAM.write stream
}
}