Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-13 07:57:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

moving file-exists? to (chibi filesystem)

Browse source
This commit is contained in:
Alex Shinn 2009-12-27 00:45:28 +09:00
parent 23411056c2
commit 3c2615e2a7
5 changed files with 3 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
eval.c
View file

@ -2038,15 +2038,6 @@ static sexp sexp_close_port (sexp ctx, sexp port) {
return SEXP_VOID; return SEXP_VOID;
} }
#ifndef PLAN9
static sexp sexp_file_exists_p (sexp ctx, sexp path) {
struct stat buf;
if (! sexp_stringp(path))
return sexp_type_exception(ctx, "not a string", path);
return (stat(sexp_string_data(path), &buf) ? SEXP_FALSE : SEXP_TRUE);
}
#endif
void sexp_warn_undefs (sexp ctx, sexp from, sexp to, sexp out) { void sexp_warn_undefs (sexp ctx, sexp from, sexp to, sexp out) {
sexp x; sexp x;
for (x=from; sexp_pairp(x) && x!=to; x=sexp_cdr(x)) for (x=from; sexp_pairp(x) && x!=to; x=sexp_cdr(x))

2
lib/chibi/filesystem.module
View file

@ -14,7 +14,7 @@
file-access-time file-modification-time file-change-time file-access-time file-modification-time file-change-time
file-regular? file-directory? file-character? file-regular? file-directory? file-character?
file-block? file-fifo? file-link? file-block? file-fifo? file-link?
file-socket? file-socket? file-exists?
get-file-descriptor-flags set-file-descriptor-flags! get-file-descriptor-flags set-file-descriptor-flags!
get-file-descriptor-status set-file-descriptor-status! get-file-descriptor-status set-file-descriptor-status!
open/read open/write open/read-write open/read open/write open/read-write

1
lib/chibi/filesystem.scm
View file

@ -37,3 +37,4 @@
(define (file-link? x) (S_ISLNK (file-mode x))) (define (file-link? x) (S_ISLNK (file-mode x)))
(define (file-socket? x) (S_ISSOCK (file-mode x))) (define (file-socket? x) (S_ISSOCK (file-mode x)))
(define (file-exists? x) (and (file-status file) #t))

1
opcodes.c
View file

@ -142,7 +142,6 @@ _FN2OPTP(SEXP_PROCEDURE, SEXP_OPORT, "disasm", (sexp)"*current-error-port*", sex
#if PLAN9 #if PLAN9
#include "opt/plan9-opcodes.c" #include "opt/plan9-opcodes.c"
#endif #endif
_FN1(SEXP_STRING, "file-exists?", 0, sexp_file_exists_p),
#if SEXP_USE_MODULES #if SEXP_USE_MODULES
_FN1(SEXP_ENV, "env-exports", 0, sexp_env_exports), _FN1(SEXP_ENV, "env-exports", 0, sexp_env_exports),
_FN1(SEXP_STRING, "find-module-file", 0, sexp_find_module_file_op), _FN1(SEXP_STRING, "find-module-file", 0, sexp_find_module_file_op),

1
opt/plan9-opcodes.c
View file

@ -16,3 +16,4 @@ _FN1(SEXP_STRING, "change-directory", 0, sexp_chdir),
_FN0("wait", 0, sexp_wait), _FN0("wait", 0, sexp_wait),
_FN2(SEXP_FIXNUM, SEXP_STRING, "post-note", 0, sexp_postnote), _FN2(SEXP_FIXNUM, SEXP_STRING, "post-note", 0, sexp_postnote),
_FN4(SEXP_PAIR, SEXP_STRING, "%postmountsrv", 0, sexp_postmountsrv), _FN4(SEXP_PAIR, SEXP_STRING, "%postmountsrv", 0, sexp_postmountsrv),
_FN1(SEXP_STRING, "file-exists?", 0, sexp_file_exists_p),