<> <> <> <> DIRECTORY CD, List, Tam, TamarinUtil; TamConstantsImpl: CEDAR PROGRAM IMPORTS TamarinUtil EXPORTS Tam = BEGIN LORA: TYPE = List.LORA; mask: PUBLIC CD.Design _ NIL; C: PUBLIC PROC [field: ATOM] RETURNS [value: INT] = { <<>> <> consts: LORA _ TamarinUtil.GetTamarinConstants[]; <> <<$sMI => 2,>> <<>> <<>> < ERROR;>> <<>> FOR i: LORA _ consts, i.rest UNTIL i = NIL DO pair: TamarinUtil.TamConst _ NARROW[i.first]; IF pair.key = field THEN RETURN [pair.val]; ENDLOOP; value _ SELECT field FROM $sMI => 120, $sClocks => 6, $pClock2 => 0, $pClock => 1, $pWriteOk => 2, $pnClock => 3, $pnClock2 => 4, $pDoneC =>5, ENDCASE => ERROR; }; END.