Return to fiodefs.h CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.lib / libI77

Annotation of cci/usr/src/usr.lib/libI77/fiodefs.h, revision 1.1.1.1

1.1       root        1: /*
                      2:  * Copyright (c) 1980 Regents of the University of California.
                      3:  * All rights reserved.  The Berkeley software License Agreement
                      4:  * specifies the terms and conditions for redistribution.
                      5:  *
                      6:  *     @(#)fiodefs.h   5.1 (Berkeley) 6/7/85
                      7:  */
                      8: 
                      9: /*
                     10:  * fortran file i/o type definitions
                     11:  */
                     12: 
                     13: #include <stdio.h>
                     14: #include "f_errno.h"
                     15: 
                     16: /* Logical Unit Table Size */
                     17: #define MXUNIT 100
                     18: 
                     19: #define GLITCH '\2'    /* special quote for Stu, generated in f77pass1 */
                     20: 
                     21: #define LISTDIRECTED  -1
                     22: #define FORMATTED      1
                     23: 
                     24: #define ERROR  1
                     25: #define OK     0
                     26: #define YES    1
                     27: #define NO     0
                     28: 
                     29: #define STDERR 0
                     30: #define STDIN  5
                     31: #define STDOUT 6
                     32: 
                     33: #define WRITE  1
                     34: #define READ   2
                     35: #define SEQ    3
                     36: #define DIR    4
                     37: #define FMT    5
                     38: #define UNF    6
                     39: #define EXT    7
                     40: #define INT    8
                     41: 
                     42: typedef char ioflag;
                     43: typedef long ftnint;
                     44: typedef ftnint flag;
                     45: typedef long ftnlen;
                     46: 
                     47: typedef struct         /*external read, write*/
                     48: {      flag cierr;
                     49:        ftnint ciunit;
                     50:        flag ciend;
                     51:        char *cifmt;
                     52:        ftnint cirec;
                     53: } cilist;
                     54: 
                     55: typedef struct         /*internal read, write*/
                     56: {      flag icierr;
                     57:        char *iciunit;
                     58:        flag iciend;
                     59:        char *icifmt;
                     60:        ftnint icirlen;
                     61:        ftnint icirnum;
                     62:        ftnint icirec;
                     63: } icilist;
                     64: 
                     65: typedef struct         /*open*/
                     66: {      flag oerr;
                     67:        ftnint ounit;
                     68:        char *ofnm;
                     69:        ftnlen ofnmlen;
                     70:        char *osta;
                     71:        char *oacc;
                     72:        char *ofm;
                     73:        ftnint orl;
                     74:        char *oblnk;
                     75: } olist;
                     76: 
                     77: typedef struct         /*close*/
                     78: {      flag cerr;
                     79:        ftnint cunit;
                     80:        char *csta;
                     81: } cllist;
                     82: 
                     83: typedef struct         /*rewind, backspace, endfile*/
                     84: {      flag aerr;
                     85:        ftnint aunit;
                     86: } alist;
                     87: 
                     88: typedef struct         /*units*/
                     89: {      FILE *ufd;      /*0=unconnected*/
                     90:        char *ufnm;
                     91:        long uinode;
                     92:        int url;        /*0=sequential*/
                     93:        flag useek;     /*true=can backspace, use dir, ...*/
                     94:        flag ufmt;
                     95:        flag uprnt;
                     96:        flag ublnk;
                     97:        flag uend;
                     98:        flag uwrt;      /*last io was write*/
                     99:        flag uscrtch;
                    100: } unit;
                    101: 
                    102: typedef struct         /* inquire */
                    103: {      flag inerr;
                    104:        ftnint inunit;
                    105:        char *infile;
                    106:        ftnlen infilen;
                    107:        ftnint  *inex;  /*parameters in standard's order*/
                    108:        ftnint  *inopen;
                    109:        ftnint  *innum;
                    110:        ftnint  *innamed;
                    111:        char    *inname;
                    112:        ftnlen  innamlen;
                    113:        char    *inacc;
                    114:        ftnlen  inacclen;
                    115:        char    *inseq;
                    116:        ftnlen  inseqlen;
                    117:        char    *indir;
                    118:        ftnlen  indirlen;
                    119:        char    *inform;
                    120:        ftnlen  informlen;
                    121:        char    *infmt;
                    122:        ftnint  infmtlen;
                    123:        char    *inunf;
                    124:        ftnlen  inunflen;
                    125:        ftnint  *inrecl;
                    126:        ftnint  *innrec;
                    127:        char    *inblank;
                    128:        ftnlen  inblanklen;
                    129: } inlist;
                    130: 
                    131: typedef union
                    132: {      float pf;
                    133:        double pd;
                    134: } ufloat;
                    135: 
                    136: typedef union
                    137: {      short is;
                    138:        char ic;
                    139:        long il;
                    140: } unsint;
                    141: 
                    142: struct ioiflg {
                    143:        short if_oeof;
                    144:        short if_ctrl;
                    145:        short if_bzro;
                    146: };
                    147: #define        opneof  ioiflg_.if_oeof
                    148: #define        ccntrl  ioiflg_.if_ctrl
                    149: #define        blzero  ioiflg_.if_bzro

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.