conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* marked env and environ procedures busted.

This commit is contained in:
Abdulaziz Ghuloum 2007-05-18 22:26:22 -04:00
parent e499eb0f5a
commit 027d50e84a
4 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
bin/ikarus
View File

Binary file not shown.

6
bin/ikarus-runtime.c
View File

@ -965,6 +965,8 @@ ikrt_waitpid(ikp pid){
ikp ikp
ikrt_getenv(ikp str, ikpcb* pcb){ ikrt_getenv(ikp str, ikpcb* pcb){
fprintf(stderr, "getenv busted!\n");
exit(-1);
char* v = getenv(string_data(str)); char* v = getenv(string_data(str));
if(v){ if(v){
int n = strlen(v); int n = strlen(v);
@ -983,6 +985,8 @@ ikrt_getenv(ikp str, ikpcb* pcb){
ikp ikp
ikrt_setenv(ikp key, ikp val, ikp overwrite){ ikrt_setenv(ikp key, ikp val, ikp overwrite){
fprintf(stderr, "setenv busted!\n");
exit(-1);
int err = setenv(string_data(key), string_data(val), int err = setenv(string_data(key), string_data(val),
overwrite!=false_object); overwrite!=false_object);
if(err){ if(err){
@ -995,6 +999,8 @@ ikrt_setenv(ikp key, ikp val, ikp overwrite){
ikp ikp
ikrt_environ(ikpcb* pcb){ ikrt_environ(ikpcb* pcb){
fprintf(stderr, "environ busted!\n");
exit(-1);
char** es = environ; char** es = environ;
int i; char* e; int i; char* e;
ikp ac = null_object; ikp ac = null_object;

BIN
src/ikarus.boot
View File

Binary file not shown.

7
src/ikarus.posix.ss
View File

@ -96,9 +96,12 @@
(error 'env "failed to set ~s to ~s" key val)) (error 'env "failed to set ~s to ~s" key val))
(error 'env "the value: ~s is not a string" val)) (error 'env "the value: ~s is not a string" val))
(error 'env "the key: ~s is not a string" key))])) (error 'env "the key: ~s is not a string" key))]))
env)) (define busted (lambda args (error 'env "busted!")))
busted))
(define environ
(define environ (lambda args (error 'environ "busted!")))
(define environ^
(lambda () (lambda ()
(map (map
(lambda (s) (lambda (s)