Return to ffunc.p CVS log

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

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

1.1     ! root        1: program forfunc( output );
        !             2:     
        !             3:     var
        !             4:        x, z : integer;
        !             5: 
        !             6:     function foo : integer;
        !             7:        begin
        !             8:            z := z + 1;
        !             9:            foo := z;
        !            10:        end;
        !            11: 
        !            12:     function bar( function y : integer ; x : integer ) : integer;
        !            13:        begin
        !            14:            bar := y;
        !            15:            writeln('in bar x = ', x:1);
        !            16:        end;
        !            17: 
        !            18:     begin
        !            19:        z := 1;
        !            20:        x := bar (foo, foo);
        !            21:         writeln('in forfunc bar = ', x:1);
        !            22:     end.

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