File: dict.c

package info (click to toggle)
c2x 2.35a%2Bds-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 1,020 kB
  • sloc: ansic: 19,816; makefile: 54; sh: 1
file content (88 lines) | stat: -rw-r--r-- 2,034 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
/* A poor man's dictionary, with order(N) search */

#include<string.h>
#include<stdlib.h>
#include<stdio.h>
#include "c2xsf.h"

void *dict_get(struct dct *dict, char *key){

  while(dict){
    if ((dict->key)&&(!strcmp(dict->key,key))) return dict->value;
    dict=dict->next;
  }
  return NULL;
}

void dict_add(struct dct *dict, char *key, void *value){

  if (!dict) error_exit("Null pointer passed to dict_add");

  while(dict){
    if ((dict->key)&&(!strcmp(dict->key,key))){
      dict->value=value;
      return;
    }
    if (dict->next)
      dict=dict->next;
    else
      break;
  }

  /* If dict is unused, then dict->key will be NULL and
   * one should store to the empty first entry. Else grow the list. */
  if (dict->key){
    dict->next=malloc(sizeof(struct dct));
    if (!dict->next) error_exit("Malloc error for dict");
    dict=dict->next;
    dict->next=NULL;
  }
  dict->key=malloc(strlen(key)+1);
  if (!dict->key) error_exit("Malloc error for dict key");
  strcpy(dict->key,key);
  dict->value=value;
}

/* Concatenate a string to an existing entry, or make a new entry
 * if no existing entry. Use malloc() always, so can use realloc,
 * even if called with string constants.
 */
void dict_strcat(struct dct *dict, char *key, char *value){
  char *p;

  if (!dict) error_exit("Null pointer passed to dict_strcat");

  if (!dict_get(dict,key)){
    p=malloc(strlen(value)+1);
    if (!p) error_exit("Malloc failed in dict_strcat");
    strcpy(p,value);
    dict_add(dict,key,p);
    return;
  }

  while(dict){
    if ((dict->key)&&(!strcmp(dict->key,key))) break;
    dict=dict->next;
  }

  if (strcmp(dict->key,key))
    error_exit("Confusion in dict_strcat");

  dict->value=realloc(dict->value,strlen(dict->value)+strlen(value)+1);

  if (!dict->value)
    error_exit("Realloc() failed in dict_strcat");

  strcat(dict->value,value);
  
}

/* For debugging */
void dict_print(struct dct *dict){

  while(dict){
    fprintf(stderr,"%s:  %p\n",dict->key,dict->value);
    dict=dict->next;
  }     
  
}