Return to tally.sml CVS log

Up to [Research Unix] / researchv10no / cmd / sml / doc / examples / awk

researchv10 Norman

structure Table = StringTable(type elem = int val default = 0);

val table = Table.new();

fun step (fields: string list) =
    let val name::value::_ = fields
     in Table.set table (name, Table.get table name + Awk.makeInt value)
    end

fun final () =
    Table.app table (fn (s,n) => (print s; print "\t"; print n; print "\n";()))

(* invoke by

   Awk.awk(stream,step,final)

*)

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