49 |
static char *getwd_buf; |
static char *getwd_buf; |
50 |
static int getwd_bufp; |
static int getwd_bufp; |
51 |
|
|
52 |
char * |
static char * |
53 |
getwd(buffer) |
getwd(buffer) |
54 |
char *buffer; |
char *buffer; |
55 |
{ |
{ |
250 |
|
|
251 |
|
|
252 |
|
|
253 |
object |
static object |
254 |
truename(object pathname) |
truename(object pathname) |
255 |
{ |
{ |
256 |
register char *p, *q; |
register char *p, *q; |
258 |
char truefilename[MAXPATHLEN]; |
char truefilename[MAXPATHLEN]; |
259 |
char current_directory[MAXPATHLEN]; |
char current_directory[MAXPATHLEN]; |
260 |
char directory[MAXPATHLEN]; |
char directory[MAXPATHLEN]; |
261 |
char *getwd(char *buffer); |
static char *getwd(char *buffer); |
262 |
coerce_to_filename(pathname, filename); |
coerce_to_filename(pathname, filename); |
263 |
|
|
264 |
|
|
408 |
} |
} |
409 |
|
|
410 |
|
|
411 |
DEFUN("SETENV",object,fSsetenv,SI,2,2,NONE,OO,OO,OO,OO,"Set environment VARIABLE to VALUE")(variable,value) |
DEFUN_NEW("SETENV",object,fSsetenv,SI,2,2,NONE,OO,OO,OO,OO,(object variable,object value),"Set environment VARIABLE to VALUE") |
412 |
object variable; |
|
|
object value; |
|
413 |
{ |
{ |
414 |
|
|
415 |
int res = -1; |
int res = -1; |
430 |
RETURN1((res == 0 ? Ct : Cnil )); |
RETURN1((res == 0 ? Ct : Cnil )); |
431 |
} |
} |
432 |
|
|
433 |
DEFUNO("DELETE-FILE",object,fLdelete_file,LISP |
DEFUNO_NEW("DELETE-FILE",object,fLdelete_file,LISP |
434 |
,1,1,NONE,OO,OO,OO,OO,Ldelete_file,"")(path) |
,1,1,NONE,OO,OO,OO,OO,void,Ldelete_file,(object path),"") |
435 |
object path; |
|
436 |
{ |
{ |
437 |
char filename[MAXPATHLEN]; |
char filename[MAXPATHLEN]; |
438 |
|
|
493 |
|
|
494 |
} |
} |
495 |
|
|
496 |
void |
static void |
497 |
Luser_homedir_pathname(void) |
Luser_homedir_pathname(void) |
498 |
{ |
{ |
499 |
#ifndef NO_PWD_H |
#ifndef NO_PWD_H |
756 |
|
|
757 |
#endif |
#endif |
758 |
|
|
759 |
void |
static void |
760 |
siLchdir(void) |
siLchdir(void) |
761 |
{ |
{ |
762 |
char filename[MAXPATHLEN]; |
char filename[MAXPATHLEN]; |