mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-06-12 14:29:29 +00:00
83 lines
1.7 KiB
Plaintext
83 lines
1.7 KiB
Plaintext
;
|
|
; File: DictionaryMgr.a
|
|
;
|
|
; Contains: Dictionary Manager dispatch table
|
|
;
|
|
;
|
|
; Written by: John Harvey
|
|
;
|
|
; Copyright: © 1989-1991 by Apple Computer, Inc., all rights reserved.
|
|
;
|
|
; Change History (most recent first):
|
|
;
|
|
; <4> 11/27/91 hsK Changed the Dictionary routine names.
|
|
; <1+> 11/27/91 hsK Change the names of Dictionary routines.
|
|
;
|
|
; To Do:
|
|
;
|
|
|
|
TITLE 'DictionaryMgr.a - Dictionary Manager package'
|
|
STRING ASIS
|
|
CASE OBJ
|
|
|
|
;
|
|
|
|
; Includes
|
|
|
|
PRINT OFF
|
|
|
|
LOAD 'StandardEqu.d'
|
|
include 'DispatchHelperPriv.a'
|
|
|
|
PRINT ON
|
|
|
|
|
|
;===============================================================================
|
|
;
|
|
; PROCEDURE DictionaryMgrPackEntry(); - Dictionary Manager PACK (kind of, really 'dimg'.
|
|
;
|
|
;===============================================================================
|
|
|
|
DictionaryMgrPackEntry PROC EXPORT
|
|
|
|
DC.W $A9FF ; package entry point (unused now)
|
|
DC.B 'dimg'
|
|
DC.W 16 ; package number
|
|
DC.W 1 ; version
|
|
|
|
;
|
|
; DispatchTable for DispatchHelper
|
|
;
|
|
MyDispatchTable
|
|
DC.W 0 ; dispatchFlags (always 0)
|
|
DC.B $00 ; first selector (0 for InitializeDictionary)
|
|
DC.B $08 ; last selector (8 for CompactDictionary)
|
|
|
|
;
|
|
; macro to build jump table
|
|
;
|
|
MACRO
|
|
JT &entry
|
|
IMPORT &entry
|
|
DC.W &entry - MyDispatchTable
|
|
ENDM
|
|
|
|
CASE OFF ; following are Pascal routines
|
|
|
|
|
|
JT InitializeDictionary_ATrap
|
|
JT OpenDictionary_ATrap
|
|
JT CloseDictionary_ATrap
|
|
JT InsertRecordToDictionary_ATrap
|
|
JT DeleteRecordFromDictionary_ATrap
|
|
JT FindRecordInDictionary_ATrap
|
|
JT FindRecordByIndexInDictionary_ATrap
|
|
JT GetDictionaryInformation_ATrap
|
|
JT CompactDictionary_ATrap
|
|
|
|
CASE OBJ
|
|
|
|
ENDPROC
|
|
|
|
END
|