DataMuseum.dk

top - download

    Length: 989 (0x3dd)
    Types: TextFile
    Names: »V«

└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

-- This package parses and interprets the following rules :
--
-- Rule 1 :
--   syntax :   Primary ::= Integer
--   semantic : Primary.Result =
-- Rule 2 :
--   syntax :   Primary ::= String
--   semantic : Primary.Result =
-- Rule 3 :
--   syntax :   Primary ::= Identifier
--   semantic : Primary.Result =
-- Rule 4 :
--   syntax :   Primary ::= '(' Value ')'
--   semantic : Primary.Result =
-- Rule 1 :
--   syntax :   Primary ::= Block
--   semantic : Primary.Result =

with Object;
with Scanner;

package Primary is

    type Node is private;
    Empty_Node : constant Node;

    procedure Parse (N : in out Node; Error : out Boolean);
    function Is_First (T : Scanner.Token) return Boolean;
    function Interpret (N : Node;
                        Inherited : Object.Reference := Object.Void_Reference)
                       return Object.Reference;

private
    type Node_Structure;
    type Node is access Node_Structure;
    Empty_Node : constant Node := null;

end Primary;