Return to o.h CVS log

Up to [Research Unix] / researchv10no / cmd / lcc / ph

Annotation of researchv10no/cmd/lcc/ph/o.h, revision 1.1

1.1     ! root        1: /* The Plum Hall Validation Suite for C
        !             2:  * Unpublished copyright (c) 1986-1991, Chiron Systems Inc and Plum Hall Inc.
        !             3:  * VERSION: 4
        !             4:  * DATE: 1993-01-01
        !             5:  * The "ANSI" mode of this suite corresponds to official ANSI C, X3.159-1989.
        !             6:  * As per your license agreement, your distribution is not to be moved or copied outside the Designated Site
        !             7:  * without specific permission from Plum Hall Inc.
        !             8:  */
        !             9: 
        !            10: CHAR O_c = 0;
        !            11: #if ANSI
        !            12: SCHAR O_sc = 0;
        !            13: #endif
        !            14: SHORT O_s = 0;
        !            15: INT O_i = 0;
        !            16: UCHAR O_uc = 0;
        !            17: USHORT O_us = 0;
        !            18: UINT O_ui = 0;
        !            19: LONG O_l = 0;
        !            20: ULONG O_ul = 0;
        !            21: FLOAT O_f = 0;
        !            22: DOUBLE O_d = 0;
        !            23: #if ANSI
        !            24: LDOUBLE O_ld = 0;
        !            25: #endif
        !            26: 
        !            27:        struct XX {
        !            28:                CHAR c;
        !            29: #if ANSI
        !            30:                SCHAR sc;
        !            31: #endif
        !            32:                SHORT s;
        !            33:                INT i;
        !            34:                UCHAR uc;
        !            35:                USHORT us;
        !            36:                UINT ui;
        !            37:                LONG l;
        !            38:                ULONG ul;
        !            39:                FLOAT f;
        !            40:                DOUBLE d;
        !            41: #if ANSI
        !            42:                LDOUBLE ld;
        !            43: #endif
        !            44:                };
        !            45:        static struct XX x1;
        !            46:        static struct XX x2 = {
        !            47:        7,
        !            48: #if ANSI
        !            49:        8,
        !            50: #endif
        !            51:        9,
        !            52:        10,
        !            53:        11,
        !            54:        12,
        !            55:        13,
        !            56:        14,
        !            57:        15,
        !            58:        16,
        !            59:        17,
        !            60: #if ANSI
        !            61:        18,
        !            62: #endif
        !            63:        }; 
        !            64: struct XX Oc() { struct XX x1; x1=x2; if (O_c)x1.c=O_c; O_c=0; return(x1);}
        !            65: #if ANSI
        !            66: struct XX Osc() { struct XX x1; x1=x2; if (O_sc)x1.sc=O_sc; O_sc=0; return(x1);}
        !            67: #endif
        !            68: struct XX Os() { struct XX x1; x1=x2; if (O_s)x1.s=O_s; O_s=0; return(x1);}
        !            69: struct XX Oi() { struct XX x1; x1=x2; if (O_i)x1.i=O_i; O_i=0; return(x1);}
        !            70: struct XX Ouc() { struct XX x1; x1=x2; if (O_uc)x1.uc=O_uc; O_uc=0; return(x1);}
        !            71: struct XX Ous() { struct XX x1; x1=x2; if (O_us)x1.us=O_us; O_us=0; return(x1);}
        !            72: struct XX Oui() { struct XX x1; x1=x2; if (O_ui)x1.ui=O_ui; O_ui=0; return(x1);}
        !            73: struct XX Ol() { struct XX x1; x1=x2; if (O_l)x1.l=O_l; O_l=0; return(x1);}
        !            74: struct XX Oul() { struct XX x1; x1=x2; if (O_ul)x1.ul=O_ul; O_ul=0; return(x1);}
        !            75: struct XX Of() { struct XX x1; x1=x2; if (O_f)x1.f=O_f; O_f=0; return(x1);}
        !            76: struct XX Od() { struct XX x1; x1=x2; if (O_d)x1.d=O_d; O_d=0; return(x1);}
        !            77: #if ANSI
        !            78: struct XX Old() { struct XX x1; x1=x2; if (O_ld)x1.ld=O_ld; O_ld=0; return(x1);}
        !            79: #endif

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