mirror of
https://github.com/elliotnunn/boot3.git
synced 2024-06-09 02:29:27 +00:00
5b0f0cc134
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included. The Tools directory, containing mostly junk, is also excluded.
1183 lines
46 KiB
OpenEdge ABL
1183 lines
46 KiB
OpenEdge ABL
|
||
{
|
||
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 <EFBFBD>ring<EFBFBD> and <EFBFBD>breve<EFBFBD> constants (too
|
||
ambiguous) to <EFBFBD>ringMark<EFBFBD> and <EFBFBD>breveMark<EFBFBD>.
|
||
<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 <EFBFBD>resHeader1<EFBFBD> field to <EFBFBD>format<EFBFBD>, 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
|
||
<EFBFBD>NItl4Rec<EFBFBD> to the extended version of Itl4Rec, and
|
||
unconditionalized the old versions so they don<EFBFBD>t 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}
|
||
|