Return to cat.sml CVS log

Up to [Research Unix] / researchv10dc / cmd / sml / doc / examples

Annotation of researchv10dc/cmd/sml/doc/examples/cat.sml, revision 1.1

1.1     ! root        1: datatype limit = Unbounded | Limited of int
        !             2: 
        !             3: fun cat Unbounded (instream,outstream) =
        !             4:     while not (end_of_stream instream) do
        !             5:          output outstream (input instream (can_input instream))
        !             6:   | cat (Limited limit) (instream,outstream) =
        !             7:     while not (end_of_stream instream) do
        !             8:          output outstream (input instream (min(can_input instream,limit)))
        !             9:       
        !            10: val ucat = cat Unbounded
        !            11: val lcat = cat(Limited 1024)
        !            12: 
        !            13: fun cat1 (instream,outstream) =
        !            14:     while not (end_of_stream instream) do
        !            15:          output outstream (input instream 1)
        !            16: 
        !            17: fun filecat cat = fn (fin,fout) => cat(open_in fin,open_out fout)
        !            18: fun screencat cat = fn fin => cat(open_in fin,std_out)
        !            19: 

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