Return to glue.sml CVS log

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

Annotation of researchv10no/cmd/sml/doc/examples/spread/glue.sml, revision 1.1.1.1

1.1       root        1: structure S = Spreadsheet(Parse(Semant));
                      2: open S;
                      3: 
                      4: val say = output std_out
                      5: fun sayn (i:int) = say(makestring i)
                      6: 
                      7: fun show(i,j) = 
                      8:     let val (s,v) = get(i,j)
                      9:      in say "["; sayn i; say ","; sayn j;
                     10:        say "] = "; sayn v;
                     11:        say "    "; say s; say "\n"
                     12:     end;
                     13: 
                     14: (* set up a simple spreadsheet *)
                     15: set(0,0,"40");
                     16: set(1,0,"50");
                     17: set(2,0,"[0,0]+[1,0]");
                     18: 
                     19: eval();
                     20: 
                     21: app show [(0,0),(1,0),(2,0),(3,0)];

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