mirror of
https://github.com/elliotnunn/supermario.git
synced 2024-11-29 05:49:19 +00:00
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}
|
||
|
|
|