home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OS9000 / APPS / rcs.lzh / rcs1 / stat.c < prev    next >
Text File  |  1996-04-22  |  5KB  |  206 lines
  1. static char RCSid[]="$Id: stat.c_v 1.3 96/04/23 02:08:22 hiro Exp $";
  2. /************************************************************
  3. * (C) Copyright 1995
  4. * ARK Systems USA
  5. * All rights reserved.
  6. *
  7. * stat() and fstat() standard libraries
  8. * 
  9. * $Date: 96/04/23 02:08:22 $
  10. * $Revision: 1.3 $
  11. * 
  12. * $Log:    stat.c_v $
  13.  * Revision 1.3  96/04/23  02:08:22  hiro
  14.  * Ported back to OS-9.
  15.  * 
  16.  * Revision 1.2  96/04/07  00:06:12  hiro
  17.  * Ported to OS-9000.
  18.  * 
  19. ************************************************************/
  20.  
  21. #include    <modes.h>
  22. #include    <rbf.h>
  23. #ifdef _OS9000
  24. #include    <sys/common.h>
  25. #include    <sys/unix.h>
  26. #define        fildes    fd_stats
  27. #define        fd_att    fd_flag
  28. #define        fd_link    fd_links
  29. #else
  30. #include    <direct.h>
  31. #define    bzero(b, s)    memset((b),0,(s))
  32. #endif
  33. #include    <stdio.h>
  34. #include    <errno.h>
  35. #include    <sgstat.h>
  36. #include    <sg_codes.h>
  37. #include    "stat.h"
  38.  
  39. #ifndef DT_SCF
  40. #include    <io.h>
  41. #endif
  42.  
  43. #ifndef S_IFREG
  44. #define S_IFREG    0
  45. #define S_IFCHR    0
  46. #define S_IFIFO    0
  47. #endif
  48.  
  49. /*
  50.  * Unix stat()
  51.  */
  52. int    stat( pathname, sbuf)
  53. char    *pathname;
  54. struct    stat    *sbuf;
  55. {
  56. int    path, err;
  57.  
  58.     if ((path = open(pathname,S_IREAD)) == -1) return -1;
  59.     err = fstat(path, sbuf);
  60.     close(path);
  61.     return err;
  62. }
  63.  
  64. /*
  65.  * Unix fstat()
  66.  */
  67. int    fstat( path, sbuf)
  68. int     path;
  69. struct    stat    *sbuf;
  70. {
  71. struct    fildes    fd;
  72. struct    sgbuf    opt;
  73. #ifdef _OS9000
  74. int err;
  75. u_int32 in;
  76. process_id pid;
  77. u_int16 priority, age, group, user;
  78. int32 schedule;
  79. owner_id oid;
  80. #endif
  81.  
  82.     bzero(sbuf, sizeof(*sbuf));
  83.     if( _gs_opt( path, &opt, sizeof(opt) ) < 0 )
  84.         return(-1);
  85. #ifdef _OS9000
  86.     if ((errno = _os_gs_fd(path, sizeof(fd), &fd)) != 0)
  87.         return -1;
  88.     sbuf->st_gid    = fd.fd_group;
  89.     sbuf->st_uid    = fd.fd_owner;
  90.     sbuf->st_ctime    = fd.fd_ctime;
  91.     sbuf->st_atime    = fd.fd_atime;
  92.     sbuf->st_mtime    = fd.fd_mtime;
  93.     /* Word around OS-90000's stupid protection against _os_gs_fdaddr */
  94.     _os_id(&pid, &priority, &age, &schedule, &group, &user);
  95.     oid.grp_usr.grp    = 0;
  96.     oid.grp_usr.usr    = 0;
  97.     _os_setuid(oid);
  98.     _os_gs_fdaddr(path, &in);
  99.     oid.grp_usr.grp    = group;
  100.     oid.grp_usr.usr    = user;
  101.     _os_setuid(oid);
  102.     sbuf->st_size    = fd.fd_size;
  103.     sbuf->st_ino    = in;
  104.     sbuf->st_dev    = opt.sg_drive;
  105.     sbuf->st_rdev    = 0;
  106.     if (fd.fd_att & S_IREAD)    sbuf->st_mode |= S_IRUSR;
  107.     if (fd.fd_att & S_IWRITE)    sbuf->st_mode |= S_IWUSR;
  108.     if (fd.fd_att & S_IEXEC)    sbuf->st_mode |= S_IXUSR;
  109.     if (fd.fd_att & S_IGREAD)    sbuf->st_mode |= S_IRGRP;
  110.     if (fd.fd_att & S_IGWRITE)    sbuf->st_mode |= S_IWGRP;
  111.     if (fd.fd_att & S_IGEXEC)    sbuf->st_mode |= S_IXGRP;
  112. #else
  113.     if (_gs_gfd(path, &fd, sizeof(fd)) < 0)
  114.         return -1;
  115.     sbuf->st_gid = (u_char) fd.fd_own[0];
  116.     sbuf->st_uid = (u_char) fd.fd_own[1];
  117.     {
  118.     struct    tm tbuf;
  119.         tbuf.tm_sec        = 0;
  120.         tbuf.tm_min        = fd.fd_date[4];
  121.         tbuf.tm_hour    = fd.fd_date[3];
  122.         tbuf.tm_mday    = fd.fd_date[2];
  123.         tbuf.tm_mon        = fd.fd_date[1]-1;
  124.         tbuf.tm_year    = fd.fd_date[0];
  125.         sbuf->st_mtime    = sbuf->st_atime = mktime(&tbuf);
  126.         tbuf.tm_sec        = tbuf.tm_min = tbuf.tm_hour= 0;
  127.         tbuf.tm_mday    = (int)fd.fd_dcr[2];
  128.         tbuf.tm_mon        = (int)fd.fd_dcr[1]-1;
  129.         tbuf.tm_year    = (int)fd.fd_dcr[0];
  130.         sbuf->st_ctime    = mktime(&tbuf);
  131.     }
  132.     memcpy( &sbuf->st_size, fd.fd_fsize, sizeof(time_t));
  133.     sbuf->st_dev    = opt.sg_dvt - _getsys(D_DevTbl, sizeof(void*))
  134.                         + opt.sg_drive;
  135.     sbuf->st_ino    = opt.sg_fdpsn;
  136.     sbuf->st_rdev    = 0;
  137.     if (fd.fd_att & S_IREAD)    sbuf->st_mode |= S_IRUSR;
  138.     if (fd.fd_att & S_IWRITE)    sbuf->st_mode |= S_IWUSR;
  139.     if (fd.fd_att & S_IEXEC)    sbuf->st_mode |= S_IXUSR;
  140. #endif
  141.     if (fd.fd_att & S_IOREAD)    sbuf->st_mode |= S_IROTH;
  142.     if (fd.fd_att & S_IOWRITE)    sbuf->st_mode |= S_IWOTH;
  143.     if (fd.fd_att & S_IOEXEC)    sbuf->st_mode |= S_IXOTH;
  144.     sbuf->st_mode    |= filetype(path, &fd);
  145.     sbuf->st_nlink    = (short)fd.fd_link;
  146.     return(0);
  147. }
  148.  
  149. static filetype(path, fd)
  150. int        path;
  151. struct    fildes    *fd;
  152. {
  153. struct    sgbuf    s;
  154.  
  155.     if (fd == NULL )
  156.     {
  157.         _gs_opt(path, &s);
  158.         switch(s.sg_class)
  159.         {
  160.         case DT_SCF:
  161.             return(S_IFCHR);
  162.         case DT_PIPE:
  163.             return(S_IFIFO);
  164.         }
  165.     }
  166.     return (fd->fd_att & S_IFDIR) ? S_IFDIR : S_IFREG;
  167. }
  168.  
  169. #define TRUE 1
  170. #define FALSE 0
  171.  
  172. /*
  173.  * _cmpfile() compares 2 files and returns 1 if they are considered
  174.  * identical or 0 otherwise
  175.  */
  176. int _cmpfile(a, b)
  177. char *a, *b;
  178. {
  179. struct    fildes dp0, dp1;
  180. struct    sgbuf   iopt,oopt;
  181. int    path0, path1;
  182.         
  183.     if ((path0 = open(a, S_IREAD)) == -1) return -1;
  184.     if ((path1 = open(b, S_IREAD)) == -1)
  185.     {
  186.         close(path0);
  187.         return(-1);
  188.     }
  189.  
  190.     _gs_opt(path0, &iopt, sizeof(iopt));
  191.     _gs_opt(path1, &oopt, sizeof(oopt));
  192.      close(path0);     close(path1);
  193.  
  194.     if (iopt.sg_class == DT_RBF &&
  195.         oopt.sg_class == DT_RBF &&
  196.         iopt.sg_drive == oopt.sg_drive
  197. #ifndef _OS9000
  198.     &&    iopt.sg_dvt   == oopt.sg_dvt   &&
  199.         iopt.sg_fdpsn == oopt.sg_fdpsn
  200. #endif
  201.         )
  202.         return TRUE;
  203.     else
  204.         return FALSE;
  205. }
  206.