Return to variants.mod CVS log

Up to [CSRG BSD Unix] / 43BSD / ucb / dbx / tests / mod

Annotation of 43BSD/ucb/dbx/tests/mod/variants.mod, revision 1.1.1.1

1.1       root        1: module main;
                      2: type
                      3:     ElementType = (CHAR, INT, REAL);
                      4:     VR = record
                      5:        case tag : ElementType of
                      6:            CHAR:
                      7:                charValue : char;|
                      8:            INT:
                      9:                intValue : integer;|
                     10:            REAL:
                     11:                realValue : real;
                     12:        end;
                     13:     end;
                     14: var
                     15:     vr : VR;
                     16: begin
                     17:     vr.tag := CHAR;
                     18:     vr.charValue := 'c';
                     19:     vr.tag := INT;
                     20:     vr.intValue := 3;
                     21:     vr.tag := REAL;
                     22:     vr.realValue := 3.4;
                     23: end main.

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