wheeee

1 files changed, 51 insertions, 9 deletions

diff --git a/sanctuary.fs b/sanctuary.fs
index c420890..15d5a0e 100644
--- a/sanctuary.fs
+++ b/sanctuary.fs
@@ -56,6 +56,14 @@
 0 constant false
 -1 constant true
 
+hex
+\ really i should just change the builtins to work with defer
+: hijacks  ' ( word ) here >r dp ! ( temporarily set dp so we can use , )
+	49 c, bb c, ( xt ) , \ mov r11, xt
+	41 c, ff c, e3 c, \ jmp r11
+	r> dp ! ;
+decimal
+
 : cmove,  dup >r  here swap cmove  r> allot ;
 : s"  [ char " ] literal parse ( a u )
 	branch >mark >r 2dup cmove, nip  ( u ) ( R: mark )
@@ -68,17 +76,51 @@
 : zstrlen  dup begin dup c@ 0<> while 1+ repeat swap - ;
 : s>z  here -rot cmove, 0 c, ;
 
-1 constant stdout
-2 constant stderr
+\ PRIVATISATION AND HIDING {{{
+\ maybe i add locals later, implementation may be complex though. this isn't.
+\ privatise just loops through words from the start of privatisation
+\ to the end and activates the smudge bit on all of them.
+\ privatisation yoinked from pforth
+
+: (hide)  cell+ dup c@ 1 or swap c! ;
+: hide  parse-name ?find (hide) ;
+
+variable private0  variable private$
 
-: type  swap stdout 1 syscall3 ;
-: emit  sp 1 swap stdout 1 syscall3 2drop ;
+: private{  latest @ private0 ! ;
+: }private  latest @ private$ ! ;
+: privatise  private0 @ 0= private$ @ 0= or if abort then
+	private$ @
+	begin dup private0 @ u> while
+	dup (hide) @ ( → next ht ) repeat drop
+	0 private0 ! 0 private$ ! ;
+\ }}}
 
+\ MMAP {{{
+\ MMAP CONSTANTS {{{
 hex
-\ really i should just change the builtins to work with defer
-: hijacks  ' ( word ) here >r dp ! ( temporarily set dp so we can use , )
-	49 c, bb c, ( xt ) , \ mov r11, xt
-	41 c, ff c, e3 c, \ jmp r11
-	r> dp ! ;
+\ prot
+0 constant PROT_NONE  1 constant PROT_READ  2 constant PROT_WRITE  4 constant PROT_EXEC
+\ flags
+1 constant MAP_SHARED  2 constant MAP_PRIVATE  3 constant MAP_SHARED_VALIDATE
+10 constant MAP_FIXED  20 constant MAP_ANONYMOUS  100 constant MAP_GROWSDOWN
 decimal
+\ }}}
+
+: mmap  9 syscall6 ;
+: munmap  11 syscall2 ;
+\ }}}
+
+\ I/O {{{
+0 constant stdin
+1 constant stdout
+2 constant stderr
+
+: sys-write  0 syscall3 ;
+: sys-read  1 syscall3 ;
+
+: type  swap stdout 1 syscall3 drop ;
+: emit  sp 1 type drop ;
+\ }}}
+
 bye