mirror of
https://git.sr.ht/~crc_/retroforth
synced 2024-11-16 19:48:56 +01:00
add library stubs for openbsd: device (vm support coming soon)
FossilOrigin-Name: acfaa8caead4e0c4229bdf48180ad52cb99330da3f7dbd315477c59ad3a7792b
This commit is contained in:
parent
c4458d9afa
commit
44b9cd2193
3 changed files with 24 additions and 3 deletions
|
@ -46,13 +46,17 @@
|
||||||
- stack comments & descriptions are now part of the standard
|
- stack comments & descriptions are now part of the standard
|
||||||
system image
|
system image
|
||||||
- add `d:words-missing-details`
|
- add `d:words-missing-details`
|
||||||
- add `describe`
|
- add `add-description`
|
||||||
|
|
||||||
- library
|
- library
|
||||||
|
|
||||||
- added "tob", a text output buffer
|
- added "tob", a text output buffer
|
||||||
- added "c:get/ext", for reading keys and returning unique
|
- added "c:get/ext", for reading keys and returning unique
|
||||||
codes for arrows
|
codes for arrows
|
||||||
|
- added "openbsd", for interacting with an openbsd-specific
|
||||||
|
i/o extension
|
||||||
|
- adds "openbsd:pledge"
|
||||||
|
- adds "openbsd:unveil"
|
||||||
|
|
||||||
- retro-compiler
|
- retro-compiler
|
||||||
|
|
||||||
|
|
|
@ -3,9 +3,10 @@
|
||||||
d:lookup dup n:-zero? [ d:descr &s:keep dip store ] &drop-pair choose ;
|
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
|
'add_a_description_to_a_word 'd:set-description d:set-description
|
||||||
|
|
||||||
:describe (:s-)
|
:add-description (:s-)
|
||||||
s:keep d:last d:descr store ;
|
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
|
||||||
~~~
|
~~~
|
||||||
|
|
||||||
~~~
|
~~~
|
||||||
|
|
16
library/openbsd.retro
Normal file
16
library/openbsd.retro
Normal file
|
@ -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
|
||||||
|
~~~
|
Loading…
Reference in a new issue