Subversion Repositories tendra.SVN

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 7u83 1 
/*
2 
    		 Crown Copyright (c) 1997
3 
 
4 
    This TenDRA(r) Computer Program is subject to Copyright
5 
    owned by the United Kingdom Secretary of State for Defence
6 
    acting through the Defence Evaluation and Research Agency
7 
    (DERA).  It is made available to Recipients with a
8 
    royalty-free licence for its use, reproduction, transfer
9 
    to other parties and amendment for any purpose not excluding
10 
    product development provided that any such use et cetera
11 
    shall be deemed to be acceptance of the following conditions:-
12 
 
13 
        (1) Its Recipients shall ensure that this Notice is
14 
        reproduced upon any copies or amended versions of it;
15 
 
16 
        (2) Any amended version of it shall be clearly marked to
17 
        show both the nature of and the organisation responsible
18 
        for the relevant amendment or amendments;
19 
 
20 
        (3) Its onward transfer from a recipient to another
21 
        party shall be deemed to be that party's acceptance of
22 
        these conditions;
23 
 
24 
        (4) DERA gives no warranty or assurance as to its
25 
        quality or suitability for any purpose and DERA accepts
26 
        no liability whatsoever in relation to any use to which
27 
        it may be put.
28 
*/
29 
 
30 
 
31 
/*** key.c --- Key ADT.
32 
 *
33 
 ** Author: Steve Folkes <smf@hermes.mod.uk>
34 
 *
35 
 *** Commentary:
36 
 *
37 
 * This file implements the identifier key routines used by SID.
38 
 *
39 
 *** Change Log:
40 
 * $Log: key.c,v $
41 
 * Revision 1.1.1.1  1998/01/17  15:57:46  release
42 
 * First version to be checked into rolling release.
43 
 *
44 
 * Revision 1.2  1994/12/15  09:58:19  smf
45 
 * Brought into line with OSSG C Coding Standards Document, as per
46 
 * "CR94_178.sid+tld-update".
47 
 *
48 
 * Revision 1.1.1.1  1994/07/25  16:04:35  smf
49 
 * Initial import of SID 1.8 non shared files.
50 
 *
51 
**/
52 
 
53 
/****************************************************************************/
54 
 
55 
#include "key.h"
56 
 
57 
/*--------------------------------------------------------------------------*/
58 
 
59 
void
60 
key_init_from_string PROTO_N ((key, string, number))
61 
		     PROTO_T (KeyP     key X
62 
			      NStringP string X
63 
			      unsigned number)
64 
{
65 
    key->type   = KT_STRING;
66 
    nstring_assign (&(key->string), string);
67 
    key->number = number;
68 
}
69 
 
70 
void
71 
key_init_from_number PROTO_N ((key, number))
72 
		     PROTO_T (KeyP     key X
73 
			      unsigned number)
74 
{
75 
    key->type   = KT_NUMERIC;
76 
    key->number = number;
77 
}
78 
 
79 
CmpT
80 
key_compare PROTO_N ((key1, key2))
81 
	    PROTO_T (KeyP key1 X
82 
		     KeyP key2)
83 
{
84 
    if ((key1->type) < (key2->type)) {
85 
	return (CMP_LT);
86 
    } else if ((key1->type) > (key2->type)) {
87 
	return (CMP_GT);
88 
    }
89 
    switch (key1->type) EXHAUSTIVE {
90 
      case KT_STRING:
91 
	return (nstring_compare (&(key1->string), &(key2->string)));
92 
      case KT_NUMERIC:
93 
	if (key1->number < key2->number) {
94 
	    return (CMP_LT);
95 
	} else if (key1->number > key2->number) {
96 
	    return (CMP_GT);
97 
	} else {
98 
	    return (CMP_EQ);
99 
	}
100 
    }
101 
    UNREACHED;
102 
}
103 
 
104 
#ifdef FS_FAST
105 
#undef key_is_string
106 
#endif /* defined (FS_FAST) */
107 
BoolT
108 
key_is_string PROTO_N ((key))
109 
	      PROTO_T (KeyP key)
110 
{
111 
    return (key->type == KT_STRING);
112 
}
113 
#ifdef FS_FAST
114 
#define key_is_string(k) ((k)->type == KT_STRING)
115 
#endif /* defined (FS_FAST) */
116 
 
117 
#ifdef FS_FAST
118 
#undef key_get_string
119 
#endif /* defined (FS_FAST) */
120 
NStringP
121 
key_get_string PROTO_N ((key))
122 
	       PROTO_T (KeyP key)
123 
{
124 
    ASSERT (key->type == KT_STRING);
125 
    return (&(key->string));
126 
}
127 
#ifdef FS_FAST
128 
#define key_get_string(k) (&((k)->string))
129 
#endif /* defined (FS_FAST) */
130 
 
131 
#ifdef FS_FAST
132 
#undef key_get_number
133 
#endif /* defined (FS_FAST) */
134 
unsigned
135 
key_get_number PROTO_N ((key))
136 
	       PROTO_T (KeyP key)
137 
{
138 
    return (key->number);
139 
}
140 
#ifdef FS_FAST
141 
#define key_get_number(k) ((k)->number)
142 
#endif /* defined (FS_FAST) */
143 
 
144 
unsigned
145 
key_hash_value PROTO_N ((key))
146 
	       PROTO_T (KeyP key)
147 
{
148 
    switch (key->type) EXHAUSTIVE {
149 
      case KT_NUMERIC:
150 
	return (key->number);
151 
      case KT_STRING:
152 
	return (nstring_hash_value (&(key->string)));
153 
    }
154 
    UNREACHED;
155 
}
156 
 
157 
void
158 
write_key PROTO_N ((ostream, key))
159 
	  PROTO_T (OStreamP ostream X
160 
		   KeyP     key)
161 
{
162 
    switch (key->type) EXHAUSTIVE {
163 
      case KT_STRING:
164 
	write_nstring (ostream, &(key->string));
165 
	break;
166 
      case KT_NUMERIC:
167 
	write_unsigned (ostream, key->number);
168 
	break;
169 
    }
170 
}
171 
 
172 
/*
173 
 * Local variables(smf):
174 
 * eval: (include::add-path-entry "../os-interface" "../library")
175 
 * eval: (include::add-path-entry "../generated")
176 
 * end:
177 
**/