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

bf.isbpl performance visualization

Browse source
This commit is contained in:
Daniella / Tove 2022-06-30 02:20:21 +02:00
parent 89191975fe
commit 913c38b527
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
bf.isbpl
View file

@ -21,6 +21,7 @@ func main {
filename ".isbpl" strconcat STREAM.create.file.out stream filename ".isbpl" strconcat STREAM.create.file.out stream
! s swap stream.write ! s swap stream.write
STREAM.close stream STREAM.close stream
"---\n" puts
"Java" try { "Java" try {
s Context new eval s Context new eval
} { } {
@ -31,7 +32,7 @@ func main {
func read { func read {
with s ; with s ;
[ s STREAM.read stream dup -1 eq if { ] pop "" 2 stop } _char ] _string [ s STREAM.read stream dup -1 eq if { pop pop "" 2 stop } _char ] _string
} }
@ -56,8 +57,10 @@ func makeCode {
def c def c
while { s read dup =c "" eq not } { while { s read dup =c "" eq not } {
c puts
code " " strconcat ( c parse ) strconcat =code code " " strconcat ( c parse ) strconcat =code
} }
"\n" puts
code code
} }