DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download
Index: ┃ T V

⟦bc82f3f48⟧ TextFile

    Length: 3289 (0xcd9)
    Types: TextFile
    Names: »V«

Derivation

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

TextFile

with Misc_Defs, Tstring, Text_Io;
package Misc is
    use Misc_Defs;
    use Tstring;
    use Text_Io;
    procedure Action_Out;
    procedure Bubble (V : in Int_Ptr; N : in Integer);
    function Clower (C : in Integer) return Integer;
    procedure Cshell (V : in out Char_Array; N : in Integer);
    procedure Dataend;
    procedure Dataflush;
    procedure Dataflush (File : in File_Type);
    function Aflex_Gettime return Vstring;
    procedure Aflexerror (Msg : in Vstring);
    procedure Aflexerror (Msg : in String);
    function All_Upper (Str : in Vstring) return Boolean;
    function All_Lower (Str : in Vstring) return Boolean;
    procedure Aflexfatal (Msg : in Vstring);
    procedure Aflexfatal (Msg : in String);
    procedure Line_Directive_Out;
    procedure Line_Directive_Out (Output_File_Name : in File_Type);
    procedure Mk2data (Value : in Integer);
    procedure Mk2data (File : in File_Type; Value : in Integer);
    procedure Mkdata (Value : in Integer);
    function Myctoi (Num_Array : in Vstring) return Integer;
    function Myesc (Arr : in Vstring) return Character;
    function Otoi (Str : in Vstring) return Character;
    function Readable_Form (C : in Character) return Vstring;
    procedure Synerr (Str : in String);
    procedure Transition_Struct_Out (Element_V, Element_N : in Integer);
    function Set_Yy_Trailing_Head_Mask (Src : in Integer) return Integer;
    function Check_Yy_Trailing_Head_Mask (Src : in Integer) return Integer;
    function Set_Yy_Trailing_Mask (Src : in Integer) return Integer;
    function Check_Yy_Trailing_Mask (Src : in Integer) return Integer;
    function Islower (C : in Character) return Boolean;
    function Isupper (C : in Character) return Boolean;
    function Isdigit (C : in Character) return Boolean;
    function Tolower (C : in Integer) return Integer;
    function Basename return Vstring;
end Misc;
-- Copyright (c) 1990 Regents of the University of California.
-- All rights reserved.
--
-- This software was developed by John Self of the Arcadia project
-- at the University of California, Irvine.
--
-- Redistribution and use in source and binary forms are permitted
-- provided that the above copyright notice and this paragraph are
-- duplicated in all such forms and that any documentation,
-- advertising materials, and other materials related to such
-- distribution and use acknowledge that the software was developed
-- by the University of California, Irvine.  The name of the
-- University may not be used to endorse or promote products derived
-- from this software without specific prior written permission.
-- THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
-- IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
-- WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.

-- TITLE miscellaneous definitions
-- AUTHOR: John Self (UCI)
-- DESCRIPTION contains all global variables used in aflex.
--             also some subprograms which are commonly used.
-- NOTES The real purpose of this file is to contain all miscellaneous
--       items (functions, MACROS, variables definitions) which were at the
--       top level of flex.
-- $Header: /co/ua/self/arcadia/aflex/ada/src/RCS/misc_defsB.a,v 1.5 90/01/12 15:20:21 self Exp Locker: self $