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