From a094bcff5d3971b95a1706de1bb20ecce21a1a65 Mon Sep 17 00:00:00 2001 From: TudbuT Date: Sun, 6 Mar 2022 19:05:42 +0100 Subject: [PATCH] add more examples and libs --- echo.isbpl | 9 +++++++++ slowsocketer.isbpl | 14 ++++++++++++++ socketer.isbpl | 11 +++++++++++ 3 files changed, 34 insertions(+) create mode 100644 echo.isbpl create mode 100644 slowsocketer.isbpl create mode 100644 socketer.isbpl 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 +}