Update of /cvsroot/naviserver/naviserver/nsd
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11209/nsd
Modified Files:
tclcmds.c tclxkeylist.c
Log Message:
Added objectified interface to TclX keyed lists. Tcl-API and C-API
are left compatible with older string interface.
Index: tclcmds.c
===================================================================
RCS file: /cvsroot/naviserver/naviserver/nsd/tclcmds.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** tclcmds.c 22 Feb 2005 20:33:32 -0000 1.2
--- tclcmds.c 6 Mar 2005 18:37:07 -0000 1.3
***************
*** 206,213 ****
NsTclThreadCmd,
NsTclUnscheduleCmd,
! Tcl_KeyldelCmd,
! Tcl_KeylgetCmd,
! Tcl_KeylkeysCmd,
! Tcl_KeylsetCmd;
/*
--- 206,213 ----
NsTclThreadCmd,
NsTclUnscheduleCmd,
! TclX_KeyldelObjCmd,
! TclX_KeylgetObjCmd,
! TclX_KeylkeysObjCmd,
! TclX_KeylsetObjCmd;
/*
***************
*** 359,366 ****
*/
! {"keyldel", Tcl_KeyldelCmd, NULL},
! {"keylget", Tcl_KeylgetCmd, NULL},
! {"keylkeys", Tcl_KeylkeysCmd, NULL},
! {"keylset", Tcl_KeylsetCmd, NULL},
/*
--- 359,366 ----
*/
! {"keyldel", TclX_KeyldelObjCmd, NULL},
! {"keylget", TclX_KeylgetObjCmd, NULL},
! {"keylkeys", TclX_KeylkeysObjCmd, NULL},
! {"keylset", TclX_KeylsetObjCmd, NULL},
/*
Index: tclxkeylist.c
===================================================================
RCS file: /cvsroot/naviserver/naviserver/nsd/tclxkeylist.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** tclxkeylist.c 16 Feb 2005 08:40:21 -0000 1.1.1.1
--- tclxkeylist.c 6 Mar 2005 18:37:07 -0000 1.2
***************
*** 2,9 ****
* tclxkeylist.c --
*
! * Keyed list support, modified from the original
! * Tcl7.x based TclX and Tcl source.
! *
! * Copyright (c) 1995-1998 America Online Inc.
*
*/
--- 2,7 ----
* tclxkeylist.c --
[...2707 lines suppressed...]
!
! Tcl_CreateObjCommand (interp,
! "keylset",
! TclX_KeylsetObjCmd,
! (ClientData) NULL,
! (Tcl_CmdDeleteProc*) NULL);
!
! Tcl_CreateObjCommand (interp,
! "keyldel",
! TclX_KeyldelObjCmd,
! (ClientData) NULL,
! (Tcl_CmdDeleteProc*) NULL);
!
! Tcl_CreateObjCommand (interp,
! "keylkeys",
! TclX_KeylkeysObjCmd,
! (ClientData) NULL,
! (Tcl_CmdDeleteProc*) NULL);
}
+
|
