Macintosh-SW/sys7.1-doc-wip
1
0
Fork 0
mirror of https://github.com/elliotnunn/sys7.1-doc-wip.git synced 2024-06-11 07:29:33 +00:00
Code Issues Projects Releases Wiki Activity
master
sys7.1-doc-wip/Internal/Asm/ScriptPriv.a
Horst Beepmanh 33cd9271f4 SuperMarioProj.1994-02-09
2019-07-27 22:37:48 +08:00

1674 lines
75 KiB
Plaintext
Raw Permalink 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.

;
; File: ScriptPriv.a (formerly ScriptEqu.priv)
;
; Contains: Private equates for Script Manager, private shared equates for
; script systems, and private equates for the Roman Script System.
;
; Written by: KWK Ken Krugler
; JDT Joe Ternasky
; MED Mark Davis
; LDC Lee Collins
; PKE Peter Edberg
; SMB Sue Bartalo
; YS Yishai Steinhart
;
; Copyright: © 1986-1992 by Apple Computer, Inc., all rights reserved.
;
; Change History (most recent first):
;
; <SM9> 12/1/92 CSS Update from Reality:
; <74> 11/17/92 PKE Move the equates needed to build itl4Roman.a into a separate
; file IntlResourcesPriv.a, which we can give to localizers along
; with itl4Roman.a (so we don't give out ScriptPriv.a). For now,
; include IntlResourcesPriv.a here as well.
; <SM8> 11/10/92 CSS Update from Reality:
; <73> 10/16/92 PKE Move the _SCxxx trap names (and selectors) back here until we
; can get rid of them, since the public interfaces will contain
; the new names per New IM.
; <SM7> 10/28/92 SWC Changed ScriptEqu.a->Script.a.
; <SM6> 7/7/92 CSS Update from Reality:
; <72> 6/26/92 SMB #1033660,<kst>: The flags being set for Simplified Chinese TSM
; components is incorrect. Changed from $9300 to $9900. (see
; SimpChineseFlags) Added some additional equates for component
; flags and masks for the kbd menu.
; <71> 6/17/92 SMB #1024950,<cv>: Added indices for strings in About Keyboards
; dialogs.
; <SM5> 7/1/92 RB Updated the version of the Script Manager in ROM, since
; SuperMario is Cube-E based.
; <70> 6/1/92 PKE #1031279: This depends on ScriptEqu.a, so include it (no effect
; on objects).
; <69> 5/19/92 PKE #1030321,<jh>: Add interface for private direct access to
; existing NFindScriptRun routine.
; <68> 5/14/92 PKE #1027061,<ha>: Add interface for private ScriptToRange routine
; that returns resource ID range for a script.
; <67> 5/14/92 PKE #1029395,<bbm>: Move FindScriptTable record here (where it
; belongs) from ScriptMgrExtensions.a.
; <66> 5/10/92 SMB #1026551,<pke>: Freed space that used to contain
; sVectOldDrawMenuBar in smgrRecord since no longer patching
; DrawMenuBar in the SMgr (added this in Cube-E b1 and are
; removing it in b2). Renamed kDefaultInputMethodID to
; kDefaultIMIconID.
; <65> 5/10/92 SMB #1026551,<ksm>: Added kDefaultInputMethodID constant. Added
; smKeySynchKbdMenuState.
; <64> 4/10/92 SMB #1026551,<pke>: Added vector, sVectOldDrawMenuBar, in smgrRecord
; for patch to DrawMenuBar.
; <63> 4/8/92 PKE #1026516,<cv>: Move SCxxx interfaces for some ScriptMgr routines
; from private interfaces (here) to public (ScriptEqu.a). Other
; changes: (1) Needed for #1026551, define smgrAppDisableKybds
; field in SMgrAppRecord (to keep keyboard disable state in Script
; Mgr app globals); (2) Needed for #1026778, define scriptID field
; in ScriptRecord so we can get script ID from ScriptRecord in
; FindWord and elsewhere.
; <62> 4/5/92 PKE #1025317,<csd>: Expand fixed space at beginning of SMgrAppRecord
; for use by one-byte extension.
; <61> 4/3/92 SMB #1019369,<pke>: Add HaveOldJapanIMbit bit value. Changed
; smKeyDisabState to smKeyDisableState.
; <60> 2/10/92 JH ScriptRecord was spelled with all lowercase in the
; scriptSystemRecord that was brought over for Japanese input
; method compatibility. Changed so its case is consistent with
; the other mentions of ScriptRecord.
; <59> 2/5/92 YS Added some of the universal one byte privete get/set script
; verbs (smScriptSysBase, smScriptAppBase,smScriptFntBase).
; <58> 1/15/92 SMB Add a new field to the keyboard menu records. Add constants for
; processing of input methods. #1019369: updated smLastEVerb to
; smKeyDisabState to correspond to new GetEnvirons verb,
; smgrDisableKybds, to return keyboard disabled state.
; <57> 12/11/91 SMB For Cube-E, renamed AuxKeyboardMenuInfo members and
; KCHRInstalledRec (is now ItemInstalledRec) with new names. Added
; itemInfo to both records for component identifier. Reordered
; members in AuxKeyboardMenuInfo. Renamed scriptRecord's
; scriptKCHRCount member to scriptInputCount.
; <56> 12/6/91 PKE #1017161: Make TestLetter available through private Script Mgr
; selector, for use by script systems. Change smLowCall to match.
; <55> 12/3/91 PKE For Cube-E, change Script Mgr version to $710. Add macro for
; SCParseTable (implementation already exists).
; <54> 10/28/91 PKE Add macros for SCLowerText, SCStripText, SCCharByte, SCCharType,
; SCFindWord (the implementations already exist).
; <53> 10/16/91 PKE For Cube-E (and Bruges): Increment Script Mgr version number.
; <52> 10/8/91 PKE For Cube-E (and Bruges): Reserve 5 Script Mgr selectors for
; Unicode translation routines (not implemented yet). Add selector
; and/or macro for new (currently private) routines RealScript,
; Font2RealScript, SCLwrString, SCTransliterate (needed for bugs
; #1013149, #1012949); change smLowCall accordingly. Clean up some
; more conditionals; change some "smgr>=$700" to "NOT forRom",
; since we still have to rearrange other source files before we
; can build all 7.0 changes into ROMs.
; <51> 10/2/91 YS changed 'smgrIntlMode' (in SMgrRecord) to 'smgrUnivInstalled'.
; changed a reserved (last in ScriptRecord) to 'scriptQDPatches'.
; <50> 9/24/91 PKE Eliminate some conditionals for pre-7.0 versions, other
; cleanups.
; <49> 9/5/91 JH fixed so all forRom conditionals are spelled with the same case
; (i.e. forRom ) two were previously spelled ForROM, while the
; rest were spelled forRom. Made dealing with CASE ON/CASE OFF
; simpler.
; <48> 8/22/91 JSM Clean up header.
; <47> 2/1/91 PKE JSM,#81409: Changes in JustDatRec to support bug fix and
; cleanups in RomanNewJust.a.
; <46> 1/30/91 gbm sab, #38: Change the ‘already including this file’ variable to
; all uppercase (for security reasons)
; <45> 1/14/91 PKE (stb) Made changes to JustDataRec needed for fixes to NDrawJust
; etc. Added ClientLLRecord and ThPrWidthTable. Use formerly
; reserved field in SMgrRecord for smgrClientLLRecHndl, handle to
; ClientLLRecord. Added macro for private FindCharInSet routine
; from Kevin M; this routine will be used by Dialog Mgr & Finder.
; Corrected some comments.
; <44> 1/7/91 SMB (JDR) approved the last change!
; <43> 1/7/91 SMB Adding a new byte that indicates whether the Keyboard Menu is
; displayed (rather than use the smgrKeyboardMenuPtr for this)
; since the Keyboard menu structures have to always exist so the
; KeyScript verb "NextKeybdInScript" is meaningful (and
; functions!). Changing the default keyboard marker to a null.
; <42> 12/14/90 SMB (csd) I forgot the approval signature for the previous change.
; <41> 12/14/90 SMB Moved KeyScript verb, smKeyModalDialog, here and renamed it
; smKeyDisableAboutKybds. Also added new KeyScript verb
; smKeyEnableAboutKybds. Fixes bug #74905.
; <40> 12/10/90 PKE (VL) Add macro for private _ReInitScripts routine to be called
; after net booting switches system files. It cleans up Script Mgr
; data structures based on resources in old file, then calls
; _InitScripts to set up new structures based on current file.
; Also, renamed smgrIconFlag2 field (formerly reserved) of
; SMgrRecord to smgrKeyScriptResult, since we now use it to
; indicate KeyScript result.
; <39> 8/24/90 PKE Remove smgrCharExtra and smgrSlop from SMgrRecord, since they
; have been replaced by qdChExtra and qdRunSlop in GrafGlobals.
; <38> 8/8/90 PKE Changes to JustDataRec that are needed in order to fix bugs in
; new justified text routines.
; <37> 8/7/90 PKE NEEDED FOR SIXPACK: Redefined doScriptMgrForAUX symbol so Script
; Mgr patch installs are moved to Mac+A/UX section of patch files
; in SixPack as well as 7.0.
; <36> 8/7/90 SMB Adding back in changes for <33> and renaming AboutKeyboards to
; AboutKybdsIndex. Added KeybdDefaultMrk for localizing default
; keybd marker in menuitems. Also added commented out indices for
; help strings in Keyboard Menu STR# resource.
; <35> 8/5/90 PKE Add doScriptMgrForAUX symbol. Controls moving Script Mgr patches
; to A/UX section of patch files (if they are not already there).
; <34> 8/5/90 SMB Backing out changes for <33>. Will add in later.
; <33> 8/5/90 SMB Added KCHRname and KCHRid to KCHRInstalledRec and renamed
; KCHREnabledRec to KCHRInstalledRec. Added DefMarkIndex and
; AboutKeyboards as indices for new strings in Keyboard Menu STR#
; resource. Added more comments about the use of smgrDisableKybds.
; <32> 8/2/90 PKE Added smgrDisableKybds flag field to SMgrRecord.
; <31> 7/25/90 PKE Add private _InitScriptApp and _CleanupScriptApp routines to be
; called when apps are launched and closed in order to set up and
; delete the new application-specific script globals (which, for
; now, just contain the application itl cache). Added
; SMgrAppRecord structure for app-specific globals.
; <30> 7/20/90 PKE Added scriptAvail vector (called by _InitScripts) and
; scriptAddFonts vector (called by _AddScriptFonts) to
; ScriptRecord for use during initialization; rearranged
; scriptValidStyles, scriptAliasStyle, and scriptInItlm fields.
; Removed sVectFixSMgrWorld2 field from SMgrRecord; we no longer
; need it; rearrange other fields to group reserved space; affects
; ptch 4, 27, 39. Added smgrFixWorldInPtch27 feature symbol.
; <29> 7/16/90 PKE Renamed Cache2Rec to NewItlCacheRec. Updated ItlmHeaderRec to
; include regionData table.
; <28> 7/11/90 PKE Added _IsCmdChar private routine macro for common code that
; tests for Command-key combinations in an international way
; (standard FilterProc will use this to check for Cmd-period).
; <27> 7/5/90 PKE NEEDED FOR SIXPACK: Define smgrSixPack symbol here since we are
; now using it in several places; change appropriate $606
; references here to smgrSixPack.
; <26> 6/22/90 SMB Added DoCmdKeyEquivalents feature symbol for code that will be
; used once command key equivalents can appear in the Keybd Menu.
; <25> 6/13/90 PKE Added _RebuildKeybdMenu private routine macro for new routine
; called by Mover to inform Script Mgr of keyboard changes in the
; System file. Updated smLowCall accordingly.
; <24> 6/1/90 SMB Added scriptKCHRCount to ScriptRecord for use with Keyboard
; Menu. Added indices for strings in Keyboard Menu STR# resource.
; Changed keyboard menu id to its real #.
; <23> 5/31/90 PKE Added new fields to ScriptRecord: scriptValidStyles,
; scriptAliasStyle. Updated smLastSVerb from smScriptSysFondSize
; (was ignoring smScriptHelpFondSize!) to smScriptAliasStyle.
; Added _SetKbdMenuInfo private trap macro for use by Process Mgr
; and updated smLowCall accordingly.
; <22> 5/29/90 PKE NEEDED FOR SIXPACK: Turned on smgrUseDispTablePtr and
; romanKeepSelector flags for SIXPACK. These changes are flagged
; with <22>.
; <21> 5/29/90 DDG NEEDED FOR SIXPACK: Changed all the sixpack conditionals from
; six-point-oh-seven to six-point-oh-six.
; <20> 5/24/90 PKE Added smgrDispatchInPtch27 symbol.
; <19> 5/11/90 PKE Added _AddScriptFonts private trap macro for use by
; StartSystem.a; update smLowCall accordingly.
; <18> 5/8/90 PKE Added Cache2Rec record for itl2/4 secondary cache. Temporarily
; added ItlmHeaderRec here; will move to ScriptEqu.a later (when
; it gets stable). Added scriptInItlm flag in scriptRecord.
; <17> 5/5/90 PKE Added _InitScripts and _InitKeybdMenu private trap macros for
; use by StartSystem.a and Process Mgr respectively. Made SysVers
; default to $700 if undefined. Added Sue's KeyboardMenu stuff:
; ScriptMgrKeyboardMenu feature symbol; SMgrRecord fields
; smgrKeyboardMenuPtr, sVectInitMenus, sVectOldSystemMenu, and
; sVectInitKeyboardMenu; ScriptRecord field scriptKeysItemNum; and
; kKeyboardMenuID constant. Removed sVectInitResources and
; sVectInitWindows since they are no longer used.
; <16> 4/30/90 PKE NEEDED FOR SIXPACK: Updated ScriptMgr version number for 6.0.6.
; <15> 4/27/90 Greg prevent redefinition warnings by avoiding multiple inclusions
; <14> 4/24/90 PKE Added smgrSlop field to SMgrRecord. Used for passing slop value
; used by pic opcode.
; <13> 4/10/90 PKE Added new feature symbols. Used feature symbols, smgrROMVers,
; and smgrSysVers instead of buildLevel. Defined
; doScriptMgrUseKscn and doScriptMgrRstKCHRFix for ROM builds too.
; Deleted obsolete smgrEMOffset and lowerNoMarkListOffset
; constants.
; <12> 3/26/90 PKE Now change conditionals so we do the following for SysVers >=
; $607 instead of SysVers >= $700: (1) load ptch 27 and ptch 39,
; (2) use script autoinitialization and simple script version of
; FindScriptRun.
; <11> 3/26/90 PKE Define smgrSysVers and smgrROMVers. Removed sVectFixSpExtra
; field in SMgrRecord; no longer needed (see <4>). Move definition
; here of symbols that control Script Mgr patches in PTCHes
; (definitions were in PTCH source), and added new ones. Added
; installScriptMgrPtch27 and installScriptMgrPtch39 symbols.
; <10> 3/21/90 PKE Added scriptAppFondSize and scriptHelpFondSize fields in
; ScriptRecord. Deleted obsolete oldMacTweek flag and related
; conditionalization of GetSmgrCore macro.
; <9> 3/21/90 SMB Added romanDoSimpleScripts feature conditional.
; <8> 3/19/90 PKE Added new Script Mgr feature conditionals.
; <7> 3/4/90 PKE Deleted obsolete _LwrStringToUpr opword.
; <6> 2/22/90 PKE Added smgrCharExtra field in SMgrRecord, added JustDataRec
; record.
; <5> 1/17/90 PKE Added smgrRegionCode and smgrDummy fields to SMgrRecord, updated
; smLastEVerb to smRegionCode.
; <4> 1/11/90 PKE Moved definitions of sisHighCall and fisHighCall from
; ScriptEqu.a to here so we can conditionalize them. Added
; sVectFixSpExtra in SMgrRecord.
; <3> 1/4/90 PKE Fixed up header.
; <2> 1/4/90 PKE NEEDED FOR 6.0.5: Bumped ScriptMgr version numbers for 6.0.5.
; Updated header to BBS format.
; <1> 12/17/89 CCH Adding for the first time into BBS. Updated file name references.
;
; (BBS versions above,EASE versions below:)
; <3.5> 11/17/89 pke Fixed KybdDriverData record: DeadKey state should be long, not
; word.
; <3.4> 10/02/89 pke Changed smLastEVerb to be smKCHRCache.
; <3.3> 09/xx/89 pke Moved definitions of smLastEVerb, smLastSVerb, and
; smLowCall/smLowCall60x here from ScriptEqu.a so we can
; conditionalize them; they don't need to be public anyway. Add
; private romanVersPriv and romanVersPtch4 constants to be
; independent of version number in ScriptEqu.a.
; <3.2> 09/15/89 pke Add smgrDoubleByte field in SMgrRecord.
; <3.1> 09/06/89 pke Fancier way of defining version numbers, so version number at
; various stages of Script Mgr installation is correct. Use one
; reserved vector in SMgrRecord for sVectCallInterface.
; <3.0> 09/01/89 pke Deleted unused vectors for patched routines, rearranged the
; ones that are used to come up with some reserved space.
; <2.9> 08/27/89 pke Added 2.18 and 2.22 version numbers for IntlForce bug fix in
; Scripts604 build. Added sVectSMgrInitFonts and
; sVectSMgrPostMunging vectors (for 7.0 only).
; <2.8> 08/26/89 pke Get rid of itlr stuff (conditionalized out anyway); change
; SMgrRecord comments/conditionals to show real status in ROMs;
; add sVectSMgrCalcRect vector (for 7.0 only). Deleted
; newItl2Tables symbol.
; 07/10/89 pke Since 6/30/89 changes won't make it into Portable, fix SMgrRecord
; so all new stuff is at the end: remove reserved space after
; sVectKeyTrans, so low part of SMgrRecord matches Portable ROM
; version. Also make labels for new part available for IIci build
; only.
; 06/30/89 pke Extensions to SMgrRecord: added sVectSwapIcon,sVectSwapKybd, and
; sVectFixSMgrWorld plus some reserved space for additional vectors.
; Define OPWORD _LwrStringToUpr for temporary use.
; 06/27/89 pke Updated SMgr version number for IIci, since it has one bug fix
; that's not in Portable.
; 06/23/89 pke Restructured conditionals for defining buildLevel & smgrVersPriv;
; named some of the formerly reserved fields in ScriptRecord (will
; be used for new font/size info).
; 05/22/89 pke Added fDPEMEP constant for number formatting routines
; 04/26/89 pke Added smgrDispTable,smgrHigh,smgrLow to SmgrRecord, corresponding
; fields to ScriptRecord (from reserved space in each record)
; 04/06/89 pke Moved equates for new itl2 tables to ScriptEqu.a
; 03/15/89 pke Changed version number for ROM from $220 to $214
; 03/13/89 pke Changed back to old order of offsets to tables (would have caused
; too many problems with existing prototypes).
; 03/12/89 pke Modified equates for itl2 table offsets, which were rearranged
; today. Added some fields in SmgrRecord for script icon location
; data. Added private version number smgrVersPriv so we can set it
; appropriately for the different builds.
; 02/28/89 pke Conditionalize out remaining itlR-related stuff; rearranged new
; stuff in SMgrRecord; use buildLevel >= 1 to conditionalize
; changes from 6.0.3.
; 02/21/89 pke Get rid of itlR before it ever becomes part of a system; move
; its tables to itl2. Conditionalize out ItlrRecord defn, add some
; equates for new itl2 offsets.
; 12/02/88 pke added sVectKeyTrans field in SMgrRecord for upcoming KeyTrans
; patch roll-in; removed 'forRom' conditionalization of some
; SMgrRecord fields - existing fields should not move!
;
; (pre-EASE history below:)
; 10/18/88 ldc added wordTable and wrapTable to ItlRRec
; 10/10/88 ldc added smgrCurITLK to SmgrRecord
; 10/5/88 ldc Changed ScriptRecord.scriptFlags to ScriptRecord.scriptXFlags
; to emphasize that they are 'X'tra, and not currently used
; 9/23/88 ldc Added vector for old UprString and offset to no diacritic upper
; case table in ItlRRec
; 6/17/88 ldc Added internal vectors for ScriptMgrUtilNum.a
; 6/15/88 ldc Added smgrRecord.itlRHandle
; 6/14/88 ldc Added ItlRRecord
; 4/25/88 ldc Added vectors for patched out old routines
; Above changes are post-6.0.3
; 4/1/88 smb Removed number format equates and placed back in nScriptEqu.a.
; 3/24/88 smb Added number format equates and NumFormatString record (moved
; from nScriptEqu.a).
; 2/22/88 med Added emFirstKeyboard to expandMemRec
; 2/8/88 med Added itlCache to expandMemRec
; 1/13/88 med Misc equate changes, change bufTweaks for BufPtr installation
; 1/4/88 med Moved itl4 equates to ScriptEqu, fleshed out
; 11/10/87 med Removed OldMac support
; 8/18/87 med Added smCharPortion verb
; 7/7/87 med Added environment flags fields
; 5/19/87 KLH moved records to SysEqu.a per Mark Davis.
; 5/19/87 KLH moved some data structures back to ScriptEqu.a.
; 3/13/87 med Changed expand mem keyDeadState to long
; 3/9/87 med Added date,time,context record equates, reorganized
; 3/7/87 med Added check for QDExist for sanity check in GetTheFont macro
; 3/6/87 med Added smScriptFlags field.
; Added CharType field masks.
; Included calendar, number format equates
; 3/4/87 med Dropped GetThePort macro: use GetTheFont macro
; 2/26/87 med Added expandMem and KeyCache equates temporarily.
; Removed smgrKeyCache, smgrKeyDeadState.
; Restored smPunctBlank (somehow got omitted).
; Included language equates.
; 1/28/87 MED Added CheckAReg for a little type checking in macros.
; Fixed use of wholeSmgr.
; Added and used smgrEMOffset.
; 1/19/87 jdt Modified getSMgrCore macro to use expaned low memory block.
; 1/13/87 jdt Replaced smAppScript verb and global with smLastScript.
; 1/5/87 jdt Changed hook names for itl2. We now have the exit hook.
; Added result to Pack6 sorting stack frame.
; 1/2/87 jdt New version number for release.
; 12/23/86 jdt Fixed macros for Script Manager routines.
; Rearranged constants into public and private sets.
; 12/23/86 med Added private equates flag.
; 12/22/86 jdt Added the smBidirect variable to the Script Manager gloabls.
; Changed compatability flag names.
; Added last environment and script verb constants.
; Fixed new selector for KeyScript.
; 12/5/86 jdt Added ParseTable macro to ScriptUtil list.
; Removed the KeyTrans trap macro.
; Added CharByte byte types.
; 11/25/86 jdt Added compatability flags for MS, MPW, AIS 1.0, and old apps.
; Moved itl2 routine equates here from Pack6Equ.a.
; 11/21/86 MED Added the GetThePort macro for MPW compatability.
; 11/21/86 jdt Moved the Roman equates here.
; 11/20/86 jdt New version number for Universal system file changes.
; 11/16/86 KWK Removed GMT, latitude and longitude vars from SmgrRecord.
; Re-adjusted size of core back to version 1.0 for AIS.
; Fixed some script range equates.
; Added the _ParseTable macro, selector
; 10/25/86 jdt Yet another ugly patch for KanjiTalk. We force the KanjiTalk
; system font ID number to be in the Japanese script range, so
; the version number has changed again.
; 10/17/86 jdt Bumped high byte of version number for SMgr globals change.
; 10/16/86 KWK It's ugly...added 3 vectors after smgrPrintAction for backwards
; compatibilty with KanjiTalk 1.0 applications and system file.
; 10/9/86 JDT Added dead key state to the script manager globals.
; Removed smgrCore and smgrOldCore constants.
; Use Ken's macro or else.
; 9/5/86 JDT Wacky force flags added to script manager globals and supported
; by FontScript and IntlScript.
; IntlScript removed and trap selectors reorganized.
; 9/3/86 JDT Wet'n'wild reorganization. Region bundles eliminated.
; 8/28/86 JDT Moved KeyTrans variables into Script Manager core.
; 8/23/86 KWK Removed ScriptVersion equate, added Mark's complete set of
; script equates (yes, that's right, smMongolian lives).
; Added 'itl2' equate (Sorting hooks).
; 8/21/86 JDT Modified for Script Manager.
; 8/19/86 KWK Minor equate changes for new trap architecture.
; 8/5/86 JDT Major reorganization of sis and script structures.
; 8/1/86 JDT Replaced the FindScriptRun and NextBlock routines with the
; DrawJust and MeasureJust routines.
; 7/22/86 JDT Split the Blocker into four separate routines.
; 7/21/86 JDT Added language field to region bundles and script entry.
; 7/14/86 JDT Region names no longer appear in the region bundle. The name of
; the region is now the region bundle resource name, and the
; region code is the resource id number.
; 7/13/86 JDT Reorganized sis and script records, constants.
; 7/13/86 KWK Mega-changes for standard routine trap-out, Roman script init,
; et. al.
; 7/12/86 KWK Added new equates from Joe's SISEqu.a file, global ptr table,
; SISFullAscii/SISEnabled flags, changed macros back to Pack8
; calls.
; 7/11/86 KWK New today.
;___________________________________________________________________________________________________
IF &TYPE('__INCLUDINGSCRIPTPRIV__') = 'UNDEFINED' THEN
__INCLUDINGSCRIPTPRIV__ SET 1
include 'Script.a' ; <70><SM7>
include 'InternalMacros.a' ; <46>
include 'IntlResourcesPriv.a' ; <74>
IF &type('forRom')='UNDEFINED' THEN ; <02/21/89 pke>
forRom: equ 0 ; <02/21/89 pke>
ENDIF ; <02/21/89 pke>
IF NOT forRom THEN ; <17><***JH***>made forRom match casewise
IF &type('SysVers')='UNDEFINED' THEN ; <02/21/89 pke>
SysVers: equ $700 ; <02/21/89 pke><17>
ENDIF ; <02/21/89 pke>
ENDIF
IF (&TYPE('Scripts604') = 'UNDEFINED') THEN ; <08/27/89 pke>
Scripts604 equ 0 ; <08/27/89 pke>
ENDIF
IF &type('smgrSixPack')='UNDEFINED' THEN ; <27>
smgrSixPack equ $606 ; <27>
ENDIF ; <27>
; We define smgrSysVers to use in conditionals, because SysVers is not defined
; if NOT forRom. We also need to set up a separate smgrROMVers. <11>
IF forRom THEN
smgrSysVers equ 0
;smgrROMVers equ 1 ; IIci/fx/Erickson ROM <SM5> rb
smgrROMVers equ 2 ; SuperMario/Cube-E in ROM <SM5> rb
ELSE
smgrSysVers equ SysVers
smgrROMVers equ 0
ENDIF
; restructured the following conditionals <06/23/89 pke><08/27/89 pke><11><50>
IF smgrROMVers >= 2 THEN ; <11>
buildLevel: equ 3 ; <11>
smgrVersPriv: equ $710 ; <11><SM5> rb
romanVersPriv: equ $710 ; <11><SM5> rb
ELSEIF smgrROMVers >= 1 THEN ; <11>
buildLevel: equ 2 ; <02/21/89 pke>
;smgrVersPriv: equ $214 ; 2.20 (not used anymore)
;smgrVersPriv: equ $215 ; 2.21 (Portable, IIci, IIfx) <06/27/89 pke>
smgrVersPriv: equ $216 ; 2.22 (2.21 + IntlForce bug fix) <08/27/89 pke>
romanVersPriv: equ $101 ; <3.3>
ELSEIF SysVers > $701 THEN ; <55>
buildLevel: equ 3 ; <55>
smgrVersPriv: equ $710 ; <55>
smgrVersPTCHRom: equ $710 ; <55>
smgrVersPtch4: equ $710 ; should get rid of this <55>
romanVersPriv: equ $710 ; <55>
romanVersPtch4: equ $710 ; should get rid of this <55>
ELSEIF SysVers = $701 THEN ; <53>
buildLevel: equ 3 ; <53>
smgrVersPriv: equ $701 ; <53>
smgrVersPTCHRom: equ $701 ; <53>
smgrVersPtch4: equ $701 ; should get rid of this <53>
romanVersPriv: equ $701 ; <53>
romanVersPtch4: equ $701 ; should get rid of this <53>
ELSEIF SysVers = $700 THEN
buildLevel: equ 3 ; <06/23/89 pke>
smgrVersPriv: equ $700 ; change 3.0 to 7.0 <06/23/89 pke>
smgrVersPTCHRom: equ $700 ; code level with new ROMs + PTCH <3.1>
smgrVersPtch4: equ $213 ; code level with ptch 4 <3.1>
romanVersPriv: equ $700 ; <3.3>
romanVersPtch4: equ $101 ; <3.3>
ELSE ; <50>
aerror 'ScriptPriv.a no longer works for pre-7.0 System builds' ; <50>
ENDIF
;----------------------------------------------
; Old Script Mgr version numbers: <50>
;
; SysVers
; >=smgrSixPack $605 SS-604 $604 before
;buildLevel: 1 1 1 1 0 ;
;smgrVersPriv: $230* $213** $212*** $211 $20F ;
;smgrVersPTCHRom: $231* $217 $216 ; with new ROMs + PTCH
;smgrVersPtch4: $230* $213 $212 ; with ptch 4
;romanVersPriv: $101 $101 $101 $101 $101 ;
;
;* new BCD numbering
;** 2.19 (2.18 + String2Date bug fix)
;*** 2.18 (2.17 + IntlForce bug fix)
;----------------------------------------------
; Feature conditionals for existing features. For now, just define these outside the
; specific build symbol definitions. The definition of which build a feature goes in
; can not be changed until the symbol is correctly used everywhere it needs to be.
; In any case, if we change which build a feature goes in, we can only change it to
; be earlier than System 7.
smgrUseStdExit equ (1) ; new in 7.0 & Portable/IIci ROMs <8><11><50>
smgrUseDispTablePtr equ (1) ; new in 6.0.6 & Portable/IIci ROMs <8><11><22><27><50>
romanKeepSelector equ (1) ; new in 6.0.6 & Portable/IIci ROMs <8><11><22><27><50>
smgrUseItl2Tables equ (1) ; new in 6.0.4 & Portable/IIci ROMs <13><50>
smgrSys7Extensions equ ((NOT forRom) OR (smgrROMVers >= 2)) ; new in 7.0 <13>
smgrKeyScriptDoItlk equ (1) ; new in 7.0 & Portable/IIci ROMs <13><50>
smgrKeyScriptItlkFix equ ((NOT forRom) OR (smgrROMVers >= 2)) ; new in 7.0 <13>
smgrKeyGetSetInPtch27 equ (NOT forRom) ; T from 7.0 <13>
smgrDispatchInPtch27 equ (NOT forRom) ; T from 7.0 <20>
smgrKeepObsolete equ (NOT ((NOT forRom) OR (smgrROMVers >= 2))) ; F from 7.0 <13>
smgrKeepMacsBugSym equ (NOT ((NOT forRom) OR (smgrROMVers >= 2))) ; F from 7.0 <13>
smgrFixWorldInPtch27 equ (NOT forRom) ; T from 7.0 <30>
; These feature conditionals are for new features.
smgrHasAutoInit equ ((NOT forRom) OR (smgrROMVers >= 2)) ; new in 6.0.6 <8><9><11><12><27>
romanDoSimpleScripts equ ((NOT forRom) OR (smgrROMVers >= 2)) ; new in 6.0.6 <9><11><12><27>
ScriptMgrKeyboardMenu equ ((NOT forRom) OR (smgrROMVers >= 2)) ; new in 7.0 <17>
DoCmdKeyEquivalents equ 0 ; <26>
; The following conditionals govern which patches to include, particularly in <11>
; the ROM-specific patch files. For 7.0, these patches are in ptch 39, so they
; aren't included in the ROM-specific PTCHes. The flags are there so we can
; turn on bug fixes for 6.x builds: e.g., flags that are currently 0 indicate
; fixes that may be turned on here for 6.1.
; in ptch 39 if we have it
IF NOT forRom THEN ;<***jh***>made case match other forRom's
doScriptMgrPack6Fix equ (1) ; new in 6.0.4 <11><52>
doScriptMgrStr2DatFix equ (1) ; new in 6.0.5 <11><52>
doScriptMgrNewVectors equ (1) ; new in 7.0 <11><52>
doScriptMgrSetROMVers equ (1) ; new in SS-6.0.4 <11><52>
doScriptMgrForAUX equ (1) ; new in 6.0.6 <35><37><52>
ENDIF
doScriptMgrUseKscn equ ((NOT forRom) OR (smgrROMVers >= 2)) ; new in 7.0 <11><13>
doScriptMgrRstKCHRFix equ ((NOT forRom) OR (smgrROMVers >= 2)) ; new in 7.0 <11><13>
; in ptch 27 if we have it
doScriptMgrGestalt equ ((NOT forRom) OR (smgrROMVers >= 2)) ; new in 6.0.4 <11><13>
doScriptMgrLwrString2 equ ((NOT forRom) OR (smgrROMVers >= 2)) ; new in SS-6.0.4 <11><13>
; The following conditionals control 'ptch' installation in the ROM-specific
; PTCHes. If these are changed, then {OptionFiles} in Build must be updated,
; as well as Sys.r.
installScriptMgrPtch27 equ (NOT forRom) ; new in 6.0.6 <11><12><13><17><27>
installScriptMgrPtch39 equ (NOT forRom) ; new in 6.0.6 <11><12><13><17><27>
; Flags for various tweaks, which should go away as more applications and
; script interface systems understand how the Script Manager works.
msTweaks equ 0 ; MicroSoft Excel compatibility tweaks.
appTweaks equ 1 ; old application compatibility tweaks.
testScriptManager equ 0
; Check the validity of fixed values defined in ScriptEqu.a
IF ItlbRecord.itlbSize<>20 THEN
aerror &concat('itlbSize wrong: ',&i2s(itlbSize))
ENDIF
; -----------------------------------------------------------------------------
; Private trap macros for initialization. InitScripts is called by StartSystem.a
; before any system file INITs, and does FixSMgrWorld stuff plus any extensions.
; InitScriptMenu is called by Process Mgr (a.k.a. MultiFinder) after _InitMenus
; has been called.
; _AddScriptFonts is also called by StartSystem.a, but after all system file
; INITs. It is needed so that scripts that may load additional fonts over the
; network can do so.
; -----------------------------------------------------------------------------
DefSmgrRoutine InitScripts, -38,0,2 ; smSel… = $8200FFDA <17>
DefSmgrRoutine InitKeybdMenu, -40,0,2 ; smSel… = $8200FFD8 <17>
DefSmgrRoutine AddScriptFonts, -42,0,2 ; smSel… = $8200FFD6 <19>
DefSmgrRoutine SetKbdMenuInfo, -44,10,2 ; smSel… = $820AFFD4 <23>
DefSmgrRoutine RebuildKeybdMenu, -46,0,2 ; smSel… = $8200FFD2 <25>
DefSmgrRoutine IsCmdChar, -48,6,2 ; smSel… = $8206FFD0 <28>
DefSmgrRoutine InitScriptApp, -50,0,2 ; smSel… = $8200FFCE <31>
DefSmgrRoutine CleanupScriptApp, -52,0,2 ; smSel… = $8200FFCC <31>
DefSmgrRoutine ReInitScripts, -54,0,2 ; smSel… = $8200FFCA <40>
DefSmgrRoutine FindCharInSet, -56,16,4 ; smSel… = $8410FFC8 <45>
DefSmgrRoutine TranslateFromUnicode, -58,12,2 ; smSel… = $820CFFC6 <52>
DefSmgrRoutine TranslateToUnicode, -60,8,2 ; smSel… = $8208FFC4 <52>
DefSmgrRoutine TranslateNoBreakFromUnicode,-62,26,2; smSel… = $821AFFC2 <52>
DefSmgrRoutine SetCachedTablesNoPurge, -64,0,2 ; smSel… = $8200FFC0 <52>
DefSmgrRoutine SetCachedTablesPurge, -66,0,0 ; smSel… = $8000FFBE <52>
DefSmgrRoutine HaveFontTranslationTable, -68,6,4 ; smSel… = $8406FFBC <52>
DefSmgrRoutine RealScript, -70,0,2 ; smSel… = $8200FFBA <52>
DefSmgrRoutine Font2RealScript, -72,2,2 ; smSel… = $8202FFB8 <52>
DefSmgrRoutine TestLetter, -76,2,2 ; smSel… = $8202FFB4 <56>
DefSmgrRoutine ScriptToRange, -78,2,4 ; smSel… = $8402FFB2 <68>
DefSmgrRoutine NFindScriptRun, -80,16,2 ; smSel… = $8210FFB0 <69>
macro
_InitScripts ; <17>
move.l #smSelInitScripts,-(sp)
_ScriptUtil
endm
macro
_InitKeybdMenu ; <17>
move.l #smSelInitKeybdMenu,-(sp)
_ScriptUtil
endm
macro
_AddScriptFonts ; <19>
move.l #smSelAddScriptFonts,-(sp)
_ScriptUtil
endm
macro
_SetKbdMenuInfo ; <23>
move.l #smSelSetKbdMenuInfo,-(sp)
_ScriptUtil
endm
macro
_RebuildKeybdMenu ; <25>
move.l #smSelRebuildKeybdMenu,-(sp)
_ScriptUtil
endm
macro
_IsCmdChar ; <28>
move.l #smSelIsCmdChar,-(sp)
_ScriptUtil
endm
macro
_InitScriptApp ; <31>
move.l #smSelInitScriptApp,-(sp)
_ScriptUtil
endm
macro
_CleanupScriptApp ; <31>
move.l #smSelCleanupScriptApp,-(sp)
_ScriptUtil
endm
macro
_ReInitScripts ; <40>
move.l #smSelReInitScripts,-(sp)
_ScriptUtil
endm
macro
_FindCharInSet ; <45>
move.l #smSelFindCharInSet,-(sp)
_ScriptUtil
endm
macro
_RealScript ; <52>
move.l #smSelRealScript,-(sp)
_ScriptUtil
endm
macro
_Font2RealScript ; <52>
move.l #smSelFont2RealScript,-(sp)
_ScriptUtil
endm
; ----------------------------------------------------------------------------- <56>
; FUNCTION TestLetter(testChar: CHAR): BOOLEAN; {Pascal calling conventions}
; -----------------------------------------------------------------------------
macro
_TestLetter ; <56>
move.l #smSelTestLetter,-(sp)
_ScriptUtil
endm
; -----------------------------------------------------------------------------
macro
_ScriptToRange ; <68>
move.l #smSelScriptToRange,-(sp)
_ScriptUtil
endm
macro
_NFindScriptRun ; <69>
move.l #smSelNFindScriptRun,-(sp)
_ScriptUtil
endm
; -----------------------------------------------------------------------------
DefSmgrRoutine GetScriptRoutineAddr, 56, 4, 4 ; $84040038 implemented only by one-byte scripts
DefSmgrRoutine SetScriptRoutineAddr, 58, 8, 0 ; $8008003A implemented only by one-byte scripts
DefSmgrRoutine GetQDPatchAddr, 60, 6, 4 ; $8406003C implemented only by one-byte scripts
DefSmgrRoutine SetQDPatchAddr, 62, 10, 0 ; $800A003E implemented only by one-byte scripts
smSelSCGetScriptRoutineAddr EQU (1<<30)++smSelGetScriptRoutineAddr ; <73>
smSelSCSetScriptRoutineAddr EQU (1<<30)++smSelSetScriptRoutineAddr ; <73>
smSelSCGetQDPatchAddr EQU (1<<30)++smSelGetQDPatchAddr ; <73>
smSelSCSetQDPatchAddr EQU (1<<30)++smSelSetQDPatchAddr ; <73>
smSelSCCharByte EQU (1<<30)++smSelCharByte ; <73>
smSelSCCharType EQU (1<<30)++smSelCharType ; <73>
smSelSCTranslit EQU (1<<30)++smSelTranslit ; <73>
smSelSCFindWord EQU (1<<30)++smSelFindWord ; <73>
smSelSCParseTable EQU (1<<30)++smSelParseTable ; <73>
macro
_SCGetScriptRoutineAddr ; <73>
move.l #smSelSCGetScriptRoutineAddr,-(sp)
_ScriptUtil
endm
macro
_SCSetScriptRoutineAddr ; <73>
move.l #smSelSCSetScriptRoutineAddr,-(sp)
_ScriptUtil
endm
macro
_SCGetQDPatchAddr ; <73>
move.l #smSelSCGetQDPatchAddr,-(sp)
_ScriptUtil
endm
macro
_SCSetQDPatchAddr ; <73>
move.l #smSelSCSetQDPatchAddr,-(sp)
_ScriptUtil
endm
macro
_SCLowerText ; <73>
move.w #sclwrDoLower,-(sp)
move.l #smSelSCLwrString,-(sp)
_ScriptUtil
endm
macro
_SCStripText ; <73>
move.w #sclwrDoStrip,-(sp)
move.l #smSelSCLwrString,-(sp)
_ScriptUtil
endm
macro
_SCUpperText ; <73>
move.w #sclwrDoUpper,-(sp)
move.l #smSelSCLwrString,-(sp)
_ScriptUtil
endm
macro
_SCStripUpperText ; <73>
move.w #sclwrDoStripUpper,-(sp)
move.l #smSelSCLwrString,-(sp)
_ScriptUtil
endm
macro
_SCCharByte ; <73>
move.l #smSelSCCharByte,-(sp)
_ScriptUtil
endm
macro
_SCCharType ; <73>
move.l #smSelSCCharType,-(sp)
_ScriptUtil
endm
macro
_SCTransliterate ; <73>
move.l #smSelSCTranslit,-(sp)
_ScriptUtil
endm
macro
_SCFindWord ; <73>
move.l #smSelSCFindWord,-(sp)
_ScriptUtil
endm
macro
_SCParseTable ; <73>
move.l #smSelSCParseTable,-(sp)
_ScriptUtil
endm
; -----------------------------------------------------------------------------
; Constants moved from ScriptEqu.a so we can conditionalize them. These don't
; need to be in the public equates anyway. <3.3>
;
; We need a better way of setting these limits based on the combination of <17>
; feature conditionals.
; -----------------------------------------------------------------------------
smLastEVerb EQU smKeyDisableState ; Last GetEnvirons verb. <58><61>
smLastSVerb EQU smScriptAliasStyle ; Last public script verb. <23>
smLowCall EQU smNFindScriptRun ; lowest script manager routine <69>
sisHighCall EQU smNPortionText ; highest Roman script routine <4>
; Moved these KeyScript verbs here since adding smKeyEnableAboutKybds after the 7.0 interfaces have
; frozen. (and we also don't believe a developer will ever want them!) <41>
smKeyDisableAboutKybds EQU -13 ; Disable ‘About…’ menu item since another dialog is up <41>
; was named smKeyModalDialog in ScriptEqu.a.
smKeyEnableAboutKybds EQU -14 ; Enable ‘About…’ menu item <41>
smKeySynchKbdMenuState EQU -18 ; synchronize kbd menu state to current process' flag <65>
; private one byte SetScript/GetScript verbs - used by TextEdit in Cube-E <59>
smScriptSysBase EQU -26 ; Roman font to use with the system font
smScriptAppBase EQU -28 ; Roman font to use with the application font
smScriptFntBase EQU -30 ; Roman font to use with all other fonts
; -----------------------------------------------------------------------------
; Script Manager Global record
; -----------------------------------------------------------------------------
; Record declaration for the environment globals.
; Note: The printer action routine must be at offset #22 for compatability
; with KanjiTalk 1.0.
smgrCount equ 65 ; number of script entries.
SMgrRecord record 0
smgrVersion ds.w 1 ; Script Manager version number.
smgrMunged ds.w 1 ; Globals change count.
smgrEnabled ds.b 1 ; Count of enabled scripts
smgrBidirect ds.b 1 ; At least one bidirectional script.
; The following pair of bytes must be word-aligned, as they are occasionally
; treated as a single word.
smgrFontForce ds.b 1 ; force font flag.
smgrIntlForce ds.b 1 ; force intl flag.
; The following pair of bytes must be word-aligned, as they are occasionally
; treated as a single word.
smgrForced ds.b 1 ; Script was forced to system script.
smgrDefault ds.b 1 ; Script was defaulted to Roman script.
;
smgrGenFlags ds.l 1 ; general flags long <7/7/87med>
smgrOverride ds.l 1 ; script override flags <7/7/87med>
ds.l 1 ; reserved for overriding
smgrPrint ds.l 1 ; printer action dispatcher.
smgrUnivInstalled ds.l 1 ; if we have the universal init, what scripts it supports.<51>
smgrCharByte ds.l 1 ; CharByte vector.
smgrCharType ds.l 1 ; CharType vector.
smgrSysScript ds.w 1 ; preferred system script.
smgrLastScript ds.w 1 ; last keyboard script.
smgrKeyScript ds.w 1 ; keyboard script.
smgrRect ds.w 4 ; toggling rectangle.
smgrSysRef ds.w 1 ; System file volRefNum.
smgrKeySwap ds.l 1 ; Handle to current 'KSWP' resource <45>
smgrCharPortion ds.w 1 ; Ch vs Sp Extra proportion, 4.12 fixed
smgrReservedB ds.w 1 ;
smgrReservedC ds.l 1 ;
smgrCSisPtr ds.l 1 ; contextual SIS globals ptr
smgrCSisFlags ds.l 1 ; flag bits for contextual SIS
smgrNumRepPtr ds.l 1 ; ptr to number rep dispatch list
smgrDateRepPtr ds.l 1 ; ptr to date rep dispatch list
smgrDispTable ds.l 1 ; ptr to SMgr dispatch table <04/26/89 pke>
smgrDispLow ds.w 1 ; low selector value <04/26/89 pke>
smgrDispHigh ds.w 1 ; high selector value <04/26/89 pke>
; <3.2><13>
smgrDoubleByte ds.b 1 ; Boolean; T => at least one 2-byte script <3.2>
smgrDisableKybds ds.b 1 ; T=>disable keybds not in Sys/Roman script/1=>disable all kbds <32><33>
smgrRegionCode ds.w 1 ; region code (verXxx) from itlc <5>
smgrClientLLRecHndl ds.l 1 ; handle to line layout rec for PicComment <45>
ds.l 1 ; reserved <39><45>
; <17>
smgrKeyboardMenuPtr ds.l 1
smgrKbdMenuAvail ds.b 1 ; madam, your menu is showing! <43>
ds.b 3 ; reserved <43>
smgrDummy ds.l 1 ; dummy field - all zero; for 7.0 only <5>
smgrEntry ds.l smgrCount ; script global entries (ptrs to ScriptRecord).
; New stuff for 604 & IIci ROMs - removed conditionals <50>
; Removed conditionals on some of these - structure should stay fixed <12/02/88 pke>
; Rearranged this stuff, since it hasn't gone into any systems yet <02/28/89 pke>
smgrCurITLK ds.l 1 ; handle to current itlk <45>
; following are for the delimiter table used by the tokenizer in ScriptMgrUtilText.a <4/27/88ldc>
dTabNegOffset ds.w 1 ; negative offset for endParse's benefit
delimMap ds.l 4 ; delimiter table
; script icon section: <03/12/89 pke>
smgrIconOffset ds.w 1 ; script icon offset (pixels)
smgrIconSideFlag ds.b 1 ; script icon side (0=right,$ff=left)
smgrKeyScriptResult ds.b 1 ; T iff KeyScript verb caused some action <40>
;---------------vectors for patched routines (used by RAM version ≥7.0 only)-----------------------
; rearranged, turning unused vectors into reserved space. Size doesn't change. <09/01/89 pke>
; sVectInitWindows and sVectInitResources became unused, so rearrange again. <17>
sVectInitApplZone ds.l 1 ; old InitApplZone routine pointer <4/26/88ldc>
sVectGetOSEvent ds.l 1 ; old GetOSEvent routine pointer <4/26/88ldc>
sVectKeyTrans ds.l 1 ; old KeyTrans routine pointer <12/02/88 pke>
sVectScriptUtil ds.l 1 ; old ScriptUtil routine pointer <4/26/88ldc>
sVectLwrString ds.l 1 ; old LwrString routine pointer <4/25/88ldc>
; <17>
sVectInitMenus ds.l 1 ; old InitMenus routine pointer <17><30>
sVectOldSystemMenu ds.l 1 ; old SystemMenu routine pointer <17><30>
ds.l 5 ; reserved space <3.0><17><30><64>
;---------------vectors for internal routines (used by ROM version only)---------------------------
;
; Although these are used by ROM, they are set up both RAM and ROM versions.
; Note that in 7.0, sVectFixSMgrWorld is effectively inactivated by stuffing the
; address of an rts; the FixSMgrWorld code in ROM is not used.
; from ScriptMgrUtilNum.a
sVectAppendSymbol ds.l 1 ; AppendSymbol routine pointer <6/17/88ldc>
sVectConvertToString ds.l 1 ; ConvertToString routine pointer <6/17/88ldc>
sVectExpHandling ds.l 1 ; ExpHandling routine pointer <6/17/88ldc>
sVectExpMatching ds.l 1 ; ExpMatching routine pointer <6/17/88ldc>
sVectCheckForDigits ds.l 1 ; CheckForDigits routine pointer <6/17/88ldc>
sVectMatchingSubstring ds.l 1 ; MatchingSubstring routine pointer <6/17/88ldc>
sVectCond ds.l 1 ; Cond routine pointer <6/17/88ldc>
sVectCheckForm ds.l 1 ; CheckForm routine pointer <6/17/88ldc
sVectTackOnExp ds.l 1 ; TackOnExp routine pointer <6/17/88ldc>
sVectMakeExp ds.l 1 ; MakeExp routine pointer <6/17/88ldc>
sVectCheckPartsIntegrity ds.l 1 ; CheckPartsIntegrity routine pointer <6/17/88ldc>
sVectRetrieveChar ds.l 1 ; RetrieveChar routine pointer <6/17/88ldc>
sVectIsSubstring ds.l 1 ; IsSubstring routine pointer <6/17/88ldc>
; from elsewhere
sVectSwapIcon ds.l 1 ; SwapIcon routine pointer <06/30/89 pke>
sVectSwapKybd ds.l 1 ; SwapKybd routine pointer <06/30/89 pke>
sVectFixSMgrWorld ds.l 1 ; FixSMgrWorld routine pointer <06/30/89 pke>
;---------------vectors for communication between ptches, managers, etc.---------------------------
; <13>
sVectSMgrCalcRect ds.l 1 ; SMgrCalcRect routine pointer <08/26/89 pke>
sVectSMgrInitFonts ds.l 1 ; SMgrInitFonts routine pointer <08/27/89 pke>
sVectSMgrPostMunging ds.l 1 ; SMgrPostMunging routine pointer <08/27/89 pke>
sVectCallInterface ds.l 1 ; <3.1> <09/06/89 pke>
; <17>
sVectInitKeyboardMenu ds.l 1 ; InitKeyboardMenu routine pointer <17>
ds.l 3 ; reserved vector space <06/30/89 pke>
smgrSize equ * ; size of script manager core.
; Check the validity of fixed values in SMgrRecord
IF smgrPrint<>22 THEN
aerror &concat('smgrPrint at wrong location: ',&i2s(smgrPrint))
ENDIF
IF smgrEntry<>114 THEN
aerror &concat('smgrEntry at wrong location: ',&i2s(smgrEntry))
ENDIF
IF smgrSize<>544 THEN ; <17>
aerror &concat('SMgrRecord is wrong size: ',&i2s(smgrSize)) ; <17>
ENDIF
endr
; -----------------------------------------------------------------------------
; Private Script Manager globals flags bits
; -----------------------------------------------------------------------------
smOverPortion equ 0 ; override portion text.
; -----------------------------------------------------------------------------
; Record declaration for the script globals. This first set is always the
; same for every script. Local variables that are specific to each script
; follow the fields described here in the globals.
ScriptRecord record 0
scriptVersion ds.w 1 ; script version number.
scriptMunged ds.w 1 ; script globals change count.
scriptEnabled ds.b 1 ; script enabled flag.
scriptRight ds.b 1 ; right to left flag.
scriptJust ds.b 1 ; justification flag.
scriptRedraw ds.b 1 ; word redraw flag.
scriptSysFond ds.w 1 ; preferred system font.
scriptAppFond ds.w 1 ; preferred application font.
scriptBundle ds ItlbRecord ; bundle
scriptPrint ds.l 1 ; printer action vector.
scriptTrap ds.l 1 ; ScriptUtil trap vector.
scriptCreator ds.l 1 ; sis creator signature.
scriptFile ds.l 1 ; sis file name.
scriptName ds.l 1 ; sis name.
scriptXFlags ds.l 1 ; <10/5/88ldc> 'X'tra flags for
scriptOverRide1 ds.l 1 ; for overriding
scriptOverRide2 ds.l 1 ; for overriding
; use 2 longwords of reserved space <04/26/89 pke>
scriptDispTable ds.l 1 ; ptr to script dispatch table <04/26/89 pke>
scriptDispLow ds.w 1 ; low selector value <04/26/89 pke>
scriptDispHigh ds.w 1 ; high selector value <04/26/89 pke>
; use 4 longwords of reserved space <06/23/89 pke>
scriptMonoFondSize ds.l 1 ; default monospace FOND (hi) & size (lo) <06/23/89 pke>
scriptPrefFondSize ds.l 1 ; preferred FOND (hi) & size (lo) <06/23/89 pke>
scriptSmallFondSize ds.l 1 ; default small FOND (hi) & size (lo) <06/23/89 pke>
scriptSysFondSize ds.l 1 ; default system FOND (hi) & size (lo) <06/23/89 pke>
scriptAppFondSize ds.l 1 ; default app FOND (hi) & size (lo) <10>
scriptHelpFondSize ds.l 1 ; default Help Mgr FOND (hi) & size (lo) <10>
; <17>
scriptKeysItemNum ds.b 1 ; default input menu item number (actual, not relative to script) <17>
scriptInputCount ds.b 1 ; count of # of enabled KCHRs <24><57>
scriptValidStyles ds.b 1 ; Style- set of all valid styles for script <23>
scriptAliasStyle ds.b 1 ; Style- alias style for script <23>
scriptInItlm ds.b 1 ; true iff this script has 'itlm' entry <18>
scriptID ds.b 1 ; this script's scriptcode <63>
ds.b 2 ; reserved. <24><63>
scriptAvail ds.l 1 ; Avail routine vector, or 0 if unused <30>
scriptAddFonts ds.l 1 ; AddFonts routine vector, or 0 if unused <30>
scriptQDPatches ds.l 1 ; the qd routines dispatch table.(universal init) <51> <10><30>
scriptSize equ * ; size of script entry.
IF scriptSize<>116 THEN ; <17>
aerror &concat('ScriptRecord is wrong size: ',&i2s(scriptSize)) ; <17>
ENDIF
endr
; -----------------------------------------------------------------------------
; Private Macros for the Script Manager and Script Interface Systems.
; -----------------------------------------------------------------------------
;____________________________________________________________
; paranoid type checking
macro
CheckReg &AReg,&RegType
if &UpCase(&SubStr(&AReg,1,1))<>&UpCase(&RegType) then
aerror &concat('Bad Reg in Macro',&AReg,' ',&RegType)
endif
endm
;____________________________________________________________
; Script Manager environment macro. Load smgrCore from IntlSpec.
macro
GetSmgrCore &reg
move.l intlSpec,&reg ; get directly <11/10/87med>
endm
;____________________________________________________________
; Current font macro.
;mpwPtr equ $316 ; MPW global pointer.
macro
GetTheFont &AReg,&DReg
CheckReg &AReg,a ; is it an A reg?
CheckReg &DReg,d ; is it an D reg?
tst.b QDExist ; test QDNotThere
beq.s @TryRealFont ; QD not there, exit gracefully
@DefaultFont
clr.l &DReg ; use font 0
bra.s @EndGetTheFont ; done
@TryRealFont
move.l grafGlobals(a5),&DReg ; is it there? (sanity check)
ble.s @DefaultFont ; get the real one
move.l &DReg,&AReg ; load grafGlobals.
move.l thePort(&AReg),&AReg ; load thePort.
move.w txFont(&AReg),&DReg ; get the font
@EndGetTheFont
endm
;____________________________________________________________
; Macro CheckA6
; Environment a6,a7,localFrame
; Function Fall into the debugger if sp not balanced
; Location Insert just before UNLK command
;____________________________________________________________
macro
CheckA6 &debugSwitch=testScriptManager,&lFrame=localFrame
if &eval(&debugSwitch) then
movem.l d0,-(sp) ; save reg
move.l a6,d0 ; for compare
add.l #&lFrame-4,d0 ; exclude frame, saved reg
cmp.l a7,d0 ; same?
movem.l (sp)+,d0 ; restore reg
beq.s @1 ; yes, skip
pea @2 ; string
_DebugStr
bra.s @1 ; continue
@2:
dc.b 'Stack Unbalanced.'
align 2
@1:
endif
endMacro
;____________________________________________________________
; Macro CheckSelector
; Environment a6,a7,localFrame
; Function Check that SmgrUtil routine has correct selector
; Location Insert just before LINK command
;____________________________________________________________
macro
CheckSelector &debugSwitch=testScriptManager,&aSize=argSize,&rSize=resultSize
if &eval(&debugSwitch) then
move.w 4(sp),d0 ; high bit set?
bge.s @0 ; no, bad
cmp.b #&aSize-4,d0 ; returnSize ok?
bne.s @0 ; bad
lsr.w #8,d0 ; get args
and.b #$7f,d0 ; mask top bit off
cmp.b #&rSize,d0 ; argSize ok?
beq.s @1 ; yes, skip
@0:
pea @2 ; string
_DebugStr
bra.s @1 ; continue
@2:
dc.b 'Bad Smgr Selector.'
align 2
@1:
endif
endMacro
; -----------------------------------------------------------------------------
; Private equates for Script Manager resource structures and Roman Interface System
; -----------------------------------------------------------------------------
; Roman script constants.
romanCoreSize equ ScriptRecord.scriptSize ; size of Roman globals.
; -----------------------------------------------------------------------------
; IntlTokenize, itl4 private equates
; -----------------------------------------------------------------------------
; moved the ones needed for itl4 into IntlResourcesPriv.a <74>
fExists equ 0
fIsEPlus equ 1
fIsEMinus equ 2
fIsPercent equ 3
fIsDecimal equ 4
fIsAltNum equ 5
fHi equ 0
fLo equ 1
fDEMEP equ $1600
fEMEP equ $0600
fEXISTF equ $0100
fExAlF equ $2100
fDPEMEP equ $1E00 ; <05/22/89 pke>
; The following is the internal format created by Str2Format and used by Format2Str,
; FormatStr2X, and FormatX2Str. The string in formString is a concatenation of the
; format specifier strings for each of the 3 formats. Bytes in formString with value <32
; are number parts token codes, as specified in ScriptEqu.a (tokLeftQuote,…); others
; are literals. The startLocs and decLocs arrays specify the start index and decimal
; point index in formString for each of the 3 possible formats. Since the start index
; for the positive format is always 1, startLocs[fPositive] instead has an index value
; just past the end of formString. The preDig and postDig arays specify the number of
; digits before and after the decimal point in each of the 3 formats. The high byte of
; the flags value for each format has bit flags whose bit numbers are defined above
; (fExists..fIsAltNum). <comment added 05/22/89 pke>
FormatStringPriv record 0,increment
fLength ds.b 1 ; length of format String (less this byte)
fVersion ds.b 1 ; version number
decLocs ds.w 3 ; ARRAY[fPositive..fZero] OF INTEGER
startLocs ds.w 3 ; ARRAY[fPositive..fZero] OF INTEGER
preDig ds.w 3 ; ARRAY[fPositive..fZero] OF INTEGER
postDig ds.w 3 ; ARRAY[fPositive..fZero] OF INTEGER
flags ds.w 3 ; ARRAY[fPositive..fZero] OF BitPack
fReserved ds.w 6
fixedLength equ *
formString ds.b 1 ; Pascal-style string of variable length
; (here we only show space for length byte)
ENDR
; ----------------------------------------------------------------------------- <6>
; New structure for justified text routines in RomanNewJust.a.
; Rearranged, fields renamed. <45><47>
;
; Fields marked (f) are set by InitFontAndScale, which must be called before
; any of the other routines listed below.
; Fields marked (w) are set by InitWeight (called by CalcSpChExtra if slop≠0
; and it hasn't already been called within the current external routine)
; Fields marked (c) are set by CalcSpChExtra
; Fields marked (d) are set by DoSpChExtra
; The oldSpExtra field , marked (d?), is set by DoSpChExtra if it sets the
; corresponding restoreSE boolean TRUE.
; Flags marked (•) are initialized to 0 by InitFontAndScale, and set later
; by the routine indicated.
;
; -----------------------------------------------------------------------------
JustDataRec record 0
inScaling ds.l 1 ;(f) Fixed, input horiz scaling (numer.h/denom.h) <38><47>
outScaling ds.l 1 ;(f) Fixed, output horiz scaling (numer.h/denom.h) <47>
charPortion ds.l 1 ;(w) Fixed, char portion
spPortion ds.l 1 ;(w) Fixed, space portion
weight ds.l 1 ;(w) Fixed, (num spaces)*sp + (adjusted num chars)*cp
runSlop ds.l 1 ;(c) Fixed, slop used to calculate Sp & Ch Extra <45>
addSpExtra ds.l 1 ;(c) Fixed, add'l SpaceExtra amount (signed!) <45>
addSpExScal ds.l 1 ;(c) Fixed, (add'l SpaceExtra amount)/hScaling <45>
addChExtra ds.l 1 ;(c) Fixed, add'l CharExtra amount (signed!)
addChExScal ds.l 1 ;(c) Fixed, (add'l CharExtra amount)/hScaling <45>
oldSpExtra ds.l 1 ;(d?)Fixed, old SpExtra value
noInterCh ds.b 1 ;(f) if TRUE, FOND does not allow interchar spacing <45>
inScalTrue ds.b 1 ;(f) if TRUE, inScaling ≠ 1.0 <38><47>
outScalTrue ds.b 1 ;(f) if TRUE, outScaling ≠ 1.0 <47>
startNoFwd ds.b 1 ;(•w)if TRUE, start pen move is 0, not 0.5 ce
endBackup ds.b 1 ;(•w)if TRUE, end pen move is -1.0ce, not -0.5ce
haveWeight ds.b 1 ;(•c)if TRUE, we have computed the weight <45>
restoreSE ds.b 1 ;(d) if TRUE, we need to restore spExtra <47>
align 4 ; force size to long multiple for easy copy <45>
jdRecSize equ * ; size of record
endr
; Id & record for secret LaserWriter line layout pic opcode, 157. <45>
;
; This PicComment overrides the LaserWriter line layout algorithm, and
; contains parameters that will be passed directly to a PostScript awidthshow
; command. It only affects the next StdText call, and is only recognized by
; the LaserWriter driver.
clientLLComment equ 157 ; ID of secret PicComment
ClientLLRecord record 0,incr
chCount ds.w 1 ; textLen for next StdText
major ds.l 1 ; Fixed, point width added to space char
spChar ds.w 1 ; char to be used as space char
minor ds.l 1 ; Fixed, point width added to ALL chars
ulLength ds.l 1 ; Fixed, underline length
cllRecSize equ * ; size of record
endr
; Width table used in printing code, from equates in Print Shop PrEqu.a file. <45>
ThPrWidthTable record 0,incr
fntNum ds.w 1 ; font family number for this table
fntStyle ds.w 1 ; font style info (in lo byte)
fntType ds.b 1 ; 0=bitmap, 3=sfnt, 1=other spline (e.g. PS), -1=noWidthsFont
modFlag ds.b 1 ; set if natural widths have been modified
ptSize ds.l 1 ; pt size multiplier (Fixed)
styleDelta ds.l 1 ; value to be added to all width entry values (Fixed)
styleFactor ds.l 1 ; style multiplier for condense/expand (Fixed)
theTable ds.l 256 ; table of Fixed widths
prWTabSize equ * ; size of record
endr
; -----------------------------------------------------------------------------
; New structure for generic FindScriptRun table header <67>
; (moved from ScriptMgrExtensions.a)
; -----------------------------------------------------------------------------
FindScriptTable record 0
flags1 ds.b 1 ;
flags2 ds.b 1 ; must be negative to indicate new format
version ds.w 1 ;
length ds.w 1 ; total length of this table
classTableOffset ds.w 1 ; offset to main class table
auxCTableOffset ds.w 1 ; offset to aux class table (for 2-byte)
stateTableOffset ds.w 1 ; offset to state table
returnTableOffset ds.w 1 ; offset to table of return values
reserved ds.w 1 ;
endr
; -----------------------------------------------------------------------------
; Structure for ScriptToRange <68>
; -----------------------------------------------------------------------------
ScriptRange record 0,increment
min ds.w 1
max ds.w 1
endr
; -----------------------------------------------------------------------------
; Constants for new keyboard menu stuff <17>
; -----------------------------------------------------------------------------
kKeyboardMenuID equ -16491 ; <24>
kDefaultIMIconID equ -16492 ; <66>
kKeyboardMenuItemsID equ kKeyboardMenuID-4 ; STR# ID <71>
; indices for strings in Keyboard Menu STR# resource (kKeybdMenuItemsID)
DefMarkIndex equ 1 ; <33>
AboutKybdsIndex equ 2 ; <33>
;;NextScriptIndex equ 3 ; <24><33>currently not used
;;NextKeybdIndex equ 4 ; <24><33>currently not used
; indices for strings in About Keyboards dialogs <71>
kCheckActiveKbdIndex equ 1 ; checked menu item explanation index <71>
kRotateKbdsIndex equ 2 ; rotate keyboards and scripts index <71>
KeybdDefaultMrk equ $00 ; null is the default mark <31><43>
; -----------------------------------------------------------------------------
; Records of auxilliary information for Keyboard Menu. <24>
; -----------------------------------------------------------------------------
AuxKeyboardMenuInfo record 0 ; ptr stored in smgrKeyboardMenuPtr
IF 0 THEN ; <57>
IconSuiteH ds.l 1 ; IconSuiteH for this KCHR
KCHRid ds.w 1 ; KCHR id for current KCHR resource
KCHRposn ds.w 1 ; ordering within the script in the menu
ELSE ; <57>
itemRsrcID ds.w 1 ; KCHR/old-style IM resource id <57>
itemScriptPosn ds.w 1 ; ordering within the script in the menu (relative to script!)
itemType ds.b 1 ; 0 = KCHR, 1 = new IM, 2 = old IM <58>
itemUnused ds.b 1 ; unused byte: for future kludges <58>
iconSuiteH ds.l 1 ; IconSuiteH for this item
auxItemInfo ds.l 1 ; use as necc for the item (IM will store 'component') <57>
ENDIF ; <57>
AuxMenuInfoSize equ *
endr
IF 0 THEN ; <57>
KCHRInstalledRec record 0 ; ptr stored in KCHRInstalledPtr
KCHRhandle ds.l 1
KCHRid ds.w 1 ; needed for sorting of KCHR <33>
KCHRscript ds.w 1
KCHRname ds.b 256 ; needed for sorting of KCHR <33>
KCHRInstalledRecSz equ *
ELSE ; <57>
ItemInstalledRec record 0 ; ptr stored in KCHRInstalledPtr
itemHandle ds.l 1 ; resource handle for KCHR/ name handle for IM <57>
itemResID ds.w 1 ; needed for sorting of KCHR <33>
itemScript ds.w 1
itemInfo ds.l 1 ; auxilliary info - use as desired <57>
itemInpuType ds.b 1 ; 0 = KCHR, 1 = new IM, 2 = old IM <58>
unused ds.b 1 ; for future:use me <58>
itemName ds.b 256 ; needed for sorting of KCHR <33>
ItemInstalledRecSz equ *
ENDIF ; <57>
endr
; ------------------------------------------
; ------------------------------------------
; constants for type of keyboard menuitem <58>
KCHRitem equ 0
TSMIMitem equ 1 ; TextServicesMgr Input Method (new style)
oldIMitem equ 2 ; old style Input Method
; ------------------------------------------
; ------------------------------------------
; bits for CJKcount byte field in menuFrame in ScriptMgrKbdMenu.a <58>
; if the bit = 1 then this means there are input methods for this script,
; otherwise, if the bit = 0 then there are none for this script.
; maps to OCCJK where high means there's an 6.x compatible Japanese IM, the next bit
; is simplified Chinese, next is Traditional Chinese, then Japanese, and lowest is Korean.
HaveOldJapanIMbit equ 4 ; <61>
HaveSimpChineseIMbit equ 3
HaveTradChineseIMbit equ 2
HaveJapaneseIMbit equ 1
HaveKoreanIMbit equ 0
; ------------------------------------------
; ------------------------------------------
; Used for the componentFlags field of the component record. Needed to count IMs <58>
; for these scripts for the keyboard menu. These flags include the script code
; (bits 8-14) and the bit (bit 23) set that indicates that the text service
; (input method, in this case) will take an active key event.
SimpChineseFlags equ $00009900 ; $19 is script code, takes active key event
TradChineseFlags equ $00008200 ; $02 is script code, takes active key event
JapaneseFlags equ $00008100 ; $01 is script code, takes active key event
KoreanFlags equ $00008300 ; $03 is script code, takes active key event
ScriptMask equ $00007F00 ; only care about the script code of the componentFlags field
ScriptActiveEventMask equ $0000FF00 ; script code and takes active events mask
AllFlags equ $0000FFFF ; all flags can be set <72>
ActiveEventMask equ $00008000 ; only care if active event flag is set <72>
; ------------------------------------------
; ------------------------------------------
; To be used with the secret script flag for KanjiTalk: <58>
UsingOldStyleIM equ $FFFFFFFF
NotUsingOldStyleIM equ 00000000
; ------------------------------------------
; ------------------------------------------
; Records needed for adding old-style (pre-TSM) input methods to the keyboard <58>
; menu. Adding ScriptSystemGlobals record and intfRecord for access outside
; of an input method. Moved here from Kanji IM file ScriptInterface.equ.
; ------------------------------------------------------------------------------
; ScriptSystemGlobals - a pointer to these values is stored in the Kanji smgrEntry
; array of the script manager core. The standard scriptRecord must be defined
; at the top of the ScriptSystemGlobals.
; ------------------------------------------------------------------------------
; ------------------------------------------------------------------------------
; NewScriptSystemGlobals - all new globals should be added here. This record is
; added to the end of the ScriptSystemGlobals structure. Update the file
; ScriptInterface.h if you change or add any fields.
; ------------------------------------------------------------------------------
NewScriptSystemGlobals Record 0
fSavedStdTextBottleNeck ds.l 1 ; used in LaserPrinterStdText.c
fInputMethodWorkSpaceHandle ds.l 1 ; handle used as a place holder for input methods to work in
kNewScriptSystemGlobalsSize equ * ; size of record
EndR
ScriptSystemGlobals Record 0
ds.b ScriptRecord.scriptSize ; regular script globals.
FISError ds.w 1 ; result of last call to a FIS vector.
utilVector ds.l 1 ; utility routines dispatch.
fontVector ds.l 1 ; font routines dispatch.
intfVector ds.l 1 ; user interface routines dispatch.
utilErrors ds.l 1 ; hdl to string list of util errors
fontErrors ds.l 1 ; hdl to string list of font errors.
intfErrors ds.l 1 ; hdl to string list of interface errors.
fbitArray ds.l 1 ; table of fonts.
fdefArray ds.l 1 ; table of font definition procedures.
intfArray ds.l 1 ; table of input methods.
inQD ds.b 1 ; st -> don't allow entry to FIS StdTxMeas
normalEvents ds.b 1 ; st -> normal event processing in GOSEvent
debugging ds.b 1 ; st -> do debugging breaks
FISEvent ds.b 1 ; st -> OSEventAvail returned FIS.
teKeyBytes ds.w 1 ; two characters used for TextEdit buffering.
lastFbit ds.l 1 ; last fbit font used in SwapFIS.
lastFont ds.l 1 ; last Mac font used by SwapFIS.
grafWorld ds.l 1 ; valid GrafGlobals pointer.
FISPort ds.l 1 ; valid GrafPtr to default port.
charExtra ds.l 1 ; extra space for non-space characters.
spacePercent ds.l 1 ; percentage of slop in spaces vs chars.
errorAlrt ds.l 1 ; ptr to error alert rsrc.
errorDitl ds.l 1 ; ptr to error alert item list.
jSwapFIS ds.l 1 ; vector to SwapFIS routine.
jFindBlock ds.l 1 ; vector to FindBlock routine.
jLaserSize ds.l 1 ; vector to LaserSize routine.
imMethod ds.w 1 ; input method ID number.
imReEntry ds.b 1 ; input method reentrancy flag.
imUnused ds.b 1 ; unused byte.
imA5 ds.l 1 ; input method saved globals pointer.
imRTS ds.l 1 ; input method saved return address.
imHook ds.l 1 ; input method saved DeskHook.
imNotify ds.l 1 ; input method saved EjectNotify.
imTEbytes ds.w 1 ; saved TextEdit buffer bytes.
DJPrPort ds.l 1 ; printerPort when DrawJust PicComment sent for BackGround printing.
DJSextra ds.l 1 ; space extra when DrawJust PicComment sent for BackGround printing.
DJCextra ds.l 1 ; char extra when DrawJust PicComment sent for BackGround printing.
DJinPrint ds.b 1 ; true when DrawJust PicComment sent for BackGround printing.
DJUnused ds.b 1 ; unused byte.
scriptConfiguration equ * ; configuration variables.
bootMethod ds.w 1 ; boot input method ID number.
searchEject ds.b 1 ; st => eject diskette while looking.
useMicroFont ds.b 1 ; st => draw missing chars w/hex code.
newCharLoc ds.b 1 ; st => sequential placement of new.
fastEntry ds.b 1 ; st => fast entry of FIS is default.
;<7/20/88drs> added commonFont flag and cache flags, reduced reserved by 2
commonFont ds.b 1 ; st => map small FIS to common font
cacheOn ds.b 1 ; st => FIS cache is on
cacheSize ds.b 2 ; size of FIS cache in KBytes
FractFlag ds.b 1 ; Fract enable on switch
PSGaijiFlag ds.b 1 ; PostScript UserDefine character on
UnderLineFlag ds.b 1 ; UnderLine on
StyleTextFlag ds.b 1 ; StyleText checkbox.
ds.l 2 ; Array [1..2] Of LongInt;
cachePtr ds.l 1 ; global cache pointer to system heap
inJust ds.b 1 ; st -> Doing DrawJust call.
hasLaunch ds.b 1 ; st -> if launch has been called before.
fSavedInputMethodZone ds.l 1 ; current zone saved across IntfDispatch calls
ds.b 1 ; reserved - don't use
ds.b 1 ; reserved - don't use
SFOpenTrp ds.l 1 ; SingleFinder Trap Address
fMultiFinderOpenTrap ds.l 1
origHFSDispatch ds.l 1 ; saved HFSDispatch Trap aaddress
imGrafGlobals ds.l 1 ; input method saved current GrafGlobals.
;<7/20/88drs> repaired screwed up reserved length
ds.l 5 ; reserved.
;<3> Added storage fields for the scriptFileName and scriptName core globals
scriptFileNameStorage ds.b 32
scriptNameStorage ds.b 32
fNewScriptGlobals ds.b NewScriptSystemGlobals.kNewScriptSystemGlobalsSize
kScriptSystemGlobalsSize equ * ; size of script globals.
EndR
; -----------------------------------------------------------------------------
; Record for the table of user interface routines.
; Note that the intfID field must come first (required by GetIDEntry call)
; -----------------------------------------------------------------------------
intfRecord Record 0 ;
intfID ds.w 1 ; user interface ID number.
intfEntry ds.l 1 ; user interface routine pointer.
intfA5 ds.l 1 ; user interface globals.
intfFlags ds.w 1 ; interface flags.
ds.l 2 ; reserved.
intfName ds.b 64 ; interface name string.
intfFile ds.b 64 ; name of interface file.
intfVol ds.w 1 ; volume for interface file.
intfSize equ * ; Record size.
EndR ;
intfFReady equ 15 ; ready flag.
intfFActive equ 14 ; active flag.
;------------------------------------------------------------------------------
; Selectors for Activating and Deactivating old input methods
;------------------------------------------------------------------------------
selActivate equ $00060006 ; activate event.
selDeactivate equ $00060008 ; deactivate event.
; -----------------------------------------------------------------------------
; Utility routine errors.
; -----------------------------------------------------------------------------
euError equ $0400 ; utility errors. (id=1024)
euNoErr equ 0 ; No error.
euBadCode equ euError+1 ; Bad value passed for JIS-SJIS-index.
euBadIndex equ euBadCode+1 ; Index out of range.
euBadID equ euBadIndex+1 ; ID not found in table.
euMemory equ euBadID+1 ; memory manager error.
euExtJIS equ euMemory+1 ; JIS code in extended range.
euBadOffset equ euExtJIS+1 ; bad offset passed to routine.
euHighOffset equ euBadOffset+1 ; no char info; offset => high byte.
; -----------------------------------------------------------------------------
; Secret verb which is used for checking on input method type. <2>
; -----------------------------------------------------------------------------
kUsingOldInputMethodVerb equ -1000
; ----------------------------------------------------------------------------- <58>
; Routine IntfActivate(volRef: Integer; fileName: Str255);
; Input sp.w Refnum of current system folder volume.
; sp.l Ptr to name of input method file.
; Output
; Function Tell the user interface to allocate any heap storage it might
; need and/or read in resources from its file. After this call
; the input method must be ready to accept all interface calls
; to it; this implies it's ready to handle conversion.
; -----------------------------------------------------------------------------
Macro
IntfActivate
With ScriptSystemGlobals,SMgrRecord
move.l #selActivate,-(sp)
GetSmgrCore a0 ; load script manager core.
move.l smgrEntry+(smJapanese*4)(a0),a0 ; load doubleTalkRecord for Japanese.
move.l intfVector(a0),a0
jsr (a0)
EndWith
endMacro
; -----------------------------------------------------------------------------
; Routine IntfDeactivate(volRef: Integer; fileName: Str255);
; Input sp.w Refnum of system folder volume that was passed at
; activate time.
; sp.l Ptr to name of input method file.
; Output
; Function Tell the user interface to free any heap storage it might have
; and/or release any resources that came from its file. After
; this call the input method should not receive any calls except
; for ShutDown, Ready and Activate.
; -----------------------------------------------------------------------------
Macro
IntfDeactivate
With ScriptSystemGlobals,SMgrRecord
move.l #selDeactivate,-(sp)
GetSmgrCore a0 ; load script manager core.
move.l smgrEntry+(smJapanese*4)(a0),a0 ; load doubleTalkRecord for Japanese.
move.l intfVector(a0),a0
jsr (a0)
EndWith
endMacro
; ----------------------------------------------------------------------------- <58>
; -----------------------------------------------------------------------------
; Record for each entry in new-format itl handle cache. <18>
; -----------------------------------------------------------------------------
NewItlCacheRec record 0
script ds.w 1 ; script code for this entry
itl2Id ds.w 1 ; ID of itl2 whose handle is cached
itl2Handle ds.l 1 ; itl2 handle
itl4Id ds.w 1 ; ID of itl4 whose handle is cached
itl4Handle ds.l 1 ; itl4 handle
newItlCacheRecSize equ * ; size of record
endr
; -----------------------------------------------------------------------------
; Record for application-specific ScriptMgr globals. <31>
; -----------------------------------------------------------------------------
SMgrAppRecord record 0
; space used by one-byte extension <62>
fSavedPort ds.l 1 ; GrafPtr, for saved port
fKashidaSlop ds.l 1 ; Fixed, kashida slop passed from drawjust/piccomment
fScaleFactor ds.l 1 ; long, for kashida scaling
fGeneralFlags ds.l 1 ; long
ds.l 4 ; reserved
; space for other things
smgrAppDisableKybds ds.b 1 ; T=>disable keybds not in Sys/Roman script/1=>disable all kbds <63>
ds.b 3 ; reserved
ds.l 3 ; reserved
smgrAppRsvdSize equ * ; size excluding cache part
; itl2/itl4 handle cache
smgrAppCacheCount ds.w 1 ; number of records in cache (# of enabled scripts)
smgrAppCacheStart equ * ; cache: one or more records of type NewItlCacheRec
endr
; -----------------------------------------------------------------------------
; Record for 'itlm' resource header. <18><29>
; -----------------------------------------------------------------------------
ItlmHeaderRec record 0
version ds.w 1 ; resource version number
format ds.w 1 ; format code
numTables ds.w 1 ; number of tables
scriptDataOffset ds.l 1 ; offset from beginning to scriptData table
scriptDataLength ds.l 1 ; length of scriptData table
langDataOffset ds.l 1 ; offset from beginning to langData table
langDataLength ds.l 1 ; length of langData table
regionDataOffset ds.l 1 ; offset from beginning to regionData table
regionDataLength ds.l 1 ; length of regionData table
endr
; -----------------------------------------------------------------------------
; The following were commented out in 6.0.3 version; where else are they defined?
; -----------------------------------------------------------------------------
; private equates for ADB
keyCacheMin equ 2048 ; minimum size for key Cache
keyCacheSlop equ 512 ; extra room over and above KCHR 0 size
kybdADBAddr equ 2 ; universal keyboard
dbDataAreaAddr equ 6 ; data area in keyboard
KybdDriverData record 0
KMAPPtr ds.l 1 ; pointer to KMAP
KeyBits ds.b 128/8 ; 128 bits correspond to keyboard map
KCHRPtr ds.l 1 ; pointer to KCHR
DeadKey ds.l 1 ; dead key state - long! <3.5>
endR
;******
ENDIF ; ...already included
Reference in New Issue View Git Blame Copy Permalink