/[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.13.6.1 by camm, Sun Sep 14 02:30:45 2003 UTC revision 1.13.6.2 by camm, Thu Nov 6 16:16:53 2003 UTC
# Line 371  file_len(FILE *fp) Line 371  file_len(FILE *fp)
371          else return 0;          else return 0;
372  }  }
373    
374  void  LFD(Ltruename)(void)
 Ltruename(void)  
375  {  {
376          check_arg(1);          check_arg(1);
377          check_type_or_pathname_string_symbol_stream(&vs_base[0]);          check_type_or_pathname_string_symbol_stream(&vs_base[0]);
378          vs_base[0] = truename(vs_base[0]);          vs_base[0] = truename(vs_base[0]);
379  }  }
380    
381  void  LFD(Lrename_file)(void)
 Lrename_file(void)  
382  {  {
383          char filename[MAXPATHLEN];          char filename[MAXPATHLEN];
384          char newfilename[MAXPATHLEN];          char newfilename[MAXPATHLEN];
# Line 444  DEFUNO_NEW("DELETE-FILE",object,fLdelete Line 442  DEFUNO_NEW("DELETE-FILE",object,fLdelete
442          path = Ct;          path = Ct;
443          RETURN1(path);          RETURN1(path);
444  }  }
445    #ifdef STATIC_FUNCTION_POINTERS
446    object
447    fLdelete_file(object path) {
448      return FFN(fLdelete_file)(path);
449    }
450    #endif
451    
452  void  LFD(Lprobe_file)(void)
 Lprobe_file(void)  
453  {  {
454          check_arg(1);          check_arg(1);
455    
# Line 457  Lprobe_file(void) Line 460  Lprobe_file(void)
460                  vs_base[0] = Cnil;                  vs_base[0] = Cnil;
461  }  }
462    
463  void  LFD(Lfile_write_date)(void)
 Lfile_write_date(void)  
464  {  {
465          char filename[MAXPATHLEN];          char filename[MAXPATHLEN];
466          struct stat filestatus;          struct stat filestatus;
# Line 470  Lfile_write_date(void) Line 472  Lfile_write_date(void)
472          vs_base[0] = unix_time_to_universal_time(filestatus.st_mtime);          vs_base[0] = unix_time_to_universal_time(filestatus.st_mtime);
473  }  }
474    
475  void  LFD(Lfile_author)(void)
 Lfile_author(void)  
476  {  {
477  #ifndef NO_PWD_H  #ifndef NO_PWD_H
478          char filename[MAXPATHLEN];          char filename[MAXPATHLEN];
# Line 494  Lfile_author(void) Line 495  Lfile_author(void)
495  }  }
496    
497  static void  static void
498  Luser_homedir_pathname(void)  FFN(Luser_homedir_pathname)(void)
499  {  {
500  #ifndef NO_PWD_H    #ifndef NO_PWD_H  
501          struct passwd *pwent;          struct passwd *pwent;
# Line 524  Luser_homedir_pathname(void) Line 525  Luser_homedir_pathname(void)
525    
526    
527  #ifdef BSD  #ifdef BSD
528  void  LFD(Ldirectory)(void)
 Ldirectory(void)  
529  {  {
530          char filename[MAXPATHLEN];          char filename[MAXPATHLEN];
531          char command[MAXPATHLEN * 2];          char command[MAXPATHLEN * 2];
# Line 577  L: Line 577  L:
577    
578    
579  #ifdef ATT  #ifdef ATT
580  void  LFD(Ldirectory)()
 Ldirectory()  
581  {  {
582          object name, type;          object name, type;
583          char filename[MAXPATHLEN];          char filename[MAXPATHLEN];
# Line 642  Ldirectory() Line 641  Ldirectory()
641    
642  #ifdef E15  #ifdef E15
643  #include <sys/dir.h>  #include <sys/dir.h>
644  void  
645  Ldirectory()  LFD(Ldirectory)()
646  {  {
647          object name, type;          object name, type;
648          char filename[MAXPATHLEN];          char filename[MAXPATHLEN];
# Line 757  Ldirectory() Line 756  Ldirectory()
756  #endif  #endif
757    
758  static void  static void
759  siLchdir(void)  FFN(siLchdir)(void)
760  {  {
761          char filename[MAXPATHLEN];          char filename[MAXPATHLEN];
762    

Legend:
Removed from v.1.13.6.1  
changed lines
  Added in v.1.13.6.2

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