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

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.