Return to shoemake.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / tstpx / src

Annotation of 43BSDReno/pgrm/pascal/tstpx/src/shoemake.p, revision 1.1.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.