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

Add directory bindings.

Browse Source
This commit is contained in:
Brad Nelson
2021-02-20 21:23:11 -08:00
parent aa92746992
commit 341046b9ce
1 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
ueforth/posix/posix.fs
View File

@ -41,6 +41,15 @@ z" realloc" 2 sysfunc realloc
z" usleep" 1 sysfunc usleep z" usleep" 1 sysfunc usleep
z" signal" 2 sysfunc signal z" signal" 2 sysfunc signal
( Directories )
z" mkdir" 2 sysfunc mkdir
z" rmdir" 1 sysfunc rmdir
z" opendir" 1 sysfunc opendir
z" closedir" 1 sysfunc closedir
z" readdir" 1 sysfunc readdir
: .d_type ( a -- n ) 18 + c@ ;
: .d_name ( a -- z ) 19 + ;
( Errno ) ( Errno )
z" __errno_location" 0 sysfunc __errno_location z" __errno_location" 0 sysfunc __errno_location
: errno ( -- n ) __errno_location l@ ; : errno ( -- n ) __errno_location l@ ;