Return to spitblks.h CVS log

Up to [Research Unix] / researchv10no / cmd / spitbol / cint

Annotation of researchv10no/cmd/spitbol/cint/spitblks.h, revision 1.1.1.1

1.1       root        1: /*
                      2: /   This header file defines structures used by the Macro SPITBOL compiler
                      3: /   that are passed into the OS interface.
                      4: */
                      5: 
                      6: /*
                      7: /   First, define the C type WORD to be the same size as a word used
                      8: /   by the Macro SPITBOL compiler.  The type of a WORD is a signed
                      9: /   integer for now.
                     10: */
                     11: 
                     12: typedef int    WORD;
                     13: 
                     14: /*
                     15: /   CHFCB - chain of FCBs block
                     16: /
                     17: /   For every FCB created by OSINT, the compiler creates a CHFCB pointing
                     18: /   to the FCB and links it onto a chain of CHFCBs.  At EOJ the head of this
                     19: /   CHFCB chain is passed to the interface function SYSEJ so that all files
                     20: /   can be closed.
                     21: */
                     22: 
                     23: struct chfcb
                     24: {
                     25:                WORD    typ;            /*  type word                   */
                     26:                WORD    len;            /*  block length                */
                     27:                struct  chfcb   *nxt;   /*  pointer to next chfcb       */
                     28:                struct  fcblk   *fcp;   /*  pointer to fcb              */
                     29: };
                     30: 
                     31: /*
                     32: /   ICBLK - integer block
                     33: /
                     34: /   Integer values are stored in ICBLKs.  Field icval should be defined
                     35: /   to be the appropriate type for the implementation.
                     36: */
                     37: 
                     38: struct icblk
                     39: {
                     40:                WORD    typ;            /*  type word - b$icl           */
                     41:                WORD    val;            /*  integer value               */
                     42: };
                     43: 
                     44: /*
                     45: /   SCBLK - string block
                     46: /
                     47: /   String values are stored in SCBLKs.  Notice that the scstr field
                     48: /   is defined as an array of characters of length 1.  This is a slight
                     49: /   kludge to side-step C's lack of support for varying length strings.
                     50: /
                     51: /   The actual length of a SCBLK is 2 words + the number of words necessary
                     52: /   to hold a string of length sclen.
                     53: */
                     54: 
                     55: struct scblk
                     56: {
                     57:                WORD    typ;            /*  type word - b$scl           */
                     58:                WORD    len;            /*  string length               */
                     59:                char    str[1];         /*  string characters           */
                     60: };

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