From 98bbddb5e4bcf58c2dc24aebfdfcc48e165e194f Mon Sep 17 00:00:00 2001 From: kitty Date: Fri, 27 Feb 2026 19:53:32 +1100 Subject: example: write line from stdin to stdout i am unnervingly close to interactive input surprisingly soon --- jefs.fs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'jefs.fs') diff --git a/jefs.fs b/jefs.fs index e80b1d7..aa2d23c 100644 --- a/jefs.fs +++ b/jefs.fs @@ -258,4 +258,6 @@ make file-buffer file-buffer-length allot : write-file ( c-addr u fd -- ?u flag ) >r swap r> syswrite errno ; \ }}} -.free bye +file-buffer file-buffer-length stdin read-file drop file-buffer swap stdout write-file +bye +\ .free bye -- cgit v1.2.3