1 /*
2 * $LynxId: HTAssoc.c,v 1.10 2010/04/29 09:34:03 tom Exp $
3 *
4 * MODULE HTAssoc.c
5 * ASSOCIATION LIST FOR STORING NAME-VALUE PAIRS.
6 * NAMES NOT CASE SENSITIVE, AND ONLY COMMON LENGTH
7 * IS CHECKED (allows abbreviations; well, length is
8 * taken from lookup-up name, so if table contains
9 * a shorter abbrev it is not found).
10 * AUTHORS:
11 * AL Ari Luotonen luotonen@dxcern.cern.ch
12 *
13 * HISTORY:
14 *
15 *
16 * BUGS:
17 *
18 *
19 */
20
21 #include <HTUtils.h>
22
23 #include <HTAssoc.h>
24
25 #include <LYLeaks.h>
26
HTAssocList_new(void)27 HTAssocList *HTAssocList_new(void)
28 {
29 return HTList_new();
30 }
31
HTAssocList_delete(HTAssocList * alist)32 void HTAssocList_delete(HTAssocList *alist)
33 {
34 if (alist) {
35 HTAssocList *cur = alist;
36 HTAssoc *assoc;
37
38 while (NULL != (assoc = (HTAssoc *) HTList_nextObject(cur))) {
39 FREE(assoc->name);
40 FREE(assoc->value);
41 FREE(assoc);
42 }
43 HTList_delete(alist);
44 alist = NULL;
45 }
46 }
47
HTAssocList_add(HTAssocList * alist,const char * name,const char * value)48 void HTAssocList_add(HTAssocList *alist,
49 const char *name,
50 const char *value)
51 {
52 HTAssoc *assoc;
53
54 if (alist) {
55 if (!(assoc = (HTAssoc *) malloc(sizeof(HTAssoc))))
56 outofmem(__FILE__, "HTAssoc_add");
57
58 assert(assoc != NULL);
59
60 assoc->name = NULL;
61 assoc->value = NULL;
62
63 if (name)
64 StrAllocCopy(assoc->name, name);
65 if (value)
66 StrAllocCopy(assoc->value, value);
67 HTList_addObject(alist, (void *) assoc);
68 } else {
69 CTRACE((tfp, "HTAssoc_add: ERROR: assoc list NULL!!\n"));
70 }
71 }
72
HTAssocList_lookup(HTAssocList * alist,const char * name)73 char *HTAssocList_lookup(HTAssocList *alist,
74 const char *name)
75 {
76 HTAssocList *cur = alist;
77 HTAssoc *assoc;
78
79 while (NULL != (assoc = (HTAssoc *) HTList_nextObject(cur))) {
80 if (!strncasecomp(assoc->name, name, (int) strlen(name)))
81 return assoc->value;
82 }
83 return NULL;
84 }
85