Return to sheet.sml CVS log

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

Annotation of researchv10dc/cmd/sml/doc/examples/spread/sheet.sml, revision 1.1.1.1

1.1       root        1: functor Spreadsheet(P : PARSE) : SPREADSHEET =
                      2: struct
                      3: 
                      4:  structure F = P.F
                      5: 
                      6:  fun array2(i,j,v) =  
                      7:     let fun init 0 = nil | init i = array(j,v) :: init(i-1)
                      8:    in arrayoflist(init i)
                      9:   end
                     10:  fun update2(a,i,j,v) = update(a sub i, j, v)
                     11: 
                     12:  val dim = 10
                     13: 
                     14:  val vtable = array2(dim,dim,0)
                     15:  val ftable = array2(dim,dim,F.eval(P.parse "0"))
                     16:  val stable = array2(dim,dim,"0")
                     17: 
                     18:  fun set(i,j,s) = (update2(ftable,i,j, F.eval(P.parse s));
                     19:                   update2(stable,i,j,s))
                     20: 
                     21:  fun for (i,j) f = if i<=j then (f i; for(i+1,j) f) else ()
                     22: 
                     23:  fun eval() = for(0, dim-1)
                     24:                (fn i => for(0, dim-1)
                     25:                            (fn j => update2(vtable,i,j,
                     26:                                             (ftable sub i sub j) vtable)));
                     27: 
                     28:  fun get(i,j) =  (stable sub i sub j, vtable sub i sub j)
                     29: end
                     30: 

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