From 94aff4944b9c8ca059cc7ed44a7fc59ee0622295 Mon Sep 17 00:00:00 2001
From: Brad Nelson <flagxor@gmail.com>
Date: Sat, 6 Feb 2021 15:59:06 -0800
Subject: [PATCH] Hide posix internal words in a separate vocabulary.

---
 ueforth/common/testing.fs        |  2 ++
 ueforth/posix/posix.fs           | 35 ++++++++++++++++++++------------
 ueforth/posix/posix_highlevel.fs |  2 ++
 3 files changed, 26 insertions(+), 13 deletions(-)

diff --git a/ueforth/common/testing.fs b/ueforth/common/testing.fs
index 47774f3..5167677 100644
--- a/ueforth/common/testing.fs
+++ b/ueforth/common/testing.fs
@@ -60,7 +60,9 @@ variable tests-found   variable tests-run    variable tests-passed
    else
      ."   FAILED: " red tests-run @ tests-passed @ - . normal cr
    then hr ;
+posix
 : run-tests
    reset-test-counters ['] count-test for-tests
    ['] run-test for-tests show-test-results
    tests-passed @ tests-found @ <> sysexit ;
+forth
diff --git a/ueforth/posix/posix.fs b/ueforth/posix/posix.fs
index 79b2e83..660285a 100644
--- a/ueforth/posix/posix.fs
+++ b/ueforth/posix/posix.fs
@@ -1,3 +1,5 @@
+vocabulary posix   posix definitions
+
 ( Shared Library Handling )
 1 constant RTLD_LAZY
 2 constant RTLD_NOW
@@ -81,11 +83,29 @@ decimal
 ( I/O Error Helpers )
 : d0<ior ( n -- n ior ) dup 0< if errno else 0 then ;
 
+( errno.h )
+11 constant EAGAIN
+
+( Signal Handling )
+0 constant SIG_DFL
+1 constant SIG_IGN
+( Signals )
+1 constant SIGHUP
+2 constant SIGINT
+9 constant SIGKILL
+10 constant SIGPIPE
+7 constant SIGBUS
+
+( Modes )
+octal 777 constant 0777 decimal
+
+forth definitions posix
+
 ( Generic Files )
 O_RDONLY constant r/o
 O_WRONLY constant w/o
 O_RDWR constant r/w
-octal 777 constant 0777 decimal
+
 : open-file ( a n fam -- fh ior ) >r s>z r> 0777 open sign-extend d0<ior ;
 : create-file ( a n fam -- fh ior )
    >r s>z r> O_CREAT or 0777 open sign-extend d0<ior ;
@@ -106,15 +126,4 @@ octal 777 constant 0777 decimal
 ( Other Utils )
 : ms ( n -- ) 1000 * usleep drop ;
 
-( errno.h )
-11 constant EAGAIN
-
-( Signal Handling )
-0 constant SIG_DFL
-1 constant SIG_IGN
-( Signals )
-1 constant SIGHUP
-2 constant SIGINT
-9 constant SIGKILL
-10 constant SIGPIPE
-7 constant SIGBUS
+forth
diff --git a/ueforth/posix/posix_highlevel.fs b/ueforth/posix/posix_highlevel.fs
index a47de85..fc3d6dc 100644
--- a/ueforth/posix/posix_highlevel.fs
+++ b/ueforth/posix/posix_highlevel.fs
@@ -1,5 +1,7 @@
 ( Words with OS assist )
+posix
 : allocate ( n -- a ior ) malloc dup 0= ;
 : free ( a -- ior ) sysfree drop 0 ;
 : resize ( a n -- a ior ) realloc dup 0= ;
+forth