Return to testeoln.p CVS log

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

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

1.1     ! root        1: program test(output);
        !             2: 
        !             3: var
        !             4: ch :char;
        !             5: f :file of char;
        !             6: 
        !             7: begin
        !             8: rewrite(f);
        !             9: writeln(f,'abc');
        !            10: write(f,'      ');
        !            11: reset(f);
        !            12: repeat
        !            13:   read(f,ch);
        !            14:   writeln('in main: eoln = ',eoln(f),'   eof = ',eof(f),'   ch = ',ch);
        !            15:   if eoln(f) and not eof(f) then begin
        !            16:     read(f,ch);
        !            17:     writeln('in eolncode: eoln = ',eoln(f),'   eof = ',eof(f),'   ch = ',ch);
        !            18:     end
        !            19:   until eof(f)
        !            20: end.

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