From ef4f41df2bece12e3c09211f7495605014179593 Mon Sep 17 00:00:00 2001 From: rjohnson Date: Tue, 29 Sep 1998 18:22:39 +0000 Subject: Removed function declarations that were never used and not referenced by any implementation. --- generic/tcl.h | 7 +------ generic/tclInt.h | 15 +-------------- unix/tclUnixPort.h | 3 +-- 3 files changed, 3 insertions(+), 22 deletions(-) diff --git a/generic/tcl.h b/generic/tcl.h index e0466cf..492793a 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tcl.h,v 1.25 1998/09/14 18:39:57 stanton Exp $ + * RCS: @(#) $Id: tcl.h,v 1.26 1998/09/29 18:22:39 rjohnson Exp $ */ #ifndef _TCL @@ -1279,14 +1279,12 @@ EXTERN int Tcl_GetCommandInfo _ANSI_ARGS_((Tcl_Interp *interp, char *cmdName, Tcl_CmdInfo *infoPtr)); EXTERN char * Tcl_GetCommandName _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Command command)); -EXTERN char * Tcl_GetCwd _ANSI_ARGS_((char *buf, int len)); EXTERN int Tcl_GetDouble _ANSI_ARGS_((Tcl_Interp *interp, char *string, double *doublePtr)); EXTERN int Tcl_GetDoubleFromObj _ANSI_ARGS_(( Tcl_Interp *interp, Tcl_Obj *objPtr, double *doublePtr)); EXTERN int Tcl_GetErrno _ANSI_ARGS_((void)); -EXTERN int Tcl_GetErrorLine _ANSI_ARGS_((Tcl_Interp *interp)); EXTERN char * Tcl_GetHostName _ANSI_ARGS_((void)); EXTERN int Tcl_GetIndexFromObj _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr, char **tablePtr, char *msg, @@ -1306,8 +1304,6 @@ EXTERN Tcl_ObjType * Tcl_GetObjType _ANSI_ARGS_((char *typeName)); EXTERN int Tcl_GetOpenFile _ANSI_ARGS_((Tcl_Interp *interp, char *string, int write, int checkUsage, ClientData *filePtr)); -EXTERN Tcl_Command Tcl_GetOriginalCommand _ANSI_ARGS_(( - Tcl_Command command)); EXTERN Tcl_PathType Tcl_GetPathType _ANSI_ARGS_((char *path)); EXTERN int Tcl_Gets _ANSI_ARGS_((Tcl_Channel chan, Tcl_DString *dsPtr)); @@ -1426,7 +1422,6 @@ EXTERN void Tcl_RegisterChannel _ANSI_ARGS_((Tcl_Interp *interp, EXTERN void Tcl_RegisterObjType _ANSI_ARGS_(( Tcl_ObjType *typePtr)); EXTERN void Tcl_Release _ANSI_ARGS_((ClientData clientData)); -EXTERN void Tcl_RestartIdleTimer _ANSI_ARGS_((void)); EXTERN void Tcl_ResetResult _ANSI_ARGS_((Tcl_Interp *interp)); #define Tcl_Return Tcl_SetResult EXTERN int Tcl_ScanCountedElement _ANSI_ARGS_((CONST char *string, diff --git a/generic/tclInt.h b/generic/tclInt.h index 524448b..542e68c 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInt.h,v 1.17 1998/09/14 18:40:00 stanton Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.18 1998/09/29 18:22:39 rjohnson Exp $ */ #ifndef _TCLINT @@ -1429,10 +1429,6 @@ EXTERN int TclCleanupChildren _ANSI_ARGS_((Tcl_Interp *interp, int numPids, Tcl_Pid *pidPtr, Tcl_Channel errorChan)); EXTERN void TclCleanupCommand _ANSI_ARGS_((Command *cmdPtr)); -EXTERN char * TclConvertToNative _ANSI_ARGS_((Tcl_Interp *interp, - char *name, Tcl_DString *bufferPtr)); -EXTERN char * TclConvertToNetwork _ANSI_ARGS_((Tcl_Interp *interp, - char *name, Tcl_DString *bufferPtr)); EXTERN int TclCopyAndCollapse _ANSI_ARGS_((int count, char *src, char *dst)); EXTERN int TclCopyChannel _ANSI_ARGS_((Tcl_Interp *interp, @@ -1495,7 +1491,6 @@ EXTERN char * TclGetEnv _ANSI_ARGS_((CONST char *name)); EXTERN char * TclGetExtension _ANSI_ARGS_((char *name)); EXTERN int TclGetFrame _ANSI_ARGS_((Tcl_Interp *interp, char *string, CallFrame **framePtrPtr)); -EXTERN int TclGetIdleGeneration _ANSI_ARGS_((void)); EXTERN TclCmdProcType TclGetInterpProc _ANSI_ARGS_((void)); EXTERN int TclGetIntForIndex _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr, int endValue, int *indexPtr)); @@ -1522,11 +1517,9 @@ EXTERN int TclGlobalInvoke _ANSI_ARGS_((Tcl_Interp *interp, int argc, char **argv, int flags)); EXTERN int TclGuessPackageName _ANSI_ARGS_((char *fileName, Tcl_DString *bufPtr)); -EXTERN int TclHasPipes _ANSI_ARGS_((void)); EXTERN int TclHasSockets _ANSI_ARGS_((Tcl_Interp *interp)); EXTERN int TclHideUnsafeCommands _ANSI_ARGS_(( Tcl_Interp *interp)); -EXTERN int TclIdlePending _ANSI_ARGS_((void)); EXTERN int TclInExit _ANSI_ARGS_((void)); EXTERN Tcl_Obj * TclIncrElementOfIndexedArray _ANSI_ARGS_(( Tcl_Interp *interp, int localIndex, @@ -1560,8 +1553,6 @@ EXTERN Var * TclLookupVar _ANSI_ARGS_((Tcl_Interp *interp, char *part1, char *part2, int flags, char *msg, int createPart1, int createPart2, Var **arrayPtrPtr)); -EXTERN int TclMakeFileTable _ANSI_ARGS_((Tcl_Interp *interp, - int noStdio)); EXTERN int TclMatchFiles _ANSI_ARGS_((Tcl_Interp *interp, char *separators, Tcl_DString *dirPtr, char *pattern, char *tail)); @@ -1626,8 +1617,6 @@ EXTERN char * TclpRealloc _ANSI_ARGS_((char *ptr, EXTERN int TclpRemoveDirectory _ANSI_ARGS_((char *path, int recursive, Tcl_DString *errorPtr)); EXTERN int TclpRenameFile _ANSI_ARGS_((char *source, char *dest)); -EXTERN char * TclpSetEnv _ANSI_ARGS_((CONST char *name, - CONST char *value)); #ifndef TclpSysAlloc EXTERN VOID * TclpSysAlloc _ANSI_ARGS_((long size, int isBin)); #endif @@ -1760,8 +1749,6 @@ EXTERN int Tcl_GlobalObjCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Tcl_GlobCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int argc, char **argv)); -EXTERN int Tcl_HistoryCmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, char **argv)); EXTERN int Tcl_IfCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int argc, char **argv)); EXTERN int Tcl_IncrCmd _ANSI_ARGS_((ClientData clientData, diff --git a/unix/tclUnixPort.h b/unix/tclUnixPort.h index 43275a7..ca8c815 100644 --- a/unix/tclUnixPort.h +++ b/unix/tclUnixPort.h @@ -19,7 +19,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUnixPort.h,v 1.7 1998/09/14 18:40:17 stanton Exp $ + * RCS: @(#) $Id: tclUnixPort.h,v 1.8 1998/09/29 18:22:39 rjohnson Exp $ */ #ifndef _TCLUNIXPORT @@ -447,7 +447,6 @@ EXTERN int gettimeofday _ANSI_ARGS_((struct timeval *tp, */ #define TclHasSockets(interp) (TCL_OK) -#define TclHasPipes() (1) /* * Variables provided by the C library: -- cgit v0.12