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     ! 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.