factor/native/unix/file.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());
}