supermario/base/SuperMarioProj.1994-02-09/Interfaces/PInterfaces/Script.p
2019-06-29 23:17:50 +08:00

1183 lines
46 KiB
OpenEdge ABL
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

{
Created: Tuesday, January 15, 1991 at 8:56 AM
Script.p
Pascal Interface to the Macintosh Libraries
Copyright Apple Computer, Inc. 1986-1992
All rights reserved
Change History (most recent first):
<70> 10/23/92 HA For New Inside Mac we want to add langSaamisk=29 as the
preferred synonym for langLappish, based on some naming info we
have from the Norwegian consulate. (per PKE)
<69> 9/25/92 DCL Changed Get(Set)SMVariable to Get(Set)ScriptManagerVariable.
(for NIIM)
<68> 7/2/92 SMB #1029263: Added new flag, smsfSynchUnstyledTE, to the 'itlb'
flags field to handle font & keyboard synchronization for
unstyled TE.
<67> 6/26/92 DCL Miner Formatting Changes. Digging deep for things to do. Getting
the file ready for ETO 8.
<66> 5/29/92 DCL Moved Intl resource constants to IntlResources. Moved Findword
stuff to TextUtils. Tweaked some comments to reflect new names.
<65> 5/7/92 DCL NIIM: Attempting to blow away DateTime.
<64> 5/5/92 DCL For New Inside Mac: removing 'sc' prefixes from some calls,
moving some calls from script to TextUtils, and moving some from
TextUtils & QuickDraw to QuickdrawText. Weeeeeeee!
<63> 4/20/92 DCL More stuff from before.
<62> 4/20/92 DCL #1027048 Added smCharBopomofo, smTransRuleBaseFormat,
smTransHangulFormat, smTransPreDoubleByting,
smTransPreLowerCasing, Itl5, RuleBasedTrslRecord.
<61> 4/16/92 DCL For New Inside Mac: Added Get&SetSysDirection as synonyms for
Get&SetSysJust. Moved Read&WriteLocation from Script to OSUtils.
<60> 4/15/92 DCL For New Inside Mac: Moved GetDefFontSize, GetSysFont, and
GetAppFont from Script to Fonts.
<59> 4/15/92 DCL For New Inside Mac: Moved many definitions from Script to
TextUtils and QuickDraw. And added new synonyms. #1025005
<58> 4/8/92 PKE #1026516,<cv>: Make Pascal SCxxx interfaces for some ScriptMgr
routines that are being moved from private interfaces to public.
<57> 4/3/92 gbm Change smKeyDisabState to a kinder, gentler spelling.
(smKeyDisableState)
<56> 4/3/92 DCL PKE #1026378: Add CharType constants smCharContextualLR and
smCharNonContextualLR; already used for Thai and Cyrillic.
<55> 4/3/92 DCL For New Inside Mac: Moved declarations from Script.[aph] to
TextUtils.[aph]. Moved all of the Language Codes back into
Script. Big, but centralized. #1025005
<54> 3/30/92 DCL For New Inside Mac: Moved IUGetItlTable from Packages.[hap] and
added a new name: GetIntlResourceTable.
<53> 3/30/92 DCL PKE 1022875, Add smKeyRoman verb for KeyScript (for use in KSWP)
that sets keyboard script to Roman if multiple scripts are
installed (otherwise KSWP key combination is not stripped from
event queue).
<52> 3/30/92 DCL For New Inside Mac: Added New Improved Better Names for the same
old calls. #1025005
<51> 3/26/92 DCL For New Inside Mac: Moved all of the Date & Time stuff to the
New DateTime include file. And Included the new DateTime
include file. #1025005
<50> 3/20/92 DCL #1025005,<KSM>:
Included Language.h because: For New IM: Moved some declarations
and routines from Packages.[ph] to Script.[ph] #1025005
<49> 3/19/92 DCL For New IM: Moved declarations and routines to Script.[ph]
<48> 2/28/92 DCL Moved GetMBarHeight from Script.p to Menus.p
<47> 2/17/92 MH change refs to extended to extended80
<46> 2/10/92 YS 1014691, added a flag 'smfUseAssocFontInfo' in smGenFlags.
<45> 1/13/92 PKE 1019369, add smKeyDisabState verb for GetEnvirons to get the
current keyboard disable state.
<44> 12/11/91 PKE Define new public interfaces SCGetScriptRoutineAddr,
SCSetScriptRoutineAddr, SCGetQDPatchAddr, SCSetQDPatchAddr which
are implemented by one-byte script extension.
<43> 12/6/91 PKE No changes to text, just remove 'unit' resource from checked-in
file.
<42> 12/2/91 PKE Fix ValidDate interface (MPW bug #1016029): selector was wrong
and first param is not VAR.
<41> 11/25/91 PKE Define new smScriptFlags bit smsfUnivExt. Define new KeyScript
verbs smKeySetDirLeftRight, smKeySetDirRightLeft.
<40> 9/27/91 SMB For Cube-E (and Bruges) - define system direction bit,
itlcSysDirection, for itlcSysFlags and added bit definitions,
itlcShowIcon and itlcDualCaret, for the itlcFlags.
<39> 9/25/91 PKE For Cube-E (and Bruges): Add itlcSysFlags field to ItlcRecord.
<38> 9/9/91 MH CharByteTable was inadvertently changed from PACKED ARRAY to
ARRAY when in version <36>. Changed it back.
<37> 8/20/91 KSM pke,#Bruges: Added a new script code smAllScripts to indicate
meaning no preference for script code or any script code.
<36> 7/31/91 JL Updated Copyright. Restored Comments.
<35> 1/30/91 JL Checked in database generated file from DSG. (Temporarily losing
some comments but they will return)
<34> 1/28/91 PKE bbm: Add constants for use with CharType and Transliterate on
Chinese and Korean systems.
<33> 1/10/91 PKE (csd) Change names for ring and breve constants (too
ambiguous) to ringMark and breveMark.
<32> 1/2/91 PKE (bbm) Updated comments and rearranged a few constants to match
latest Inside Mac summary. Added tokenCaret as correct spelling
for tokenCarat.
<31> 12/15/90 PKE (KSM) Update some new constants used with 2-byte script systems.
<30> 12/14/90 SMB (csd) I forgot the approval signature for the previous change.
<29> 12/14/90 SMB Removing KeyScript verb, smKeyModalDialog, from public
interfaces.
<28> 10/3/90 JAL Added Quickdraw Include.
<27> 9/16/90 PKE In NItl4Rec, rename resHeader1 field to format, since that
is how we now use it.
<26> 9/10/90 PKE Add smCurrentScript constant. Add more FIS constants from Joel
Cannon.
<25> 8/31/90 SMB Added new KeyScript verb for ModalDialogs so that the About
Keyboards menu item can be disabled. Added new KeyScript verb to
disable the keyboard switching when a KCHR is being moved into
or out of the System file.
<24> 8/24/90 PKE (per JT) Restored smFISClassXXX constants to original values
(backed out of part of change <6>).
<23> 8/2/90 PKE Added smSystem constant (meta-script code, designates the system
script). Moved obsolete script codes to end of their section.
Added constants for values of scriptRedraw field. Cleaned up
negative KeyScript verbs: deleted smKeyLastScript synonym, added
smKeyDisableKybds and smKeyEnableKybds, renumbered
smKeyNextInputMethod and smKeySwapInputMethod.
<22> 7/17/90 PKE Changed reserved field in ItlbRecord to itlbEncoding (contains
ID of itl5, optional char encoding resource), and changed name
of corresponding GetScript verb. Fixed a few comments. Removed
obsolete MPW 2.0 names for some previously reserved
Get/SetScript verbs and a script code.
<21> 6/22/90 PKE Moved language codes to a new file, Language.p, and rearranged
the new ones. Added smExtArabic as synonym for smSindhi,
smEastEurRoman as synonym for smSlavic.
<20> 6/20/90 PKE Changed tentative value for smCharFISHangul to eliminate
conflict with Arabic/Hebrew; added smCharExtAscii and
smCharBidirect. Added smEthiopic (synonym for smGeez) plus about
80 new language codes covering most languages we are likely to
handle; also added some synonyms for existing language codes.
Changed resLength6 field in NItl4Rec to whtSpListLength.
<19> 6/12/90 PKE Added new calendar code calPersian, per Hani Abdelazim. Added
smKeySwapScript as synonym for smKeyLastScript (using new
terminology), and added several new KeyScript verbs that may be
implemented by script systems.
<18> 5/31/90 PKE Added new GetScript verbs: smScriptValidStyles,
smScriptAliasStyle. Added new fields to ItlbExtRecord:
itlbValidStyles, itlbAliasStyle.
<17> 5/24/90 PKE Added numer/denom scaling parameters to NPortionText, NDrawJust,
NMeasureJust, NChar2Pixel, and NPixel2Char.
<16> 5/21/90 PKE Added new tokens tokenEllipsis and tokenCenterDot. Fixed
spelling of tokenTilde. Changed truncMarkOffset to
whtSpListOffset in NItl4Rec. Added smfNameTagEnab constant for
flag bit, enables script tag in Finder names.
<15> 5/11/90 PKE Added new constants smTradChinese, smSimpChinese,
langTradChinese, langSimpChinese. Deleted smMaldivian!
<14> 5/1/90 PKE Added constants for negative KeyScript verbs and for
TruncText/TruncString results.
<13> 3/23/90 PKE Added smScriptAppFondSize and smScriptHelpFondSize verbs for
GetScript/SetScript. Defined smsfAutoInit bit for script flags.
Deleted special roman font equates that were new for 7.0, since
we now get this information from a resource. Added ItlbExtRecord
structure for new-format 'itlb' resource.
<12> 3/21/90 PKE Rearranged the length fields in NItl4Rec to be correct.
<11> 3/16/90 BBH Change NTruncString and NTruncText to TruncString and TruncText
<10> 3/7/90 JAL Official MPW version
<9> 3/7/90 JAL Official MPW version
<8> 3/5/90 PKE For MPW release: Updated the TruncString and TruncText
interfaces to look like their NTruncXxx forms, then deleted the
NTruncXxx forms. This change should put this file into
releasable shape.
<7> 3/4/90 PKE Changed new implementation of UprText to be UpperText so we can
remove last conditionals. Add LowerText as synonym for LwrText.
Changed StripUprText to StripUpperText. Removed all conditionals
and bigBangEquates symbol. Still need to fix up TruncX/NTruncX
variants.
<6> 3/2/90 PKE Removed version number constants: smgrVers (Script Mgr),
romanVers (Roman script system). Removed conditionalized
definitions of private constants: smLastEVerb, smLastSVerb.
Corrected smFISClassXXX constants. Removed 7.0
conditionalization in itlcRecord, and renamed the now-shortened
reserved area from itlcReserved2 to itlcReserved3. Gave new name
NItl4Rec to the extended version of Itl4Rec, and
unconditionalized the old versions so they dont change. Added
corresponding NItl4Ptr and NItl4Handle. Removed all conditionals
on bigBangEquates except implementation change for UprText; need
to fix this by renaming the new one (also change trap opword).
<5> 1/23/90 PKE Moved IULDateString and IULTimeString interfaces from here to
Packages.p, where they should have been all along. Removed
auto-include of Packages.p, since it isn't necessary and it
causes problems since we now need to auto-include Script.p in
Packages.p (i.e., the other way around). Instead, auto-include
OSUtils.p (which was previously included via Packages.p) to get
definition of DateTimeRec.
<4> 1/17/90 PKE Added itlcRegionCode field to itlcRecord.
<3> 1/17/90 PKE Add new constants: smCyrillic as synonym for smRussian, new
smRegionCode verb for GetEnvirons, and several new langXxx
constants.
<2> 1/11/90 PKE Added new interfaces: NPortionText, NDrawJust, NMeasureJust,
NChar2Pixel, and NPixel2Char. Added smXxxStyleRun constants and
JustStyleCode type used in new interfaces. Updated header to be
in BBS format.
<1> 12/17/89 CCH Adding for the first time into BBS.
(BBS versions above, EASE versions below)
<2.1> 11/8/89 PKE Add temporary interfaces NTruncString and NTruncText for the
new-style Trunc routines that expect a truncWhere parameter.
Eventually, the standard Trunc routine interfaces will be
changed to use this parameter. Add TruncCode type and related
constants for truncWhere parameter.
<2.0> 9/25/89 CCH Added Pre70 equate to indicate that a file is being compiled for
a Pre-7.0 system.
<1.9> 9/22/89 PKE The Pascal compiler won't import numeric symbols (such as
SysVers) defined on the command line, just Boolean variables, so
one of the changes in <1.8> didn't work. Carl will add a Boolean
to the build that is TRUE for SysVers >= $700. Until Carl
decides what to call this Boolean, I am using one here called
"AtLeastSystem7". If it is defined, then we set bigBangEquates
accordingly; if it isn't defined, we just set bigBangEquates to
TRUE. This will work for 7.0 builds until the real name is
defined, at which point we can replace "AtLeastSystem7" with the
real symbol name. I also deleted a duplicate definition for
UprText.
<1.8> 9/19/89 PKE Added StripText and StripUprText, modified UprText to use
_UprText trap (instead of _UprString) for localizability. Made
bigBangEquates symbol actually depend on SysVers. Changed
Itl4Rec: defined truncMarkOffset field (was resOffset6), added 8
shorts at end for table/code lengths. Defined NBreakTable and
NBreakTablePtr, made NFindWord use NBreakTablePtr. NOTE: The
NBreakTable definition here matches the itl2 break table headers
in the current Reality sources, which have changed since the D13
build. Since no one is presently using the NBreakTable
structure, this shouldn't cause any problems.
<1.7> 9/17/89 PKE Added langKorean. Added new Get/SetEnvirons verb smDoubleByte.
Deleted smLastEVerb, smLastSVerb. Updated romanVers for 7.0.
<1.6> 9/15/89 PKE Actually, the NFindWord interface is useful as a direct call,
even if it is not a replacement for the old FindWord interface,
so put it back in. Also add interfaces for TruncText,
TruncString, and ReplaceText.
<1.5> 9/5/89 PKE Get rid of NFindWord selector; it was a bad idea. The 7.0 glue
code now routes calls with the old FindWord selector to the new
FindWord when possible. Leave conditionals for future use.
<1.4> 9/4/89 PKE Add NFindWord for 7.0 testing. Eventually, FindWord will be a
synonym for NFindWord, but for now we will keep them separate so
that we can do 6.0.4 and 6.0.5 builds.
<1.3> 6/23/89 PKE For Big Bang: Make Script Manager version 7.xx for Big Bang, add
new GetScript/SetScript verbs for font info, add new font
constants for Roman.
<1.2> 6/12/89 PKE Include FixMath.p if it hasn't been included yet (for Fract
definition).
<1.1> 6/6/89 PKE Update from MPW 2.02 level to MPW 3.1 level. Mostly this just
adds new constants, types, and functions, but there are some
changes to what was already in the file: (1) version number
constants are updated, (2) the OffsetTable type is changed to
use the OffPair struct, (3) the ParseTable function's arg type
has changed, (4) new fields are added to ItlcRecord, (5) some
previously reserved fields in ItlbRecord are now used, (6) the
emCurVersion constant has been deleted, and (7) the spelling of
langFinnish is fixed.
<1.0> 11/17/88 CCH Adding to EASE.
To Do:
}
{$IFC UNDEFINED UsingIncludes}
{$SETC UsingIncludes := 0}
{$ENDC}
{$IFC NOT UsingIncludes}
UNIT Script;
INTERFACE
{$ENDC}
{$IFC UNDEFINED UsingScript}
{$SETC UsingScript := 1}
{$I+}
{$SETC ScriptIncludes := UsingIncludes}
{$SETC UsingIncludes := 1}
{$IFC UNDEFINED UsingTypes}
{$I $$Shell(PInterfaces)Types.p}
{$ENDC}
{$IFC UNDEFINED UsingQuickdraw}
{$I $$Shell(PInterfaces)Quickdraw.p}
{$ENDC}
{$IFC UNDEFINED UsingIntlResources}
{$I $$Shell(PInterfaces)IntlResources.p}
{$ENDC}
{$SETC UsingIncludes := ScriptIncludes}
CONST
{ Script System constants }
smSystemScript = -1; {designates system script.}
smCurrentScript = -2; {designates current font script.}
smAllScripts = -3; {designates any script}
smRoman = 0; {Roman}
smJapanese = 1; {Japanese}
smTradChinese = 2; {Traditional Chinese}
smKorean = 3; {Korean}
smArabic = 4; {Arabic}
smHebrew = 5; {Hebrew}
smGreek = 6; {Greek}
smCyrillic = 7; {Cyrillic}
smRSymbol = 8; {Right-left symbol}
smDevanagari = 9; {Devanagari}
smGurmukhi = 10; {Gurmukhi}
smGujarati = 11; {Gujarati}
smOriya = 12; {Oriya}
smBengali = 13; {Bengali}
smTamil = 14; {Tamil}
smTelugu = 15; {Telugu}
smKannada = 16; {Kannada/Kanarese}
smMalayalam = 17; {Malayalam}
smSinhalese = 18; {Sinhalese}
smBurmese = 19; {Burmese}
smKhmer = 20; {Khmer/Cambodian}
smThai = 21; {Thai}
smLaotian = 22; {Laotian}
smGeorgian = 23; {Georgian}
smArmenian = 24; {Armenian}
smSimpChinese = 25; {Simplified Chinese}
smTibetan = 26; {Tibetan}
smMongolian = 27; {Mongolian}
smGeez = 28; {Geez/Ethiopic}
smEthiopic = 28; {Synonym for smGeez}
smEastEurRoman = 29; {Synonym for smSlavic}
smVietnamese = 30; {Vietnamese}
smExtArabic = 31; {extended Arabic}
smUninterp = 32; {uninterpreted symbols, e.g. palette symbols}
smKlingon = 32; {Klingon}
{Obsolete names for script systems (kept for backward compatibility)}
smChinese = 2; {(use smTradChinese or smSimpChinese)}
smRussian = 7; {(old name for smCyrillic)}
{ smMaldivian = 25; (no more smMaldivian!)}
smAmharic = 28; {(old name for smGeez)}
smSlavic = 29; {(old name for smEastEurRoman)}
smSindhi = 31; {(old name for smExtArabic)}
{ Language Codes }
langEnglish = 0; { smRoman script }
langFrench = 1; { smRoman script }
langGerman = 2; { smRoman script }
langItalian = 3; { smRoman script }
langDutch = 4; { smRoman script }
langSwedish = 5; { smRoman script }
langSpanish = 6; { smRoman script }
langDanish = 7; { smRoman script }
langPortuguese = 8; { smRoman script }
langNorwegian = 9; { smRoman script }
langHebrew = 10; { smHebrew script }
langJapanese = 11; { smJapanese script }
langArabic = 12; { smArabic script }
langFinnish = 13; { smRoman script }
langGreek = 14; { smGreek script }
langIcelandic = 15; { extended Roman script }
langMaltese = 16; { extended Roman script }
langTurkish = 17; { extended Roman script }
langCroatian = 18; { Serbo-Croatian in extended Roman script }
langTradChinese = 19; { Chinese in traditional characters }
langUrdu = 20; { smArabic script }
langHindi = 21; { smDevanagari script }
langThai = 22; { smThai script }
langKorean = 23; { smKorean script }
langLithuanian = 24; { smEastEurRoman script }
langPolish = 25; { smEastEurRoman script }
langHungarian = 26; { smEastEurRoman script }
langEstonian = 27; { smEastEurRoman script }
langLettish = 28; { smEastEurRoman script }
langLatvian = 28; { Synonym for langLettish }
langSaamisk = 29; { ext. Roman script, lang. of the Sami/Lapp people of Scand. }
langLappish = 29; { Synonym for langSaamisk }
langFaeroese = 30; { smRoman script }
langFarsi = 31; { smArabic script }
langPersian = 31; { Synonym for langFarsi }
langRussian = 32; { smCyrillic script }
langSimpChinese = 33; { Chinese in simplified characters }
langFlemish = 34; { smRoman script }
langIrish = 35; { smRoman script }
langAlbanian = 36; { smRoman script }
langRomanian = 37; { smEastEurRoman script }
langCzech = 38; { smEastEurRoman script }
langSlovak = 39; { smEastEurRoman script }
langSlovenian = 40; { smEastEurRoman script }
langYiddish = 41; { smHebrew script }
langSerbian = 42; { Serbo-Croatian in smCyrillic script }
langMacedonian = 43; { smCyrillic script }
langBulgarian = 44; { smCyrillic script }
langUkrainian = 45; { smCyrillic script }
langByelorussian = 46; { smCyrillic script }
langUzbek = 47; { smCyrillic script }
langKazakh = 48; { smCyrillic script }
langAzerbaijani = 49; { Azerbaijani in smCyrillic script (USSR) }
langAzerbaijanAr = 50; { Azerbaijani in smArabic script (Iran) }
langArmenian = 51; { smArmenian script }
langGeorgian = 52; { smGeorgian script }
langMoldavian = 53; { smCyrillic script }
langKirghiz = 54; { smCyrillic script }
langTajiki = 55; { smCyrillic script }
langTurkmen = 56; { smCyrillic script }
langMongolian = 57; { Mongolian in smMongolian script }
langMongolianCyr = 58; { Mongolian in smCyrillic script }
langPashto = 59; { smArabic script }
langKurdish = 60; { smArabic script }
langKashmiri = 61; { smArabic script }
langSindhi = 62; { smExtArabic script }
langTibetan = 63; { smTibetan script }
langNepali = 64; { smDevanagari script }
langSanskrit = 65; { smDevanagari script }
langMarathi = 66; { smDevanagari script }
langBengali = 67; { smBengali script }
langAssamese = 68; { smBengali script }
langGujarati = 69; { smGujarati script }
langPunjabi = 70; { smGurmukhi script }
langOriya = 71; { smOriya script }
langMalayalam = 72; { smMalayalam script }
langKannada = 73; { smKannada script }
langTamil = 74; { smTamil script }
langTelugu = 75; { smTelugu script }
langSinhalese = 76; { smSinhalese script }
langBurmese = 77; { smBurmese script }
langKhmer = 78; { smKhmer script }
langLao = 79; { smLaotian script }
langVietnamese = 80; { smVietnamese script }
langIndonesian = 81; { smRoman script }
langTagalog = 82; { smRoman script }
langMalayRoman = 83; { Malay in smRoman script }
langMalayArabic = 84; { Malay in smArabic script }
langAmharic = 85; { smEthiopic script }
langTigrinya = 86; { smEthiopic script }
langGalla = 87; { smEthiopic script }
langOromo = 87; { Synonym for langGalla }
langSomali = 88; { smRoman script }
langSwahili = 89; { smRoman script }
langRuanda = 90; { smRoman script }
langRundi = 91; { smRoman script }
langChewa = 92; { smRoman script }
langMalagasy = 93; { smRoman script }
langEsperanto = 94; { extended Roman script }
langWelsh = 128; { smRoman script }
langBasque = 129; { smRoman script }
langCatalan = 130; { smRoman script }
langLatin = 131; { smRoman script }
langQuechua = 132; { smRoman script }
langGuarani = 133; { smRoman script }
langAymara = 134; { smRoman script }
langTatar = 135; { smCyrillic script }
langUighur = 136; { smArabic script }
langDzongkha = 137; { (lang of Bhutan) smTibetan script }
langJavaneseRom = 138; { Javanese in smRoman script }
langSundaneseRom = 139; { Sundanese in smRoman script }
{ Obsolete names, kept for backward compatibility }
langPortugese = 8; { old misspelled version, kept for compatibility }
langMalta = 16; { old misspelled version, kept for compatibility }
langYugoslavian = 18; { (use langCroatian, langSerbian, etc.) }
langChinese = 19; { (use langTradChinese or langSimpChinese) }
langLapponian = 29; { Synonym for langSaamisk, not correct name }
{ Regional version codes }
verUS = 0;
verFrance = 1;
verBritain = 2;
verGermany = 3;
verItaly = 4;
verNetherlands = 5;
verFrBelgiumLux = 6; { French for Belgium & Luxembourg }
verSweden = 7;
verSpain = 8;
verDenmark = 9;
verPortugal = 10;
verFrCanada = 11;
verNorway = 12;
verIsrael = 13;
verJapan = 14;
verAustralia = 15;
verArabic = 16; { synonym for verArabia }
verFinland = 17;
verFrSwiss = 18; { French Swiss }
verGrSwiss = 19; { German Swiss }
verGreece = 20;
verIceland = 21;
verMalta = 22;
verCyprus = 23;
verTurkey = 24;
verYugoCroatian = 25; { Croatian system for Yugoslavia }
verIndiaHindi = 33; { Hindi system for India }
verPakistan = 34;
verLithuania = 41;
verPoland = 42;
verHungary = 43;
verEstonia = 44;
verLatvia = 45;
verLapland = 46;
verFaeroeIsl = 47;
verIran = 48;
verRussia = 49;
verIreland = 50; { English-language version for Ireland }
verKorea = 51;
verChina = 52;
verTaiwan = 53;
verThailand = 54;
minCountry = verUS;
maxCountry = verThailand;
{Obsolete region code names, kept for backward compatibility}
verBelgiumLux = 6; { (use verFrBelgiumLux instead, less ambiguous) }
verArabia = 16;
verYugoslavia = 25; { (use verYugoCroatian instead, less ambiguous) }
verIndia = 33; { (use verIndiaHindi instead, less ambiguous) }
{ Calendar Codes }
calGregorian = 0;
calArabicCivil = 1;
calArabicLunar = 2;
calJapanese = 3;
calJewish = 4;
calCoptic = 5;
calPersian = 6;
{ Integer Format Codes }
intWestern = 0;
intArabic = 1;
intRoman = 2;
intJapanese = 3;
intEuropean = 4;
intOutputMask = $8000;
{ CharByte byte types }
smSingleByte = 0;
smFirstByte = -1;
smLastByte = 1;
smMiddleByte = 2;
{ CharType field masks }
smcTypeMask = $000F;
smcReserved = $00F0;
smcClassMask = $0F00;
smcOrientationMask = $1000; {two-byte script glyph orientation}
smcRightMask = $2000;
smcUpperMask = $4000;
smcDoubleMask = $8000;
{ Basic CharType character types }
smCharPunct = $0000;
smCharAscii = $0001;
smCharEuro = $0007;
smCharExtAscii = $0007; { More correct synonym for smCharEuro }
{ Additional CharType character types for script systems }
smCharKatakana = $0002; {Japanese Katakana}
smCharHiragana = $0003; {Japanese Hiragana}
smCharIdeographic = $0004; {Hanzi, Kanji, Hanja}
smCharTwoByteGreek = $0005; {2-byte Greek in Far East systems}
smCharTwoByteRussian = $0006; {2-byte Cyrillic in Far East systems}
smCharBidirect = $0008; {Arabic/Hebrew}
smCharContextualLR = $0009; {Contextual left-right: Thai, Indic scripts}
smCharNonContextualLR = $000A; {Non-contextual left-right: Cyrillic, Greek}
smCharHangul = $000C; {Korean Hangul}
smCharJamo = $000D; {Korean Jamo}
smCharBopomofo = $000E; {Chinese Bopomofo}
{ old names for some of above, for backward compatibility }
smCharFISKana = $0002; {Katakana}
smCharFISGana = $0003; {Hiragana}
smCharFISIdeo = $0004; {Hanzi, Kanji, Hanja}
smCharFISGreek = $0005; {2-byte Greek in Far East systems}
smCharFISRussian = $0006; {2-byte Cyrillic in Far East systems}
{ CharType classes for punctuation (smCharPunct) }
smPunctNormal = $0000;
smPunctNumber = $0100;
smPunctSymbol = $0200;
smPunctBlank = $0300;
{ Additional CharType classes for punctuation in two-byte systems }
smPunctRepeat = $0400; { repeat marker }
smPunctGraphic = $0500; { line graphics }
{ CharType Katakana and Hiragana classes for two-byte systems }
smKanaSmall = $0100; {small kana character}
smKanaHardOK = $0200; {can have dakuten}
smKanaSoftOK = $0300; {can have dakuten or han-dakuten}
{ CharType Ideographic classes for two-byte systems }
smIdeographicLevel1 = $0000; {level 1 char}
smIdeographicLevel2 = $0100; {level 2 char}
smIdeographicUser = $0200; {user char}
{ old names for above, for backward compatibility }
smFISClassLvl1 = $0000; {level 1 char}
smFISClassLvl2 = $0100; {level 2 char}
smFISClassUser = $0200; {user char}
{ CharType Jamo classes for Korean systems }
smJamoJaeum = $0000; {simple consonant char}
smJamoBogJaeum = $0100; {complex consonant char}
smJamoMoeum = $0200; {simple vowel char}
smJamoBogMoeum = $0300; {complex vowel char}
{ CharType glyph orientation for two-byte systems }
smCharHorizontal = $0000; { horizontal character form, or for both }
smCharVertical = $1000; { vertical character form }
{ CharType directions }
smCharLeft = $0000;
smCharRight = $2000;
{ CharType case modifers }
smCharLower = $0000;
smCharUpper = $4000;
{ CharType character size modifiers (1 or multiple bytes). }
smChar1byte = $0000;
smChar2byte = $8000;
{ TransliterateText target types for Roman }
smTransAscii = 0; {convert to ASCII}
smTransNative = 1; {convert to font script}
smTransCase = $FE; {convert case for all text}
smTransSystem = $FF; {convert to system script}
{ TransliterateText target types for two-byte scripts }
smTransAscii1 = 2; {1-byte Roman}
smTransAscii2 = 3; {2-byte Roman}
smTransKana1 = 4; {1-byte Japanese Katakana}
smTransKana2 = 5; {2-byte Japanese Katakana}
smTransGana2 = 7; {2-byte Japanese Hiragana (no 1-byte Hiragana)}
smTransHangul2 = 8; {2-byte Korean Hangul}
smTransJamo2 = 9; {2-byte Korean Jamo}
smTransBopomofo2 = 10; {2-byte Chinese Bopomofo}
{ TransliterateText target modifiers }
smTransLower = $4000; {target becomes lowercase}
smTransUpper = $8000; {target becomes uppercase}
{ TransliterateText resource format numbers }
smTransRuleBaseFormat = 1; {Rule based trsl resource format }
smTransHangulFormat = 2; {Table based Hangul trsl resource format}
{ TransliterateText property flags }
smTransPreDoubleByting = 1; {Convert all text to double byte before transliteration}
smTransPreLowerCasing = 2; {Convert all text to lower case before transliteration}
{ TransliterateText source mask - general }
smMaskAll = $FFFFFFFF; {Convert all text}
{ TransliterateText source masks }
smMaskAscii = $00000001; {2^smTransAscii}
smMaskNative = $00000002; {2^smTransNative}
{ TransliterateText source masks for two-byte scripts }
smMaskAscii1 = $00000004; {2^smTransAscii1}
smMaskAscii2 = $00000008; {2^smTransAscii2}
smMaskKana1 = $00000010; {2^smTransKana1}
smMaskKana2 = $00000020; {2^smTransKana2}
smMaskGana2 = $00000080; {2^smTransGana2}
smMaskHangul2 = $00000100; {2^smTransHangul2}
smMaskJamo2 = $00000200; {2^smTransJamo2}
smMaskBopomofo2 = $00000400; {2^smTransBopomofo2}
{ Result values from GetScriptManagerVariable and SetScriptManagerVariable calls. }
smNotInstalled = 0; {routine not available in script}
smBadVerb = -1; {Bad verb passed to a routine}
smBadScript = -2; {Bad script code passed to a routine}
{ Values for script redraw flag. }
smRedrawChar = 0; {Redraw character only}
smRedrawWord = 1; {Redraw entire word (2-byte systems)}
smRedrawLine = -1; {Redraw entire line (bidirectional systems)}
{ GetScriptManagerVariable and SetScriptManagerVariable verbs }
smVersion = 0; {Script Manager version number}
smMunged = 2; {Globals change count}
smEnabled = 4; {Count of enabled scripts, incl Roman}
smBidirect = 6; {At least one bidirectional script}
smFontForce = 8; {Force font flag}
smIntlForce = 10; {Force intl flag}
smForced = 12; {Script was forced to system script}
smDefault = 14; {Script was defaulted to Roman script}
smPrint = 16; {Printer action routine}
smSysScript = 18; {System script}
smLastScript = 20; {Last keyboard script}
smKeyScript = 22; {Keyboard script}
smSysRef = 24; {System folder refNum}
smKeyCache = 26; {obsolete}
smKeySwap = 28; {Swapping table handle}
smGenFlags = 30; {General flags long}
smOverride = 32; {Script override flags}
smCharPortion = 34; {Ch vs SpExtra proportion}
{ New for System 7.0: }
smDoubleByte = 36; {Flag for double-byte script installed}
smKCHRCache = 38; {Returns pointer to KCHR cache}
smRegionCode = 40; {Returns current region code (verXxx)}
smKeyDisableState = 42; {Returns current keyboard disable state}
{ GetScriptVariable and SetScriptVariable verbs.
Note: Verbs private to script systems are negative, while
those general across script systems are non-negative. }
smScriptVersion = 0; {Script software version}
smScriptMunged = 2; {Script entry changed count}
smScriptEnabled = 4; {Script enabled flag}
smScriptRight = 6; {Right to left flag}
smScriptJust = 8; {Justification flag}
smScriptRedraw = 10; {Word redraw flag}
smScriptSysFond = 12; {Preferred system font}
smScriptAppFond = 14; {Preferred Application font}
smScriptBundle = 16; {Beginning of itlb verbs}
smScriptNumber = 16; {Script itl0 id}
smScriptDate = 18; {Script itl1 id}
smScriptSort = 20; {Script itl2 id}
smScriptFlags = 22; {flags word}
smScriptToken = 24; {Script itl4 id}
smScriptEncoding = 26; {id of optional itl5, if present}
smScriptLang = 28; {Current language for script}
smScriptNumDate = 30; {Script Number/Date formats.}
smScriptKeys = 32; {Script KCHR id}
smScriptIcon = 34; {ID # of SICN or kcs#/kcs4/kcs8 suite}
smScriptPrint = 36; {Script printer action routine}
smScriptTrap = 38; {Trap entry pointer}
smScriptCreator = 40; {Script file creator}
smScriptFile = 42; {Script file name}
smScriptName = 44; {Script name}
{ There is a hole here for old Kanji private verbs 46-76
New for System 7.0: }
smScriptMonoFondSize = 78; {default monospace FOND (hi) & size (lo)}
smScriptPrefFondSize = 80; {preferred FOND (hi) & size (lo)}
smScriptSmallFondSize = 82; {default small FOND (hi) & size (lo)}
smScriptSysFondSize = 84; {default system FOND (hi) & size (lo)}
smScriptAppFondSize = 86; {default app FOND (hi) & size (lo)}
smScriptHelpFondSize = 88; {default Help Mgr FOND (hi) & size (lo)}
smScriptValidStyles = 90; {mask of valid styles for script}
smScriptAliasStyle = 92; {style (set) to use for aliases}
{ Special script code values for International Utilities }
iuSystemScript = -1; { <obsolete> system script }
iuCurrentScript = -2; { <obsolete> current script (for font of grafPort) }
{ Negative verbs for KeyScript }
smKeyNextScript = -1; { Switch to next available script }
smKeySysScript = -2; { Switch to the system script }
smKeySwapScript = -3; { Switch to previously-used script }
{ New for System 7.0: }
smKeyNextKybd = -4; { Switch to next keyboard in current keyscript }
smKeySwapKybd = -5; { Switch to previously-used keyboard in current keyscript }
smKeyDisableKybds = -6; { Disable keyboards not in system or Roman script }
smKeyEnableKybds = -7; { Re-enable keyboards for all enabled scripts }
smKeyToggleInline = -8; { Toggle inline input for current keyscript }
smKeyToggleDirection = -9; { Toggle default line direction (TESysJust) }
smKeyNextInputMethod = -10; { Switch to next input method in current keyscript }
smKeySwapInputMethod = -11; { Switch to last-used input method in current keyscript }
smKeyDisableKybdSwitch = -12; { Disable switching from the current keyboard }
smKeySetDirLeftRight = -15; { Set default line dir to left-right, align left }
smKeySetDirRightLeft = -16; { Set default line dir to right-left, align right }
smKeyRoman = -17; { Set keyscript to Roman. Does nothing if Roman-only
system, unlike KeyScript(smRoman) which forces
an update to current default Roman keyboard }
{ Bits in the smScriptFlags word
(bits above 8 are non-static) }
smsfIntellCP = 0; {Script has intelligent cut & paste}
smsfSingByte = 1; {Script has only single bytes}
smsfNatCase = 2; {Native chars have upper & lower case}
smsfContext = 3; {Script is contextual}
smsfNoForceFont = 4; {Script will not force characters}
smsfB0Digits = 5; {Script has alternate digits at B0-B9}
smsfAutoInit = 6; {Auto initialize the script}
smsfUnivExt = 7; {Script is handled by universal extension}
smsfSynchUnstyledTE = 8; {Script synchronizes for unstyled TE}
smsfForms = 13; {Uses contextual forms for letters}
smsfLigatures = 14; {Uses contextual ligatures}
smsfReverse = 15; {Reverses native text, right-left}
{ Bits in the smGenFlags long.
First (high-order) byte is set from itlc flags byte. }
smfShowIcon = 31; {Show icon even if only one script}
smfDualCaret = 30; {Use dual caret for mixed direction text}
smfNameTagEnab = 29; {Reserved for internal use}
smfUseAssocFontInfo = 28; {Use the associated font info for FontMetrics calls }
{ Roman script constants
The following are here for backward compatibility, but should not be used.
This information should be obtained using GetScript. }
romanSysFond = $3FFF; {system font id number}
romanAppFond = 3; {application font id number}
romanFlags = $0007; {roman settings}
{ Script Manager font equates. }
smFondStart = $4000; {start from 16K}
smFondEnd = $C000; {past end of range at 48K}
{ Miscellaneous font equates. }
smUprHalfCharSet = $80; {first char code in top half of std char set}
{ Character Set Extensions }
diaeresisUprY = $D9;
fraction = $DA;
intlCurrency = $DB;
leftSingGuillemet = $DC;
rightSingGuillemet = $DD;
fiLigature = $DE;
flLigature = $DF;
dblDagger = $E0;
centeredDot = $E1;
baseSingQuote = $E2;
baseDblQuote = $E3;
perThousand = $E4;
circumflexUprA = $E5;
circumflexUprE = $E6;
acuteUprA = $E7;
diaeresisUprE = $E8;
graveUprE = $E9;
acuteUprI = $EA;
circumflexUprI = $EB;
diaeresisUprI = $EC;
graveUprI = $ED;
acuteUprO = $EE;
circumflexUprO = $EF;
appleLogo = $F0;
graveUprO = $F1;
acuteUprU = $F2;
circumflexUprU = $F3;
graveUprU = $F4;
dotlessLwrI = $F5;
circumflex = $F6;
tilde = $F7;
macron = $F8;
breveMark = $F9;
overDot = $FA;
ringMark = $FB;
cedilla = $FC;
doubleAcute = $FD;
ogonek = $FE;
hachek = $FF;
{ TokenType values }
tokenIntl = 4; {the itl resource number of the tokenizer}
tokenEmpty = -1; {used internally as an empty flag}
tokenUnknown = 0; {chars that do not match a defined token type}
tokenWhite = 1; {white space}
tokenLeftLit = 2; {literal begin}
tokenRightLit = 3; {literal end}
tokenAlpha = 4; {alphabetic}
tokenNumeric = 5; {numeric}
tokenNewLine = 6; {new line}
tokenLeftComment = 7; {open comment}
tokenRightComment = 8; {close comment}
tokenLiteral = 9; {literal}
tokenEscape = 10; {character escape (e.g. '\' in "\n", "\t")}
tokenAltNum = 11; {alternate number (e.g. $B0-B9 in Arabic,Hebrew)}
tokenRealNum = 12; {real number}
tokenAltReal = 13; {alternate real number}
tokenReserve1 = 14; {reserved}
tokenReserve2 = 15; {reserved}
tokenLeftParen = 16; {open parenthesis}
tokenRightParen = 17; {close parenthesis}
tokenLeftBracket = 18; {open square bracket}
tokenRightBracket = 19; {close square bracket}
tokenLeftCurly = 20; {open curly bracket}
tokenRightCurly = 21; {close curly bracket}
tokenLeftEnclose = 22; {open guillemet}
tokenRightEnclose = 23; {close guillemet}
tokenPlus = 24;
tokenMinus = 25;
tokenAsterisk = 26; {times/multiply}
tokenDivide = 27;
tokenPlusMinus = 28; {plus or minus symbol}
tokenSlash = 29;
tokenBackSlash = 30;
tokenLess = 31; {less than symbol}
tokenGreat = 32; {greater than symbol}
tokenEqual = 33;
tokenLessEqual2 = 34; {less than or equal, 2 characters (e.g. <=)}
tokenLessEqual1 = 35; {less than or equal, 1 character}
tokenGreatEqual2 = 36; {greater than or equal, 2 characters (e.g. >=)}
tokenGreatEqual1 = 37; {greater than or equal, 1 character}
token2Equal = 38; {double equal (e.g. ==)}
tokenColonEqual = 39; {colon equal}
tokenNotEqual = 40; {not equal, 1 character}
tokenLessGreat = 41; {less/greater, Pascal not equal (e.g. <>)}
tokenExclamEqual = 42; {exclamation equal, C not equal (e.g. !=)}
tokenExclam = 43; {exclamation point}
tokenTilde = 44; {centered tilde}
tokenComma = 45;
tokenPeriod = 46;
tokenLeft2Quote = 47; {open double quote}
tokenRight2Quote = 48; {close double quote}
tokenLeft1Quote = 49; {open single quote}
tokenRight1Quote = 50; {close single quote}
token2Quote = 51; {double quote}
token1Quote = 52; {single quote}
tokenSemicolon = 53;
tokenPercent = 54;
tokenCaret = 55;
tokenUnderline = 56;
tokenAmpersand = 57;
tokenAtSign = 58;
tokenBar = 59; {vertical bar}
tokenQuestion = 60;
tokenPi = 61; {lower-case pi}
tokenRoot = 62; {square root symbol}
tokenSigma = 63; {capital sigma}
tokenIntegral = 64; {integral sign}
tokenMicro = 65;
tokenCapPi = 66; {capital pi}
tokenInfinity = 67;
tokenColon = 68;
tokenHash = 69; {e.g. #}
tokenDollar = 70;
tokenNoBreakSpace = 71; {non-breaking space}
tokenFraction = 72;
tokenIntlCurrency = 73;
tokenLeftSingGuillemet = 74;
tokenRightSingGuillemet = 75;
tokenPerThousand = 76;
tokenEllipsis = 77;
tokenCenterDot = 78;
tokenNil = 127;
delimPad = -2;
{ obsolete, misspelled token names kept for backward compatibility }
tokenTilda = 44;
tokenCarat = 55;
{ Table selectors for GetItlTable }
smWordSelectTable = 0; { get word select break table from 'itl2' }
smWordWrapTable = 1; { get word wrap break table from 'itl2' }
smNumberPartsTable = 2; { get default number parts table from 'itl4' }
smUnTokenTable = 3; { get unToken table from 'itl4' }
smWhiteSpaceList = 4; { get white space list from 'itl4' }
iuWordSelectTable = 0; { <obsolete> get word select break table from 'itl2' }
iuWordWrapTable = 1; { <obsolete> get word wrap break table from 'itl2' }
iuNumberPartsTable = 2; { <obsolete> get default number parts table from 'itl4' }
iuUnTokenTable = 3; { <obsolete> get unToken table from 'itl4' }
iuWhiteSpaceList = 4; { <obsolete> get white space list from 'itl4' }
TYPE
TokenResults = (tokenOK,tokenOverflow,stringOverflow,badDelim,badEnding,
crash);
CharByteTable = PACKED ARRAY [0..255] OF SignedByte;
TokenType = INTEGER;
DelimType = ARRAY [0..1] OF TokenType;
CommentType = ARRAY [0..3] OF TokenType;
TokenRecPtr = ^TokenRec;
TokenRec = RECORD
theToken: TokenType;
position: Ptr; {pointer into original source}
length: LONGINT; {length of text in original source}
stringPosition: StringPtr; {Pascal/C string copy of identifier}
END;
TokenBlockPtr = ^TokenBlock;
TokenBlock = RECORD
source: Ptr; {pointer to stream of characters}
sourceLength: LONGINT; {length of source stream}
tokenList: Ptr; {pointer to array of tokens}
tokenLength: LONGINT; {maximum length of TokenList}
tokenCount: LONGINT; {number tokens generated by tokenizer}
stringList: Ptr; {pointer to stream of identifiers}
stringLength: LONGINT; {length of string list}
stringCount: LONGINT; {number of bytes currently used}
doString: BOOLEAN; {make strings & put into StringList}
doAppend: BOOLEAN; {append to TokenList rather than replace}
doAlphanumeric: BOOLEAN; {identifiers may include numeric}
doNest: BOOLEAN; {do comments nest?}
leftDelims: ARRAY [0..1] OF TokenType;
rightDelims: ARRAY [0..1] OF TokenType;
leftComment: ARRAY [0..3] OF TokenType;
rightComment: ARRAY [0..3] OF TokenType;
escapeCode: TokenType; {escape symbol code}
decimalCode: TokenType;
itlResource: Handle; {handle to itl4 resource of current script}
reserved: ARRAY [0..7] OF LONGINT; {must be zero!}
END;
FUNCTION FontScript: INTEGER;
INLINE $2F3C,$8200,$0000,$A8B5;
FUNCTION IntlScript: INTEGER;
INLINE $2F3C,$8200,$0002,$A8B5;
PROCEDURE KeyScript(code: INTEGER);
INLINE $2F3C,$8002,$0004,$A8B5;
FUNCTION CharByte(textBuf: Ptr;textOffset: INTEGER): INTEGER;
INLINE $2F3C,$8206,$0010,$A8B5;
FUNCTION CharType(textBuf: Ptr;textOffset: INTEGER): INTEGER;
INLINE $2F3C,$8206,$0012,$A8B5;
FUNCTION Transliterate(srcHandle: Handle;dstHandle: Handle;target: INTEGER;
srcMask: LONGINT): OSErr;
INLINE $2F3C,$820E,$0018,$A8B5;
FUNCTION ParseTable(VAR table: CharByteTable): BOOLEAN;
INLINE $2F3C,$8204,$0022,$A8B5;
FUNCTION GetSysDirection: INTEGER;
INLINE $3EB8,$0BAC;
FUNCTION GetSysJust: INTEGER;
INLINE $3EB8,$0BAC;
PROCEDURE SetSysDirection(newDirection: INTEGER);
INLINE $31DF,$0BAC;
PROCEDURE SetSysJust(newJust: INTEGER);
INLINE $31DF,$0BAC;
FUNCTION IntlTokenize(tokenParam: TokenBlockPtr): TokenResults;
INLINE $2F3C,$8204,$FFFA,$A8B5;
FUNCTION FontToScript(fontNumber: INTEGER): INTEGER;
INLINE $2F3C,$8202,$0006,$A8B5;
FUNCTION Font2Script(fontNumber: INTEGER): INTEGER;
INLINE $2F3C,$8202,$0006,$A8B5;
FUNCTION GetScriptManagerVariable(selector: INTEGER): LONGINT;
INLINE $2F3C,$8402,$0008,$A8B5;
FUNCTION GetEnvirons(verb: INTEGER): LONGINT;
INLINE $2F3C,$8402,$0008,$A8B5;
FUNCTION SetScriptManagerVariable(selector: INTEGER;param: LONGINT): OSErr;
INLINE $2F3C,$8206,$000A,$A8B5;
FUNCTION SetEnvirons(verb: INTEGER;param: LONGINT): OSErr;
INLINE $2F3C,$8206,$000A,$A8B5;
FUNCTION GetScriptVariable(script: INTEGER;selector: INTEGER): LONGINT;
INLINE $2F3C,$8404,$000C,$A8B5;
FUNCTION GetScript(script: INTEGER;verb: INTEGER): LONGINT;
INLINE $2F3C,$8404,$000C,$A8B5;
FUNCTION SetScriptVariable(script: INTEGER;selector: INTEGER;param: LONGINT): OSErr;
INLINE $2F3C,$8208,$000E,$A8B5;
FUNCTION SetScript(script: INTEGER;verb: INTEGER;param: LONGINT): OSErr;
INLINE $2F3C,$8208,$000E,$A8B5;
{ New for 7.1 }
FUNCTION GetScriptUtilityAddress(selector: INTEGER;Before: BOOLEAN;script: ScriptCode): Ptr;
INLINE $2F3C,$C404,$0038,$A8B5;
PROCEDURE SetScriptUtilityAddress(selector: INTEGER;Before: BOOLEAN;routineAddr: Ptr;
script: ScriptCode);
INLINE $2F3C,$C008,$003A,$A8B5;
FUNCTION GetScriptQDPatchAddress(trapNum: INTEGER;Before: BOOLEAN;forPrinting: BOOLEAN;
script: ScriptCode): Ptr;
INLINE $2F3C,$C406,$003C,$A8B5;
PROCEDURE SetScriptQDPatchAddress(trapNum: INTEGER;Before: BOOLEAN;forPrinting: BOOLEAN;
routineAddr: Ptr;script: ScriptCode);
INLINE $2F3C,$C00A,$003E,$A8B5;
FUNCTION CharacterByteType(textBuf: Ptr;textOffset: INTEGER;script: ScriptCode): INTEGER;
INLINE $2F3C,$C206,$0010,$A8B5;
FUNCTION CharacterType(textBuf: Ptr;textOffset: INTEGER;script: ScriptCode): INTEGER;
INLINE $2F3C,$C206,$0012,$A8B5;
FUNCTION TransliterateText(srcHandle: Handle;dstHandle: Handle;target: INTEGER;
srcMask: LONGINT;script: ScriptCode): OSErr;
INLINE $2F3C,$C20E,$0018,$A8B5;
FUNCTION FillParseTable(VAR table: CharByteTable;script: ScriptCode): BOOLEAN;
INLINE $2F3C,$C204,$0022,$A8B5;
{ Moved from packages.p }
FUNCTION GetIntlResource(theID: INTEGER): Handle;
INLINE $3F3C,$0006,$A9ED;
FUNCTION IUGetIntl(theID: INTEGER): Handle;
INLINE $3F3C,$0006,$A9ED;
PROCEDURE IUSetIntl(refNum: INTEGER;theID: INTEGER;intlHandle: Handle);
INLINE $3F3C,$0008,$A9ED;
PROCEDURE ClearIntlResourceCache;
INLINE $3F3C,$0018,$A9ED;
PROCEDURE IUClearCache;
INLINE $3F3C,$0018,$A9ED;
PROCEDURE GetIntlResourceTable(script: ScriptCode;tableCode: INTEGER;VAR itlHandle: Handle;
VAR offset: LONGINT;VAR length: LONGINT);
INLINE $3F3C,$0024,$A9ED;
PROCEDURE IUGetItlTable(script: ScriptCode;tableCode: INTEGER;VAR itlHandle: Handle;
VAR offset: LONGINT;VAR length: LONGINT);
INLINE $3F3C,$0024,$A9ED;
{$ENDC} { UsingScript }
{$IFC NOT UsingIncludes}
END.
{$ENDC}