sys7.1-doc-wip/Internal/Asm/DblByteCompatPriv.a
2019-07-27 22:37:48 +08:00

226 lines
8.5 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: DblByteCompatPriv.a
;
; Contains: See Dan's heart-wrenching tale below…
;
; Written by: Dan Quayle
;
; Copyright: © 1992 by Apple Computer, Inc., all rights reserved.
;
; Change History (most recent first):
;
; <2> 1/15/92 SMB Remove END. Moved equates, records and macros to ScriptPriv.a.
; <1> 1/14/92 SMB first checked in
;
;
;-------------------------------------------------------------------------------------
;
; So what is this nightmare??
; Once long, long ago there was going to be a new age for KanjiTalk with an elegant
; method for doing input methods. The design proceeded it was sweet and clear as a
; child's eyes. But then things started to darken, angry war clouds darkened the
; sky and the titans of Ops/Tech and Cupertino did battle once again.
;
; When the sky cleared there were many causualities, but perhaps the greatest was
; the need to support old input methods. Thus this ugly, ugly file.
;
; The deal is that we hacked together an Init that supports old input methods.
; We also decided that new input methods should be selectable from the Apple Menu
; just the way keyboards have been since 7.0.
;
; In the pre-7.0 kanjitalk you selected FEPs from a control panel just like
; you select keyboards from a control panel. The original (apparently not very clear)
; thinking was that old feps would still be selected from the old cdev. But feps
; be they old or new are much more complicated. For example, when you pick one
; you have to turn off another that might be on.
; The old cdev couldn't just handle the old ones because it has no way of knowing about
; anybody selecting the new ones
;
; So we have to put all the responsibility on the keyboard menu. Which now displays old
; and new input methods for CJK scripts and keyboards for all other scripts.
;
; There are 4 switching conditions to worry about:
; old input method -> old input method
; old input method -> new input method
; new input method -> new input method
; new input method -> old input method
;-------------------------------------------------------------------------------------
Include 'SysEqu.a'
Include 'ScriptEqu.a' ; Public Script manager equates
Include 'ScriptPriv.a' ; Private Script manager equates. <1>
Include 'Traps.a'
; Moved ScriptSystemGlobals record, NewScriptSystemGlobals record, intfRecord and selectors
; and error codes for these routines to ScriptPriv.a. This file will now only contain
; code and not templates and equates.
; ----------------------------------------------------------------------------
; Routine: GetIDEntry(table: Handle; id: Integer) : LongInt;
; Input: (sp).l Handle to table.
; (sp).w ID number in entry Record to return.
; Output: (sp).l Item from table.
; Warning: This routine follows Pascal register conventions.
;
; Retreive an item from a table using the ID number.
; ----------------------------------------------------------------------------
gidRecord Record {a6link},decr
entry ds.l 1 ; entry returned from table.
handle ds.l 1 ; table handle.
id ds.w 1 ; id of entry Record to fetch.
return ds.l 1 ; return address.
a6link ds.l 1 ; old a6 register.
gidFrame equ * ; size of local variables.
EndR
GetIDEntry Proc Export
With gidRecord,ScriptSystemGlobals,SMgrRecord
link a6,#gidFrame ; link the stack.
move.l a4,-(sp) ; save registers
GetSmgrCore a4 ; load script manager core.
move.l smgrEntry+(smJapanese*4)(a4),a4 ; load doubleTalkRecord for Japanese.
clr.w FISError(a4) ; clear the error global
; Search the table for the given ID number. If we do not find it in the
; table, set an error value and bail out.
move.l handle(a6),a0 ; Load table handle.
move.l (a0),a0 ; Load table pointer.
move.l (a0)+,d0 ; Load table length.
move.w id(a6),d1 ; Load search id number.
bra.s @1 ; enter loop at bottom.
@0 move.l (a0)+,a1 ; Load table entry.
cmp.w (a1),d1 ; same id number?
beq.s @okID ; yes -> we found it!
@1 dbra d0,@0 ; do the next entry.
clr.l entry(a6) ; clear the result.
move.w #euBadID,FISError(a4) ; set the error code.
bra.s @getIDDone ; return to the caller.
; We've found the entry, so save the entry value.
@okID
move.l a1,entry(a6) ; save the result.
; Unlink the stack, remove the arguments, and return to the caller.
@getIDDone
move.l (sp)+,a4 ; restore registers
unlk a6 ; unlink the stack.
move.l (sp)+,a0 ; pop return address.
add.w #6,sp ; pop the arguments.
jmp (a0) ; return to the caller.
EndWith
EndProc
; ----------------------------------------------------------------------------
; Routine GetKanjiUserIDIntf(id: Integer);
; Input sp.w record ID for interface routine.
; Output
; Function If this is a valid record ID, and the new interface is ready,
; deactivate the old interface and activate the new one.
; ----------------------------------------------------------------------------
uidRecord Record {a6link},decr
id ds.w 1 ; interface routine ID number.
return ds.l 1 ; return address.
a6link ds.l 1 ; old a6 register.
trueResult ds.w 1 ; activate result.
envRec ds.b SysEnvRec.sysEnv1Size
uidFrame equ * ; size of local variables.
EndR
GetKanjiUserIDIntf Proc Export
With uidRecord,intfRecord,ScriptSystemGlobals,SMgrRecord
link a6,#uidFrame ; link the stack.
movem.l a2-a4,-(sp) ; save the registers.
GetSmgrCore a4 ; load script manager core. <2>
move.l smgrEntry+(smJapanese*4)(a4),a4 ; load doubleTalkRecord for Japanese. <2>
clr.w FISError(a4) ; clear error global
clr.w trueResult(a6) ; clear error result.
; Try to find the new user interface routine. If we cannot find it in
; the table, or it is not ready, return immediately.
@fetchNew
sub.w #4,sp ; make room for the pointer.
move.l intfArray(a4),-(sp) ; push the array handle.
move.w id(a6),-(sp) ; push record ID number.
jsr GetIDEntry ; get the entry.
move.l (sp)+,a3 ; load the record pointer.
tst.w FISError(a4) ; bad index?
bne @noNew ; yes -> bail out.
btst.b #intfFReady-8,intfFlags(a3) ; is it ready?
beq @noNew ; no -> bail out.
; Try to find the old user interface routine. If we cannot find it in
; the table, skip it entirely. Note that this is an attempt at recovery
; since the interface index should always point to a valid interface.
sub.w #4,sp ; make room for the pointer.
move.l intfArray(a4),-(sp) ; push the array handle.
move.w imMethod(a4),-(sp) ; push old Record ID number.
jsr GetIDEntry ; get the entry.
move.l (sp)+,a2 ; load the Record pointer.
tst.w FISError(a4) ; bad index?
bne.s @noOld ; yes -> skip old.
; Deactivate the old user interface and set its flags correctly.
cmp.l a2,a3 ; interface method same?
beq.s @noOld ; yes -> pretend like no old.
btst.b #intfFActive-8,intfFlags(a2) ; old intf active?
beq.s @noOld ; no -> skip deactivate.
move.w intfVol(a2),-(sp) ; push volume refNum.
pea intfFile(a2) ; push file name pointer.
IntfDeactivate ; deactivate old intf.
bclr.b #intfFActive-8,intfFlags(a2) ; clear active bit.
; Set the interface index to the passed index and activate the new user
; interface. Remember to set the flags correctly again and also set
; the saved ID number.
@noOld
move.w id(a6),imMethod(a4) ; set new intf ID.
btst.b #intfFActive-8,intfFlags(a3) ; new intf active?
bne.s @noNew ; yes -> skip activate.
;now get the boot drive so input method can find its dictionaries
lea.l envRec(a6),a0 ; get system folder's “volRefNum”.
moveq.l #1,d0 ; actually, its WDRefNum.
_SysEnvirons ; this is calling OpenWD to get it.
move.w SysEnvRec.sysVRefNum(a0),intfVol(a3) ; set new volume refnum.
clr.w FISError(a4) ; clear the error value.
move.w intfVol(a3),-(sp) ; put the volref on the stack
pea intfFile(a3) ; push file name ptr.
IntfActivate ; activate new intf.
tst.w id(a6) ; activating default?
beq.s @0 ; yup, skip error check.
clr.w id(a6) ; assume error, set default id.
move.w FISError(a4),trueResult(a6) ; save true result.
bne @fetchNew ; error -> one more try...
@0 bset.b #intfFActive-8,intfFlags(a3) ; set active bit.
move.w trueResult(a6),FISError(a4) ; set result.
; Restore the registers, unlink the stack, pop the arguments, and return
; to the caller.
@noNew
movem.l (sp)+,a2-a4 ; restore the registers.
unlk a6 ; unlink the stack.
move.l (sp)+,a0 ; Load the return address.
add.w #2,sp ; pop the arguments.
jmp (a0) ; return to the caller.
EndWith
EndProc
End