Return to gordon.p CVS log

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

Annotation of 43BSDReno/pgrm/pascal/tstpx/src/gordon.p, revision 1.1

1.1     ! root        1: program ffunc( output );
        !             2:     type
        !             3:        comparisons = ( less , equal , greater );
        !             4:     function insert(
        !             5:            function comparitor( this , that : integer ) : comparisons;
        !             6:            here , there : integer ) : boolean;
        !             7:        function equality : boolean;
        !             8:            begin
        !             9:                if comparitor( here , there ) = equal then begin
        !            10:                    equality := true
        !            11:                end else begin
        !            12:                    equality := false
        !            13:                end
        !            14:            end;
        !            15:        begin
        !            16:            insert := equality;
        !            17:        end;
        !            18:     function compare( this , that : integer ) : comparisons;
        !            19:        begin
        !            20:                 if this < that then compare := less
        !            21:            else if this = that then compare := equal
        !            22:            else compare := greater
        !            23:        end;
        !            24:     begin
        !            25:        writeln( insert( compare , 17 , 23 ) );
        !            26:     end.

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