Return to ns32glue.sml CVS log

Up to [Research Unix] / researchv10no / cmd / sml / src / ns32

Annotation of researchv10no/cmd/sml/src/ns32/ns32glue.sml, revision 1.1.1.1

1.1       root        1: (* Copyright 1989 by AT&T Bell Laboratories *)
                      2: structure NS32MC : CODEGENERATOR = 
                      3: struct
                      4:   structure CM = NS32CM(NS32MCode.Coder)
                      5:   structure G = CPScomp(CM)
                      6:   fun generate lexp =
                      7:        (G.compile lexp; NS32MCode.finish())
                      8: end
                      9: 
                     10: structure NS32AC : ASSEMBLER =
                     11: struct
                     12:   structure CM = NS32CM(NS32AsCode)
                     13:   structure AssemGen = CPScomp(CM)
                     14:   fun generate(lexp,stream) = (NS32Assem.outfile := stream;
                     15:                               AssemGen.compile lexp)
                     16: end
                     17: 
                     18: structure IntNS32 = IntShare(structure Machm = NS32MC
                     19:                            val fileExtension = ".n32"
                     20:                           );
                     21: structure CompNS32 = Batch(structure M=NS32MC and A=NS32AC)

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