DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

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

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦1ca4e75c8⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Misc, seg_030aa3

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

E3 Source Code



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 $


E3 Meta Data

    nblk1=4
    nid=0
    hdr6=8
        [0x00] rec0=19 rec1=00 rec2=01 rec3=034
        [0x01] rec0=11 rec1=00 rec2=02 rec3=076
        [0x02] rec0=14 rec1=00 rec2=03 rec3=05e
        [0x03] rec0=07 rec1=00 rec2=04 rec3=000
    tail 0x2172a3ffc84a64e8debb4 0x42a00088462060003