From 6975cd610ac3a32050e337b04d3f8c3f492cd28b Mon Sep 17 00:00:00 2001
From: kitty <nepeta@canaglie.net>
Date: Wed, 22 Apr 2026 01:27:02 +1000
Subject: case stuff

one of the tests is broken. i'm not entirely sure what the issue is yet
---
 sanctuary.fs | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'sanctuary.fs')

diff --git a/sanctuary.fs b/sanctuary.fs
index 7d2c88d..ac71042 100644
--- a/sanctuary.fs
+++ b/sanctuary.fs
@@ -50,6 +50,12 @@
 : postpone  'h ( word ) dup immediate? if >body compile,
 	else >body [compile] literal ['] compile, compile, then ; immediate compile-only
 
+\ todo doc
+: case  0 ; immediate
+: of  postpone over postpone = postpone if postpone drop ; immediate
+: endof  postpone else ; immediate
+: endcase  postpone drop  begin ?dup while postpone then repeat ; immediate
+
 \ todo doc
 : recurse latest @ >body compile, ; immediate
 
@@ -594,6 +600,16 @@ decimal
 : words  get-order 0 ?do vlist loop ;
 \ }}}
 
+\ TERMINAL CONTROL {{{
+vocabulary terminal
+also terminal definitions
+
+60 constant termios#
+create termios termios# allot
+
+previous definitions
+\ }}}
+
 \ todo doc
 0 constant version
 : welcome  ." sanctuary: a 64 bit forth for linux, version " version u. cr ;
-- 
cgit v1.2.3