alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Better comments, terminal codes.

Browse Source
This commit is contained in:
Brad Nelson
2021-01-02 22:20:27 -08:00
parent 86d2fecbda
commit 278e05dbf8
2 changed files with 26 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
ueforth/common/boot.fs
View File

@ -100,8 +100,8 @@
: loop 1 aliteral postpone +loop ; immediate
( Constants and Variables )
: constant create , does> @ ;
: variable create 0 , ;
: constant ( n "name" -- ) create , does> @ ;
: variable ( "name" -- ) create 0 , ;
( Stack Convience )
sp@ constant sp0
@ -114,15 +114,15 @@ variable handler
: throw handler @ rp! r> handler ! r> swap >r sp! drop r> ;
' throw 'throw !
( Deferred Words )
: defer create 0 , does> @ execute ;
: is ' >body ! ;
( Values )
: value ( n -- ) create , does> @ ;
: to ( n -- ) state @ if postpone ['] postpone >body postpone !
else ' >body ! then ; immediate
( Deferred Words )
: defer ( "name" -- ) create 0 , does> @ execute ;
: is ( xt "name -- ) postpone to ; immediate
( Defer I/O to platform specific )
defer type
defer key

24
ueforth/posix/posix.fs
View File

@ -5,11 +5,10 @@
create calls
' call0 , ' call1 , ' call2 , ' call3 , ' call4 ,
' call5 , ' call6 , ' call7 , ' call8 , ' call9 ,
: sofunc ( z n a -- ) swap >r swap dlsym create , r> cells calls + @ ,
: sofunc ( z n a "name" -- ) swap >r swap dlsym create , r> cells calls + @ ,
does> dup @ swap cell+ @ execute ;
: sysfunc ( z n -- ) 0 sofunc ;
: shared-library ( z -- ) RTLD_NOW dlopen create ,
( z n -- ) does> @ sofunc ;
: sysfunc ( z n "name" -- ) 0 sofunc ;
: shared-library ( z "name" -- ) RTLD_NOW dlopen create , does> @ sofunc ;
( Major Syscalls )
z" close" 1 sysfunc close
@ -24,6 +23,22 @@ z" exit" 1 sysfunc sysexit
1 constant stdout
2 constant stderr
( Terminal handling )
: n. ( n -- ) base @ swap decimal <# #s #> type base ! ;
: esc 27 emit ;
: at-xy ( x y -- ) esc ." [" 1+ n. ." ;" 1+ n. ." H" ;
: page esc ." [2J" esc ." [H" ;
: normal esc ." [0m" ;
: fg ( n -- ) esc ." [38;5;" n. ." m" ;
: bg ( n -- ) esc ." [48;5;" n. ." m" ;
: clear-to-eol esc ." [0K" ;
: scroll-down esc ." D" ;
: scroll-up esc ." M" ;
: hide esc ." [?25l" ;
: show esc ." [?25h" ;
: terminal-save esc ." [?1049h" ;
: terminal-restore esc ." [?1049l" ;
( Hookup I/O )
: stdout-write ( a n -- ) stdout -rot write drop ;
' stdout-write is type
@ -31,3 +46,4 @@ z" exit" 1 sysfunc sysexit
' stdin-key is key
: posix-bye 0 sysexit ;
' posix-bye is bye