Return to shoemake.p CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / pascal / tstpx / src

Annotation of 43BSDTahoe/ucb/pascal/tstpx/src/shoemake.p, revision 1.1

1.1     ! root        1: program test(input, output);
        !             2: type
        !             3:    alpha    = array[1..10] of char;
        !             4:    lineType = array[1..80] of char;
        !             5: 
        !             6: procedure test1(name : alpha);         {If this parameter is integer, the pro-
        !             7:                                         gram will not bomb }
        !             8:    var                                 {If any of these local variables are
        !             9:                                         deleted, the program will run OK}
        !            10:       linenum : integer;
        !            11:       line   : lineType;               {If this is a simple type, the program
        !            12:                                         will not bomb.}
        !            13:       index  : integer;
        !            14:       chars  : integer;
        !            15:       infile : text;
        !            16: 
        !            17:    begin                               {If other statements are put before this
        !            18:                                         reset, they are executed, and the pro-
        !            19:                                         gram doesn't bomb until the reset is
        !            20:                                         executed.}
        !            21: 
        !            22:       reset(infile, '/dev/null');
        !            23:    end;
        !            24:       
        !            25: begin
        !            26:    rewrite(output,'/dev/null');                {If this rewrite statement is not here,
        !            27:                                         the program will not bomb}
        !            28:    test1('/dev/null');
        !            29: end.

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