[naviserver-commits] naviserver/nsd tclcmds.c,1.2,1.3 tclxkeylist.c,1.1.1.1,1.2

[Zoran V. <vas...@us...>]

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);
  }
+