|
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: 35840 (0x8c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Script, seg_021fe5
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
-- Copyright (c) 1990 Meridian Software Systems, Inc. --
with Mac_Types;
use Mac_Types;
with Packages;
with Sane;
package Script is
Smgrvers : constant := 16#0210#;
Smroman : constant := 0;
Smkanji : constant := 1;
Smjapanese : constant := 1;
Smchinese : constant := 2;
Smkorean : constant := 3;
Smarabic : constant := 4;
Smhebrew : constant := 5;
Smgreek : constant := 6;
Smrussian : constant := 7;
Smrsymbol : constant := 8;
Smdevanagari : constant := 9;
Smgurmukhi : constant := 10;
Smgujarati : constant := 11;
Smoriya : constant := 12;
Smbengali : constant := 13;
Smtamil : constant := 14;
Smtelugu : constant := 15;
Smkannada : constant := 16;
Smmalayalam : constant := 17;
Smsinhalese : constant := 18;
Smburmese : constant := 19;
Smcambodian : constant := 20;
Smkhmer : constant := 20;
Smthai : constant := 21;
Smlaotian : constant := 22;
Smgeorgian : constant := 23;
Smarmenian : constant := 24;
Smmaldivian : constant := 25;
Smtibetan : constant := 26;
Smmongolian : constant := 27;
Smethiopian : constant := 28;
Smamharic : constant := 28;
Smslavic : constant := 29;
Smvietnamese : constant := 30;
Smsindhi : constant := 31;
Smuninterp : constant := 32;
Langenglish : constant := 0;
Langfrench : constant := 1;
Langgerman : constant := 2;
Langitalian : constant := 3;
Langdutch : constant := 4;
Langswedish : constant := 5;
Langspanish : constant := 6;
Langdanish : constant := 7;
Langportugese : constant := 8;
Langnorwegian : constant := 9;
Langhebrew : constant := 10;
Langjapanese : constant := 11;
Langarabic : constant := 12;
Langfinnish : constant := 13;
Langgreek : constant := 14;
Langicelandic : constant := 15;
Langmalta : constant := 16;
Langturkish : constant := 17;
Langyugoslavian : constant := 18;
Langchinese : constant := 19;
Langurdu : constant := 20;
Langhindi : constant := 21;
Langthai : constant := 22;
Calgregorian : constant := 0;
Calarabiccivil : constant := 1;
Calarabiclunar : constant := 2;
Caljapanese : constant := 3;
Caljewish : constant := 4;
Calcoptic : constant := 5;
Intwestern : constant := 0;
Intarabic : constant := 1;
Introman : constant := 2;
Intjapanese : constant := 3;
Inteuropean : constant := 4;
Intoutputmask : constant := 16#8000#;
Smsinglebyte : constant := 0;
Smfirstbyte : constant := -1;
Smlastbyte : constant := 1;
Smmiddlebyte : constant := 2;
Smctypemask : constant := 16#000F#;
Smcreserved : constant := 16#00F0#;
Smcclassmask : constant := 16#0F00#;
Smcreserved12 : constant := 16#1000#;
Smcrightmask : constant := 16#2000#;
Smcuppermask : constant := 16#4000#; Smcdoublemask : constant := 16#8000#;
Smcharpunct : constant := 0;
Smcharascii : constant := 1;
Smcharfiskana : constant := 2;
Smcharfisgana : constant := 3;
Smcharfisideo : constant := 4;
Smcharfisgreek : constant := 5;
Smcharfisrussian : constant := 6;
Smchareuro : constant := 7;
Smcharfishangul : constant := 8;
Smpunctnormal : constant := 16#0000#;
Smpunctnumber : constant := 16#0100#;
Smpunctsymbol : constant := 16#0200#;
Smpunctblank : constant := 16#0300#;
Smcharleft : constant := 16#0000#;
Smcharright : constant := 16#2000#;
Smcharlower : constant := 16#0000#;
Smcharupper : constant := 16#4000#;
Smchar1byte : constant := 16#0000#;
Smchar2byte : constant := 16#8000#;
Smleftcaret : constant := 0;
Smrightcaret : constant := -1;
Smhilite : constant := 1;
Smtransascii : constant := 0;
Smtransnative : constant := 1;
Smtranscase : constant := 16#FF#;
Smtransascii1 : constant := 2;
Smtransascii2 : constant := 3;
Smtranskana1 : constant := 4;
Smtranskana2 : constant := 5;
Smtransgana2 : constant := 7;
Smtranslower : constant := 16#4000#;
Smtransupper : constant := 16#8000#;
Smmaskall : constant := 16#FFFFFFFF#;
Smmaskascii : constant := 16#0001#;
Smmasknative : constant := 16#0002#;
Smmaskascii1 : constant := 16#00000004#;
Smmaskascii2 : constant := 16#00000008#;
Smmaskkana1 : constant := 16#00000010#;
Smmaskkana2 : constant := 16#00000020#;
Smmaskgana2 : constant := 16#00000080#;
Smnotinstalled : constant := 0;
Smbadverb : constant := -1;
Smbadscript : constant := -2;
Smversion : constant := 0;
Smmunged : constant := 2;
Smenabled : constant := 4;
Smbidirect : constant := 6;
Smfontforce : constant := 8;
Smintlforce : constant := 10;
Smforced : constant := 12;
Smdefault : constant := 14;
Smprint : constant := 16;
Smsysscript : constant := 18;
Smlastscript : constant := 20;
Smkeyscript : constant := 22;
Smsysref : constant := 24;
Smkeycache : constant := 26;
Smkeyswap : constant := 28;
Smgenflags : constant := 30;
Smoverride : constant := 32;
Smcharportion : constant := 34;
Smlasteverb : constant := Smcharportion;
Smscriptversion : constant := 0;
Smscriptmunged : constant := 2;
Smscriptenabled : constant := 4;
Smscriptright : constant := 6;
Smscriptjust : constant := 8;
Smscriptredraw : constant := 10;
Smscriptsysfond : constant := 12;
Smscriptappfond : constant := 14;
Smscriptbundle : constant := 16;
Smscriptnumber : constant := 16;
Smscriptdate : constant := 18;
Smscriptsort : constant := 20;
Smscriptflags : constant := 22;
Smscripttoken : constant := 24;
Smscriptrsvd3 : constant := 26;
Smscriptlang : constant := 28;
Smscriptnumdate : constant := 30;
Smscriptkeys : constant := 32;
Smscripticon : constant := 34;
Smscriptprint : constant := 36;
Smscripttrap : constant := 38;
Smscriptcreator : constant := 40;
Smscriptfile : constant := 42;
Smscriptname : constant := 44;
Smlastsverb : constant := Smscriptname;
Smsfintellcp : constant := 0;
Smsfsingbyte : constant := 1;
Smsfnatcase : constant := 2;
Smsfcontext : constant := 3;
Smsfnoforcefont : constant := 4;
Smsfb0digits : constant := 5;
Smsfforms : constant := 13;
Smsfligatures : constant := 14;
Smsfreverse : constant := 15;
Smfshowicon : constant := 31;
Smfdualcaret : constant := 30;
Romanvers : constant := 16#0101#;
Romansysfond : constant := 16#3FFF#;
Romanappfond : constant := 3;
Romanflags : constant := 16#0007#;
Smfondstart : constant := 16#4000#;
Smfondend : constant := 16#C000#;
Diaeresisupry : constant := 16#D9#;
Fraction : constant := 16#DA#;
Intlcurrency : constant := 16#DB#;
Leftsingguillemet : constant := 16#DC#;
Rightsingguillemet : constant := 16#DD#;
Filigature : constant := 16#DE#;
Flligature : constant := 16#DF#;
Dbldagger : constant := 16#E0#;
Centereddot : constant := 16#E1#;
Basesingquote : constant := 16#E2#;
Basedblquote : constant := 16#E3#;
Perthousand : constant := 16#E4#;
Circumflexupra : constant := 16#E5#;
Circumflexupre : constant := 16#E6#;
Acuteupra : constant := 16#E7#;
Diaeresisupre : constant := 16#E8#;
Graveupre : constant := 16#E9#;
Acuteupri : constant := 16#EA#;
Circumflexupri : constant := 16#EB#;
Diaeresisupri : constant := 16#EC#;
Graveupri : constant := 16#ED#;
Acuteupro : constant := 16#EE#;
Circumflexupro : constant := 16#EF#;
Applelogo : constant := 16#F0#;
Graveupro : constant := 16#F1#;
Acuteupru : constant := 16#F2#;
Circumflexupru : constant := 16#F3#;
Graveupru : constant := 16#F4#;
Dotlesslwri : constant := 16#F5#;
Circumflex : constant := 16#F6#;
Tilde : constant := 16#F7#;
Macron : constant := 16#F8#;
Breve : constant := 16#F9#;
Overdot : constant := 16#FA#;
Ring : constant := 16#FB#;
Cedilla : constant := 16#FC#;
Doubleacute : constant := 16#FD#;
Ogonek : constant := 16#FE#;
Hachek : constant := 16#FF#;
Fataldatetime : constant := 16#8000#;
Longdatefound : constant := 1;
Leftoverchars : constant := 2;
Sepnotintlsep : constant := 4;
Fieldordernotintl : constant := 8;
Extraneousstrings : constant := 16;
Toomanyseps : constant := 32;
Sepnotconsistent : constant := 64;
Tokenerr : constant := 16#8100#;
Cantreadutilities : constant := 16#8200#;
Datetimenotfound : constant := 16#8400#;
Datetimeinvalid : constant := 16#8800#;
Tokenintl : constant := 4;
Tokenempty : constant := -1;
Tokenunknown : constant := 0;
Tokenwhite : constant := 1;
Tokenleftlit : constant := 2;
Tokenrightlit : constant := 3;
Tokenalpha : constant := 4;
Tokennumeric : constant := 5;
Tokennewline : constant := 6;
Tokenleftcomment : constant := 7;
Tokenrightcomment : constant := 8;
Tokenliteral : constant := 9;
Tokenescape : constant := 10;
Tokenaltnum : constant := 11;
Tokenrealnum : constant := 12;
Tokenaltreal : constant := 13;
Tokenreserve1 : constant := 14;
Tokenreserve2 : constant := 15;
Tokenleftparen : constant := 16;
Tokenrightparen : constant := 17;
Tokenleftbracket : constant := 18;
Tokenrightbracket : constant := 19;
Tokenleftcurly : constant := 20;
Tokenrightcurly : constant := 21;
Tokenleftenclose : constant := 22;
Tokenrightenclose : constant := 23;
Tokenplus : constant := 24;
Tokenminus : constant := 25;
Tokenasterisk : constant := 26;
Tokendivide : constant := 27;
Tokenplusminus : constant := 28;
Tokenslash : constant := 29;
Tokenbackslash : constant := 30;
Tokenless : constant := 31;
Tokengreat : constant := 32;
Tokenequal : constant := 33;
Tokenlessequal2 : constant := 34;
Tokenlessequal1 : constant := 35;
Tokengreatequal2 : constant := 36;
Tokengreatequal1 : constant := 37;
Token2equal : constant := 38;
Tokencolonequal : constant := 39;
Tokennotequal : constant := 40;
Tokenlessgreat : constant := 41;
Tokenexclamequal : constant := 42;
Tokenexclam : constant := 43;
Tokentilda : constant := 44;
Tokencomma : constant := 45;
Tokenperiod : constant := 46;
Tokenleft2quote : constant := 47;
Tokenright2quote : constant := 48;
Tokenleft1quote : constant := 49;
Tokenright1quote : constant := 50;
Token2quote : constant := 51;
Token1quote : constant := 52;
Tokensemicolon : constant := 53;
Tokenpercent : constant := 54;
Tokencarat : constant := 55;
Tokenunderline : constant := 56;
Tokenampersand : constant := 57;
Tokenatsign : constant := 58;
Tokenbar : constant := 59;
Tokenquestion : constant := 60;
Tokenpi : constant := 61;
Tokenroot : constant := 62;
Tokensigma : constant := 63;
Tokenintegral : constant := 64;
Tokenmicro : constant := 65;
Tokencappi : constant := 66;
Tokeninfinity : constant := 67;
Tokencolon : constant := 68;
Tokenhash : constant := 69;
Tokendollar : constant := 70;
Tokennobreakspace : constant := 71;
Tokenfraction : constant := 72;
Tokenintlcurrency : constant := 73;
Tokenleftsingguillemet : constant := 74;
Tokenrightsingguillemet : constant := 75;
Tokenperthousand : constant := 76;
Tokennil : constant := 127;
Delimpad : constant := -2;
Tokleftquote : constant := 1;
Tokrightquote : constant := 2;
Tokleadplacer : constant := 3;
Tokleader : constant := 4;
Toknonleader : constant := 5;
Tokzerolead : constant := 6;
Tokpercent : constant := 7;
Tokplussign : constant := 8;
Tokminussign : constant := 9;
Tokthousands : constant := 10;
Tokseparator : constant := 12;
Tokescape : constant := 13;
Tokdecpoint : constant := 14;
Tokeplus : constant := 15;
Tokeminus : constant := 16;
Tokmaxsymbols : constant := 31;
Curnumberpartsversion : constant := 1;
Smalldatebit : constant := 31;
Togchar12hourbit : constant := 30;
Togcharzcyclebit : constant := 29;
Togdelta12hourbit : constant := 28;
Validdatefields : constant := -1;
Maxdatefield : constant := 10;
Eramask : constant := 16#0001#;
Yearmask : constant := 16#0002#;
Monthmask : constant := 16#0004#;
Daymask : constant := 16#0008#;
Hourmask : constant := 16#0010#;
Minutemask : constant := 16#0020#;
Secondmask : constant := 16#0040#;
Dayofweekmask : constant := 16#0080#;
Dayofyearmask : constant := 16#0100#;
Weekofyearmask : constant := 16#0200#;
Pmmask : constant := 16#0400#;
Datestdmask : constant := 16#007F#;
Fvnumber : constant := 0;
Toggleundefined : constant := 0;
Toggleok : constant := 1;
Togglebadfield : constant := 2;
Togglebaddelta : constant := 3;
Togglebadchar : constant := 4;
Toggleunknown : constant := 5;
Togglebadnum : constant := 6;
Toggleerr3 : constant := 7;
Toggleerr4 : constant := 8;
Toggleerr5 : constant := 9;
type Tokenresults is (Tokenok, Tokenoverflow, Stringoverflow,
Baddelim, Badending, Crash);
type Longdatefield is (Erafield, Yearfield, Monthfield, Dayfield,
Hourfield, Minutefield, Secondfield,
Dayofweekfield, Dayofyearfield, Weekofyearfield,
Pmfield, Res1field, Res2field, Res3field);
type Styledlinebreakcode is (Smbreakword, Smbreakchar, Smbreakoverflow);
type Formatclass is (Fpositive, Fnegative, Fzero);
subtype Toggleresults is Mac_Types.Integer;
type Formatresulttype is (Fformatok, Fbestguess, Foutofsynch,
Fspuriouschars, Fmissingdelimiter, Fextradecimal,
Fmissingliteral, Fextraexp, Fformatoverflow,
Fformstrisnan, Fbadpartstable, Fextrapercent,
Fextraseparator, Femptyformatstring);
type Charbytetable is array (0 .. 255) of Signedbyte;
type Array0_255signedbyte is array (0 .. 255) of Signedbyte;
type Array0_0integer is array (0 .. 0) of Mac_Types.Integer;
type Breaktable is
record
Chartypes : Array0_255signedbyte;
Triplelength : Mac_Types.Integer;
Triples : Array0_0integer;
end record;
type Breaktableptr is access Breaktable;
type Offpair is
record
Offfirst : Mac_Types.Integer;
Offsecond : Mac_Types.Integer;
end record;
type Offsettable is array (0 .. 2) of Offpair;
type Array0_35signedbyte is array (0 .. 35) of Signedbyte;
type Itlcrecord is
record
Itlcsystem : Mac_Types.Integer;
Itlcreserved : Mac_Types.Integer;
Itlcfontforce : Signedbyte;
Itlcintlforce : Signedbyte;
Itlcoldkybd : Signedbyte;
Itlcflags : Signedbyte;
Itlciconoffset : Mac_Types.Integer;
Itlciconside : Signedbyte;
Itlciconrsvd : Signedbyte;
Itlcreserved2 : Array0_35signedbyte;
end record;
type Itlbrecord is
record
Itlbnumber : Mac_Types.Integer;
Itlbdate : Mac_Types.Integer;
Itlbsort : Mac_Types.Integer;
Itlbflags : Mac_Types.Integer;
Itlbtoken : Mac_Types.Integer;
Itlbreserved3 : Mac_Types.Integer;
Itlblang : Mac_Types.Integer;
Itlbnumrep : Signedbyte;
Itlbdaterep : Signedbyte;
Itlbkeys : Mac_Types.Integer;
Itlbicon : Mac_Types.Integer;
end record;
type Machinelocation is
record
Latitude : Fract;
Longitude : Fract;
Gmtdelta : Longint;
end record;
subtype String2datestatus is Mac_Types.Integer;
subtype Tokentype is Mac_Types.Integer;
type Delimtype is array (0 .. 1) of Tokentype;
type Commenttype is array (0 .. 3) of Tokentype;
type Tokenrec is
record
Thetoken : Tokentype;
Position : Ptr;
Length : Longint;
Stringposition : Stringptr;
end record;
type Tokenrecptr is access Tokenrec;
type Array0_7longint is array (0 .. 7) of Longint;
type Tokenblock is
record
Source : Ptr;
Sourcelength : Longint;
Tokenlist : Ptr;
Tokenlength : Longint;
Tokencount : Longint;
Stringlist : Ptr;
Stringlength : Longint;
Stringcount : Longint;
Dostring : Boolean;
Doappend : Boolean;
Doalphanumeric : Boolean;
Donest : Boolean;
Leftdelims : Delimtype;
Rightdelims : Delimtype;
Leftcomment : Commenttype;
Rightcomment : Commenttype;
Escapecode : Tokentype;
Decimalcode : Tokentype;
Itlresource : Handle;
Reserved : Array0_7longint;
end record;
type Tokenblockptr is access Tokenblock;
type Array0_255integer is array (0 .. 255) of Mac_Types.Integer;
type Untokentable is
record
Len : Mac_Types.Integer;
Lasttoken : Mac_Types.Integer;
Index : Array0_255integer;
end record;
type Untokentableptr is access Untokentable;
type Untokentablehandle is access Untokentableptr;
type Datecacherecord is
record
Hidden : Array0_255integer;
end record;
type Datecacheptr is access Datecacherecord;
subtype Longdatetime is Comp;
type Longdaterec is
record
Era : Mac_Types.Integer;
Year : Mac_Types.Integer;
Month : Mac_Types.Integer;
Day : Mac_Types.Integer;
Hour : Mac_Types.Integer;
Minute : Mac_Types.Integer;
Second : Mac_Types.Integer;
Dayofweek : Mac_Types.Integer;
Dayofyear : Mac_Types.Integer;
Weekofyear : Mac_Types.Integer;
Pm : Mac_Types.Integer;
Res1 : Mac_Types.Integer;
Res2 : Mac_Types.Integer;
Res3 : Mac_Types.Integer;
end record;
type Array0_3longint is array (0 .. 3) of Longint;
subtype Datedelta is Signedbyte;
type Togglepb is
record
Togflags : Longint;
Amchars : Restype;
Pmchars : Restype;
Reserved : Array0_3longint;
end record;
type Formatorder is array (0 .. 0) of Mac_Types.Integer;
type Formatorderptr is access Formatorder;
subtype Formatstatus is Mac_Types.Integer;
type Array0_1char is array (0 .. 1) of Char;
type Widechar is
record
A : Array0_1char;
end record;
type Array0_9widechar is array (0 .. 9) of Widechar;
type Widechararr is
record
Size : Mac_Types.Integer;
Data : Array0_9widechar;
end record;
type Array0_253signedbyte is array (0 .. 253) of Signedbyte;
type Numformatstring is
record
Flength : Byte;
Fversion : Byte;
Data : Array0_253signedbyte;
end record;
type Itl4rec is
record
Flags : Mac_Types.Integer;
Resourcetype : Longint;
Resourcenum : Mac_Types.Integer;
Version : Mac_Types.Integer;
Resheader1 : Longint;
Resheader2 : Longint;
Numtables : Mac_Types.Integer;
Mapoffset : Longint;
Stroffset : Longint;
Fetchoffset : Longint;
Untokenoffset : Longint;
Defpartsoffset : Longint;
Resoffset6 : Longint;
Resoffset7 : Longint;
Resoffset8 : Longint;
end record;
type Itl4ptr is access Itl4rec;
type Itl4handle is access Itl4ptr;
type Array1_31widechar is array (1 .. 31) of Widechar;
type Array0_19char is array (0 .. 19) of Char;
type Numberparts is
record
Version : Mac_Types.Integer;
Data : Array1_31widechar;
Peplus : Widechararr;
Peminus : Widechararr;
Peminusplus : Widechararr;
Altnumtable : Widechararr;
Reserved : Array0_19char;
end record;
type Numberpartsptr is access Numberparts;
type Fvector is
record
Start : Mac_Types.Integer;
Length : Mac_Types.Integer;
end record;
type Tripleint is array (0 .. 2) of Fvector;
subtype Scriptrunstatus is Mac_Types.Integer;
function Fontscript return Mac_Types.Integer;
pragma Interface (Mpwpascal, Fontscript,
"16#2F3C#,16#8200#,16#0000#,16#A8B5#");
function Intlscript return Mac_Types.Integer;
pragma Interface (Mpwpascal, Intlscript,
"16#2F3C#,16#8200#,16#0002#,16#A8B5#");
procedure Keyscript (Code : Mac_Types.Integer);
pragma Interface (Mpwpascal, Keyscript,
"16#2F3C#,16#8002#,16#0004#,16#A8B5#");
function Font2script (Fontnumber : Mac_Types.Integer)
return Mac_Types.Integer;
pragma Interface (Mpwpascal, Font2script,
"16#2F3C#,16#8202#,16#0006#,16#A8B5#");
function Getenvirons (Verb : Mac_Types.Integer) return Longint;
pragma Interface (Mpwpascal, Getenvirons,
"16#2F3C#,16#8402#,16#0008#,16#A8B5#");
function Setenvirons
(Verb : Mac_Types.Integer; Param : Longint) return Oserr;
pragma Interface (Mpwpascal, Setenvirons,
"16#2F3C#,16#8206#,16#000A#,16#A8B5#");
function Getscript (Script : Mac_Types.Integer; Verb : Mac_Types.Integer)
return Longint;
pragma Interface (Mpwpascal, Getscript,
"16#2F3C#,16#8404#,16#000C#,16#A8B5#");
function Setscript (Script : Mac_Types.Integer;
Verb : Mac_Types.Integer;
Param : Longint) return Oserr;
pragma Interface (Mpwpascal, Setscript,
"16#2F3C#,16#8208#,16#000E#,16#A8B5#");
function Charbyte (Textbuf : Ptr; Textoffset : Mac_Types.Integer)
return Mac_Types.Integer;
pragma Interface (Mpwpascal, Charbyte,
"16#2F3C#,16#8206#,16#0010#,16#A8B5#");
function Chartype (Textbuf : Ptr; Textoffset : Mac_Types.Integer)
return Mac_Types.Integer;
pragma Interface (Mpwpascal, Chartype,
"16#2F3C#,16#8206#,16#0012#,16#A8B5#");
function Pixel2char (Textbuf : Ptr;
Textlen : Mac_Types.Integer;
Slop : Mac_Types.Integer;
Pixelwidth : Mac_Types.Integer;
Leadingedge : Varboolean) return Mac_Types.Integer;
pragma Interface (Mpwpascal, Pixel2char,
"16#2F3C#,16#820E#,16#0014#,16#A8B5#");
function Char2pixel (Textbuf : Ptr;
Textlen : Mac_Types.Integer;
Slop : Mac_Types.Integer;
Offset : Mac_Types.Integer;
Direction : Mac_Types.Integer)
return Mac_Types.Integer;
pragma Interface (Mpwpascal, Char2pixel,
"16#2F3C#,16#820C#,16#0016#,16#A8B5#");
function Transliterate (Srchandle : Handle;
Dsthandle : Handle;
Target : Mac_Types.Integer;
Srcmask : Longint) return Oserr;
pragma Interface (Mpwpascal, Transliterate,
"16#2F3C#,16#820E#,16#0018#,16#A8B5#");
procedure Findword (Textptr : Ptr;
Textlength : Mac_Types.Integer;
Offset : Mac_Types.Integer;
Leftside : Boolean;
Breaks : Breaktableptr;
Offsets : in out Offsettable);
pragma Interface (Mpwpascal, Findword,
"16#2F3C#,16#8012#,16#001A#,16#A8B5#");
procedure Hilitetext (Textptr : Ptr;
Textlength : Mac_Types.Integer;
Firstoffset : Mac_Types.Integer;
Secondoffset : Mac_Types.Integer;
Offsets : in out Offsettable);
pragma Interface (Mpwpascal, Hilitetext,
"16#2F3C#,16#800E#,16#001C#,16#A8B5#");
procedure Drawjust (Textptr : Ptr;
Textlength : Mac_Types.Integer;
Slop : Mac_Types.Integer);
pragma Interface (Mpwpascal, Drawjust,
"16#2F3C#,16#8008#,16#001E#,16#A8B5#");
procedure Measurejust (Textptr : Ptr;
Textlength : Mac_Types.Integer;
Slop : Mac_Types.Integer;
Charlocs : Ptr);
pragma Interface (Mpwpascal, Measurejust,
"16#2F3C#,16#800C#,16#0020#,16#A8B5#");
function Parsetable (Table : Charbytetable) return Boolean;
pragma Interface (Mpwpascal, Parsetable,
"16#2F3C#,16#8204#,16#0022#,16#A8B5#");
function Getdeffontsize return Mac_Types.Integer;
pragma Interface (Mpwpascal, Getdeffontsize,
"16#3EB8#,16#0BA8#,16#6604#,16#3EBC#,16#000C#");
function Getsysfont return Mac_Types.Integer;
pragma Interface (Mpwpascal, Getsysfont, "16#3EB8#,16#0BA6#");
function Getappfont return Mac_Types.Integer;
pragma Interface (Mpwpascal, Getappfont, "16#3EB8#,16#0984#");
function Getmbarheight return Mac_Types.Integer;
pragma Interface (Mpwpascal, Getmbarheight, "16#3EB8#,16#0BAA#");
function Getsysjust return Mac_Types.Integer;
pragma Interface (Mpwpascal, Getsysjust, "16#3EB8#,16#0BAC#");
procedure Setsysjust (Newjust : Mac_Types.Integer);
pragma Interface (Mpwpascal, Setsysjust, "16#31DF#,16#0BAC#");
procedure Readlocation (Loc : in out Machinelocation);
pragma Interface (Mpwpascal, Readlocation,
"16#205F#,16#203C#,16#000C#,16#00E4#,16#A051#");
procedure Writelocation (Loc : Machinelocation);
pragma Interface (Mpwpascal, Writelocation,
"16#205F#,16#203C#,16#000C#,16#00E4#,16#A052#");
procedure Uprtext (Textptr : Ptr; Len : Mac_Types.Integer);
pragma Interface (Mpwpascal, Uprtext, "16#301F#,16#205F#,16#A054#");
procedure Lwrtext (Textptr : Ptr; Len : Mac_Types.Integer);
pragma Interface (Mpwpascal, Lwrtext, "16#301F#,16#205F#,16#A056#");
function Styledlinebreak
(Textptr : Ptr;
Textlen : Longint;
Textstart : Longint;
Textend : Longint;
Flags : Longint;
Textwidth : Varfixed;
Textoffset : Varlongint) return Styledlinebreakcode;
pragma Interface (Mpwpascal, Styledlinebreak,
"16#2F3C#,16#821C#,16#FFFE#,16#A8B5#");
procedure Getformatorder (Ordering : Formatorderptr;
Firstformat : Mac_Types.Integer;
Lastformat : Mac_Types.Integer;
Lineright : Boolean;
Rldirproc : Ptr;
Dirparam : Ptr);
pragma Interface (Mpwpascal, Getformatorder,
"16#2F3C#,16#8012#,16#FFFC#,16#A8B5#");
function Intltokenize (Tokenparam : Tokenblockptr) return Tokenresults;
pragma Interface (Mpwpascal, Intltokenize,
"16#2F3C#,16#8204#,16#FFFA#,16#A8B5#");
function Initdatecache (Thecache : Datecacheptr) return Oserr;
pragma Interface (Mpwpascal, Initdatecache,
"16#2F3C#,16#8204#,16#FFF8#,16#A8B5#");
function String2date (Textptr : Ptr;
Textlen : Longint;
Thecache : Datecacheptr;
Lengthused : Varlongint;
Datetime : Longdaterec) return String2datestatus;
pragma Interface (Mpwpascal, String2date,
"16#2F3C#,16#8214#,16#FFF6#,16#A8B5#");
function String2time (Textptr : Ptr;
Textlen : Longint;
Thecache : Datecacheptr;
Lengthused : Varlongint;
Datetime : Longdaterec) return String2datestatus;
pragma Interface (Mpwpascal, String2time,
"16#2F3C#,16#8214#,16#FFF4#,16#A8B5#");
procedure Longdate2secs (Ldate : Longdaterec; Lsecs : in out Longdatetime);
pragma Interface (Mpwpascal, Longdate2secs,
"16#2F3C#,16#8008#,16#FFF2#,16#A8B5#");
procedure Longsecs2date (Lsecs : in out Longdatetime;
Ldate : in out Longdaterec);
pragma Interface (Mpwpascal, Longsecs2date,
"16#2F3C#,16#8008#,16#FFF0#,16#A8B5#");
function Toggledate (Lsecs : Longdatetime;
Field : Longdatefield;
Macdelta : Datedelta;
Ch : Mac_Types.Integer;
Params : Togglepb) return Toggleresults;
pragma Interface (Mpwpascal, Toggledate,
"16#2F3C#,16#820E#,16#FFEE#,16#A8B5#");
function Str2format (Instring : Str255;
Partstable : Numberparts;
Outstring : Numformatstring) return Formatstatus;
pragma Interface (Mpwpascal, Str2format,
"16#2F3C#,16#820C#,16#FFEC#,16#A8B5#");
function Format2str (Mycanonical : Numformatstring;
Partstable : Numberparts;
Outstring : Str255;
Positions : Tripleint) return Formatstatus;
pragma Interface (Mpwpascal, Format2str,
"16#2F3C#,16#8210#,16#FFEA#,16#A8B5#");
function Formatx2str (X : Sane.Extended;
Mycanonical : Numformatstring;
Partstable : Numberparts;
Outstring : Str255) return Formatstatus;
pragma Interface (Mpwpascal, Formatx2str,
"16#2F3C#,16#8210#,16#FFE8#,16#A8B5#");
function Formatstr2x (Source : Str255;
Mycanonical : Numformatstring;
Partstable : Numberparts;
X : Sane.Extended) return Formatstatus;
pragma Interface (Mpwpascal, Formatstr2x,
"16#2F3C#,16#8210#,16#FFE6#,16#A8B5#");
function Portiontext (Textptr : Ptr; Textlen : Longint) return Fixed;
pragma Interface (Mpwpascal, Portiontext,
"16#2F3C#,16#8408#,16#0024#,16#A8B5#");
function Findscriptrun
(Textptr : Ptr; Textlen : Longint; Lenused : Varlongint)
return Scriptrunstatus;
pragma Interface (Mpwpascal, Findscriptrun,
"16#2F3C#,16#820C#,16#0026#,16#A8B5#");
function Visiblelength (Textptr : Ptr; Textlen : Longint) return Longint;
pragma Interface (Mpwpascal, Visiblelength,
"16#2F3C#,16#8408#,16#0028#,16#A8B5#");
function Validdate
(Vdate : Longdaterec; Flags : Longint; Newsecs : Longdatetime)
return Mac_Types.Integer;
pragma Interface (Mpwpascal, Validdate,
"16#2F3C#,16#8204#,16#FFE4#,16#A8B5#");
procedure Iuldatestring (Datetime : in out Longdatetime;
Longflag : Packages.Dateform;
Result : in out Str255;
Intlparam : Handle);
pragma Interface (Mpwpascal, Iuldatestring, "16#3F3C#,16#0014#,16#A9ED#");
procedure Iultimestring (Datetime : in out Longdatetime;
Wantseconds : Boolean;
Result : in out Str255;
Intlparam : Handle);
pragma Interface (Mpwpascal, Iultimestring, "16#3F3C#,16#0016#,16#A9ED#");
end Script;
nblk1=22
nid=0
hdr6=44
[0x00] rec0=22 rec1=00 rec2=01 rec3=028
[0x01] rec0=1d rec1=00 rec2=02 rec3=02a
[0x02] rec0=1c rec1=00 rec2=03 rec3=002
[0x03] rec0=19 rec1=00 rec2=04 rec3=04a
[0x04] rec0=1b rec1=00 rec2=05 rec3=014
[0x05] rec0=1b rec1=00 rec2=06 rec3=024
[0x06] rec0=1b rec1=00 rec2=07 rec3=008
[0x07] rec0=19 rec1=00 rec2=08 rec3=016
[0x08] rec0=1a rec1=00 rec2=09 rec3=02c
[0x09] rec0=1b rec1=00 rec2=0a rec3=02e
[0x0a] rec0=1b rec1=00 rec2=0b rec3=022
[0x0b] rec0=1b rec1=00 rec2=0c rec3=032
[0x0c] rec0=1b rec1=00 rec2=0d rec3=042
[0x0d] rec0=19 rec1=00 rec2=0e rec3=024
[0x0e] rec0=17 rec1=00 rec2=0f rec3=016
[0x0f] rec0=1e rec1=00 rec2=10 rec3=052
[0x10] rec0=20 rec1=00 rec2=11 rec3=018
[0x11] rec0=1d rec1=00 rec2=12 rec3=016
[0x12] rec0=1d rec1=00 rec2=13 rec3=034
[0x13] rec0=22 rec1=00 rec2=14 rec3=006
[0x14] rec0=1e rec1=00 rec2=15 rec3=016
[0x15] rec0=1d rec1=00 rec2=16 rec3=044
[0x16] rec0=17 rec1=00 rec2=17 rec3=026
[0x17] rec0=15 rec1=00 rec2=18 rec3=014
[0x18] rec0=15 rec1=00 rec2=19 rec3=04e
[0x19] rec0=16 rec1=00 rec2=1a rec3=02e
[0x1a] rec0=17 rec1=00 rec2=1b rec3=03e
[0x1b] rec0=18 rec1=00 rec2=1c rec3=014
[0x1c] rec0=14 rec1=00 rec2=1d rec3=04e
[0x1d] rec0=15 rec1=00 rec2=1e rec3=03a
[0x1e] rec0=16 rec1=00 rec2=1f rec3=01a
[0x1f] rec0=14 rec1=00 rec2=20 rec3=078
[0x20] rec0=16 rec1=00 rec2=21 rec3=04e
[0x21] rec0=0b rec1=00 rec2=22 rec3=000
tail 0x2171dccf283906e364fd5 0x42a00088462060003