101 lines
1.6 KiB
C
101 lines
1.6 KiB
C
#include "../factor.h"
|
|
|
|
void primitive_open_file(void)
|
|
{
|
|
bool write = unbox_boolean();
|
|
bool read = unbox_boolean();
|
|
|
|
char* path;
|
|
int mode, fd;
|
|
|
|
maybe_garbage_collection();
|
|
|
|
path = unbox_c_string();
|
|
|
|
if(read && write)
|
|
mode = O_RDWR | O_CREAT;
|
|
else if(read)
|
|
mode = O_RDONLY;
|
|
else if(write)
|
|
mode = O_WRONLY | O_CREAT | O_TRUNC;
|
|
else
|
|
mode = 0;
|
|
|
|
fd = open(path,mode,FILE_MODE);
|
|
if(fd < 0)
|
|
io_error(__FUNCTION__);
|
|
|
|
dpush(read ? tag_object(port(PORT_READ,fd)) : F);
|
|
dpush(write ? tag_object(port(PORT_WRITE,fd)) : F);
|
|
}
|
|
|
|
void primitive_stat(void)
|
|
{
|
|
struct stat sb;
|
|
F_STRING* path;
|
|
|
|
maybe_garbage_collection();
|
|
|
|
path = untag_string(dpop());
|
|
if(stat(to_c_string(path),&sb) < 0)
|
|
dpush(F);
|
|
else
|
|
{
|
|
CELL dirp = tag_boolean(S_ISDIR(sb.st_mode));
|
|
CELL mode = tag_fixnum(sb.st_mode & ~S_IFMT);
|
|
CELL size = tag_object(s48_long_long_to_bignum(sb.st_size));
|
|
CELL mtime = tag_integer(sb.st_mtime);
|
|
dpush(cons(
|
|
dirp,
|
|
cons(
|
|
mode,
|
|
cons(
|
|
size,
|
|
cons(
|
|
mtime,F)))));
|
|
}
|
|
}
|
|
|
|
void primitive_read_dir(void)
|
|
{
|
|
F_STRING* path;
|
|
DIR* dir;
|
|
CELL result = F;
|
|
|
|
maybe_garbage_collection();
|
|
|
|
path = untag_string(dpop());
|
|
dir = opendir(to_c_string(path));
|
|
if(dir != NULL)
|
|
{
|
|
struct dirent* file;
|
|
|
|
while((file = readdir(dir)) != NULL)
|
|
{
|
|
CELL name = tag_object(from_c_string(
|
|
file->d_name));
|
|
result = cons(name,result);
|
|
}
|
|
|
|
closedir(dir);
|
|
}
|
|
|
|
dpush(result);
|
|
}
|
|
|
|
void primitive_cwd(void)
|
|
{
|
|
char wd[MAXPATHLEN];
|
|
maybe_garbage_collection();
|
|
if(getcwd(wd,MAXPATHLEN) < 0)
|
|
io_error(__FUNCTION__);
|
|
box_c_string(wd);
|
|
}
|
|
|
|
void primitive_cd(void)
|
|
{
|
|
maybe_garbage_collection();
|
|
chdir(unbox_c_string());
|
|
}
|
|
|