;
;	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