Return to stringtab.sml CVS log

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

Annotation of researchv10no/cmd/sml/doc/examples/awk/stringtab.sml, revision 1.1.1.1

1.1       root        1: (* stringtab.sml *)
                      2: 
                      3: functor StringTable(type elem val default: elem) = 
                      4: struct
                      5: 
                      6:   type awkTable = elem ref Stringmap.stringmap
                      7: 
                      8:   fun new() = Stringmap.new(): awkTable
                      9: 
                     10:   fun set (t: awkTable) (s:string, x:elem) : unit =
                     11:       let val r = Stringmap.map t s in r := x end
                     12:       handle Stringmap.Stringmap => Stringmap.add t (s,ref x)
                     13: 
                     14:   fun get (t: awkTable) (s:string) : elem =
                     15:       !(Stringmap.map t s)
                     16:       handle Stringmap.Stringmap => default
                     17: 
                     18:   fun app (t: awkTable) (f: string * elem -> unit) =
                     19:       Stringmap.app (fn (s,ref e) => f(s,e)) t
                     20: 
                     21: end

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