Early Roguelike Collection: urogue/dict.c annotate

author	John "Elwin" Edwards
date	Tue, 31 Jan 2017 19:56:04 -0500
parents
children	13b482bd9e66

rev	line source
256 c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	1 /*
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	2 dict.c
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	3
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	4 UltraRogue: The Ultimate Adventure in the Dungeons of Doom
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	5 Copyright (C) 1995 Herb Chong
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	6 All rights reserved.
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	7
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	8 See the file LICENSE.TXT for full copyright and licensing information.
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	9 */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	10
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	11 /******************
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	12 ** Change history:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	13 **
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	14 ** (AK:04/03/95) - In dict_create, initialize hook for extensions to dictionary structure.
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	15 ** (AK:04/04/95) - In dict_insert, only set any_ptr when a new string entry is created.
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	16 ** (AK:04/17/95) - Added dict_union and dict_merge.
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	17 ** (AK:04/18/95) - In dict_create, added code to create signature,
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	18 ** table of contents, and parameter array.
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	19 ** (AK:04/18/95) - Revised dict_load, dict_save
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	20 ** (AK:04/18/95) - Added dict_import
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	21 **
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	22 ******************/
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	23
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	24 static char sccsid[] = "%W% %G%";
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	25
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	26 #include <stdlib.h>
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	27 #include <string.h>
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	28 #if !defined(OS2) && !defined(_WIN32)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	29 #include <unistd.h>
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	30 #endif
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	31
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	32 #include "dict.h"
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	33 #include "dictutil.h"
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	34
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	35 #define BUFLEN 300
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	36
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	37 /*************************************************************************
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	38 * Generic dictionary and hash table functions for word and
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	39 * string storage.
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	40 *
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	41 * Implements generic dictionary management by using a
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	42 * hash table with direct chaining. All terms are stored in a
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	43 * separate, unsorted, string table. When inserting into the
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	44 * hash table exceeds the current size, allocate a new hash table
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	45 * and rehash the old contents into the new table. When the string
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	46 * table fills, append more empty entries onto the old table and
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	47 * continue adding. Inserting a string that already exists increments
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	48 * the count for the string. Deleting a string only decrements the
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	49 * count to no less than 0. This will allow a 0 occurence string to be
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	50 * retrieved. To remove the 0 occurence string table entries, you must
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	51 * rebuild the dictionary. Merging from one dictionary to a new one will
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	52 * do this because it only copies nonzero occurences.
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	53 *
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	54 * Assumptions:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	55 * unsigned long >= 32 bits
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	56 * int >= 16 bits
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	57 * char == 8 bits
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	58 * number of entries < 2^28
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	59 *************************************************************************/
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	60
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	61 /*************************************************************************
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	62 * hash_string: calculate hash value for string, modified
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	63 * version of hashpjw() from the new Dragon book.
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	64 *
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	65 * s - string to calculate hash for
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	66 *
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	67 * Returns: hash value
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	68 *************************************************************************/
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	69 static unsigned long hash_string(const char *s)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	70 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	71 unsigned long h = 0;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	72 unsigned long g = 0;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	73
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	74 while (*s) {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	75 h <<= 4;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	76 h += *s++;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	77 if ((g = h & 0xf0000000) != 0)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	78 h ^= g >> 24;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	79 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	80 return h ^ g;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	81 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	82
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	83 /*************************************************************************
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	84 * dict_create: create a dictionary and initialize its structures
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	85 *
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	86 * toc_size - number of entries in table of contents ( >= 4 )
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	87 * initial_string_count - number of strings to hold as initial allocation
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	88 * initial_hash_chains - size of hash table, must be power of 4
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	89 * max_chain_length - max number of elements in hash chain before signalling growth
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	90 *
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	91 * Returns: pointer to dictionary
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	92 * NULL - error creating dictionary
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	93 * non-NULL - sucessful creation
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	94 *************************************************************************/
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	95
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	96 DICTIONARY *dict_create(
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	97 const long toc_size,
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	98 const long initial_string_count,
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	99 const long initial_hash_chains,
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	100 const long max_chain_length )
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	101 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	102 DICTIONARY *dtemp = NULL;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	103 STRING_ENTRY *stemp = NULL;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	104 long *ltemp = NULL;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	105 char *sltemp;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	106 long i, j, tocsize;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	107
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	108 /* check for a power of 4 in number of initial hash entries */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	109 switch(initial_hash_chains) {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	110 case 0x00000004:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	111 case 0x00000010:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	112 case 0x00000040:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	113 case 0x00000100:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	114 case 0x00000400:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	115 case 0x00001000:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	116 case 0x00004000:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	117 case 0x00010000:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	118 case 0x00040000:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	119 case 0x00100000:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	120 case 0x00400000:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	121 case 0x01000000:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	122 case 0x04000000:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	123 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	124 default:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	125 return NULL;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	126 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	127
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	128 /* Allocate the dictionary structure */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	129 if ((dtemp = (DICTIONARY *)malloc(sizeof(DICTIONARY))) == NULL)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	130 goto err_exit;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	131
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	132 /* string count has to be within range */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	133 j = initial_string_count;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	134 if (j > 0x04000000)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	135 return NULL;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	136
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	137 /* force a reasonable value */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	138 if (j < 100)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	139 j = 100;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	140
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	141 /* Allocate the string table and string array */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	142 if ((stemp = (STRING_ENTRY )malloc(sizeof(STRING_ENTRY) j)) == NULL)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	143 goto err_exit;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	144 if ((sltemp = (char )malloc(8 j)) == NULL)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	145 goto err_exit;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	146
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	147 /* Allocate the hash table */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	148 if ((ltemp = (long )malloc(sizeof(long) initial_hash_chains)) == NULL)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	149 goto err_exit;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	150
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	151 /* Allocate the parameter array */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	152 if ( (dtemp->parm = (DICT_PARM_ENTRY )malloc(14sizeof(DICT_PARM_ENTRY))) == NULL)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	153 goto err_exit;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	154
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	155 /* Allocate the signature structure */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	156 if ( (dtemp->sig=(DICT_SIG*)malloc(sizeof(DICT_SIG))) == NULL )
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	157 goto err_exit;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	158
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	159 /* Allocate the Table of Contents */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	160 tocsize = toc_size;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	161 if ( tocsize < 4 )
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	162 tocsize = 4;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	163 dtemp->sig->toc_size = tocsize;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	164 if ( (dtemp->toc=(DICT_TOC_ENTRY)malloc(dtemp->sig->toc_sizesizeof(DICT_TOC_ENTRY))) == NULL )
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	165 goto err_exit;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	166
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	167 dtemp->check_value = DICT_VALIDATE; /* validation value */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	168 dtemp->flags = DICT_NONE; /* no flags set */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	169 dtemp->entry_count = 0; /* nothing in either table */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	170
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	171 dtemp->string_table = stemp; /* connect string table */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	172 dtemp->string_max = j; /* size of string table */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	173 dtemp->scan_string_index = DICT_ENTRY_NONE; /* not pointing to anything in scan */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	174 dtemp->string_growth_count = 0; /* haven't grown any */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	175
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	176 dtemp->string_array = sltemp; /* character array for strings */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	177 dtemp->array_size = j * 8; /* how many bytes available */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	178 dtemp->array_used = 0; /* nothing used yet */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	179 dtemp->array_growth_count = 0; /* haven't grown any */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	180
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	181 /* force maximum hash chain length to a reasonable value */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	182 i = max_chain_length;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	183 if (i < 1 \|\| i > 200)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	184 i = 200;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	185 dtemp->chains = ltemp; /* connect hash table */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	186 dtemp->longest_chain_length = 0; /* nothing in table yet */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	187 dtemp->allowable_chain_length = i; /* chain length limit */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	188 dtemp->table_size = initial_hash_chains; /* size of hash table */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	189 dtemp->hash_mask = initial_hash_chains - 1; /* mask for mod() function */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	190 dtemp->hash_growth_count = 0; /* haven't grown any */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	191
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	192 /* string table is empty */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	193 for (i = 0 ; i < j ; i++) {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	194 dtemp->string_table[i].string_offset = DICT_ENTRY_NONE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	195 dtemp->string_table[i].count = 0;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	196 dtemp->string_table[i].next = DICT_ENTRY_NONE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	197 dtemp->string_table[i].flags = 0;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	198 dtemp->string_table[i].hash_value = 0;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	199 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	200
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	201 /* no entries chained */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	202 for (i = 0; i < initial_hash_chains; i++)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	203 dtemp->chains[i] = DICT_ENTRY_NONE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	204
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	205 /* Initialize hook to extended dictionary structure */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	206 dtemp->ext = NULL;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	207
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	208 /* Set up the parameter array */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	209 if ( dict_set_parm_ids(dtemp) == FALSE )
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	210 goto err_exit;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	211 if ( dict_set_parm_values(dtemp) == FALSE )
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	212 goto err_exit;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	213
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	214 /* Set up the Table of Contents */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	215 strcpy( dtemp->toc[0].id , "PARM" );
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	216 dtemp->toc[0].size = dtemp->sig->nparms * sizeof(DICT_PARM_ENTRY);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	217 dtemp->toc[0].ptr = dtemp->parm;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	218 dtemp->toc[0].type = 0;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	219
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	220 strcpy( dtemp->toc[1].id , "HASH" );
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	221 dtemp->toc[1].size = dtemp->table_size * sizeof(long);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	222 dtemp->toc[1].ptr = dtemp->chains;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	223 dtemp->toc[1].type = 0;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	224
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	225 strcpy( dtemp->toc[2].id , "STTB" );
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	226 dtemp->toc[2].size = dtemp->string_max * sizeof(char);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	227 dtemp->toc[2].ptr = dtemp->string_table;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	228 dtemp->toc[2].type = 0;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	229
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	230 strcpy( dtemp->toc[3].id , "STAR" );
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	231 dtemp->toc[3].size = dtemp->array_size * sizeof(STRING_ENTRY);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	232 dtemp->toc[3].ptr = dtemp->string_array;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	233 dtemp->toc[3].type = 0;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	234
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	235 /* Set up the signature */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	236 dtemp->sig->check_value = DICT_VALIDATE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	237 dtemp->sig->toc_size = tocsize;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	238 dtemp->sig->nparms = 14;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	239
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	240 return dtemp;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	241
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	242 /* error exit - saves duplicate code */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	243 err_exit:
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	244
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	245 dict_destroy( dtemp );
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	246 return NULL;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	247 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	248
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	249 /*************************************************************************
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	250 * dict_destroy: discard a dictionary and its contents
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	251 * multiple calls to destroy the same dictionary is safe
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	252 *
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	253 * dict - pointer to a dictionary to discard
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	254 *
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	255 * Returns: status code
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	256 * TRUE - dictionary destroyed
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	257 * FALSE - error when destroying dictionary
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	258 * Note: Does free the dictionary structure itself.
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	259 *************************************************************************/
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	260 BOOLEANC dict_destroy(DICTIONARY *dict)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	261 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	262 int i;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	263
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	264 /* have to point to something */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	265 if (dict == NULL)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	266 return FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	267
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	268 /* check value has to be OK */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	269 if (dict->check_value != DICT_VALIDATE)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	270 return FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	271
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	272 if ( (dict->sig==NULL) \|\| (dict->toc==NULL) \|\| (dict->parm==NULL) )
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	273 return FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	274
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	275 /* Free the type=0 tables */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	276 for ( i = 0 ; i < dict->sig->toc_size ; i++ ) {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	277 if ( dict->toc[i].ptr != NULL && dict->toc[i].type == 0 )
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	278 free( dict->toc[i].ptr );
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	279 } /* endfor */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	280
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	281 /* Free the Table of Contents and signature */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	282 free( dict->toc );
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	283 free( dict->sig );
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	284
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	285 /* Free the dictionary structure itself */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	286 free( dict );
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	287
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	288 return TRUE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	289 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	290
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	291 /*************************************************************************
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	292 * dict_insert: add entries into the dictionary, growing as necessary
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	293 *
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	294 * dict - pointer to dictionary to insert into
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	295 * s - string to insert
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	296 * count - count of occurences of string
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	297 * flags - flag bits associated with the string
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	298 * number - pointer to long to return word number
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	299 *
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	300 * Returns: pointer to new entry in dictionary
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	301 * NULL - error during insert
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	302 * non-NULL - pointer to inserted or updated entry
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	303 *
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	304 * Notes: if the entry already exists, increment the count.
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	305 * If NULL is returned, the dictionary state can no longer
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	306 * be trusted. Terminating with an error code would be
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	307 * safest.
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	308 *************************************************************************/
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	309 STRING_ENTRY dict_insert(DICTIONARY dict, char *s,
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	310 const long occurences, const unsigned long flags,
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	311 void any_ptr, long number)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	312 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	313 unsigned long hash_value;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	314 long hash_index;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	315 long string_index = -1;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	316 long he2;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	317 int chain_len;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	318
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	319 /* have to point to something */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	320 if (dict == NULL)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	321 return FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	322
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	323 /* check value has to be OK */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	324 if (dict->check_value != DICT_VALIDATE)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	325 return FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	326
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	327 /* must have a string */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	328 if (s == NULL) {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	329 *number = -1;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	330 return FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	331 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	332
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	333 /* must be non-NULL */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	334 if (s[0] == '\0') {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	335 *number = -1;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	336 return FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	337 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	338
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	339 /* figure out which chain it should go into */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	340 hash_value = hash_string(s);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	341 hash_index = hash_value & dict->hash_mask;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	342
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	343 /* look for the entry in the chain */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	344 for (he2 = dict->chains[hash_index], chain_len = 0; he2 != DICT_ENTRY_NONE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	345 he2 = dict->string_table[he2].next, chain_len++) {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	346 char *sa = &dict->string_array[dict->string_table[he2].string_offset];
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	347
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	348 /* compare hash_value and then string, in that order, for speed */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	349 if (dict->string_table[he2].hash_value == hash_value && !strcmp(s, sa)) {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	350 string_index = he2;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	351 break;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	352 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	353 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	354
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	355 /* string wasn't found */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	356 if (string_index < 0) {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	357 /* make sure there is room in string entry table */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	358 if (dict->entry_count + 1 > dict->string_max) {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	359 /* make new table 20% bigger */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	360 dict->string_max = (dict->string_max * 6) / 5;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	361 dict->string_table = (STRING_ENTRY *)realloc(dict->string_table,
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	362 sizeof(STRING_ENTRY) * dict->string_max);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	363 if (dict->string_table == NULL)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	364 return NULL;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	365 dict->string_growth_count++;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	366 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	367 string_index = dict->entry_count;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	368 dict->entry_count++;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	369
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	370 /* make sure there is room in the string array */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	371 if (dict->array_used + (long)strlen(s) + 1 > dict->array_size) {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	372 dict->array_size = (dict->array_size * 6) / 5;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	373 dict->string_array = (char *) realloc(dict->string_array,
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	374 dict->array_size);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	375 if (dict->string_array == NULL)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	376 return NULL;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	377 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	378
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	379 /* fill in starting values */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	380 strcpy(&dict->string_array[dict->array_used], s);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	381 dict->string_table[string_index].string_offset = dict->array_used;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	382 dict->array_used += (long) strlen(s) + 1;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	383 dict->string_table[string_index].count = 0 ;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	384 dict->string_table[string_index].flags = DICT_NONE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	385 dict->string_table[string_index].any_ptr = any_ptr; /* (AK:04/04/95) */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	386 dict->string_table[string_index].hash_value = hash_value;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	387
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	388 /* hook entry at beginning of chain */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	389 dict->string_table[string_index].next = dict->chains[hash_index];
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	390 dict->chains[hash_index] = string_index;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	391
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	392 /* record chain lengths */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	393 chain_len++;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	394 if (chain_len > dict->longest_chain_length)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	395 dict->longest_chain_length = chain_len;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	396
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	397 /* if a chain is too long */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	398 if (chain_len > dict->allowable_chain_length) {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	399 long new_size = dict->table_size * 4;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	400 long new_mask = new_size - 1;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	401 long *hetemp;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	402 long i;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	403 int longest_chain;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	404
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	405 if ((hetemp = (long )malloc(sizeof(long) new_size)) == NULL)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	406 return NULL;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	407
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	408 /* hash table chains are empty */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	409 for (i = 0; i < new_size; i++)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	410 hetemp[i] = DICT_ENTRY_NONE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	411
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	412 /* reset all chains */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	413 for (i = 0; i < dict->entry_count; i++)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	414 dict->string_table[i].next = DICT_ENTRY_NONE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	415
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	416 /* recreate hash table entries by reinserting all strings */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	417 for (i = 0; i < dict->entry_count; i++) {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	418 long he = dict->string_table[i].hash_value & new_mask;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	419
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	420 dict->string_table[i].next = hetemp[he];
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	421 hetemp[he] = i;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	422 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	423
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	424 /* find longest chain length */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	425 for (i = 0, longest_chain = 0; i < new_size; i++) {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	426 int len;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	427 long cur;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	428
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	429 for (cur = hetemp[i], len = 0; cur != DICT_ENTRY_NONE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	430 cur = dict->string_table[cur].next)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	431 len++;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	432 ;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	433 if (len > longest_chain)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	434 longest_chain = len;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	435 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	436
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	437 /* delete old table and attach new one */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	438 free(dict->chains);
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	439 dict->chains = hetemp;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	440 dict->longest_chain_length = longest_chain;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	441 dict->table_size = new_size;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	442 dict->hash_mask = new_mask;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	443
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	444 /* keep track of growth */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	445 dict->hash_growth_count++;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	446 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	447 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	448
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	449 dict->string_table[string_index].count += occurences;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	450 dict->string_table[string_index].flags \|= flags;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	451 *number = string_index;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	452
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	453 return &dict->string_table[string_index];
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	454 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	455
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	456 /*************************************************************************
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	457 * dict_delete: deletes an entry from the dictionary
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	458 * (Actually, only decrements the entry's count)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	459 *
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	460 * dict - pointer to dictionary to delete
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	461 * s - string to find and delete
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	462 * count - count to decrement entry by
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	463 *
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	464 * Returns: status code
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	465 * TRUE - entry has been deleted
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	466 * FALSE - entry wasn't found or error occured
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	467 *************************************************************************/
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	468 BOOLEANC dict_delete(const DICTIONARY dict, const char s, const long count)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	469 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	470 STRING_ENTRY *se;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	471 long n;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	472
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	473 /* find the string */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	474 if ((se = dict_search(dict, s, &n)) == NULL)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	475 return FALSE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	476
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	477 /* decrement count and make sure it stays valid */
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	478 se->count -= count;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	479 if (se->count < 0)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	480 se->count = 0;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	481 return TRUE;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	482 }
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	483
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	484 /*************************************************************************
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	485 * dict_search: look for entries in the dictionary
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	486 *
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	487 * dict - pointer to dictionary to search
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	488 * s - string to search for
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	489 * number - pointer to long to return string number
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	490 *
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	491 * Returns: pointer to string entry
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	492 * NULL - entry not found
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	493 * non-NULL - pointer to string entry
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	494 *************************************************************************/
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	495 STRING_ENTRY dict_search(const DICTIONARY dict, const char *s,
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	496 long *number)
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	497 {
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	498 unsigned long hash_value;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	499 long hash_index;
c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490) John "Elwin" Edwards parents: diff changeset	500 long string_index = -1;

256

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1 /*

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

2 dict.c

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

3

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

4 UltraRogue: The Ultimate Adventure in the Dungeons of Doom

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

7

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

8 See the file LICENSE.TXT for full copyright and licensing information.

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

9 */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

10

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

11 /******************

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

12 ** Change history:

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

13 **

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

14 ** (AK:04/03/95) - In dict_create, initialize hook for extensions to dictionary structure.

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

15 ** (AK:04/04/95) - In dict_insert, only set any_ptr when a new string entry is created.

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

16 ** (AK:04/17/95) - Added dict_union and dict_merge.

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

17 ** (AK:04/18/95) - In dict_create, added code to create signature,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

18 ** table of contents, and parameter array.

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

19 ** (AK:04/18/95) - Revised dict_load, dict_save

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

20 ** (AK:04/18/95) - Added dict_import

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

21 **

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

22 ******************/

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

23

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

24 static char sccsid[] = "%W% %G%";

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

25

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

26 #include <stdlib.h>

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

27 #include <string.h>

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

28 #if !defined(OS2) && !defined(_WIN32)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

29 #include <unistd.h>

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

30 #endif

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

31

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

32 #include "dict.h"

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

33 #include "dictutil.h"

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

34

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

35 #define BUFLEN 300

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

36

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

37 /*************************************************************************

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

38 * Generic dictionary and hash table functions for word and

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

39 * string storage.

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

40 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

41 * Implements generic dictionary management by using a

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

42 * hash table with direct chaining. All terms are stored in a

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

43 * separate, unsorted, string table. When inserting into the

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

44 * hash table exceeds the current size, allocate a new hash table

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

45 * and rehash the old contents into the new table. When the string

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

46 * table fills, append more empty entries onto the old table and

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

47 * continue adding. Inserting a string that already exists increments

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

48 * the count for the string. Deleting a string only decrements the

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

49 * count to no less than 0. This will allow a 0 occurence string to be

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

50 * retrieved. To remove the 0 occurence string table entries, you must

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

51 * rebuild the dictionary. Merging from one dictionary to a new one will

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

52 * do this because it only copies nonzero occurences.

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

53 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

54 * Assumptions:

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

55 * unsigned long >= 32 bits

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

56 * int >= 16 bits

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

57 * char == 8 bits

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

58 * number of entries < 2^28

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

59 *************************************************************************/

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

60

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

61 /*************************************************************************

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

62 * hash_string: calculate hash value for string, modified

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

63 * version of hashpjw() from the new Dragon book.

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

64 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

65 * s - string to calculate hash for

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

66 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

67 * Returns: hash value

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

68 *************************************************************************/

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

69 static unsigned long hash_string(const char *s)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

70 {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

71 unsigned long h = 0;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

72 unsigned long g = 0;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

73

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

74 while (*s) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

75 h <<= 4;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

76 h += *s++;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

77 if ((g = h & 0xf0000000) != 0)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

78 h ^= g >> 24;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

79 }

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

80 return h ^ g;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

81 }

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

82

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

83 /*************************************************************************

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

84 * dict_create: create a dictionary and initialize its structures

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

85 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

86 * toc_size - number of entries in table of contents ( >= 4 )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

87 * initial_string_count - number of strings to hold as initial allocation

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

88 * initial_hash_chains - size of hash table, must be power of 4

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

89 * max_chain_length - max number of elements in hash chain before signalling growth

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

90 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

91 * Returns: pointer to dictionary

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

92 * NULL - error creating dictionary

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

93 * non-NULL - sucessful creation

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

94 *************************************************************************/

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

95

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

96 DICTIONARY *dict_create(

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

97 const long toc_size,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

98 const long initial_string_count,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

99 const long initial_hash_chains,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

100 const long max_chain_length )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

101 {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

102 DICTIONARY *dtemp = NULL;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

103 STRING_ENTRY *stemp = NULL;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

104 long *ltemp = NULL;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

105 char *sltemp;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

106 long i, j, tocsize;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

107

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

108 /* check for a power of 4 in number of initial hash entries */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

109 switch(initial_hash_chains) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

110 case 0x00000004:

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

111 case 0x00000010:

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

112 case 0x00000040:

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

113 case 0x00000100:

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

114 case 0x00000400:

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

115 case 0x00001000:

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

116 case 0x00004000:

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

117 case 0x00010000:

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

118 case 0x00040000:

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

119 case 0x00100000:

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

120 case 0x00400000:

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

121 case 0x01000000:

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

122 case 0x04000000:

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

123 break;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

124 default:

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

125 return NULL;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

126 }

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

127

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

128 /* Allocate the dictionary structure */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

129 if ((dtemp = (DICTIONARY *)malloc(sizeof(DICTIONARY))) == NULL)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

130 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

131

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

132 /* string count has to be within range */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

133 j = initial_string_count;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

134 if (j > 0x04000000)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

135 return NULL;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

136

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

137 /* force a reasonable value */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

138 if (j < 100)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

139 j = 100;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

140

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

141 /* Allocate the string table and string array */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

142 if ((stemp = (STRING_ENTRY *)malloc(sizeof(STRING_ENTRY) * j)) == NULL)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

143 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

144 if ((sltemp = (char *)malloc(8 * j)) == NULL)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

145 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

146

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

147 /* Allocate the hash table */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

148 if ((ltemp = (long *)malloc(sizeof(long) * initial_hash_chains)) == NULL)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

149 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

150

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

151 /* Allocate the parameter array */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

152 if ( (dtemp->parm = (DICT_PARM_ENTRY *)malloc(14*sizeof(DICT_PARM_ENTRY))) == NULL)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

153 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

154

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

155 /* Allocate the signature structure */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

156 if ( (dtemp->sig=(DICT_SIG*)malloc(sizeof(DICT_SIG))) == NULL )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

157 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

158

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

159 /* Allocate the Table of Contents */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

160 tocsize = toc_size;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

161 if ( tocsize < 4 )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

162 tocsize = 4;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

163 dtemp->sig->toc_size = tocsize;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

164 if ( (dtemp->toc=(DICT_TOC_ENTRY*)malloc(dtemp->sig->toc_size*sizeof(DICT_TOC_ENTRY))) == NULL )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

165 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

166

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

167 dtemp->check_value = DICT_VALIDATE; /* validation value */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

168 dtemp->flags = DICT_NONE; /* no flags set */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

169 dtemp->entry_count = 0; /* nothing in either table */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

170

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

171 dtemp->string_table = stemp; /* connect string table */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

172 dtemp->string_max = j; /* size of string table */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

173 dtemp->scan_string_index = DICT_ENTRY_NONE; /* not pointing to anything in scan */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

174 dtemp->string_growth_count = 0; /* haven't grown any */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

175

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

176 dtemp->string_array = sltemp; /* character array for strings */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

177 dtemp->array_size = j * 8; /* how many bytes available */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

178 dtemp->array_used = 0; /* nothing used yet */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

179 dtemp->array_growth_count = 0; /* haven't grown any */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

180

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

181 /* force maximum hash chain length to a reasonable value */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

182 i = max_chain_length;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

183 if (i < 1 || i > 200)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

184 i = 200;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

185 dtemp->chains = ltemp; /* connect hash table */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

186 dtemp->longest_chain_length = 0; /* nothing in table yet */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

187 dtemp->allowable_chain_length = i; /* chain length limit */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

188 dtemp->table_size = initial_hash_chains; /* size of hash table */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

189 dtemp->hash_mask = initial_hash_chains - 1; /* mask for mod() function */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

190 dtemp->hash_growth_count = 0; /* haven't grown any */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

191

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

192 /* string table is empty */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

193 for (i = 0 ; i < j ; i++) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

194 dtemp->string_table[i].string_offset = DICT_ENTRY_NONE;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

195 dtemp->string_table[i].count = 0;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

196 dtemp->string_table[i].next = DICT_ENTRY_NONE;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

197 dtemp->string_table[i].flags = 0;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

198 dtemp->string_table[i].hash_value = 0;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

199 }

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

200

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

201 /* no entries chained */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

202 for (i = 0; i < initial_hash_chains; i++)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

203 dtemp->chains[i] = DICT_ENTRY_NONE;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

204

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

205 /* Initialize hook to extended dictionary structure */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

206 dtemp->ext = NULL;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

207

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

208 /* Set up the parameter array */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

209 if ( dict_set_parm_ids(dtemp) == FALSE )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

210 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

211 if ( dict_set_parm_values(dtemp) == FALSE )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

212 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

213

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

214 /* Set up the Table of Contents */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

215 strcpy( dtemp->toc[0].id , "PARM" );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

216 dtemp->toc[0].size = dtemp->sig->nparms * sizeof(DICT_PARM_ENTRY);

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

217 dtemp->toc[0].ptr = dtemp->parm;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

218 dtemp->toc[0].type = 0;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

219

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

220 strcpy( dtemp->toc[1].id , "HASH" );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

221 dtemp->toc[1].size = dtemp->table_size * sizeof(long);

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

222 dtemp->toc[1].ptr = dtemp->chains;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

223 dtemp->toc[1].type = 0;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

224

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

225 strcpy( dtemp->toc[2].id , "STTB" );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

226 dtemp->toc[2].size = dtemp->string_max * sizeof(char);

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

227 dtemp->toc[2].ptr = dtemp->string_table;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

228 dtemp->toc[2].type = 0;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

229

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

230 strcpy( dtemp->toc[3].id , "STAR" );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

231 dtemp->toc[3].size = dtemp->array_size * sizeof(STRING_ENTRY);

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

232 dtemp->toc[3].ptr = dtemp->string_array;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

233 dtemp->toc[3].type = 0;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

234

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

235 /* Set up the signature */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

236 dtemp->sig->check_value = DICT_VALIDATE;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

237 dtemp->sig->toc_size = tocsize;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

238 dtemp->sig->nparms = 14;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

239

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

240 return dtemp;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

241

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

242 /* error exit - saves duplicate code */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

243 err_exit:

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

244

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

245 dict_destroy( dtemp );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

246 return NULL;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

247 }

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

248

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

249 /*************************************************************************

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

250 * dict_destroy: discard a dictionary and its contents

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

251 * multiple calls to destroy the same dictionary is safe

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

252 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

253 * dict - pointer to a dictionary to discard

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

254 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

255 * Returns: status code

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

256 * TRUE - dictionary destroyed

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

257 * FALSE - error when destroying dictionary

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

258 * Note: Does free the dictionary structure itself.

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

259 *************************************************************************/

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

260 BOOLEANC dict_destroy(DICTIONARY *dict)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

261 {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

262 int i;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

263

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

264 /* have to point to something */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

265 if (dict == NULL)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

266 return FALSE;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

267

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

268 /* check value has to be OK */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

269 if (dict->check_value != DICT_VALIDATE)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

270 return FALSE;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

271

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

272 if ( (dict->sig==NULL) || (dict->toc==NULL) || (dict->parm==NULL) )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

273 return FALSE;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

274

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

275 /* Free the type=0 tables */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

276 for ( i = 0 ; i < dict->sig->toc_size ; i++ ) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

277 if ( dict->toc[i].ptr != NULL && dict->toc[i].type == 0 )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

278 free( dict->toc[i].ptr );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

279 } /* endfor */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

280

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

281 /* Free the Table of Contents and signature */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

282 free( dict->toc );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

283 free( dict->sig );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

284

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

285 /* Free the dictionary structure itself */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

286 free( dict );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

287

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

288 return TRUE;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

289 }

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

290

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

291 /*************************************************************************

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

292 * dict_insert: add entries into the dictionary, growing as necessary

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

293 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

294 * dict - pointer to dictionary to insert into

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

295 * s - string to insert

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

296 * count - count of occurences of string

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

297 * flags - flag bits associated with the string

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

298 * number - pointer to long to return word number

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

299 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

300 * Returns: pointer to new entry in dictionary

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

301 * NULL - error during insert

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

302 * non-NULL - pointer to inserted or updated entry

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

303 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

304 * Notes: if the entry already exists, increment the count.

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

305 * If NULL is returned, the dictionary state can no longer

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

306 * be trusted. Terminating with an error code would be

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

307 * safest.

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

308 *************************************************************************/

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

309 STRING_ENTRY *dict_insert(DICTIONARY *dict, char *s,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

310 const long occurences, const unsigned long flags,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

311 void *any_ptr, long *number)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

312 {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

313 unsigned long hash_value;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

314 long hash_index;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

315 long string_index = -1;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

316 long he2;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

317 int chain_len;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

318

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

319 /* have to point to something */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

320 if (dict == NULL)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

321 return FALSE;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

322

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

323 /* check value has to be OK */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

324 if (dict->check_value != DICT_VALIDATE)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

325 return FALSE;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

326

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

327 /* must have a string */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

328 if (s == NULL) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

329 *number = -1;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

330 return FALSE;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

331 }

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

332

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

333 /* must be non-NULL */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

334 if (s[0] == '\0') {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

335 *number = -1;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

336 return FALSE;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

337 }

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

338

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

339 /* figure out which chain it should go into */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

340 hash_value = hash_string(s);

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

341 hash_index = hash_value & dict->hash_mask;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

342

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

343 /* look for the entry in the chain */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

344 for (he2 = dict->chains[hash_index], chain_len = 0; he2 != DICT_ENTRY_NONE;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

345 he2 = dict->string_table[he2].next, chain_len++) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

346 char *sa = &dict->string_array[dict->string_table[he2].string_offset];

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

347

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

348 /* compare hash_value and then string, in that order, for speed */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

349 if (dict->string_table[he2].hash_value == hash_value && !strcmp(s, sa)) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

350 string_index = he2;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

351 break;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

352 }

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

353 }

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

354

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

355 /* string wasn't found */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

356 if (string_index < 0) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

357 /* make sure there is room in string entry table */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

358 if (dict->entry_count + 1 > dict->string_max) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

359 /* make new table 20% bigger */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

360 dict->string_max = (dict->string_max * 6) / 5;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

361 dict->string_table = (STRING_ENTRY *)realloc(dict->string_table,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

362 sizeof(STRING_ENTRY) * dict->string_max);

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

363 if (dict->string_table == NULL)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

364 return NULL;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

365 dict->string_growth_count++;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

366 }

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

367 string_index = dict->entry_count;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

368 dict->entry_count++;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

369

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

370 /* make sure there is room in the string array */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

371 if (dict->array_used + (long)strlen(s) + 1 > dict->array_size) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

372 dict->array_size = (dict->array_size * 6) / 5;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

373 dict->string_array = (char *) realloc(dict->string_array,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

374 dict->array_size);

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

375 if (dict->string_array == NULL)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

376 return NULL;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

377 }

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

378

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

379 /* fill in starting values */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

380 strcpy(&dict->string_array[dict->array_used], s);

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

381 dict->string_table[string_index].string_offset = dict->array_used;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

382 dict->array_used += (long) strlen(s) + 1;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

383 dict->string_table[string_index].count = 0 ;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

384 dict->string_table[string_index].flags = DICT_NONE;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

385 dict->string_table[string_index].any_ptr = any_ptr; /* (AK:04/04/95) */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

386 dict->string_table[string_index].hash_value = hash_value;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

387

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

388 /* hook entry at beginning of chain */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

389 dict->string_table[string_index].next = dict->chains[hash_index];

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

390 dict->chains[hash_index] = string_index;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

391

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

392 /* record chain lengths */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

393 chain_len++;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

394 if (chain_len > dict->longest_chain_length)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

395 dict->longest_chain_length = chain_len;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

396

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

397 /* if a chain is too long */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

398 if (chain_len > dict->allowable_chain_length) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

399 long new_size = dict->table_size * 4;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

400 long new_mask = new_size - 1;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

401 long *hetemp;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

402 long i;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

403 int longest_chain;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

404

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

405 if ((hetemp = (long *)malloc(sizeof(long) * new_size)) == NULL)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

406 return NULL;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

407

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

408 /* hash table chains are empty */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

409 for (i = 0; i < new_size; i++)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

410 hetemp[i] = DICT_ENTRY_NONE;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

411

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

412 /* reset all chains */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

413 for (i = 0; i < dict->entry_count; i++)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

414 dict->string_table[i].next = DICT_ENTRY_NONE;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

415

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

416 /* recreate hash table entries by reinserting all strings */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

417 for (i = 0; i < dict->entry_count; i++) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

418 long he = dict->string_table[i].hash_value & new_mask;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

419

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

420 dict->string_table[i].next = hetemp[he];

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

421 hetemp[he] = i;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

422 }

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

423

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

424 /* find longest chain length */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

425 for (i = 0, longest_chain = 0; i < new_size; i++) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

426 int len;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

427 long cur;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

428

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

429 for (cur = hetemp[i], len = 0; cur != DICT_ENTRY_NONE;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

430 cur = dict->string_table[cur].next)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

431 len++;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

432 ;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

433 if (len > longest_chain)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

434 longest_chain = len;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

435 }

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

436

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

437 /* delete old table and attach new one */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

438 free(dict->chains);

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

439 dict->chains = hetemp;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

440 dict->longest_chain_length = longest_chain;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

441 dict->table_size = new_size;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

442 dict->hash_mask = new_mask;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

443

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

444 /* keep track of growth */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

445 dict->hash_growth_count++;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

446 }

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

447 }

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

448

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

449 dict->string_table[string_index].count += occurences;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

450 dict->string_table[string_index].flags |= flags;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

451 *number = string_index;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

452

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

453 return &dict->string_table[string_index];

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

454 }

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

455

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

456 /*************************************************************************

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

457 * dict_delete: deletes an entry from the dictionary

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

458 * (Actually, only decrements the entry's count)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

459 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

460 * dict - pointer to dictionary to delete

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

461 * s - string to find and delete

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

462 * count - count to decrement entry by

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

463 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

464 * Returns: status code

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

465 * TRUE - entry has been deleted

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

466 * FALSE - entry wasn't found or error occured

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

467 *************************************************************************/

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

468 BOOLEANC dict_delete(const DICTIONARY *dict, const char *s, const long count)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

469 {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

470 STRING_ENTRY *se;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

471 long n;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

472

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

473 /* find the string */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

474 if ((se = dict_search(dict, s, &n)) == NULL)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

475 return FALSE;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

476

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

477 /* decrement count and make sure it stays valid */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

478 se->count -= count;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

479 if (se->count < 0)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

480 se->count = 0;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

481 return TRUE;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

482 }

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

483

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

484 /*************************************************************************

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

485 * dict_search: look for entries in the dictionary

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

486 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

487 * dict - pointer to dictionary to search

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

488 * s - string to search for

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

489 * number - pointer to long to return string number

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

490 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

491 * Returns: pointer to string entry

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

492 * NULL - entry not found

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

493 * non-NULL - pointer to string entry

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

494 *************************************************************************/

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

495 STRING_ENTRY *dict_search(const DICTIONARY *dict, const char *s,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

496 long *number)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

497 {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

498 unsigned long hash_value;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

499 long hash_index;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

500 long string_index = -1;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

501 long he;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

502

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

503 /* have to point to something */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

504 if (dict == NULL)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

505 return NULL;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

506

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

507 /* check value has to be OK */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

508 if (dict->check_value != DICT_VALIDATE)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

509 return NULL;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

510

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

511 /* must have a string */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

512 if (s == NULL) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

513 *number = -1;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

514 return NULL;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

515 }

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

516

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

517 /* must be non-NULL */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

518 if (s[0] == '\0') {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

519 *number = -1;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

520 return FALSE;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

521 }

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

522

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

523 /* figure out which chain it should be in */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

524 hash_value = hash_string(s);

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

525 hash_index = hash_value & dict->hash_mask;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

526

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

527 /* look for the entry in the chain */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

528 for (he = dict->chains[hash_index]; he != DICT_ENTRY_NONE;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

529 he = dict->string_table[he].next) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

530 char *sa = (char*)(&dict->string_array[dict->string_table[he].string_offset]);

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

531

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

532 /* compare hash_value and then string, in that order, for speed */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

533 if (dict->string_table[he].hash_value == hash_value && !strcmp(s, sa)) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

534 string_index = he;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

535 break;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

536 }

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

537 }

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

538 if (string_index < 0) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

539 *number = -1;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

540 return NULL;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

541 }

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

542

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

543 *number = string_index;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

544 return dict->string_table+string_index;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

545 }

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

546

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

547 /*************************************************************************

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

548 * dict_union: merges contents of 2 dictionaries into

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

549 * a third

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

550 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

551 * dict1 - pointer to dictionary 1

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

552 * dict2 - pointer to dictionary 2

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

553 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

554 * Returns: dictionary pointer

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

555 * NULL - failed to merge

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

556 * non-NULL - pointer to new dictionary

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

557 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

558 * Notes: entries of the same string have their counts

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

559 * added and their flags ORed together.

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

560 *************************************************************************/

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

561 DICTIONARY *dict_union( const DICTIONARY *dict1 , const DICTIONARY *dict2 )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

562 {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

563 DICTIONARY *dict = NULL;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

564 STRING_ENTRY *se, *se2;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

565 long initial_string_count, initial_hash_chains, max_chain_length;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

566 long i, string_index;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

567

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

568 /***********

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

569 ** Initialize the new dictionary.

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

570 ***********/

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

571

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

572 if ( dict1==NULL || dict2==NULL )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

573 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

574 if ((dict=(DICTIONARY *)malloc(sizeof(DICTIONARY))) == NULL)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

575 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

576

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

577 initial_string_count = dict1->string_max;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

578 initial_hash_chains = dict1->table_size;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

579 max_chain_length = dict1->allowable_chain_length;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

580 dict = dict_create( 4,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

581 initial_string_count,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

582 initial_hash_chains,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

583 max_chain_length );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

584

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

585 /***********

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

586 ** Copy the entries from dict1 into the new dictionary.

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

587 ***********/

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

588

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

589 for ( i = 0 ; i < dict1->entry_count ; i++ ) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

590 se = (STRING_ENTRY*)&dict1->string_table[i];

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

591 if ( se->count > 0 ) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

592 se2 = dict_insert(

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

593 dict,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

594 dict1->string_array+se->string_offset,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

595 se->count,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

596 se->flags,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

597 NULL,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

598 &string_index );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

599 if ( se2 == NULL )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

600 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

601 } /* endif */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

602 } /* endfor */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

603

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

604 /* Merge the entries from dict2 into the new dictionary. */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

605 if ( dict_merge(dict,dict2,FALSE) == FALSE )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

606 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

607

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

608 /* Success. Return a pointer to the new dictionary. */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

609 return( dict );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

610

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

611 /* Failure. Ignominiously erase our tracks and return NULL. */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

612 err_exit:

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

613 dict_destroy( dict );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

614 return NULL;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

615 }

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

616

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

617 /*************************************************************************

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

618 * dict_merge: merges the contents of a dictionary into

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

619 * another one, updating the contents of the destination

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

620 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

621 * dst - dictionary to update

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

622 * src - dictionary to add

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

623 * move - boolean flag

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

624 * TRUE - move to dest

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

625 * FALSE - copy to dest

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

626 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

627 * Returns: status code

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

628 * TRUE - merge completed

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

629 * FALSE - error on merge

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

630 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

631 * Notes: entries of the same string have their counts

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

632 * added. At the end of a move, src is empty. If there

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

633 * is an error during a move, the contents of both

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

634 * dictionaries cannot be trusted.

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

635 *************************************************************************/

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

636 BOOLEANC dict_merge(const DICTIONARY *dst, const DICTIONARY *src, const BOOLEANC move)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

637 {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

638 STRING_ENTRY *se, *se2;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

639 DICTIONARY *dict1, *dict2;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

640 long i, string_index, index;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

641

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

642 dict1 = (DICTIONARY*)src;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

643 dict2 = (DICTIONARY*)dst;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

644

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

645 /***********

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

646 ** Copy the dictionary entries into the new dictionary.

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

647 ***********/

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

648

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

649 for ( i = 0 ; i < dict1->entry_count ; i++ ) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

650 se = (STRING_ENTRY*)&dict1->string_table[i];

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

651 if ( se->count > 0 ) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

652 se2 = dict_insert(

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

653 dict2,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

654 dict1->string_array+se->string_offset,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

655 se->count,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

656 se->flags,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

657 NULL,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

658 &string_index );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

659 if ( se2 == NULL )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

660 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

661 } /* endif */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

662 } /* endfor */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

663

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

664 /***********

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

665 ** Set up the dictionary parameter vector.

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

666 ***********/

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

667

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

668 if ( dict_set_parm_values(dict2) == FALSE )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

669 return( FALSE );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

670

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

671 /***********

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

672 ** Update the table of contents.

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

673 ** PARM HASH STTB STAR

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

674 ***********/

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

675

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

676 if ( (index=dict_toc_index(dict2,"HASH")) == -1)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

677 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

678 dict2->toc[index].size = dict2->table_size * sizeof(long);

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

679 dict2->toc[index].ptr = dict2->chains;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

680

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

681 if ( (index=dict_toc_index(dict2,"STTB")) == -1)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

682 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

683 dict2->toc[index].size = dict2->string_max * sizeof(char);

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

684 dict2->toc[index].ptr = dict2->string_table;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

685

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

686 if ( (index=dict_toc_index(dict2,"STAR")) == -1)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

687 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

688 dict2->toc[index].size = dict2->array_size * sizeof(STRING_ENTRY);

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

689 dict2->toc[index].ptr = dict2->string_array;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

690

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

691 /***********

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

692 ** Update the signature

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

693 ***********/

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

694

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

695 dict2->sig->checksum =

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

696 compute_checksum( 4*sizeof(DICT_TOC_ENTRY) , (char*)(dict2->toc) );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

697

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

698 /***********

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

699 ** If this is a move, destroy the source dictionary

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

700 ***********/

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

701

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

702 if ( move == TRUE )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

703 if ( dict_destroy(dict1) == FALSE )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

704 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

705

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

706 /***********

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

707 ** Success

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

708 ***********/

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

709

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

710 return( TRUE );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

711

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

712 /***********

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

713 ** Failure

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

714 ***********/

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

715

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

716 err_exit:

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

717 dict_destroy( dict2 );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

718 return FALSE;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

719 }

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

720

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

721 /*************************************************************************

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

722 * dict_string_by_number: return string pointer for

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

723 * a given string number

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

724 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

725 * number - string number

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

726 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

727 * Returns: pointer to string entry

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

728 * NULL - entry not found

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

729 * non-NULL - pointer to string entry

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

730 *************************************************************************/

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

731 STRING_ENTRY *dict_string_by_number(const DICTIONARY *dict, const long number)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

732 {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

733 if (dict == NULL)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

734 return NULL;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

735

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

736 /* check value has to be OK */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

737 if (dict->check_value != DICT_VALIDATE)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

738 return NULL;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

739

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

740 /* string number has to be within range */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

741 if (number < 0 || number >= dict->entry_count)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

742 return NULL;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

743

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

744 return dict->string_table+number;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

745 }

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

746

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

747 /*************************************************************************

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

748 * dict_scan_begin: begin a scan of the dictionary

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

749 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

750 * dict - pointer to dictionary to scan

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

751 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

752 * Returns: status code

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

753 * TRUE - scan initialized

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

754 * FALSE - error

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

755 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

756 * Notes: if a scan is already in progress, it is

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

757 * abandoned and the scan is reset to the

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

758 * beginning.

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

759 *************************************************************************/

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

760 BOOLEANC dict_scan_begin(DICTIONARY *dict)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

761 {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

762 /* have to point to something */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

763 if (dict == NULL)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

764 return FALSE;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

765

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

766 /* check value has to be OK */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

767 if (dict->check_value != DICT_VALIDATE)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

768 return FALSE;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

769

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

770 /* point to first entry in string table */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

771 dict->scan_string_index = 0;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

772 return TRUE;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

773 }

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

774

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

775 /*************************************************************************

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

776 * dict_scan_next: get the next entry in a scan

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

777 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

778 * dict - pointer to dictionary to continue scanning

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

779 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

780 * Returns: pointer to string entry

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

781 * NULL - no more entries

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

782 * non-NULL - next string entry

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

783 *************************************************************************/

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

784 STRING_ENTRY *dict_scan_next(DICTIONARY *dict)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

785 {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

786 /* have to point to something */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

787 if (dict == NULL)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

788 return NULL;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

789

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

790 /* check value has to be OK */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

791 if (dict->check_value != DICT_VALIDATE)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

792 return NULL;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

793

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

794 /* scan index has to be within range */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

795 if (dict->scan_string_index < 0

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

796 || dict->scan_string_index > dict->entry_count)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

797 return NULL;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

798

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

799 /* for first non-empty table entry */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

800 while (dict->scan_string_index < dict->entry_count

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

801 && dict->string_table[dict->scan_string_index].count == 0)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

802 dict->scan_string_index++;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

803

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

804 /* past end of table? */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

805 if (dict->scan_string_index >= dict->entry_count)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

806 return NULL;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

807

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

808 return &dict->string_table[dict->scan_string_index++];

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

809 }

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

810

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

811

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

812 /*************************************************************************

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

813 * dict_load - load a compiled dictionary into memory

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

814 * creates a new dictionary

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

815 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

816 * fname - fully qualified file name

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

817 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

818 * Returns: pointer to created dictionary structure

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

819 * (NULL on failure)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

820 *************************************************************************/

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

821 DICTIONARY *dict_load(const char *fname)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

822 {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

823 DICTIONARY *dict = NULL;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

824 int code, index;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

825 FILE *fi;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

826 int ntoc;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

827

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

828 if ( (fi=fopen((char*)fname,"rb")) == NULL ) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

829 signal_error( "dict_load: could not open file" , (char*)fname , 0 );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

830 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

831 } /* endif */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

832

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

833 if ((dict = (DICTIONARY *)malloc(sizeof(DICTIONARY))) == NULL) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

834 /* signal_error( "dict_load: alloc failed" , "" , 0 ); */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

835 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

836 } /* endif */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

837

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

838 /* Read the dictionary signature record */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

839 if ((dict->sig = (DICT_SIG *)malloc(sizeof(DICT_SIG))) == NULL) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

840 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

841 } /* endif */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

842 code = block_read( fi , (char*)(dict->sig) , sizeof(DICT_SIG) , 0 );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

843 if ( code == -1 ) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

844 signal_error( "dict_load: could not read signature" , (char*)fname , 0 );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

845 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

846 } /* endif */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

847

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

848 if ( dict->sig->check_value != DICT_VALIDATE ) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

849 signal_error( "dict_load: could not validate file" , (char*)fname , 0 );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

850 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

851 } /* endif */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

852 dict->check_value = dict->sig->check_value;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

853

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

854 /* Read the dictionary Table of Contents */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

855 ntoc = dict->sig->toc_size;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

856 dict->toc = (DICT_TOC_ENTRY *) malloc( ntoc * sizeof(DICT_TOC_ENTRY) );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

857 if ( dict->toc == NULL ) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

858 signal_error( "dict_load: alloc of TOC failed" , "" , 0 );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

859 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

860 } /* endif */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

861 code = block_read( fi ,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

862 (char*)(dict->toc) ,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

863 ntoc * sizeof(DICT_TOC_ENTRY) ,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

864 sizeof(DICT_SIG) );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

865 if ( code == -1 ) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

866 signal_error( "dict_load: could not read Table of Contents" , (char*)fname , 0 );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

867 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

868 } /* endif */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

869

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

870 /* Read the dictionary parameters */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

871 dict->parm = (DICT_PARM_ENTRY *)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

872 dict_load_block( dict , "PARM" , fi , NULL );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

873 if ( dict->parm == NULL ) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

874 signal_error( "dict_load: could not load parameter table" , "" , 0 );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

875 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

876 } /* endif */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

877 index = dict_toc_index( dict , "PARM" );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

878 dict->sig->nparms = dict->toc[index].size / sizeof(DICT_PARM_ENTRY);

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

879

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

880 /* Set the parameter values in the dictionary structure */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

881 if ( dict_set_parm_variables(dict) == FALSE )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

882 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

883

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

884 /* Load the string array */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

885 dict->string_array = (char *)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

886 dict_load_block( dict , "STAR" , fi , NULL );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

887 if ( dict->string_array == NULL ) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

888 signal_error( "dict_load: could not load string array" , (char*)fname , 0 );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

889 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

890 } /* endif */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

891

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

892 /* Load the string table */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

893 dict->string_table = (STRING_ENTRY *)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

894 dict_load_block( dict , "STTB" , fi , NULL );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

895 if ( dict->string_table == NULL ) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

896 signal_error( "dict_load: could not load string table" , (char*)fname , 0 );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

897 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

898 } /* endif */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

899

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

900 /* Load the hash table */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

901 dict->chains = (long *)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

902 dict_load_block( dict , "HASH" , fi , NULL );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

903 if ( dict->chains == NULL ) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

904 signal_error( "dict_load: could not load hash table" , (char*)fname , 0 );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

905 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

906 } /* endif */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

907

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

908 /* Initialize the hook for dictionary extensions */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

909 dict->ext = NULL;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

910

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

911 /* Success */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

912 fclose( fi );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

913 return( dict );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

914

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

915 /* Failure */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

916 err_exit:

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

917 if ( fi != NULL )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

918 fclose( fi );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

919 dict_destroy( dict );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

920 return NULL;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

921 }

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

922

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

923

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

924 /*************************************************************************

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

925 * dict_save - save a dictionary from memory into a file

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

926 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

927 * dict - pointer to dictionary to save

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

928 * fname - full qualified file name prefix of dictionary

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

929 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

930 * Returns: status code

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

931 * TRUE - dictionary was saved sucessfully

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

932 * FALSE - error during save

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

933 *************************************************************************/

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

934 BOOLEANC dict_save( DICTIONARY *dict, const char *fname )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

935 {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

936 int index, ret_code;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

937 FILE *fo = NULL;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

938

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

939 /* Have to be pointing at a valid dictionary */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

940 if ( dict == NULL || dict->sig->check_value != DICT_VALIDATE )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

941 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

942

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

943 /* Open the file for output */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

944 if ( (fo=fopen((char*)fname,"wb")) == NULL )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

945 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

946

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

947 /* Make the table of contents entries current */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

948 /* Note: This will not be necessary once the data is stored in EVECTORs */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

949

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

950 if ( (index=dict_toc_index(dict,"PARM")) == -1 )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

951 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

952 dict->toc[index].size = dict->sig->nparms * sizeof(DICT_PARM_ENTRY);

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

953 dict->toc[index].ptr = dict->parm;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

954

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

955 if ( (index=dict_toc_index(dict,"STAR")) == -1 )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

956 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

957 dict->toc[index].size = dict->array_size * sizeof(char);

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

958 dict->toc[index].ptr = dict->string_array;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

959

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

960 if ( (index=dict_toc_index(dict,"STTB")) == -1 )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

961 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

962 dict->toc[index].size = dict->string_max * sizeof(STRING_ENTRY);

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

963 dict->toc[index].ptr = dict->string_table;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

964

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

965 if ( (index=dict_toc_index(dict,"HASH")) == -1 )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

966 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

967 dict->toc[index].size = dict->table_size * sizeof(long);

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

968 dict->toc[index].ptr = dict->chains;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

969

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

970 /* Reset the TOC offsets and checksums for ALL tables */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

971 /* (not just type=0 tables) */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

972 dict_reset_toc_offsets( dict );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

973

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

974 /* Set the dictionary parm structure from the parameter values */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

975 if ( dict_set_parm_values(dict) == FALSE )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

976 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

977

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

978 /* Save the signature */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

979 dict->sig->checksum = compute_checksum( sizeof(DICT_SIG) , (char*)(dict->sig) );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

980 ret_code = block_write( fo ,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

981 (char*)dict->sig ,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

982 sizeof(DICT_SIG) );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

983 if ( ret_code == -1 )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

984 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

985

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

986 /* Save the table of contents */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

987 ret_code = block_write( fo,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

988 (char*)dict->toc,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

989 dict->sig->toc_size * sizeof(DICT_TOC_ENTRY) );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

990 if ( ret_code == -1 )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

991 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

992

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

993 /* Save the tables */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

994 /* For now, only save type=0 tables */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

995 for ( index = 0 ; index < dict->sig->toc_size ; index++ ) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

996 if ( dict->toc[index].type == 0 ) { /* Ordinary table */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

997 ret_code = dict_save_block( dict , dict->toc[index].id , fo );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

998 if ( ret_code == FALSE )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

999 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1000 } /* endif */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1001 } /* endfor */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1002

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1003 /* Success */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1004 fclose( fo );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1005 return TRUE;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1006

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1007 /* Failure */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1008 err_exit:

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1009 if ( fo != NULL )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1010 fclose( fo );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1011 return FALSE;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1012 }

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1013

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1014

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1015 /*************************************************************************

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1016 * dict_import: read in an ASCII dictionary.

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1017 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1018 * dict_fname - name of dictionary file

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1019 * parameters to create a DICTIONARY structure (see dict_create)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1020 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1021 * Returns: pointer to created DICTIONARY structure

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1022 * (NULL on failure)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1023 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1024 *************************************************************************/

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1025 DICTIONARY *dict_import( const char *dict_fname ,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1026 const long initial_string_count ,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1027 const long initial_hash_entries ,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1028 const long max_chain_length )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1029 {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1030 DICTIONARY *dict;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1031 char buffer[BUFLEN], ch;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1032 int index, c, c0;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1033 long number;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1034 FILE *fi = NULL;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1035

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1036 /***********

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1037 ** Dictionary setup.

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1038 ***********/

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1039

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1040 dict = dict_create( 4,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1041 initial_string_count ,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1042 initial_hash_entries ,

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1043 max_chain_length );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1044 if ( dict == NULL )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1045 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1046

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1047 /***********

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1048 ** Read the dictionary file

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1049 ** Each line should have one word or a string delimited by '|'

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1050 ***********/

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1051

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1052 if ( (fi=fopen(dict_fname,"r")) == NULL )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1053 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1054 while( fgets(buffer,BUFLEN,fi) != NULL ) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1055 c0 = 0;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1056 /* Skip to non-blank */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1057 while ( (c0<BUFLEN-2) && (buffer[c0]==' ') ) ++c0;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1058 if ( buffer[c0] == '|' ) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1059 c = ++c0;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1060 ch = '|';

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1061 } else {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1062 c = c0;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1063 ch = ' ';

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1064 } /* endif */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1065 /* Scan to blank or matching '|' */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1066 while ( (c<BUFLEN-1) && (buffer[c]!='\0') &&

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1067 (buffer[c]!='\n') && (buffer[c]!=ch) )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1068 ++c;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1069 buffer[c] = '\0';

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1070 /* Insert the word */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1071 if ( dict_insert(dict,buffer+c0,1,0,NULL,&number) == NULL )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1072 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1073 } /* endwhile */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1074

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1075 /***********

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1076 ** Fill in the dictionary parameter vector.

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1077 ***********/

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1078

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1079 if ( dict_set_parm_values(dict) == FALSE )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1080 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1081

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1082 /***********

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1083 ** Update the table of contents for HASH STTB STAR

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1084 ***********/

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1085

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1086 if ( (index=dict_toc_index(dict,"HASH")) == -1 )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1087 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1088 dict->toc[index].size = dict->table_size * sizeof(long);

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1089

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1090 if ( (index=dict_toc_index(dict,"STTB")) == -1 )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1091 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1092 dict->toc[index].size = dict->string_max * sizeof(char);

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1093

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1094 if ( (index=dict_toc_index(dict,"STAR")) == -1 )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1095 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1096 dict->toc[index].size = dict->array_size * sizeof(STRING_ENTRY);

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1097

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1098 /* Success. Return a pointer to the new dictionary. */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1099 fclose(fi);

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1100 return( dict );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1101

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1102 /* Failure. Ignominiously erase our tracks and return NULL. */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1103 err_exit:

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1104 if ( fi != NULL )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1105 fclose(fi);

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1106 dict_destroy( dict );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1107 return NULL;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1108 }

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1109

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1110 /*************************************************************************

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1111 * dict_export - save an extended dictionary from memory into

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1112 * an ASCII file

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1113 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1114 * dict - pointer to dictionary to save

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1115 * fname - full qualified file name prefix of dictionary

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1116 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1117 * Returns: status code

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1118 * TRUE - dictionary was saved sucessfully

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1119 * FALSE - error during save

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1120 *

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1121 *************************************************************************/

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1122 BOOLEANC dict_export( DICTIONARY *dict , const char *fname )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1123 {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1124 FILE *fp = NULL;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1125 STRING_ENTRY *se;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1126 int i;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1127

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1128 /* have to point to something */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1129 if (dict == NULL)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1130 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1131

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1132 /* check value has to be OK */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1133 if (dict->check_value != DICT_VALIDATE)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1134 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1135

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1136 /* must have a filename */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1137 if (fname == NULL)

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1138 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1139

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1140 fp = fopen( (char*)fname , "w" );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1141 if ( fp == NULL )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1142 goto err_exit;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1143

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1144 for ( i = 0 ; i < dict->entry_count ; i++ ) {

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1145 se = &dict->string_table[i];

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1146 fprintf( fp , "|%s|\n" , dict->string_array + se->string_offset );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1147 } /* endfor */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1148 fclose( fp );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1149

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1150 /* Success. */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1151 fclose(fp);

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1152 return TRUE;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1153

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1154 /* Failure. */

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1155 err_exit:

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1156 if ( fp != NULL )

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1157 fclose(fp);

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1158 dict_destroy( dict );

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1159 return FALSE;

c495a4f288c6 Import UltraRogue from the Roguelike Restoration Project (r1490)

John "Elwin" Edwards

parents:

diff changeset

1160 }

Mercurial > hg > early-roguelike

annotate urogue/dict.c @ 256:c495a4f288c6