home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / libI77 / open.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-10  |  2.2 KB  |  107 lines
  1. #include    "sys/types.h"
  2. #include    "sys/stat.h"
  3. #include "fio.h"
  4. f_open(a) olist *a;
  5. {    unit *b;
  6.     int n;
  7.     char buf[256];
  8.     cllist x;
  9.     if(a->ounit>=MXUNIT || a->ounit<0)
  10.         err(a->oerr,101,"open")
  11.     b= &units[a->ounit];
  12.     if(b->ufd!=0) goto connected;
  13. unconnected:
  14.     b->url=a->orl;
  15.     if(*a->oblnk=='b') b->ublnk=1;
  16.     else b->ublnk=0;
  17.     if(a->ofm==0)
  18.     {    if(b->url>0) b->ufmt=0;
  19.         else b->ufmt=1;
  20.     }
  21.     else if(*a->ofm=='f') b->ufmt=1;
  22.     else b->ufmt=0;
  23.     if(a->osta==0) goto unknown;
  24.     switch(*a->osta)
  25.     {
  26.     unknown:
  27.     default:
  28.     case 'o':
  29.         if(a->ofnm==0) err(a->oerr,107,"open")
  30.         g_char(a->ofnm,a->ofnmlen,buf);
  31.         b->uscrtch=0;
  32.         if(*a->osta=='o' && access(buf,0))
  33.             err(a->oerr,errno,"open")
  34.     done:
  35.         b->ufnm=(char *) calloc(strlen(buf)+1,sizeof(char));
  36.         if(b->ufnm==NULL) err(a->oerr,113,"no space");
  37.         strcpy(b->ufnm,buf);
  38.         b->uend=0;
  39.         if(isdev(buf))
  40.         {    b->ufd = fopen(buf,"r");
  41.             if(b->ufd==NULL) err(a->oerr,errno,buf)
  42.             else    b->uwrt = 0;
  43.         }
  44.         else
  45.         {    b->ufd = fopen(buf, "a");
  46.             if(b->ufd != NULL) b->uwrt = 1;
  47.             else if((b->ufd = fopen(buf, "r")) != NULL)
  48.             {    fseek(b->ufd, 0L, 2);
  49.                 b->uwrt = 0;
  50.             }
  51.             else    err(a->oerr, errno, buf)
  52.         }
  53.         b->useek=canseek(b->ufd);
  54.         if((b->uinode=inode(buf))==-1)
  55.             err(a->oerr,108,"open")
  56.         if(a->orl && b->useek) rewind(b->ufd);
  57.         return(0);
  58.      case 's':
  59.         b->uscrtch=1;
  60.         strcpy(buf,"tmp.FXXXXXX");
  61.         mktemp(buf);
  62.         goto done;
  63.     case 'n':
  64.         b->uscrtch=0;
  65.         if(a->ofnm==0) err(a->oerr,107,"open")
  66.         g_char(a->ofnm,a->ofnmlen,buf);
  67.         /*SYSDEP access*/
  68.         if(access(buf, 0) == 0) creat(buf, 0666);
  69.         goto done;
  70.     }
  71. connected:
  72.     if(a->ofnm==0)
  73.     {
  74.     same:    if(a->oblnk!= 0) b->ublnk= *a->oblnk== 'b'?0:1;
  75.         return(0);
  76.     }
  77.     g_char(a->ofnm,a->ofnmlen,buf);
  78.     if(inode(buf)==b->uinode) goto same;
  79.     x.cunit=a->ounit;
  80.     x.csta=0;
  81.     x.cerr=a->oerr;
  82.     if((n=f_clos(&x))!=0) return(n);
  83.     goto unconnected;
  84. }
  85. fk_open(rd,seq,fmt,n) ftnint n;
  86. {    char nbuf[10];
  87.     olist a;
  88.     sprintf(nbuf,"fort.%D",n);
  89.     a.oerr=1;
  90.     a.ounit=n;
  91.     a.ofnm=nbuf;
  92.     a.ofnmlen=strlen(nbuf);
  93.     a.osta=NULL;
  94.     a.oacc= seq==SEQ?"s":"d";
  95.     a.ofm = fmt==FMT?"f":"u";
  96.     a.orl = seq==DIR?1:0;
  97.     a.oblnk=NULL;
  98.     return(f_open(&a));
  99. }
  100. isdev(s) char *s;
  101. {    struct stat x;
  102.     int j;
  103.     if(stat(s, &x) == -1) return(0);
  104.     if((j = (x.st_mode&S_IFMT)) == S_IFREG || j == S_IFDIR) return(0);
  105.     else    return(1);
  106. }
  107.