You are viewing a plain text version of this content. The canonical link for it is here.
Posted to websh-cvs@tcl.apache.org by ro...@apache.org on 2004/03/01 19:41:21 UTC
cvs commit: tcl-websh/src/generic webutl.c webutl.h
ronnie 2004/03/01 10:41:21
Modified: src/generic webutl.c webutl.h
Log:
- removed unused functions tclMyConcat and Web_IntIncrObj
Revision Changes Path
1.4 +1 -43 tcl-websh/src/generic/webutl.c
Index: webutl.c
===================================================================
RCS file: /home/cvs/tcl-websh/src/generic/webutl.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- webutl.c 25 Oct 2001 17:50:13 -0000 1.3
+++ webutl.c 1 Mar 2004 18:41:21 -0000 1.4
@@ -217,24 +217,6 @@
}
/* ----------------------------------------------------------------------------
- * tclMyConcat -- concat objects, but retain empty objects
- * ------------------------------------------------------------------------- */
-Tcl_Obj *tclMyConcat(int objc, Tcl_Obj * CONST objv[])
-{
-
- Tcl_Obj *out = NULL;
- int i = -1;
-
- out = Tcl_NewObj();
-
- for (i = 0; i < objc; i++)
- if (objv[i] != NULL)
- Tcl_ListObjAppendElement(NULL, out, objv[i]);
-
- return out;
-}
-
-/* ----------------------------------------------------------------------------
* tclSetEnv -- set/get environment variables via Tcl
* ------------------------------------------------------------------------- */
Tcl_Obj *tclSetEnv(Tcl_Interp * interp, char *key, Tcl_Obj * val)
@@ -271,30 +253,6 @@
Tcl_DecrRefCount(keyObj);
return res;
-}
-
-/* --------------------------------------------------------------------------
- * Web_IntIncrObj -- ++ implementaion for Tcl_Obj (uses Int)
- * interp for error messages
- * obj to be incremented
- * incr amount to increment by
- * ------------------------------------------------------------------------*/
-int Web_IntIncrObj(Tcl_Interp * interp, Tcl_Obj * obj, int incr)
-{
-
- int tmp = 0;
-
- if (obj == NULL)
- return TCL_ERROR;
-
- if (Tcl_GetIntFromObj(interp, obj, &tmp) == TCL_ERROR)
- return TCL_ERROR;
-
- tmp += incr;
-
- Tcl_SetIntObj(obj, tmp);
-
- return TCL_OK;
}
/* ----------------------------------------------------------------------------
1.4 +1 -3 tcl-websh/src/generic/webutl.h
Index: webutl.h
===================================================================
RCS file: /home/cvs/tcl-websh/src/generic/webutl.h,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- webutl.h 25 Oct 2001 17:50:13 -0000 1.3
+++ webutl.h 1 Mar 2004 18:41:21 -0000 1.4
@@ -33,10 +33,8 @@
int deleteIfEmpty);
int tclGetListLength(Tcl_Interp * interp, Tcl_Obj * list);
-Tcl_Obj *tclMyConcat(int objc, Tcl_Obj * CONST objv[]);
Tcl_Obj *tclSetEnv(Tcl_Interp * interp, char *key, Tcl_Obj * val);
-int Web_IntIncrObj(Tcl_Interp * interp, Tcl_Obj * obj, int incr);
int deleteTclObj_fnc(void *tclo, void *dum);
Tcl_Obj *Web_GetOrCreateGlobalVar(Tcl_Interp * interp, Tcl_Obj * name,
---------------------------------------------------------------------
To unsubscribe, e-mail: websh-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: websh-cvs-help@tcl.apache.org