DIRECTORY Atom, GenSym, IO; GenSymImpl: CEDAR PROGRAM IMPORTS Atom, IO EXPORTS GenSym = BEGIN count: REF INT _ NIL; Gen: PUBLIC PROC [prefix: CHARACTER _ 'A] RETURNS [a: ATOM] = {a _ Atom.MakeAtom[IO.PutFR["%g%g", IO.char[prefix], IO.int[count^ _ count^+1]]]}; Start: PROC = BEGIN a: ATOM _ Atom.MakeAtom["Spreitzer February 1, 1984 9:07:34 pm PST"]; count _ NARROW[Atom.GetProp[atom: a, prop: $GensymCount]]; IF count = NIL THEN Atom.PutProp[atom: a, prop: $GensymCount, val: count _ NEW [INT _ 0]]; END; Start[]; END. HGenSymImpl.Mesa last edited by Spreitzer January 10, 1984 4:44 pm Κ˜Icode™K™1K˜KšΟk œœ˜K˜šΠbx œœ˜Kšœ˜Kšœ ˜—K˜Kš˜K˜Kšœœœœ˜K˜š Οnœœœ  œœœ˜=Kšœœœœ˜R—K˜šŸœœ˜ Kš˜Kšœœ>˜EKšœœ,˜:Kš œ œœ8œœ˜ZKšœ˜—K˜K˜K˜Kšœ˜J˜—…—r