Subversion Repositories openrisc

package Rep_Clause5_Pkg is
 
    type ID_Type      is mod 65536;
    type String_ID    is new ID_Type;
    type LNumber_Type is range 0..99999;
    subtype Long_Type is Integer;
 
    type Func_ID is (No_Func, FUN_SGN, FUN_EXP, FUN_LOG, FUN_LOG10);
 
    type Token_Kind is (
        No_Token,
        LEX_BINARY,
        LEX_SECTION,
        LEX_003,
        LEX_004,
        LEX_005,
        LEX_006,
        LEX_007,
        LEX_008,
        LEX_009,
        LEX_LF,
        LEX_011,
        LEX_012,
        LEX_013,
        LEX_014,
        LEX_015,
        LEX_016,
        LEX_017,
        LEX_018,
        LEX_019,
        LEX_020,
        LEX_021,
        LEX_022,
        LEX_023,
        LEX_024,
        LEX_025,
        LEX_026,
        LEX_027,
        LEX_028,
        LEX_029,
        LEX_030,
        LEX_031,
        LEX_032,
        '!',
        '"',
        '#',
        '$',
        '%',
        '&',
        ''',
        '(',
        ')',
        '*',
        '+',
        ',',
        '-',
        '.',
        '/',
        '0',
        '1',
        '2',
        '3',
        '4',
        '5',
        '6',
        '7',
        '8',
        '9',
        ':',
        ';',
        '<',
        '=',
        '>',
        '?',
        '@',
        'A',
        'B',
        'C',
        'D',
        'E',
        'F',
        'G',
        'H',
        'I',
        'J',
        'K',
        'L',
        'M',
        'N',
        'O',
        'P',
        'Q',
        'R',
        'S',
        'T',
        'U',
        'V',
        'W',
        'X',
        'Y',
        'Z',
        '[',
        '\',
        ']',
        '^',
        '_',
        '`',
        'a',
        'b',
        'c',
        'd',
        'e',
        'f',
        'g',
        'h',
        'i',
        'j',
        'k',
        'l',
        'm',
        'n',
        'o',
        LEX_SFUN3,
        LEX_SFUN2,
        LEX_SFUN1,
        LEX_SFUNN,
        LEX_FUN3,
        LEX_FUN2,
        LEX_FUN1,
        LEX_FUNN,
        'x',
        'y',
        'z',
        '{',
        '|',
        '}',
        '~',
        LEX_CRTA,
        LEX_ISNULL,
        LEX_USING,
        LEX_HANDLE,
        LEX_CALLX,
        LEX_COMPLEX,
        LEX_FIXED,
        LEX_ENV,
        LEX_SPARSE,
        LEX_SUBROUTINE,
        LEX_CALL,
        LEX_BOX,
        LEX_VLINE,
        LEX_HLINE,
        LEX_MAXLENGTH,
        LEX_DLENGTH,
        LEX_INPUT,
        LEX_INITIALIZE,
        LEX_OUTPUT,
        LEX_UNLINK,
        LEX_SEEK,
        LEX_EXIT,
        LEX_NOT,
        LEX_COMMON,
        LEX_CHAIN,
        LEX_DEF,
        LEX_ARITY,
        LEX_RESUME,
        LEX_PIC_S,
        LEX_BG,
        LEX_FG,
        LEX_PC,
        LEX_CRT,
        LEX_ENUM,
        LEX_DECLARE,
        LEX_CURSOR,
        LEX_DROP,
        LEX_CURRENT,
        LEX_ISOLATION,
        LEX_SET,
        LEX_TRANSACTION,
        LEX_COMMIT,
        LEX_ABORT,
        LEX_BEGIN,
        LEX_PREVIOUS,
        LEX_LAST,
        LEX_FIRST,
        LEX_KEY,
        LEX_START,
        LEX_REWRITE,
        LEX_INDEX,
        LEX_SECONDARY,
        LEX_PRIMARY,
        LEX_COLUMN,
        LEX_TEMP,
        LEX_TABLE,
        LEX_CREATE,
        LEX_HASH,
        LEX_BTREE,
        LEX_UPDATE,
        LEX_ERROR,
        LEX_ACCEPT,
        LEX_AVG,
        LEX_MAX,
        LEX_MIN,
        LEX_FIELD,
        LEX_RESTORE,
        LEX_END,
        LEX_STEP,
        LEX_NEXT,
        LEX_FOR,
        LEX_RETURN,
        LEX_GOSUB,
        LEX_RANGE,
        LEX_EXPON,
        LEX_XOR,
        LEX_OR,
        LEX_AND,
        LEX_SHIFTR,
        LEX_GE,
        LEX_NE,
        LEX_SHIFTL,
        LEX_LE,
        LEX_VARYING,
        LEX_LENGTH,
        LEX_PRINT,
        LEX_IF,
        LEX_GOTO,
        LEX_ON,
        LEX_THEN,
        LEX_DELETE,
        LEX_TO,
        LEX_SEQUENCE,
        LEX_NONUNIQUE,
        LEX_UNIQUE,
        LEX_FILE,
        LEX_CLOSE,
        LEX_OPEN,
        LEX_DATABASE,
        LEX_RECORD,
        LEX_DATA,
        LEX_WRITE,
        LEX_READ,
        LEX_STOP,
        LEX_LET,
        LEX_MOD,
        LEX_LONG,
        LEX_DIM,
        LEX_SHORT,
        LEX_REM,
        LEX_SHELL,
        LEX_TOKEN,
        LEX_FLOAT,
        LEX_SIDENT,
        LEX_INLREM,
        LEX_ENDLIT,
        LEX_STRLIT,
        LEX_IDENT,
        LEX_LNUMBER,
        LEX_HEX,
        LEX_NUMBER,
        LEX_EOF,
        LEX_QUIT,
        LEX_LIST,
        LEX_REMOVE,
        LEX_RENUMBER,
        LEX_CONTINUE,
        LEX_RUN,
        LEX_MERGE,
        LEX_ENTER,
        LEX_NEW,
        LEX_RESET,
        LEX_SYMTAB,
        LEX_CLS,
        LEX_EDIT,
        LEX_SAVE,
        LEX_RESAVE,
        LEX_LOAD,
        LEX_NAME,
        LEX_LISTP,
        LEX_SHOW,
        LEX_STACK,
        LEX_STATUS,
        LEX_CACHE,
        LEX_INSPECT,
        LEX_STOW,
        LEX_PKGRUN,
        LEX_POP,
        LEX_CHECK,
        LEX_INSERT,
        LEX_INTO,
        LEX_VALUES,
        LEX_NULL,
        LEX_WHERE,
        LEX_FROM,
        LEX_EXEC,
        LEX_SELECT,
        LEX_AS,
        LEX_ALL,
        LEX_BY,
        LEX_CROSS,
        LEX_DESC,
        LEX_FULL,
        LEX_GROUP,
        LEX_INNER,
        LEX_JOIN,
        LEX_LEFT,
        LEX_LIMIT,
        LEX_NATURAL,
        LEX_OFFSET,
        LEX_ORDER,
        LEX_OUTER,
        LEX_RIGHT,
        LEX_FETCH,
        LEX_DISTINCT,
        LEX_DEFAULT,
        LEX_RETURNING,
        LEX_LEVEL,
        LEX_COMMITTED,
        LEX_SERIALIZABLE,
        LEX_ONLY,
        LEX_HOLD,
        LEX_FORWARD,
        LEX_WITH,
        LEX_PRIOR,
        LEX_RELATIVE,
        LEX_BACKWARD,
        LEX_OF,
        LEX_SCROLL,
        LEX_NOWAIT,
        LEX_HAVING,
        LEX_END_TOKENS
    );
 
    type Aux_Kind is (No_Aux, SID_Aux, FID_Aux, LNO_Aux);
 
    type Token_Type(Aux : Aux_Kind := No_Aux) is
        record
            Token : Token_Kind := No_Token;
            case Aux is
                when SID_Aux =>
                    SID :       String_ID;
                when FID_Aux =>
                    FID :       Func_ID;
                when LNO_Aux =>
                    LNO :       LNumber_Type;
                when No_Aux =>
                    null;
            end case;
        end record;
 
    for Token_Type use
        record
            Aux     at 0 range 0..2;
            Token   at 0 range 3..12;
            SID     at 0 range 16..31;
            FID     at 0 range 16..31;
            LNO     at 0 range 13..31;
        end record;
 
    type Tokens_Index is range 0..999999;
    type Token_Array is array(Tokens_Index range <>) of Token_Type;
    type Token_Line is access all Token_Array;	
 
    type Line_Node is
        record
            Line :     Token_Line;
            LNO :      LNumber_Type := 0;
            Numbered : Boolean := False;
        end record;
 
    type Nodes_Index is range 0..999999;
    type LNodes_Array is array(Nodes_Index range <>) of Line_Node;
    type LNodes_Ptr is access all LNodes_Array;
 
    type VString is
        record
            Max_Length : Natural := 0;
            Fixed :      Boolean := False;
        end record;
 
    function To_Long(Object : VString; Radix : Natural) return Long_Type;
 
    function Element (V : String_ID) return String;
 
end Rep_Clause5_Pkg;