DataMuseum.dk

top - download

    Length: 2896 (0xb50)
    Types: TextFile
    Names: »V«

└─⟦afbc8121e⟧ Bits:30000532 8mm tape, Rational 1000, MC68020_OS2000 7_2_2
    └─ ⟦77aa8350c⟧ »DATA« 
        └─⟦f794ecd1d⟧ 
            └─⟦4c85d69e2⟧ 
                └─⟦this⟧ 

TextFile

--    The use of this system is subject to the software license terms and
--    conditions agreed upon between Rational and the Customer.
--
--                Copyright 1988 by Rational.
--
--                          RESTRICTED RIGHTS LEGEND
--
--    Use, duplication, or disclosure by the Government is subject to
--    restrictions as set forth in subdivision (b)(3)(ii) of the Rights in
--    Technical Data and Computer Software clause at 52.227-7013.
--
--
--                Rational
--                3320 Scott Boulevard
--                Santa Clara, California 95054-3197
--
--   PROPRIETARY AND CONFIDENTIAL INFORMATION OF RATIONAL;
--   USE OR COPYING WITHOUT EXPRESS WRITTEN AUTHORIZATION
--   IS STRICTLY PROHIBITED.  THIS MATERIAL IS PROTECTED AS
--   AN UNPUBLISHED WORK UNDER THE U.S. COPYRIGHT ACT OF
--   1976.  CREATED 1988.  ALL RIGHTS RESERVED.
--
--

with Numeric_Literals;

package Literal_Parser is

    subtype Numeric_Literal is Numeric_Literals.Numeric_Literal;


    type Parse_Status is (Ok,  
                          Empty_Field,  
                          Syntax_Error,  
                          Numeric_Literal_Too_Short);


    -- This procedure is used to parse numeric literals read from
    -- the source file or string.

    procedure Parse_Numeric_Literal (Source         : in     String;
                                     Integral       : in     Boolean;
                                     Result         : in out Numeric_Literal;
                                     Status         : out    Parse_Status;
                                     Last_Of_Source : out    Natural);


    -- This routine is used to parse enumeration literals, which are
    -- either character literals or identifiers.  The result is returned as
    -- a simple string, with Last being the index of the last character
    -- stored.  Last_Of_Source is the index of the last character of the
    -- Source string used.  If the literal that is parsed is too long to
    -- fit in Result, the proper number of characters are read to satisfy
    -- the LRM, but Syntax_Error is returned as the status.
    -- If Unprintable_Terminators is set to True then Line Terminators and
    -- Page Terminators are considered Unprintable characters instead of
    -- Separators.

    procedure Parse_Enumeration (Source                  : in  String;
                                 Unprintable_Terminators : in  Boolean;
                                 Result                  : out String;
                                 Last                    : out Natural;
                                 Status                  : out Parse_Status;
                                 Last_Of_Source          : out Natural);

private

    pragma Suppress (Elaboration_Check, On => Parse_Numeric_Literal);
    pragma Suppress (Elaboration_Check, On => Parse_Enumeration);

end Literal_Parser;