|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, package Gen, seg_030a9e
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
with Misc_Defs; use Misc_Defs; package Gen is procedure Do_Indent; procedure Gen_Backtracking; procedure Gen_Bt_Action; procedure Gen_Find_Action; procedure Gen_Next_Compressed_State; procedure Gen_Next_Match; procedure Gen_Next_State; procedure Gen_Start_State; procedure Genecs; procedure Genftbl; procedure Indent_Puts (Str : in String); procedure Gentabs; procedure Indent_Down; procedure Indent_Up; procedure Set_Indent (Indent_Val : in Integer); procedure Make_Tables; procedure Do_Sect3_Out; end Gen; -- 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 integer IO -- AUTHOR: John Self (UCI) -- DESCRIPTION instantiation of integer IO generic for integers -- $Header: /co/ua/self/arcadia/aflex/ada/src/RCS/int_io.a,v 1.3 90/01/12 15:20:09 self Exp Locker: self $
nblk1=2 nid=0 hdr6=4 [0x00] rec0=1f rec1=00 rec2=01 rec3=054 [0x01] rec0=0f rec1=00 rec2=02 rec3=001 tail 0x2152980c684a64e848ea0 0x42a00088462060003