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

Fix create-file to truncate file.

Browse Source
This commit is contained in:
Brad Nelson
2024-03-03 00:49:24 -08:00
parent 65eb318f2c
commit 5619997682
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
posix/posix.fs
View File

@ -104,7 +104,8 @@ octal
1 constant O_WRONLY 1 constant O_WRONLY
2 constant O_RDWR 2 constant O_RDWR
100 constant O_CREAT 100 constant O_CREAT
200 constant O_TRUNC 200 constant O_EXCL
1000 constant O_TRUNC
2000 constant O_APPEND 2000 constant O_APPEND
4000 constant O_NONBLOCK 4000 constant O_NONBLOCK
decimal decimal
@ -179,7 +180,7 @@ O_RDWR constant R/W
: FLUSH-FILE ( fh -- ior ) fsync 0<ior ; : FLUSH-FILE ( fh -- ior ) fsync 0<ior ;
: OPEN-FILE ( a n fam -- fh ior ) >r s>z r> 0777 open sign-extend d0<ior ; : OPEN-FILE ( a n fam -- fh ior ) >r s>z r> 0777 open sign-extend d0<ior ;
: CREATE-FILE ( a n fam -- fh ior ) : CREATE-FILE ( a n fam -- fh ior )
>r s>z r> O_CREAT or 0777 open sign-extend d0<ior ; >r s>z r> O_CREAT O_TRUNC or or 0777 open sign-extend d0<ior ;
: DELETE-FILE ( a n -- ior ) s>z unlink 0<ior ; : DELETE-FILE ( a n -- ior ) s>z unlink 0<ior ;
: RENAME-FILE ( a n a n -- ior ) s>z -rot s>z swap rename 0<ior ; : RENAME-FILE ( a n a n -- ior ) s>z -rot s>z swap rename 0<ior ;
: WRITE-FILE ( a n fh -- ior ) -rot dup >r write r> = 0=ior ; : WRITE-FILE ( a n fh -- ior ) -rot dup >r write r> = 0=ior ;