diff --git a/echo.isbpl b/echo.isbpl new file mode 100644 index 0000000..294ad80 --- /dev/null +++ b/echo.isbpl @@ -0,0 +1,9 @@ +"#file.isbpl" include + +func main { + def args =args + while { 1 } { + "/dev/stdin" _file 0 1 read 0 aget _char putchar + } + 0 +} diff --git a/slowsocketer.isbpl b/slowsocketer.isbpl new file mode 100644 index 0000000..61fe2c7 --- /dev/null +++ b/slowsocketer.isbpl @@ -0,0 +1,14 @@ +"#stream.isbpl" include +"#file.isbpl" include +"#time.isbpl" include + +func main { + def args =args + def dly args 2 aget stol =dly + def id args 0 aget args 1 aget stol _int STREAM_CREATE_SOCKET stream =id + while { 1 } { + "/dev/stdin" _file 0 1 read 0 aget _char id STREAM_WRITE stream + dly delay + } + 0 +} diff --git a/socketer.isbpl b/socketer.isbpl new file mode 100644 index 0000000..6aa09c8 --- /dev/null +++ b/socketer.isbpl @@ -0,0 +1,11 @@ +"#stream.isbpl" include +"#file.isbpl" include + +func main { + def args =args + def id args 0 aget args 1 aget stol _int STREAM_CREATE_SOCKET stream =id + while { 1 } { + "/dev/stdin" _file 0 1 read 0 aget _char id STREAM_WRITE stream + } + 0 +}