00036 {       int i;
00037         for(i=0;i<blen && *a!=0;i++) *b++= *a++;
00038         for(;i<blen;i++) *b++=' ';
00039 }

00022 {       unit *p;
00023         if(a->ciunit >= MXUNIT || a->ciunit<0)
00024                 err(a->cierr,101,"startio");
00025         p = &f__units[a->ciunit];
00026         if(p->ufd==NULL && fk_open(SEQ,FMT,a->ciunit)) err(a->cierr,114,"sfe")
00027         if(!p->ufmt) err(a->cierr,102,"sfe")
00028         return(0);
00029 }

00272 {
00273         if (!f)
00274                 f__fatal(m, s);
00275         if (f__doend)
00276                 (*f__doend)();
00277         return errno = m;
00278         }

00143 {
00144         if(n<100 && n>=0) perror(s); /*SYSDEP*/
00145         else if(n >= (int)MAXERR || n < -1)
00146         {       fprintf(stderr,"%s: illegal error number %d\n",s,n);
00147         }
00148         else if(n == -1) fprintf(stderr,"%s: end of file\n",s);
00149         else
00150                 fprintf(stderr,"%s: %s\n",s,F_err[n-100]);
00151         if (f__curunit) {
00152                 fprintf(stderr,"apparent state: unit %d ",f__curunit-f__units);
00153                 fprintf(stderr, f__curunit->ufnm ? "named %s\n" : "(unnamed)\n",
00154                         f__curunit->ufnm);
00155                 }
00156         else
00157                 fprintf(stderr,"apparent state: internal I/O\n");
00158         if (f__fmtbuf)
00159                 fprintf(stderr,"last format: %s\n",f__fmtbuf);
00160         fprintf(stderr,"lately %s %s %s %s",f__reading?"reading":"writing",
00161                 f__sequential?"sequential":"direct",f__formatted?"formatted":"unformatted",
00162                 f__external?"external":"internal");
00163         sig_die(" IO", 1);
00164 }

00220 {
00221         long loc;
00222         int ufmt;
00223         extern char *f__w_mode[];
00224 #ifndef NON_UNIX_STDIO
00225         int k;
00226 #endif
00227 
00228         if (!x->ufnm)
00229                 goto cantwrite;
00230         ufmt = x->ufmt;
00231 #ifdef NON_UNIX_STDIO
00232         ufmt |= 2;
00233 #endif
00234         if (x->uwrt == 3) { /* just did write, rewind */
00235 #ifdef NON_UNIX_STDIO
00236                 if (!(f__cf = x->ufd =
00237                                 freopen(x->ufnm,f__w_mode[ufmt],x->ufd)))
00238 #else
00239                 if (close(creat(x->ufnm,0666)))
00240 #endif
00241                         goto cantwrite;
00242                 }
00243         else {
00244                 loc=ftell(x->ufd);
00245 #ifdef NON_UNIX_STDIO
00246                 if (!(f__cf = x->ufd =
00247                         freopen(x->ufnm, f__w_mode[ufmt], x->ufd)))
00248 #else
00249                 if (fclose(x->ufd) < 0
00250                 || (k = x->uwrt == 2 ? creat(x->ufnm,0666)
00251                                      : open(x->ufnm,O_WRONLY)) < 0
00252                 || (f__cf = x->ufd = fdopen(k,f__w_mode[ufmt])) == NULL)
00253 #endif
00254                         {
00255                         x->ufd = NULL;
00256  cantwrite:
00257                         errno = 127;
00258                         return(1);
00259                         }
00260                 (void) fseek(x->ufd,loc,SEEK_SET);
00261                 }
00262         x->uwrt = 1;
00263         return(0);
00264 }

00230 {       char nbuf[10];
00231         olist a;
00232         (void) sprintf(nbuf,"fort.%ld",n);
00233         a.oerr=1;
00234         a.ounit=n;
00235         a.ofnm=nbuf;
00236         a.ofnmlen=strlen(nbuf);
00237         a.osta=NULL;
00238         a.oacc= seq==SEQ?"s":"d";
00239         a.ofm = fmt==FMT?"f":"u";
00240         a.orl = seq==DIR?1:0;
00241         a.oblnk=NULL;
00242         return(f_open(&a));
00243 }

00014 {
00015         char *x = a + alen, *y = b + alen;
00016 
00017         for(;; y--) {
00018                 if (x <= a) {
00019                         *b = 0;
00020                         return;
00021                         }
00022                 if (*--x != ' ')
00023                         break;
00024                 }
00025         *y-- = 0;
00026         do *y-- = *x;
00027                 while(x-- > a);
00028         }

00115 {
00116         char nm[L_tmpnam+12];   /* extra space in case L_tmpnam is tiny */
00117         long loc, len;
00118         unit *b;
00119 #ifdef NON_UNIX_STDIO
00120         FILE *bf, *tf;
00121 #else
00122         FILE *bf;
00123 #endif
00124         int rc = 0;
00125 
00126         b = &f__units[a->aunit];
00127         if(b->url)
00128                 return(0);      /*don't truncate direct files*/
00129         loc=ftell(bf = b->ufd);
00130         fseek(bf,0L,SEEK_END);
00131         len=ftell(bf);
00132         if (loc >= len || b->useek == 0 || b->ufnm == NULL)
00133                 return(0);
00134 #ifdef NON_UNIX_STDIO
00135         fclose(b->ufd);
00136 #else
00137         rewind(b->ufd); /* empty buffer */
00138 #endif
00139         if (!loc) {
00140 #ifdef NON_UNIX_STDIO
00141                 if (!(bf = fopen(b->ufnm, f__w_mode[b->ufmt])))
00142 #else
00143                 if (close(creat(b->ufnm,0666)))
00144 #endif
00145                         rc = 1;
00146                 if (b->uwrt)
00147                         b->uwrt = 1;
00148                 goto done;
00149                 }
00150 #ifdef _POSIX_SOURCE
00151         tmpnam(nm);
00152 #else
00153         strcpy(nm,"tmp.FXXXXXX");
00154         mktemp(nm);
00155 #endif
00156 #ifdef NON_UNIX_STDIO
00157         if (!(bf = fopen(b->ufnm, f__r_mode[0]))) {
00158  bad:
00159                 rc = 1;
00160                 goto done;
00161                 }
00162         if (!(tf = fopen(nm, f__w_mode[0])))
00163                 goto bad;
00164         if (copy(bf, loc, tf)) {
00165  bad1:
00166                 rc = 1;
00167                 goto done1;
00168                 }
00169         if (!(bf = freopen(b->ufnm, f__w_mode[0], bf)))
00170                 goto bad1;
00171         if (!(tf = freopen(nm, f__r_mode[0], tf)))
00172                 goto bad1;
00173         if (copy(tf, loc, bf))
00174                 goto bad1;
00175         if (f__w_mode[0] != f__w_mode[b->ufmt]) {
00176                 if (!(bf = freopen(b->ufnm, f__w_mode[b->ufmt|2], bf)))
00177                         goto bad1;
00178                 fseek(bf, loc, SEEK_SET);
00179                 }
00180 done1:
00181         fclose(tf);
00182         unlink(nm);
00183 done:
00184         f__cf = b->ufd = bf;
00185 #else
00186         if (copy(b->ufnm, loc, nm)
00187          || copy(nm, loc, b->ufnm))
00188                 rc = 1;
00189         unlink(nm);
00190         fseek(b->ufd, loc, SEEK_SET);
00191 done:
00192 #endif
00193         if (rc)
00194                 err(a->aerr,111,"endfile");
00195         return 0;
00196         }