mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-12-28 01:29:20 +00:00
5b0f0cc134
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included. The Tools directory, containing mostly junk, is also excluded.
409 lines
12 KiB
Plaintext
409 lines
12 KiB
Plaintext
;
|
|
; File: TextServices.a
|
|
;
|
|
; Contains: Text Services Manager Assembler Definitions.
|
|
;
|
|
; Written by: Kenny SC. Tung
|
|
;
|
|
; Copyright: © 1991-1992 by Apple Computer, Inc., all rights reserved.
|
|
;
|
|
; Change History (most recent first):
|
|
;
|
|
; <27> 10/22/92 KST Added Low level routines macros which are dispatched directly to
|
|
; the Component Manager.
|
|
; <26> 8/4/92 DCL Moved InformTSM out of the public eye and into TSMPrivate.
|
|
; <25> 5/18/92 KST #1029814 <JH>: Deleted "tsmDialogStateSavedErr" and added a new
|
|
; error code "tsmUnSupportedTypeErr".
|
|
; <24> 5/1/92 KST #1028301,<JH>: JH,#1028301: SetTSMDialogState,
|
|
; RestoreTSMDialogState, TSMChangeCursor, and TSMRestoreCursor
|
|
; calls are no longer needed and should be removed from the source
|
|
; code.
|
|
; <23> 4/24/92 KST BMcGhie,changed TSM's official error codes to start from -2500.
|
|
; <22> 3/3/92 KST Added 2 new calls: "TSMChangeCursor", "TSMRestoreCursor".
|
|
; <21> 3/2/92 KST Moved kMaxTSMSelector to TSMPrivate.a for adding a private trap
|
|
; selector.
|
|
; <20> 2/28/92 KST Added 2 new calls "SetTSMDialogState", and "RestoreTSMDialogState".
|
|
; <19> 2/27/92 KST Renamed "SendAEtoClient" to "SendAEFromTSMComponent".
|
|
; <18> 2/25/92 KST Changed low level component call selector to include parameter
|
|
; size.
|
|
; <17> 2/11/92 DCL Changed the name of this file from TSMEqu.a to TextServices.a
|
|
; for better read-ability.
|
|
; <16> 2/10/92 KST Adding a new error code and moved TSM message selectors to
|
|
; TSMPrivate. 'inpm' resource now stores FEP ID for the old input
|
|
; method.
|
|
; <15> 1/31/92 YK Added FindServiceWindow.
|
|
; <14> 1/29/92 KST Removed IsApplicationTSMAware, it is now only used internally.
|
|
; <13> 1/16/92 KST It's actually kMsgChangeToOldJIM.
|
|
; <12> 1/16/92 KST Add a new message to InformTSM: kMsgChangeOld2NewJIM.
|
|
; <11> 1/10/92 KST Undo the previous change. That's not the problem.
|
|
; <10> 1/9/92 KST Changed SetDefaultInputMethod selector back to 13 so that we can
|
|
; build TSM INIT with d13.
|
|
; <9> 1/8/92 KST Removed kKillTSMAwareApp. CleanUpTSMApp is now a message to
|
|
; InforTSM.
|
|
; <8> 1/4/92 KST Add a new routine "CloseTextService". Also "OpenTextService" now
|
|
; returns component instance to the caller.
|
|
; <7> 1/3/92 KST Adding some new selectors: "kInformTSM",
|
|
; "kInitTSMAwareApplication", "kCloseTSMAwareApplication",
|
|
; "kCloseUpTSMAwareApplication".
|
|
; <6> 12/20/91 KST Making progress toward Alpha. Changed "inline" to "TSM", and
|
|
; added new calls.
|
|
; <5> 12/10/91 KST Adding a new selector: "kInlineAwareRegister", and renamed all
|
|
; the selectors to begin with "k".
|
|
; <4> 12/6/91 SMB Adding macrosÉ
|
|
; <3> 11/26/91 KST Low level TSM routines are now dispatched directly to the
|
|
; Component Manager.
|
|
; <2> 11/23/91 KST Check in the first time for Cube-E.
|
|
;
|
|
;
|
|
|
|
|
|
|
|
;
|
|
; ¥¥ Note: _TSMDispatch, and selectors will be moved to TRAP.a when everything is settled.
|
|
;
|
|
|
|
|
|
|
|
IF &TYPE('__TSMAInclude__') = 'UNDEFINED' THEN
|
|
__TSMAInclude__ SET 1
|
|
|
|
|
|
Include 'Traps.a'
|
|
|
|
|
|
kTSMVersion equ 1 ; Version of the Text Services Manager
|
|
kTextService equ 'tsvc' ; component type for the component description
|
|
kInputMethodService equ 'inpm' ; component subtype for the component description
|
|
;;-------------------------------------------------------------------------;;
|
|
|
|
|
|
tsmUnsupScriptLanguageErr EQU -2500 ;
|
|
tsmInputMethodNotFoundErr EQU -2501 ;
|
|
tsmNotAnAppErr EQU -2502 ; not an application error
|
|
tsmAlreadyRegisteredErr EQU -2503 ; want to register again error
|
|
tsmNeverRegisteredErr EQU -2504 ; app is not TSM aware error
|
|
tsmInvalidDocIDErr EQU -2505 ; invalid TSM documentation id
|
|
tsmTSMDocBusyErr EQU -2506 ; document is still active
|
|
tsmDocNotActiveErr EQU -2507 ; document is NOT active
|
|
tsmNoOpenTSErr EQU -2508 ; no open text service
|
|
tsmCantOpenComponentErr EQU -2509 ; can't open the component
|
|
tsmTextServiceNotFoundErr EQU -2510 ; no text service found
|
|
tsmDocumentOpenErr EQU -2511 ; there are open documents
|
|
tsmUseInputWindowErr EQU -2512 ; not TSM aware because we are using input window
|
|
tsmTSHasNoMenuErr EQU -2513 ; the text service has no menu
|
|
tsmTSNotOpenErr EQU -2514 ; no open text service to close
|
|
tsmComponentAlreadyOpenErr EQU -2515 ; text service already opened for the document
|
|
|
|
tsmInputMethodIsOldErr EQU -2516 ; returned by GetDefaultInputMethod ONLY
|
|
tsmScriptHasNoIMErr EQU -2517 ; script has no imput method or is using old IM.
|
|
tsmUnsupportedTypeErr EQU -2518 ; unSupported interface type error
|
|
tsmUnknownErr EQU -2519 ; any other errors
|
|
|
|
;;-------------------------------------------------------------------------;;
|
|
|
|
|
|
|
|
|
|
|
|
_TSMDispatch OPWORD $AA54 ; should be moved later
|
|
TSMTrapNumber EQU $AA54
|
|
|
|
|
|
; Text Services Manager function selectors ...
|
|
|
|
kNewTSMDocument equ 0 ; create new TSM aware document
|
|
kDeleteTSMDocument equ 1 ; delete TSM aware document
|
|
kActivateTSMDocument equ 2 ; activate TSM aware document
|
|
kDeactivateTSMDocument equ 3 ; deactivate TSM aware document
|
|
kTSMEvent equ 4 ; pass all events to TSM
|
|
kTSMMenuSelect equ 5 ; pass menu selection to TSM
|
|
kSetTSMCursor equ 6 ; set the cursor
|
|
kFixTSMDocument equ 7 ; terminate text services
|
|
kGetServiceList equ 8 ; get all text service components
|
|
kOpenTextService equ 9 ; open the text service
|
|
kCloseTextService equ 10 ; close the text service
|
|
kSendAEFromTSMComponent equ 11 ; send Apple Event from component to client
|
|
|
|
|
|
;; Utilities ...
|
|
|
|
kSetDefaultInputMethod equ 12 ;
|
|
kGetDefaultInputMethod equ 13 ; (Get = D)
|
|
kSetTextServiceLanguage equ 14 ;
|
|
kGetTextServiceLanguage equ 15 ;
|
|
kUseInputWindow equ 16 ;
|
|
kNewServiceWindow equ 17 ;
|
|
kCloseServiceWindow equ 18 ;
|
|
kGetFrontServiceWindow equ 19 ;
|
|
|
|
|
|
kInitTSMAwareApplication equ 20 ; claim TSM aware application
|
|
kCloseTSMAwareApplication equ 21 ; application deregisters itself as TSM aware
|
|
kFindServiceWindow equ 23
|
|
|
|
;;-------------------------------------------------------------------------;;
|
|
|
|
|
|
|
|
;; Low level routines which are dispatched directly to the Component Manager ...
|
|
kCMGetScriptLangSupport equ $00040001 ;
|
|
kCMInitiateTextService equ $00000002 ;
|
|
kCMTerminateTextService equ $00000003 ;
|
|
kCMActivateTextService equ $00000004 ;
|
|
kCMDeactivateTextService equ $00000005 ;
|
|
kCMTextServiceEvent equ $00060006 ;
|
|
kCMGetTextServiceMenu equ $00040007 ;
|
|
kCMTextServiceMenuSelect equ $00060008 ;
|
|
kCMFixTextService equ $00000009 ;
|
|
kCMSetTextServiceCursor equ $0004000A ;
|
|
kCMHidePaletteWindows equ $0000000B
|
|
|
|
;;-------------------------------------------------------------------------;;
|
|
|
|
|
|
|
|
;; trap routine macros ...
|
|
|
|
macro
|
|
_NewTSMDocument
|
|
move.w #kNewTSMDocument,d0
|
|
_TSMDispatch
|
|
endm
|
|
|
|
|
|
macro
|
|
_DeleteTSMDocument
|
|
move.w #kDeleteTSMDocument,d0
|
|
_TSMDispatch
|
|
endm
|
|
|
|
|
|
macro
|
|
_ActivateTSMDocument
|
|
move.w #kActivateTSMDocument,d0
|
|
_TSMDispatch
|
|
endm
|
|
|
|
|
|
macro
|
|
_DeactivateTSMDocument
|
|
move.w #kDeactivateTSMDocument,d0
|
|
_TSMDispatch
|
|
endm
|
|
|
|
macro
|
|
_TSMEvent
|
|
move.w #kTSMEvent,d0
|
|
_TSMDispatch
|
|
endm
|
|
|
|
macro
|
|
_TSMMenuSelect
|
|
move.w #kTSMMenuSelect,d0
|
|
_TSMDispatch
|
|
endm
|
|
|
|
macro
|
|
_SetTSMCursor
|
|
move.w #kSetTSMCursor,d0
|
|
_TSMDispatch
|
|
endm
|
|
|
|
macro
|
|
_FixTSMDocument
|
|
move.w #kFixTSMDocument,d0
|
|
_TSMDispatch
|
|
endm
|
|
|
|
macro
|
|
_GetServiceList
|
|
move.w #kGetServiceList,d0
|
|
_TSMDispatch
|
|
endm
|
|
|
|
macro
|
|
_OpenTextService
|
|
move.w #kOpenTextService,d0
|
|
_TSMDispatch
|
|
endm
|
|
|
|
macro
|
|
_CloseTextService
|
|
move.w #kCloseTextService,d0
|
|
_TSMDispatch
|
|
endm
|
|
|
|
macro
|
|
_SendAEFromTSMComponent
|
|
move.w #kSendAEFromTSMComponent,d0 ; kSendAEFromTSMComponent = 11
|
|
_TSMDispatch
|
|
endm
|
|
|
|
macro
|
|
_InitTSMAwareApplication
|
|
move.w #kInitTSMAwareApplication,d0
|
|
_TSMDispatch
|
|
endm
|
|
|
|
|
|
macro
|
|
_CloseTSMAwareApplication
|
|
move.w #kCloseTSMAwareApplication,d0
|
|
_TSMDispatch
|
|
endm
|
|
|
|
macro
|
|
_SetDefaultInputMethod
|
|
move.w #kSetDefaultInputMethod,d0
|
|
_TSMDispatch
|
|
endm
|
|
|
|
macro
|
|
_GetDefaultInputMethod
|
|
move.w #kGetDefaultInputMethod,d0
|
|
_TSMDispatch
|
|
endm
|
|
|
|
macro
|
|
_SetTextServiceLanguage
|
|
move.w #kSetTextServiceLanguage,d0
|
|
_TSMDispatch
|
|
endm
|
|
|
|
macro
|
|
_GetTextServiceLanguage
|
|
move.w #kGetTextServiceLanguage,d0
|
|
_TSMDispatch
|
|
endm
|
|
|
|
macro
|
|
_UseInputWindow
|
|
move.w #kUseInputWindow,d0
|
|
_TSMDispatch
|
|
endm
|
|
|
|
macro
|
|
_NewServiceWindow
|
|
move.w #kNewServiceWindow,d0
|
|
_TSMDispatch
|
|
endm
|
|
|
|
macro
|
|
_CloseServiceWindow
|
|
move.w #kCloseServiceWindow,d0
|
|
_TSMDispatch
|
|
endm
|
|
|
|
macro
|
|
_GetFrontServiceWindow
|
|
move.w #kGetFrontServiceWindow,d0
|
|
_TSMDispatch
|
|
endm
|
|
|
|
macro
|
|
_FindServiceWindow
|
|
move.w #kFindServiceWindow,d0
|
|
_TSMDispatch
|
|
endm
|
|
|
|
|
|
|
|
kUnknownScript EQU $FFFF ; undefined script
|
|
kUnknownLanguage EQU $FFFF ; undefined language
|
|
|
|
|
|
ScriptLanguageRec RECORD 0
|
|
fScript ds.w 1 ; (word) script code
|
|
fLanguage ds.w 1 ; (word) language code
|
|
ENDR
|
|
|
|
|
|
;; Change #27 ...
|
|
|
|
macro
|
|
_GetScriptLanguageSupport
|
|
move.l #kCMGetScriptLangSupport,-(sp) ; push parameter size and dispatch selector
|
|
moveq #0,d0 ; Component call #0
|
|
_ComponentDispatch
|
|
endm
|
|
|
|
|
|
macro
|
|
_InitiateTextService
|
|
move.l #kCMInitiateTextService,-(sp) ; push parameter size and dispatch selector
|
|
moveq #0,d0 ; Component call #0
|
|
_ComponentDispatch
|
|
endm
|
|
|
|
|
|
macro
|
|
_TerminateTextService
|
|
move.l #kCMTerminateTextService,-(sp) ; push parameter size and dispatch selector
|
|
moveq #0,d0 ; Component call #0
|
|
_ComponentDispatch
|
|
endm
|
|
|
|
|
|
macro
|
|
_ActivateTextService
|
|
move.l #kCMActivateTextService,-(sp) ; push parameter size and dispatch selector
|
|
moveq #0,d0 ; Component call #0
|
|
_ComponentDispatch
|
|
endm
|
|
|
|
|
|
macro
|
|
_DeactivateTextService
|
|
move.l #kCMDeactivateTextService,-(sp) ; push parameter size and dispatch selector
|
|
moveq #0,d0 ; Component call #0
|
|
_ComponentDispatch
|
|
endm
|
|
|
|
|
|
macro
|
|
_TextServiceEvent
|
|
move.l #kCMTextServiceEvent,-(sp) ; push parameter size and dispatch selector
|
|
moveq #0,d0 ; Component call #0
|
|
_ComponentDispatch
|
|
endm
|
|
|
|
|
|
macro
|
|
_GetTextServiceMenu
|
|
move.l #kCMGetTextServiceMenu,-(sp) ; push parameter size and dispatch selector
|
|
moveq #0,d0 ; Component call #0
|
|
_ComponentDispatch
|
|
endm
|
|
|
|
macro
|
|
_TextServiceMenuSelect
|
|
move.l #kCMTextServiceMenuSelect,-(sp) ; push parameter size and dispatch selector
|
|
moveq #0,d0 ; Component call #0
|
|
_ComponentDispatch
|
|
endm
|
|
|
|
macro
|
|
_FixTextService
|
|
move.l #kCMFixTextService,-(sp) ; push parameter size and dispatch selector
|
|
moveq #0,d0 ; Component call #0
|
|
_ComponentDispatch
|
|
endm
|
|
|
|
|
|
macro
|
|
_SetTextServiceCursor
|
|
move.l #kCMSetTextServiceCursor,-(sp) ; push parameter size and dispatch selector
|
|
moveq #0,d0 ; Component call #0
|
|
_ComponentDispatch
|
|
endm
|
|
|
|
macro
|
|
_HidePaletteWindows
|
|
move.l #kCMHidePaletteWindows,-(sp) ; push parameter size and dispatch selector
|
|
moveq #0,d0 ; Component call #0
|
|
_ComponentDispatch
|
|
endm
|
|
|
|
|
|
|
|
ENDIF ; ...already included |