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
|
/*
* tclXkeylist.h --
*
* Extended Tcl keyed list commands and interfaces.
*-----------------------------------------------------------------------------
* Copyright 1991-1999 Karl Lehenbauer and Mark Diekhans.
*
* Permission to use, copy, modify, and distribute this software and its
* documentation for any purpose and without fee is hereby granted, provided
* that the above copyright notice appear in all copies. Karl Lehenbauer and
* Mark Diekhans make no representations about the suitability of this
* software for any purpose. It is provided "as is" without express or
* implied warranty.
*-----------------------------------------------------------------------------
*
* Rcsid: @(#)$Id: tclXkeylist.h,v 1.1 2003/09/03 11:22:24 vasiljevic Exp $
*-----------------------------------------------------------------------------
*/
#ifndef _KEYLIST_H_
#define _KEYLIST_H_
/*
* Keyed list object interface commands
*/
Tcl_Obj* TclX_NewKeyedListObj();
void TclX_KeyedListInit(Tcl_Interp*);
int TclX_KeyedListGet(Tcl_Interp*, Tcl_Obj*, char*, Tcl_Obj**);
int TclX_KeyedListSet(Tcl_Interp*, Tcl_Obj*, char*, Tcl_Obj*);
int TclX_KeyedListDelete(Tcl_Interp*, Tcl_Obj*, char*);
int TclX_KeyedListGetKeys(Tcl_Interp*, Tcl_Obj*, char*, Tcl_Obj**);
/*
* Exported for usage in Sv_DuplicateObj. This is slightly
* modified version of the DupKeyedListInternalRep() function.
* It does a proper deep-copy of the keyed list object.
*/
void DupKeyedListInternalRepShared(Tcl_Obj*, Tcl_Obj*);
#endif /* _KEYLIST_H_ */
/* EOF $RCSfile: tclXkeylist.h,v $ */
/* Emacs Setup Variables */
/* Local Variables: */
/* mode: C */
/* indent-tabs-mode: nil */
/* c-basic-offset: 4 */
/* End: */
|
