add library stubs for openbsd: device (vm support coming soon)

FossilOrigin-Name: acfaa8caead4e0c4229bdf48180ad52cb99330da3f7dbd315477c59ad3a7792b

Configuration.mk

@@ -2,8 +2,8 @@
 
 # These are used when building and signing a release.
 
-VERSION ?= 2024.9
+VERSION ?= 2024.10
-KEYPAIR ?= 2024-09
+KEYPAIR ?= 2024-10
 
 # -------------------------------------------------------------
 

RELEASE-NOTES

@@ -4,7 +4,7 @@
       | | |  __/ |_| | | (_) |  _| (_) | |  | |_| | | |
       |_|  \___|\__|_|  \___/|_|  \___/|_|   \__|_| |_|
 
-            RetroForth & nga 2024.9 Release Notes
+           RetroForth & nga 2024.10 Release Notes
 
 ================================================================
 
@@ -46,13 +46,17 @@
   - stack comments & descriptions are now part of the standard
     system image
   - add `d:words-missing-details`
-  - add `describe`
+  - add `add-description`
 
 - library
 
   - added "tob", a text output buffer
   - added "c:get/ext", for reading keys and returning unique
     codes for arrows
+  - added "openbsd", for interacting with an openbsd-specific
+    i/o extension
+    - adds "openbsd:pledge"
+    - adds "openbsd:unveil"
 
 - retro-compiler
 

image/build.retro

@@ -1,3 +1,3 @@
 ~~~
-#2 'BUILD const
+#3 'BUILD const
 ~~~

image/retro.muri

@@ -1,4 +1,4 @@
-# RETRO Core 2024.9
+# RETRO Core 2024.10
 
 RETRO Core is  a minimal Forth implementation for the Nga
 virtual machine. Like Nga this is intended to be used within
@@ -149,7 +149,7 @@ r 9999
 d 2048
 
 : Version
-d 202409
+d 202410
 
 : references
 r interpret

interface/descriptions.retro

@@ -3,9 +3,10 @@
   d:lookup dup n:-zero? [ d:descr &s:keep dip store ] &drop-pair choose ;
 'add_a_description_to_a_word 'd:set-description d:set-description
 
-:describe (:s-)
+:add-description (:s-)
   s:keep d:last d:descr store ;
-  'add_a_description_for_the_most_recently_defined_word describe
+  'add_a_description_for_the_most_recently_defined_word
+  add-description
 ~~~
 
 ~~~

library/openbsd.retro

@@ -0,0 +1,16 @@
+Extensions relating to OpenBSD-specific functionality
+
+~~~
+:io:openbsd (:...n-)
+  ;
+'For_use_on_OpenBSD_only:_invoke_host_specific_functionality.
+add-description
+
+:openbsd:pledge (:s-) ;
+'For_use_on_OpenBSD_only:_invoke_pledge()_with_the_provided_string.
+add-description
+
+:openbsd:unveil (:s-) ;
+'For_use_on_OpenBSD_only:_invoke_unveil()_with_the_provided_string._A_pointer_to_0_can_also_be_passed.
+add-description
+~~~

vm/nga-c/image.c

@@ -11,7 +11,7 @@
 #endif
 #endif
 CELL ngaImageCells = 69641;
-CELL ngaImage[] = { 1793,13735,69587,69640,202409,439,411,1601,2048,0,13789,0,10,1,10,2,10,3,10,
+CELL ngaImage[] = { 1793,13735,69587,69640,202410,439,411,1601,2048,0,13789,0,10,1,10,2,10,3,10,
                        4,10,5,10,6,10,7,10,8,10,11,10,12,10,13,10,14,10,15,10,
                        16,10,17,10,18,10,19,10,20,10,21,10,22,10,23,10,24,10,25,68223234,
                        1,2575,85000450,1,656912,163,180,268505089,65,64,285281281,0,65,2063,10,101384453,0,9,10,68485378,
@@ -701,7 +701,7 @@ CELL ngaImage[] = { 1793,13735,69587,69640,202409,439,411,1601,2048,0,13789,0,10
                        2049,13547,1,13737,7,10,13719,13770,156,16941,-213800119713087686,15978,200,200,41165,100,58,72,97,115,
                        104,45,70,117,110,99,116,105,111,110,0,5994,13745,13789,168,16941,7572226109254526,16027,200,200,
                        42525,100,58,114,101,104,97,115,104,0,1793,13807,1793,13799,2049,198,3841,13770,8,10,
-                       1,13793,2049,2905,2049,188,16,10,1,13791,2049,10176,10,13771,2,156,16927,210668957237,15479,200,
+                       1,13793,2049,2905,2049,188,16,10,1,13791,2049,10176,10,13771,3,156,16927,210668957237,15479,200,
                        200,30338,66,85,73,76,68,0,13812,13842,168,14399,210709067314,15939,200,200,39890,99,111,109,
                        109,97,0,2049,130,10,13827,13859,168,14399,6385123288,15956,200,200,40386,99,111,110,115,0,
                        2049,2585,1793,13869,4,2049,13842,2049,13842,10,1,13863,2049,2889,10,13845,13887,168,14399,193488123,