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     ! 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.