/[gcl]/gcl/o/unixfsys.c
ViewVC logotype

Diff of /gcl/o/unixfsys.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11 by camm, Mon Sep 23 22:18:07 2002 UTC revision 1.12 by camm, Sat Feb 15 00:38:28 2003 UTC
# Line 49  char dotdot[3*16+2] = "../../../../../.. Line 49  char dotdot[3*16+2] = "../../../../../..
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  {  {
# Line 250  coerce_to_filename(object pathname, char Line 250  coerce_to_filename(object pathname, char
250    
251    
252    
253  object  static object
254  truename(object pathname)  truename(object pathname)
255  {  {
256          register char *p, *q;          register char *p, *q;
# Line 258  truename(object pathname) Line 258  truename(object pathname)
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    
# Line 408  Lrename_file(void) Line 408  Lrename_file(void)
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;
# Line 431  DEFUN("SETENV",object,fSsetenv,SI,2,2,NO Line 430  DEFUN("SETENV",object,fSsetenv,SI,2,2,NO
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    
# Line 494  Lfile_author(void) Line 493  Lfile_author(void)
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  
# Line 757  Ldirectory() Line 756  Ldirectory()
756    
757  #endif  #endif
758    
759  void  static void
760  siLchdir(void)  siLchdir(void)
761  {  {
762          char filename[MAXPATHLEN];          char filename[MAXPATHLEN];

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26