DataMuseum.dk

top - metrics - download

    Length: 32302 (0x7e2e)
    Types: TextFile
    Names: »V«

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

--      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;