DIRECTORY Convert, Parse, Rope USING [ROPE]; ParseImpl: CEDAR PROGRAM IMPORTS Convert EXPORTS Parse = BEGIN SyntaxError: PUBLIC SIGNAL = CODE; Int: PUBLIC PROC [r: Rope.ROPE, radix: NAT _ 10] RETURNS [INT] = { v: Convert.Value _ Convert.Parse[text: [rope[r]], template: [signed[base: radix]]].value; WITH val: v SELECT FROM error => SyntaxError; signed => RETURN[val.signed]; ENDCASE => SyntaxError; RETURN[0]; }; Card: PUBLIC PROC [r: Rope.ROPE, radix: NAT _ 10] RETURNS [LONG CARDINAL] = { v: Convert.Value _ Convert.Parse[text: [rope[r]], template: [unsigned[base: radix]]].value; WITH val: v SELECT FROM error => SyntaxError; unsigned => RETURN[val.unsigned]; ENDCASE => SyntaxError; RETURN[0]; }; END. April 25, 1983 3:35 pm, LCS, created FParseImpl.mesa Last Modified: Stewart, April 25, 1983 3:35 pm Êl˜Jšœ™Jšœ/™/J˜šÏk ˜ J˜J˜Jšœœœ˜—J˜Jšœ œ˜Jšœ˜Jšœ˜Jš˜J˜Jšœ œœœ˜"J˜šÏnœœœ œ œœœ˜BJ˜Yšœœ˜Jšœ˜Jšœ œ ˜Jšœ˜—Jšœ˜ J˜—J˜šžœœœ œ œœœœ˜MJšœ[˜[šœœ˜Jšœ˜Jšœ œ˜!Jšœ˜—Jšœ˜ Jšœ˜—J˜Jšœ˜Jšœœ ˜$J˜—…—ð¢