DIRECTORY Atom, Rope, IO, AlgebraClasses, Basics; AlgebraClassesImpl: CEDAR PROGRAM IMPORTS Atom EXPORTS AlgebraClasses = BEGIN OPEN AlgebraClasses; FlavorToRope: PUBLIC PROC [flavor: ClassFlavor] RETURNS [rope: Rope.ROPE]~ { SELECT flavor FROM group => RETURN["Group"]; ring => RETURN["Ring"]; field => RETURN["Field"]; vectorSpace => RETURN["Vector Space"]; algebra => RETURN["Algebra"]; divisionAlgebra => RETURN["Division Algebra"]; ENDCASE; }; GetProperty: PUBLIC PROC [structure: Structure, prop: ATOM] RETURNS [val: REF _ NIL] ~ { RETURN[Atom.GetPropFromList[structure.class.propList, prop] ]; }; END. lAlgebraClassesImpl.mesa Last Edited by: Arnon, June 10, 1985 4:19:22 pm PDT Miscellaneous Operations ΚT˜Jšœ™J™3J˜šΟk ˜ J˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜—head2šΠblœœ˜!Jšœ˜ Jšœ˜—Jšœœ˜J˜headšΟn™codeš Ÿ œœœœ œ˜Lšœ˜Mšœ œ ˜Mšœœ ˜Mšœ œ ˜Mšœœ˜&Mšœ œ ˜Mšœœ˜.Mšœ˜—M˜M˜—šŸ œœœœœœœ˜XMšœ8˜>M˜M˜—J˜—J˜Jšœ˜—…—j*