mirror of
https://github.com/elliotnunn/supermario.git
synced 2025-02-16 14:30:32 +00:00
1674 lines
75 KiB
Plaintext
1674 lines
75 KiB
Plaintext
|
;
|
|||
|
|
; 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 ®
|
|||
|
|
move.l intlSpec,® ; 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
|