DIRECTORY OrderedSymbolTableRef, Rope, RoseTranslateTypes, SignalTypeRegistration; SignalTypeRegistrationImpl: CEDAR PROGRAM IMPORTS OrderedSymbolTableRef, Rope EXPORTS SignalTypeRegistration = BEGIN OPEN RoseTranslateTypes; defaultNodeType: PUBLIC ROPE _ NIL; signalTypes: PUBLIC SymbolTable _ OrderedSymbolTableRef.CreateTable[CompareSymbolTableEntries]; CompareSymbolTableEntries: PUBLIC OrderedSymbolTableRef.CompareProc = BEGIN s1, s2: ROPE; s1 _ WITH r1 SELECT FROM r: ROPE => r, st: SymbolTableEntry => st.name, ENDCASE => ERROR; s2 _ WITH r2 SELECT FROM r: ROPE => r, st: SymbolTableEntry => st.name, ENDCASE => ERROR; RETURN [s1.Compare[s2, FALSE]]; END; RegisterNodeTypeConstructor: PUBLIC PROC [name: ROPE, stc: NodeTypeConstructor] = BEGIN signalTypes.Insert[NEW [SymbolTableEntryRep[nodeTypeConstructor] _ [name: name, value: nodeTypeConstructor[stc: stc]]]]; END; SetDefaultNodeType: PUBLIC PROC [rope: ROPE] = {defaultNodeType _ rope}; END. v[Indigo]2.3>SignalTypeRegistrationImpl.Mesa Last Edited by: Spreitzer, March 10, 1984 1:28:03 pm PST ÊŽ– "cedar" style˜Icode™5J™8K˜KšÏk œI˜RK˜šÐbxœœ˜)Kšœ˜#Kšœ˜ —K˜Kšœœ˜K˜Kšœœœœ˜#K˜Kšœ œL˜_K˜šœœ$˜EKš˜Kšœœ˜ šœœœ˜Kšœœ˜ Kšœ ˜ Kšœœ˜—šœœœ˜Kšœœ˜ Kšœ ˜ Kšœœ˜—Kšœœ˜Kšœ˜—K˜šÏnœœœœ˜QKš˜Kšœœb˜xKšœ˜—K˜KšŸœœœœ˜HK˜Kšœ˜—…—ÆÊ