|
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: 11264 (0x2c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Packages, seg_021fd5
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
-- Copyright (c) 1990 Meridian Software Systems, Inc. --
with Mac_Types;
use Mac_Types;
with Dialogs;
with Osutils;
with Events;
package Packages is
Listmgr : constant := 0;
Dskinit : constant := 2;
Stdfile : constant := 3;
Flpoint : constant := 4;
Trfunc : constant := 5;
Intutil : constant := 6;
Bdconv : constant := 7;
Putdlgid : constant := -3999;
Putsave : constant := 1;
Putcancel : constant := 2;
Puteject : constant := 5;
Putdrive : constant := 6;
Putname : constant := 7;
Getdlgid : constant := -4000;
Getopen : constant := 1;
Getcancel : constant := 3;
Geteject : constant := 5;
Getdrive : constant := 6;
Getnmlist : constant := 7;
Getscroll : constant := 8;
Currsymlead : constant := 16;
Currnegsym : constant := 32;
Currtrailingz : constant := 64;
Currleadingz : constant := 128;
Zerocycle : constant := 1;
Longday : constant := 0;
Longweek : constant := 1;
Longmonth : constant := 2;
Longyear : constant := 3;
Supday : constant := 1;
Supweek : constant := 2;
Supmonth : constant := 4;
Supyear : constant := 8;
Dayldingz : constant := 32;
Mntldingz : constant := 64;
Century : constant := 128;
Secleadingz : constant := 32;
Minleadingz : constant := 64;
Hrleadingz : constant := 128;
Mdy : constant := 0;
Dmy : constant := 1;
Ymd : constant := 2;
Myd : constant := 3;
Dym : constant := 4;
Ydm : constant := 5;
Verus : constant := 0;
Verfrance : constant := 1;
Verbritain : constant := 2;
Vergermany : constant := 3;
Veritaly : constant := 4;
Vernetherlands : constant := 5;
Verbelgiumlux : constant := 6;
Versweden : constant := 7;
Verspain : constant := 8;
Verdenmark : constant := 9;
Verportugal : constant := 10;
Verfrcanada : constant := 11;
Vernorway : constant := 12;
Verisrael : constant := 13;
Verjapan : constant := 14;
Veraustralia : constant := 15;
Verarabia : constant := 16;
Verfinland : constant := 17;
Verfrswiss : constant := 18;
Vergrswiss : constant := 19;
Vergreece : constant := 20;
Vericeland : constant := 21;
Vermalta : constant := 22;
Vercyprus : constant := 23;
Verturkey : constant := 24;
Veryugoslavia : constant := 25;
Verireland : constant := 50;
Verkorea : constant := 51;
Verchina : constant := 52;
Vertaiwan : constant := 53;
Verthailand : constant := 54;
Mincountry : constant := Verus;
Maxcountry : constant := Verthailand;
type Dateform is (Shortdate, Longdate, Abbrevdate);
type Sfreply is
record
Good : Boolean;
Copy : Boolean;
Ftype : Ostype;
Vrefnum : Mac_Types.Integer;
Version : Mac_Types.Integer;
Fname : Str63;
end record;
type Sftypelist is array (0 .. 3) of Ostype;
type Array1_4char is array (1 .. 4) of Char;
type Intl0rec is
record
Decimalpt : Char;
Thoussep : Char;
Listsep : Char;
Currsym1 : Char;
Currsym2 : Char;
Currsym3 : Char;
Currfmt : Byte;
Dateorder : Byte;
Shrtdatefmt : Byte;
Datesep : Char;
Timecycle : Byte;
Timefmt : Byte;
Mornstr : Array1_4char;
Evestr : Array1_4char;
Timesep : Char;
Time1suff : Char;
Time2suff : Char;
Time3suff : Char;
Time4suff : Char;
Time5suff : Char;
Time6suff : Char;
Time7suff : Char;
Time8suff : Char;
Metricsys : Byte;
Intl0vers : Mac_Types.Integer;
end record;
type Intl0ptr is access Intl0rec;
type Intl0hndl is access Intl0ptr;
type Array1_7str15 is array (1 .. 7) of Str15;
type Array1_12str15 is array (1 .. 12) of Str15;
type Array0_0integer is array (0 .. 0) of Mac_Types.Integer;
type Intl1rec is
record
Days : Array1_7str15;
Months : Array1_12str15;
Suppressday : Byte;
Lngdatefmt : Byte;
Dayleading0 : Byte;
Abbrlen : Byte;
St0 : Array1_4char;
St1 : Array1_4char;
St2 : Array1_4char;
St3 : Array1_4char;
St4 : Array1_4char;
Intl1vers : Mac_Types.Integer;
Localrtn : Array0_0integer;
end record;
type Intl1ptr is access Intl1rec;
type Intl1hndl is access Intl1ptr;
procedure Initpack (Packid : Mac_Types.Integer);
pragma Interface (Mpwpascal, Initpack, "16#A9E5#");
procedure Initallpacks;
pragma Interface (Mpwpascal, Initallpacks, "16#A9E6#");
function Iugetintl (Theid : Mac_Types.Integer) return Handle;
pragma Interface (Mpwpascal, Iugetintl, "IUGETINTL");
procedure Iusetintl (Refnum : Mac_Types.Integer;
Theid : Mac_Types.Integer;
Intlparam : Handle);
pragma Interface (Mpwpascal, Iusetintl, "IUSETINTL");
procedure Iudatestring (Datetime : Longint;
Longflag : Dateform;
Result : in out Str255);
pragma Interface (Mpwpascal, Iudatestring, "IUDATESTRING");
procedure Iudatepstring (Datetime : Longint;
Longflag : Dateform;
Result : in out Str255;
Intlparam : Handle);
pragma Interface (Mpwpascal, Iudatepstring, "IUDATEPSTRING");
function Iumetric return Boolean;
pragma Interface (Mpwpascal, Iumetric, "IUMETRIC");
procedure Iutimepstring (Datetime : Longint;
Wantseconds : Boolean;
Result : in out Str255;
Intlparam : Handle);
pragma Interface (Mpwpascal, Iutimepstring, "IUTIMEPSTRING");
function Iumagstring (Aptr : Ptr;
Bptr : Ptr;
Alen : Mac_Types.Integer;
Blen : Mac_Types.Integer) return Mac_Types.Integer;
pragma Interface (Mpwpascal, Iumagstring, "IUMAGSTRING");
procedure Iutimestring (Datetime : Longint;
Wantseconds : Boolean;
Result : in out Str255);
pragma Interface (Mpwpascal, Iutimestring, "IUTIMESTRING");
function Iumagidstring (Aptr : Ptr;
Bptr : Ptr;
Alen : Mac_Types.Integer;
Blen : Mac_Types.Integer) return Mac_Types.Integer;
pragma Interface (Mpwpascal, Iumagidstring, "IUMAGIDSTRING");
function Iucompstring (Astr : Str255; Bstr : Str255)
return Mac_Types.Integer;
pragma Interface (Mpwpascal, Iucompstring, "IUCOMPSTRING");
function Iuequalstring (Astr : Str255; Bstr : Str255)
return Mac_Types.Integer;
pragma Interface (Mpwpascal, Iuequalstring, "IUEQUALSTRING");
procedure Sfgetfile (Where : Point;
Prompt : Str255;
Filefilter : Procptr;
Numtypes : Mac_Types.Integer;
Typelist : Sftypelist;
Dlghook : Procptr;
Reply : in out Sfreply);
pragma Interface (Mpwpascal, Sfgetfile, "SFGETFILE");
procedure Stringtonum (Thestring : Str255; Thenum : in out Longint);
pragma Interface (Mpwpascal, Stringtonum, "STRINGTONUM");
procedure Sfpgetfile (Where : Point;
Prompt : Str255;
Filefilter : Procptr;
Numtypes : Mac_Types.Integer;
Typelist : Sftypelist;
Dlghook : Procptr;
Reply : in out Sfreply;
Dlgid : Mac_Types.Integer;
Filterproc : Procptr);
pragma Interface (Mpwpascal, Sfpgetfile, "SFPGETFILE");
procedure Numtostring (Thenum : Longint; Thestring : in out Str255);
pragma Interface (Mpwpascal, Numtostring, "NUMTOSTRING");
procedure Sfpputfile (Where : Point;
Prompt : Str255;
Origname : Str255;
Dlghook : Procptr;
Reply : in out Sfreply;
Dlgid : Mac_Types.Integer;
Filterproc : Procptr);
pragma Interface (Mpwpascal, Sfpputfile, "SFPPUTFILE");
procedure Sfputfile (Where : Point;
Prompt : Str255;
Origname : Str255;
Dlghook : Procptr;
Reply : in out Sfreply);
pragma Interface (Mpwpascal, Sfputfile, "SFPUTFILE");
generic
with function Routine (Item : Mac_Types.Integer;
Thedialog : Dialogs.Dialogptr)
return Mac_Types.Integer;
procedure Userdialogroutine;
generic
with function Routine (Paramblock : Osutils.Parmblkptr) return Boolean;
procedure Userfilefilterroutine;
generic
with function Routine (Thedialog : Dialogs.Dialogptr;
Theevent : Events.Eventrecord;
Itemhit : Varinteger) return Boolean;
procedure Userfilterroutine;
end Packages;
nblk1=a
nid=0
hdr6=14
[0x00] rec0=23 rec1=00 rec2=01 rec3=024
[0x01] rec0=20 rec1=00 rec2=02 rec3=008
[0x02] rec0=1f rec1=00 rec2=03 rec3=008
[0x03] rec0=21 rec1=00 rec2=04 rec3=014
[0x04] rec0=1d rec1=00 rec2=05 rec3=02a
[0x05] rec0=17 rec1=00 rec2=06 rec3=05c
[0x06] rec0=16 rec1=00 rec2=07 rec3=08e
[0x07] rec0=17 rec1=00 rec2=08 rec3=02c
[0x08] rec0=15 rec1=00 rec2=09 rec3=050
[0x09] rec0=1c rec1=00 rec2=0a rec3=000
tail 0x2151d44c083906e0a2557 0x42a00088462060003