/* SPDX-License-Identifier: GPL-2.0+ */
/* utils.h
 * originally written by: Kirk Reiser.
 *
 ** Copyright (C) 2002  Kirk Reiser.
 *  Copyright (C) 2003  David Borowski.
 */

#include <stdio.h>

#define MAXKEYS 512
#define MAXKEYVAL 160
#define HASHSIZE 101
#define is_shift -3
#define is_spk -2
#define is_input -1

struct st_key {
 char *name;
 struct st_key *next;
 int value, shift;
};

struct st_key key_table[MAXKEYS];
struct st_key *extra_keys = key_table+HASHSIZE;
char *def_name, *def_val;
FILE *infile;
int lc;

char filename[256];

static inline void open_input(const char *dir_name, const char *name)
{
 if (dir_name)
  snprintf(filename, sizeof(filename), "%s/%s", dir_name, name);
 else
  snprintf(filename, sizeof(filename), "%s", name);
 infile = fopen(filename, "r");
 if (infile == 0) {
  fprintf(stderr, "can't open %s\n", filename);
  exit(1);
 }
 lc = 0;
}

static inline int oops(const char *msg, const char *info)
{
 if (info == NULL)
  info = "";
 fprintf(stderr, "error: file %s line %d\n", filename, lc);
 fprintf(stderr, "%s %s\n", msg, info);
 exit(1);
}

static inline struct st_key *hash_name(char *name)
{
 unsigned char *pn = (unsigned char *)name;
 int hash = 0;

 while (*pn) {
  hash = (hash * 17) & 0xfffffff;
  if (isupper(*pn))
   *pn = tolower(*pn);
  hash += (int)*pn;
  pn++;
 }
 hash %= HASHSIZE;
 return &key_table[hash];
}

static inline struct st_key *find_key(char *name)
{
 struct st_key *this = hash_name(name);

 while (this) {
  if (this->name && !strcmp(name, this->name))
   return this;
  this = this->next;
 }
 return this;
}

static inline struct st_key *add_key(char *name, int value, int shift)
{
 struct st_key *this = hash_name(name);

 if (extra_keys-key_table >= MAXKEYS)
  oops("out of key table space, enlarge MAXKEYS", NULL);
 if (this->name != NULL) {
  while (this->next) {
   if (!strcmp(name, this->name))
    oops("attempt to add duplicate key", name);
   this = this->next;
  }
  this->next = extra_keys++;
  this = this->next;
 }
 this->name = strdup(name);
 this->value = value;
 this->shift = shift;
 return this;
}