Return to io.h CVS log

Up to [CSRG BSD Unix] / 43BSD / usr.bin / f77 / src / f77pass1

Annotation of 43BSD/usr.bin/f77/src/f77pass1/io.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:  *     @(#)io.h        5.1 (Berkeley) 6/7/85
                      7:  */
                      8: 
                      9: #define NDDATA 1
                     10: #define NDLABEL        2
                     11: #define NDADDR 3
                     12: #define NDNULL 4
                     13: 
                     14: 
                     15: 
                     16: 
                     17: typedef
                     18:   struct IoAddr
                     19:     {
                     20:       int stg;
                     21:       int memno;
                     22:       ftnint offset;
                     23:     }
                     24:   ioaddr;
                     25: 
                     26: 
                     27: 
                     28: typedef
                     29:   union IoValue
                     30:     {
                     31:       Constp cp;
                     32:       ftnint label;
                     33:       struct IoAddr addr;
                     34:     }
                     35:   iovalue;
                     36: 
                     37: 
                     38: 
                     39: typedef
                     40:   struct IoBlock
                     41:     {
                     42:       struct IoBlock *next;
                     43:       int blkno;
                     44:       ftnint len;
                     45:       struct OffsetList *olist;
                     46:     }
                     47:   ioblock;
                     48: 
                     49: 
                     50: 
                     51: typedef
                     52:   struct OffsetList
                     53:     {
                     54:       struct OffsetList *next;
                     55:       ftnint offset;
                     56:       int tag;
                     57:       union IoValue val;
                     58:     }
                     59:   offsetlist;
                     60: 
                     61: 
                     62: 
                     63: 
                     64: extern ioblock *iodata;
                     65: 

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