Warning: Attempt to read property "date" on null in /usr/local/www/websvn.planix.org/blame.php on line 247

Warning: Attempt to read property "msg" on null in /usr/local/www/websvn.planix.org/blame.php on line 247

Warning: Attempt to read property "date" on null in /usr/local/www/websvn.planix.org/blame.php on line 247

Warning: Attempt to read property "msg" on null in /usr/local/www/websvn.planix.org/blame.php on line 247
WebSVN – tendra.SVN – Blame – /branches/algol60/src/utilities/sid/key.h – Rev 7

Subversion Repositories tendra.SVN

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 7u83 1
/*
7 7u83 2
 * Copyright (c) 2002-2005 The TenDRA Project <http://www.tendra.org/>.
3
 * All rights reserved.
4
 *
5
 * Redistribution and use in source and binary forms, with or without
6
 * modification, are permitted provided that the following conditions are met:
7
 *
8
 * 1. Redistributions of source code must retain the above copyright notice,
9
 *    this list of conditions and the following disclaimer.
10
 * 2. Redistributions in binary form must reproduce the above copyright notice,
11
 *    this list of conditions and the following disclaimer in the documentation
12
 *    and/or other materials provided with the distribution.
13
 * 3. Neither the name of The TenDRA Project nor the names of its contributors
14
 *    may be used to endorse or promote products derived from this software
15
 *    without specific, prior written permission.
16
 *
17
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS
18
 * IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
19
 * THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
20
 * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR
21
 * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
22
 * EXEMPLARY OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
23
 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
24
 * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
25
 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
26
 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
27
 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
28
 *
29
 * $Id$
30
 */
31
/*
2 7u83 32
    		 Crown Copyright (c) 1997
7 7u83 33
 
2 7u83 34
    This TenDRA(r) Computer Program is subject to Copyright
35
    owned by the United Kingdom Secretary of State for Defence
36
    acting through the Defence Evaluation and Research Agency
37
    (DERA).  It is made available to Recipients with a
38
    royalty-free licence for its use, reproduction, transfer
39
    to other parties and amendment for any purpose not excluding
40
    product development provided that any such use et cetera
41
    shall be deemed to be acceptance of the following conditions:-
7 7u83 42
 
2 7u83 43
        (1) Its Recipients shall ensure that this Notice is
44
        reproduced upon any copies or amended versions of it;
7 7u83 45
 
2 7u83 46
        (2) Any amended version of it shall be clearly marked to
47
        show both the nature of and the organisation responsible
48
        for the relevant amendment or amendments;
7 7u83 49
 
2 7u83 50
        (3) Its onward transfer from a recipient to another
51
        party shall be deemed to be that party's acceptance of
52
        these conditions;
7 7u83 53
 
2 7u83 54
        (4) DERA gives no warranty or assurance as to its
55
        quality or suitability for any purpose and DERA accepts
56
        no liability whatsoever in relation to any use to which
57
        it may be put.
58
*/
59
 
60
 
61
/*** key.h --- Key ADT.
62
 *
63
 ** Author: Steve Folkes <smf@hermes.mod.uk>
64
 *
65
 *** Commentary:
66
 *
67
 * See the file "key.c" for more information.
68
 *
69
 *** Change Log:
70
 * $Log: key.h,v $
71
 * Revision 1.1.1.1  1998/01/17  15:57:46  release
72
 * First version to be checked into rolling release.
73
 *
74
 * Revision 1.2  1994/12/15  09:58:21  smf
75
 * Brought into line with OSSG C Coding Standards Document, as per
76
 * "CR94_178.sid+tld-update".
77
 *
78
 * Revision 1.1.1.1  1994/07/25  16:04:35  smf
79
 * Initial import of SID 1.8 non shared files.
80
 *
81
**/
82
 
83
/****************************************************************************/
84
 
85
#ifndef H_KEY
86
#define H_KEY
87
 
88
#include "os-interface.h"
89
#include "dstring.h"
90
 
91
/*--------------------------------------------------------------------------*/
92
 
93
#ifdef FS_NO_ENUM
94
typedef int KeyTypeT, *KeyTypeP;
95
#define KT_STRING	(0)
96
#define KT_NUMERIC	(1)
97
#else
98
typedef enum {
99
    KT_STRING,
100
    KT_NUMERIC
101
} KeyTypeT, *KeyTypeP;
102
#endif /* defined (FS_NO_ENUM) */
103
 
104
typedef struct KeyT {
105
    KeyTypeT			type;
106
    NStringT			string;
107
    unsigned			number;
108
} KeyT, *KeyP;
109
 
110
/*--------------------------------------------------------------------------*/
111
 
7 7u83 112
extern void		key_init_from_string(KeyP, NStringP, unsigned);
113
extern void		key_init_from_number(KeyP, unsigned);
114
extern CmpT		key_compare(KeyP, KeyP);
115
extern BoolT		key_is_string(KeyP);
116
extern NStringP		key_get_string(KeyP);
117
extern unsigned		key_get_number(KeyP);
118
extern unsigned		key_hash_value(KeyP);
2 7u83 119
 
7 7u83 120
extern void		write_key(OStreamP, KeyP);
2 7u83 121
 
122
/*--------------------------------------------------------------------------*/
123
 
124
#ifdef FS_FAST
7 7u83 125
#define key_is_string(k)	((k)->type == KT_STRING)
126
#define key_is_number(k)	((k)->type == KT_NUMBER)
127
#define key_get_string(k)	(&((k)->string))
128
#define key_get_number(k)	((k)->number)
2 7u83 129
#endif /* defined (FS_FAST) */
130
 
131
#endif /* !defined (H_KEY) */
132
 
133
/*
134
 * Local variables(smf):
135
 * eval: (include::add-path-entry "../os-interface" "../library")
136
 * eval: (include::add-path-entry "../generated")
137
 * end:
138
**/
139