|
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: 7168 (0x1c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Xload_Unix, seg_005301
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
--/ if R1000 then
with Text_Io;
procedure Xload_Unix is
begin
Text_Io.Put_Line ("This procedure is only for Unix versions.");
end Xload_Unix;
--/ else -- not R1000
--//
--/ if TeleGen2 and then Unix then
--// with Process_Control; -- Unix process control; exit(n)
--// with Unix_Types; -- Unix types
--/ end if;
--//
--// with System;
--// with Text_Io;
--//
--// with Main;
--//
--// with Xlbt_Arithmetic;
--// use Xlbt_Arithmetic;
--// with Xlbt_String;
--// use Xlbt_String;
--//
--// with Xlbp_Display;
--// use Xlbp_Display;
--//
--// procedure Dragon_Unix is
--// ------------------------------------------------------------------------------
--// -- Copyright 1990 - 1990 by Rational, Santa Clara, California.
--// --
--// -- All Rights Reserved.
--// --
--// -- Permission to use, copy, modify, and distribute this software and its
--// -- documentation for any purpose and without fee is hereby granted,
--// -- provided that the above copyright notice(s) appear in all copies and that
--// -- both that copyright notice(s) and this permission notice appear in
--// -- supporting documentation, and that the names of Rational not be used in
--// -- advertising or publicity pertaining to distribution of the software
--// -- without specific, written prior permission.
--// --
--// -- Rational disclaims all warranties with regard to this software, including
--// -- all implied warranties of merchantability and fitness, in no event shall
--// -- Rational be liable for any special, indirect or consequential damages or
--// -- any damages whatsoever resulting from loss of use, data or profits, whether
--// -- in an action of contract, negligence or other tortious action, arising out
--// -- of or in connection with the use or performance of this software.
--// ------------------------------------------------------------------------------
--// ------------------------------------------------------------------------------
--// -- Command line arguments:
--// --
--// -- -display <name> - Display - Specifies the display to use for the game.
--// --
--// -- Run the Dragon program. Put up a window with a "star" in it.
--// ------------------------------------------------------------------------------
--//
--// Argc : Integer;
--// Argvi : Integer;
--// Argv : X_String (1 .. 1024);
--// Argvlen : Integer;
--//
--// Display : X_String_Pointer := new X_String'("");
--//
--// -- \x0c
--/ if TeleGen2 and then Unix then
--// function Get_Argv (Position : Integer;
--// Arg_Ptr : System.Address;
--// Arg_Max_Len : Integer) return Integer;
--// pragma Interface (C, Get_Argv);
--// pragma Linkname (Get_Argv, "Xlbmt_Get_ArgV");
--//
--// function Get_Argc return Integer;
--// pragma Interface (C, Get_Argc);
--// pragma Linkname (Get_Argc, "Xlbmt_Get_ArgC");
--//
--/ end if;
--//
--// -- \x0c
--// procedure Usage (Result : Integer) is
--// procedure P (S : String) renames Text_Io.Put_Line;
--// begin
--//
--// P ("Usage: dragon [-display <display>]");
--// P (" -help - display this printout");
--// P (" -display <display> - display to use");
--/ if TeleGen2 and then Unix then
--// Process_Control.Exit_Execution (Unix_Types.Integer_32 (Result));
--/ end if;
--//
--// end Usage;
--//
--// -- \x0c
--// procedure Next_Arg is
--// begin
--// Argvlen := Get_Argv (Argvi,
--// Argv (Argv'First)'Address,
--// Argv'Length);
--// Argvi := Argvi + 1;
--// end Next_Arg;
--//
--// function This_Arg return X_String is
--// begin
--// return Argv (1 .. S_Natural (Argvlen));
--// end This_Arg;
--//
--// -- \x0c
--// begin
--//
--// ----Process the command line arguments. Skip the 0'th argument, it is just
--// -- our command name.
--//
--// Argc := Get_Argc;
--// Argvi := 1;
--// while Argvi < Argc loop
--// Next_Arg;
--//
--// ---- -display <name> - Display - Specifies the display to use
--//
--// if This_Arg = "-display" and then Argvi < Argc then
--// Next_Arg;
--// Display := new X_String'(This_Arg);
--//
--// ---- -help - Help - Specifies that a help list be displaye
--//
--// elsif Argv (1 .. S_Natural (Argvlen)) = "-help" then
--// Usage (0);
--//
--// ----Anything else is an error.
--//
--// else
--// Text_Io.Put_Line ("Unrecognized command line option: {" &
--// To_String (
--// Argv (1 .. S_Natural (Argvlen)) & "}"));
--// Usage (1);
--// end if;
--// end loop;
--//
--// ----Create the output filename.
--//
--// Main.Main (Display => X_Display_Name (Display.all));
--//
--/ if TeleGen2 and then Unix then
--// Process_Control.Exit_Execution (0); -- Program exit
--/ end if;
--//
--// end Dragon_Unix;
--//
--/ end if; -- not R1000
nblk1=6
nid=0
hdr6=c
[0x00] rec0=25 rec1=00 rec2=01 rec3=044
[0x01] rec0=0e rec1=00 rec2=02 rec3=010
[0x02] rec0=19 rec1=00 rec2=03 rec3=004
[0x03] rec0=1e rec1=00 rec2=04 rec3=022
[0x04] rec0=1e rec1=00 rec2=05 rec3=036
[0x05] rec0=0f rec1=00 rec2=06 rec3=000
tail 0x2150097f2819787057e29 0x42a00088462063203