mirror of
https://github.com/elliotnunn/boot3.git
synced 2024-06-09 17:29:28 +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.
351 lines
12 KiB
OpenEdge ABL
351 lines
12 KiB
OpenEdge ABL
{
|
|
File: IntlResources.p
|
|
Pascal Interface to the Macintosh Libraries
|
|
|
|
Copyright: © 1983-1992 by Apple Computer, Inc.
|
|
All rights reserved.
|
|
|
|
Change History (most recent first):
|
|
|
|
<4> 10/16/92 PKE For New IM: Add timeCycle constants and Itl1ExtRec.
|
|
<3> 6/26/92 DCL Miner Formatting Changes. Digging deep for things to do. Getting
|
|
the file ready for ETO 8.
|
|
<2> 5/29/92 DCL Moved int0, itl3 & itl4 resource constants from TextUtils and
|
|
Script.
|
|
<1> 5/5/92 DCL first checked in
|
|
|
|
}
|
|
|
|
|
|
|
|
{$IFC UNDEFINED UsingIncludes}
|
|
{$SETC UsingIncludes := 0}
|
|
{$ENDC}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
UNIT IntlResources;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingIntlResources}
|
|
{$SETC UsingIntlResources := 1}
|
|
|
|
{$I+}
|
|
{$SETC IntlResourcesIncludes := UsingIncludes}
|
|
{$SETC UsingIncludes := 1}
|
|
{$IFC UNDEFINED UsingTypes}
|
|
{$I $$Shell(PInterfaces)Types.p}
|
|
{$ENDC}
|
|
{$SETC UsingIncludes := IntlResourcesIncludes}
|
|
|
|
CONST
|
|
|
|
{ Bits in the itlcFlags byte.}
|
|
itlcShowIcon = 7; {Show icon even if only one script}
|
|
itlcDualCaret = 6; {Use dual caret for mixed direction text}
|
|
|
|
{ Bits in the itlcSysFlags word.}
|
|
itlcSysDirection = 15; {System direction - left to right/right to left}
|
|
|
|
{ the NumberParts indices }
|
|
tokLeftQuote = 1;
|
|
tokRightQuote = 2;
|
|
tokLeadPlacer = 3;
|
|
tokLeader = 4;
|
|
tokNonLeader = 5;
|
|
tokZeroLead = 6;
|
|
tokPercent = 7;
|
|
tokPlusSign = 8;
|
|
tokMinusSign = 9;
|
|
tokThousands = 10;
|
|
tokSeparator = 12; {11 is a reserved field}
|
|
tokEscape = 13;
|
|
tokDecPoint = 14;
|
|
tokEPlus = 15;
|
|
tokEMinus = 16;
|
|
tokMaxSymbols = 31;
|
|
|
|
curNumberPartsVersion = 1; {current version of NumberParts record}
|
|
|
|
currSymLead = 16;
|
|
currNegSym = 32;
|
|
currTrailingZ = 64;
|
|
currLeadingZ = 128;
|
|
|
|
timeCycle24 = 0; { time sequence 0:00 - 23:59 } {<4>}
|
|
timeCycleZero = 1; { time sequence 0:00-11:59, 0:00 - 11:59 } {<4>}
|
|
timeCycle12 = 255; { time sequence 12:00 - 11:59, 12:00 - 11:59 } {<4>}
|
|
|
|
zeroCycle = 1; {old name for timeCycleZero}
|
|
|
|
|
|
longDay = 0; {day of the month}
|
|
longWeek = 1; {day of the week}
|
|
longMonth = 2; {month of the year}
|
|
longYear = 3; {year}
|
|
supDay = 1; {suppress day of month}
|
|
supWeek = 2; {suppress day of week}
|
|
supMonth = 4; {suppress month}
|
|
supYear = 8; {suppress year}
|
|
dayLdingZ = 32;
|
|
mntLdingZ = 64;
|
|
century = 128;
|
|
secLeadingZ = 32;
|
|
minLeadingZ = 64;
|
|
hrLeadingZ = 128;
|
|
|
|
{ Date Orders }
|
|
mdy = 0;
|
|
dmy = 1;
|
|
ymd = 2;
|
|
myd = 3;
|
|
dym = 4;
|
|
ydm = 5;
|
|
|
|
|
|
|
|
TYPE
|
|
|
|
OffPair = RECORD
|
|
offFirst: INTEGER;
|
|
offSecond: INTEGER;
|
|
END;
|
|
|
|
|
|
OffsetTable = ARRAY [0..2] OF OffPair;
|
|
|
|
|
|
Intl0Ptr = ^Intl0Rec;
|
|
Intl0Hndl = ^Intl0Ptr;
|
|
Intl0Rec = PACKED RECORD
|
|
decimalPt: CHAR; {decimal point character}
|
|
thousSep: CHAR; {thousands separator character}
|
|
listSep: CHAR; {list separator character}
|
|
currSym1: CHAR; {currency symbol}
|
|
currSym2: CHAR;
|
|
currSym3: CHAR;
|
|
currFmt: Byte; {currency format flags}
|
|
dateOrder: Byte; {order of short date elements: mdy, dmy, etc.}
|
|
shrtDateFmt: Byte; {format flags for each short date element}
|
|
dateSep: CHAR; {date separator character}
|
|
timeCycle: Byte; {time cycle: 0=>0..23, 1=>0..11, 255=> 1..12}
|
|
timeFmt: Byte; {format flags for each time element}
|
|
mornStr: PACKED ARRAY [1..4] OF CHAR; {trailing string for AM if 12-hour cycle}
|
|
eveStr: PACKED ARRAY [1..4] OF CHAR; {trailing string for PM if 12-hour cycle}
|
|
timeSep: CHAR; {time separator character}
|
|
time1Suff: CHAR; {trailing string for AM if 24-hour cycle}
|
|
time2Suff: CHAR;
|
|
time3Suff: CHAR;
|
|
time4Suff: CHAR;
|
|
time5Suff: CHAR; {trailing string for PM if 24-hour cycle}
|
|
time6Suff: CHAR;
|
|
time7Suff: CHAR;
|
|
time8Suff: CHAR;
|
|
metricSys: Byte; {255 if metric, 0 if inches etc.}
|
|
intl0Vers: INTEGER; {region code (hi byte) and version (lo byte)}
|
|
END;
|
|
|
|
Intl1Ptr = ^Intl1Rec;
|
|
Intl1Hndl = ^Intl1Ptr;
|
|
Intl1Rec = PACKED RECORD
|
|
days: ARRAY [1..7] OF Str15; {day names}
|
|
months: ARRAY [1..12] OF Str15; {month names}
|
|
suppressDay: Byte; {255 for no day, or flags to suppress any element}
|
|
lngDateFmt: Byte; {order of long date elements}
|
|
dayLeading0: Byte; {255 for leading 0 in day number}
|
|
abbrLen: Byte; {length for abbreviating names}
|
|
st0: PACKED ARRAY [1..4] OF CHAR; {separator strings for long date format}
|
|
st1: PACKED ARRAY [1..4] OF CHAR;
|
|
st2: PACKED ARRAY [1..4] OF CHAR;
|
|
st3: PACKED ARRAY [1..4] OF CHAR;
|
|
st4: PACKED ARRAY [1..4] OF CHAR;
|
|
intl1Vers: INTEGER; {region code (hi byte) and version (lo byte)}
|
|
localRtn: ARRAY [0..0] OF INTEGER; {now a flag for opt extension}
|
|
END;
|
|
|
|
Itl1ExtRec = RECORD {fields for optional itl1 extension} {<4>}
|
|
base: Intl1Rec; {un-extended Intl1Rec}
|
|
version: INTEGER;
|
|
format: INTEGER;
|
|
calendarCode: INTEGER; {calendar code for this itl1 resource}
|
|
extraDaysTableOffset: LONGINT; {offset in itl1 to extra days table}
|
|
extraDaysTableLength: LONGINT; {length of extra days table}
|
|
extraMonthsTableOffset: LONGINT; {offset in itl1 to extra months table}
|
|
extraMonthsTableLength: LONGINT; {length of extra months table}
|
|
abbrevDaysTableOffset: LONGINT; {offset in itl1 to abbrev days table}
|
|
abbrevDaysTableLength: LONGINT; {length of abbrev days table}
|
|
abbrevMonthsTableOffset: LONGINT; {offset in itl1 to abbrev months table}
|
|
abbrevMonthsTableLength: LONGINT; {length of abbrev months table}
|
|
extraSepsTableOffset: LONGINT; {offset in itl1 to extra seps table}
|
|
extraSepsTableLength: LONGINT; {length of extra seps table}
|
|
tables: ARRAY [0..0] OF INTEGER; {the tables; variable-length}
|
|
END;
|
|
|
|
UntokenTablePtr = ^UntokenTable;
|
|
UntokenTableHandle = ^UntokenTablePtr;
|
|
UntokenTable = RECORD
|
|
len: INTEGER;
|
|
lastToken: INTEGER;
|
|
index: ARRAY [0..255] OF INTEGER; {index table; last = lastToken}
|
|
END;
|
|
|
|
|
|
|
|
WideChar = RECORD
|
|
CASE BOOLEAN OF
|
|
TRUE:
|
|
(a: PACKED ARRAY [0..1] OF CHAR); {0 is the high order character}
|
|
FALSE:
|
|
(b: INTEGER);
|
|
END;
|
|
|
|
WideCharArr = RECORD
|
|
size: INTEGER;
|
|
data: PACKED ARRAY [0..9] OF WideChar;
|
|
END;
|
|
|
|
NumberPartsPtr = ^NumberParts;
|
|
NumberParts = RECORD
|
|
version: INTEGER;
|
|
data: ARRAY [1..31] OF WideChar; {index by [tokLeftQuote..tokMaxSymbols]}
|
|
pePlus: WideCharArr;
|
|
peMinus: WideCharArr;
|
|
peMinusPlus: WideCharArr;
|
|
altNumTable: WideCharArr;
|
|
reserved: PACKED ARRAY [0..19] OF CHAR;
|
|
END;
|
|
|
|
|
|
|
|
Itl4Ptr = ^Itl4Rec;
|
|
Itl4Handle = ^Itl4Ptr;
|
|
Itl4Rec = RECORD
|
|
flags: INTEGER; {reserved}
|
|
resourceType: LONGINT; {contains 'itl4'}
|
|
resourceNum: INTEGER; {resource ID}
|
|
version: INTEGER; {version number}
|
|
resHeader1: LONGINT; {reserved}
|
|
resHeader2: LONGINT; {reserved}
|
|
numTables: INTEGER; {number of tables, one-based}
|
|
mapOffset: LONGINT; {offset to table that maps byte to token}
|
|
strOffset: LONGINT; {offset to routine that copies canonical string}
|
|
fetchOffset: LONGINT; {offset to routine that gets next byte of character}
|
|
unTokenOffset: LONGINT; {offset to table that maps token to canonical string}
|
|
defPartsOffset: LONGINT; {offset to default number parts table}
|
|
resOffset6: LONGINT; {reserved}
|
|
resOffset7: LONGINT; {reserved}
|
|
resOffset8: LONGINT; {reserved}
|
|
END;
|
|
|
|
{ New NItl4Rec for System 7.0: }
|
|
|
|
NItl4Ptr = ^NItl4Rec;
|
|
NItl4Handle = ^NItl4Ptr;
|
|
NItl4Rec = RECORD
|
|
flags: INTEGER; {reserved}
|
|
resourceType: LONGINT; {contains 'itl4'}
|
|
resourceNum: INTEGER; {resource ID}
|
|
version: INTEGER; {version number}
|
|
format: INTEGER; {format code}
|
|
resHeader: INTEGER; {reserved}
|
|
resHeader2: LONGINT; {reserved}
|
|
numTables: INTEGER; {number of tables, one-based}
|
|
mapOffset: LONGINT; {offset to table that maps byte to token}
|
|
strOffset: LONGINT; {offset to routine that copies canonical string}
|
|
fetchOffset: LONGINT; {offset to routine that gets next byte of character}
|
|
unTokenOffset: LONGINT; {offset to table that maps token to canonical string}
|
|
defPartsOffset: LONGINT; {offset to default number parts table}
|
|
whtSpListOffset: LONGINT; {offset to white space code list}
|
|
resOffset7: LONGINT; {reserved}
|
|
resOffset8: LONGINT; {reserved}
|
|
resLength1: INTEGER; {reserved}
|
|
resLength2: INTEGER; {reserved}
|
|
resLength3: INTEGER; {reserved}
|
|
unTokenLength: INTEGER; {length of untoken table}
|
|
defPartsLength: INTEGER; {length of default number parts table}
|
|
whtSpListLength: INTEGER; {length of white space code list}
|
|
resLength7: INTEGER; {reserved}
|
|
resLength8: INTEGER; {reserved}
|
|
END;
|
|
|
|
TableDirectoryRecord = RECORD
|
|
tableSignature: OSType; {4 byte long table name }
|
|
reserved: LONGINT; {Reserved for internal use }
|
|
tableStartOffset: LONGINT; {Table start offset in byte}
|
|
tableSize: LONGINT; {Table size in byte}
|
|
END;
|
|
|
|
Itl5Record = RECORD
|
|
versionNumber: Fixed; {itl5 resource version number }
|
|
numberOfTables: INTEGER; {Number of tables it contains }
|
|
reserved: ARRAY [0..2] OF INTEGER; {Reserved for internal use }
|
|
tableDirectory: ARRAY [0..0] OF TableDirectoryRecord; {Table directory records }
|
|
END;
|
|
|
|
RuleBasedTrslRecord = RECORD
|
|
sourceType: INTEGER; {Transliterate target type for the LHS of the rule }
|
|
targetType: INTEGER; {Transliterate target type for the RHS of the rule }
|
|
formatNumber: INTEGER; {Transliterate resource format number }
|
|
propertyFlag: INTEGER; {Transliterate property flags }
|
|
numberOfRules: INTEGER; {Number of rules following this field }
|
|
END;
|
|
|
|
|
|
|
|
ItlcRecord = RECORD
|
|
itlcSystem: INTEGER; {default system script}
|
|
itlcReserved: INTEGER; {reserved}
|
|
itlcFontForce: SignedByte; {default font force flag}
|
|
itlcIntlForce: SignedByte; {default intl force flag}
|
|
itlcOldKybd: SignedByte; {MacPlus intl keybd flag}
|
|
itlcFlags: SignedByte; {general flags}
|
|
itlcIconOffset: INTEGER; {keyboard icon offset; not used in 7.0}
|
|
itlcIconSide: SignedByte; {keyboard icon side; not used in 7.0}
|
|
itlcIconRsvd: SignedByte; {rsvd for other icon info}
|
|
itlcRegionCode: INTEGER; {preferred verXxx code}
|
|
itlcSysFlags: INTEGER; {flags for setting system globals}
|
|
itlcReserved4: ARRAY [0..31] OF SignedByte; {for future use}
|
|
END;
|
|
|
|
ItlbRecord = RECORD
|
|
itlbNumber: INTEGER; {itl0 id number}
|
|
itlbDate: INTEGER; {itl1 id number}
|
|
itlbSort: INTEGER; {itl2 id number}
|
|
itlbFlags: INTEGER; {Script flags}
|
|
itlbToken: INTEGER; {itl4 id number}
|
|
itlbEncoding: INTEGER; {itl5 ID # (optional; char encoding)}
|
|
itlbLang: INTEGER; {current language for script }
|
|
itlbNumRep: SignedByte; {number representation code}
|
|
itlbDateRep: SignedByte; {date representation code }
|
|
itlbKeys: INTEGER; {KCHR id number}
|
|
itlbIcon: INTEGER; {ID # of SICN or kcs#/kcs4/kcs8 suite.}
|
|
END;
|
|
|
|
{ New ItlbExtRecord structure for System 7.0 }
|
|
|
|
ItlbExtRecord = RECORD
|
|
base: ItlbRecord; {un-extended ItlbRecord}
|
|
itlbLocalSize: LONGINT; {size of script's local record}
|
|
itlbMonoFond: INTEGER; {default monospace FOND ID}
|
|
itlbMonoSize: INTEGER; {default monospace font size}
|
|
itlbPrefFond: INTEGER; {preferred FOND ID}
|
|
itlbPrefSize: INTEGER; {preferred font size}
|
|
itlbSmallFond: INTEGER; {default small FOND ID}
|
|
itlbSmallSize: INTEGER; {default small font size}
|
|
itlbSysFond: INTEGER; {default system FOND ID}
|
|
itlbSysSize: INTEGER; {default system font size}
|
|
itlbAppFond: INTEGER; {default application FOND ID}
|
|
itlbAppSize: INTEGER; {default application font size}
|
|
itlbHelpFond: INTEGER; {default Help Mgr FOND ID}
|
|
itlbHelpSize: INTEGER; {default Help Mgr font size}
|
|
itlbValidStyles: Style; {set of valid styles for script}
|
|
itlbAliasStyle: Style; {style (set) to mark aliases}
|
|
END;
|
|
|
|
{$ENDC} { UsingIntlResources }
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|
|
|