Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-26 21:58:42 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

WIP Buffered File I/O

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-06 06:07:08 +09:00
parent 4d9365ad31
commit ef3e15a3ca
3 changed files with 43 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
bootstrap.fs
View file

@ -2141,6 +2141,21 @@ need-defined allocate
then then
; ;
( === Buffered File I/O === )
1024 constant BUFSIZE
struct
file% field file>head
cell% field file>rbuf
cell% field file>rbeg
cell% field file>rend
cell% field file>wbuf
cell% field file>wbeg
cell% field file>wend
end-struct bufferedfile%
( === open/close === ) ( === open/close === )
need-defined (open-file) need-defined (open-file)
@ -2150,12 +2165,22 @@ need-defined (read-file)
: open-file ( c-addr fam -- file e ) : open-file ( c-addr fam -- file e )
2dup (open-file) throw 2dup (open-file) throw
file% %allot file% %allocate throw
tuck file>obj ! tuck file>obj !
tuck file>fam ! tuck file>fam !
tuck file>name ! tuck file>name !
['] (read-file) over file>read-file ! ['] (read-file) over file>read-file !
['] (write-file) over file>write-file ! ['] (write-file) over file>write-file !
dup file>fam @ W/O <> if
BUFSIZE allocate throw over file>wbuf !
0 over file>rbeg !
BUFSIZE over file>rend !
then
dup file>fam @ R/O <> if
BUFSIZE allocate throw over file>wbuf !
0 over file>wbeg !
BUFSIZE over file>wend !
then
success success
; ;

8
others/planck.c
View file

@ -160,6 +160,7 @@ defbinary("=", eq, ==, intptr_t)
/* File IO */ /* File IO */
#define SUCCESS 0 #define SUCCESS 0
#define ALLOCATE_ERROR -59
#define CLOSE_FILE_ERROR -62 #define CLOSE_FILE_ERROR -62
#define OPEN_FILE_ERROR -69 #define OPEN_FILE_ERROR -69
#define READ_FILE_ERROR -70 #define READ_FILE_ERROR -70
@ -195,5 +196,12 @@ defcode("(write-file)", writefile) {
push((r == size) ? SUCCESS : WRITE_FILE_ERROR); push((r == size) ? SUCCESS : WRITE_FILE_ERROR);
next(); next();
} }
defcode("allocate", allocate) {
int size = pop();
void *p = malloc(size);
push((cell) p);
push(p ? SUCCESS : ALLOCATE_ERROR);
next();
}
#endif #endif

9
others/planck.py
View file

@ -219,6 +219,7 @@ def argv():
add_simple_operator('v', argv) add_simple_operator('v', argv)
SUCCESS = 0 SUCCESS = 0
ALLOCATE_ERROR = -59
CLOSE_FILE_ERROR = -62 CLOSE_FILE_ERROR = -62
OPEN_FILE_ERROR = -69 OPEN_FILE_ERROR = -69
READ_FILE_ERROR = -70 READ_FILE_ERROR = -70
@ -251,6 +252,14 @@ add_simple_operator('(open-file)', openfile)
add_simple_operator('(close-file)', closefile) add_simple_operator('(close-file)', closefile)
add_simple_operator('(write-file)', writefile) add_simple_operator('(write-file)', writefile)
add_simple_operator('(read-file)', readfile) add_simple_operator('(read-file)', readfile)
def allocate():
size = pop()
n = (size + 4 - 1) // 4
addr = len(memory)*4
mem.extend([0]*n)
push(addr)
push(SUCCESS)
add_simple_operator('allocate', allocate)
start = read(HERE_CELL) start = read(HERE_CELL)
comma(find('k')) comma(find('k'))