From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Fri, 11 Jun 2021 10:10:43 +0000 (+1000)
Subject: an example
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=25605eb38f4421dce72b24a145fe83654c5fc1cc;p=rrq%2Frrqforth.git

an example
---

diff --git a/examples/sleep.f b/examples/sleep.f
new file mode 100755
index 0000000..b639a1b
--- /dev/null
+++ b/examples/sleep.f
@@ -0,0 +1,22 @@
+#!/home/ralph/src/devuan/rrqforth/rrqforth
+
+SYSTEM DEFINITIONS
+
+: sleep ( seconds -- )
+  0 SWAP 0 0           # set up 2 cell pairs for 2 "struct timespec"
+  2 D[n] 0 D[n]        # Pointers to them ( *req *rem )
+  SYS_NANOSLEEP DROP   # ignore return value
+  2DROP 2DROP          # cleanup
+;
+
+: DOTS ( n -- ; sleep n seconds with a dot every second )
+  BEGIN S" ." TELL 1 sleep 1 - DUP 0 > IFAGAIN SP EMIT END DROP ;
+
+: DIEIF ( n -- ; die if n is 0 )
+  0= IF S" ** not a number **" TELL NL EMIT 1 EXIT THEN ;
+
+# Read a number
+" Sleep seconds: " TELL STDIN READ-WORD NUMBER DIEIF
+" sleeping " TELL DOTS " done" TELL NL EMIT
+
+0 EXIT