Tcl Source Code

Check-in [6247c71fdd]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment: Changed index's from enum to int.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-1-branch-old
Files: files | file ages | folders
SHA1: 6247c71fdd3014ca047185306449086c50824d8d
User & Date: rjohnson 1999-03-26 22:39:52
Context
1999-03-27
00:39
Don't close the Win32 handle for a channel during shutdown if it's a std channel. check-in: b3e63defbb user: redman tags: core-8-1-branch-old
1999-03-26
22:39
Changed index's from enum to int. check-in: 6247c71fdd user: rjohnson tags: core-8-1-branch-old
19:46
--enable-shared is now the default that builds Tcl as a shared library. Use --disable-shared and ... check-in: 554e3ea7ea user: suresh tags: core-8-1-branch-old
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to generic/tclCmdIL.c.

    10     10    * Copyright (c) 1993-1997 Lucent Technologies.
    11     11    * Copyright (c) 1994-1997 Sun Microsystems, Inc.
    12     12    * Copyright (c) 1998-1999 by Scriptics Corporation.
    13     13    *
    14     14    * See the file "license.terms" for information on usage and redistribution
    15     15    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
    16     16    *
    17         - * RCS: @(#) $Id: tclCmdIL.c,v 1.1.2.9 1999/03/20 01:26:48 redman Exp $
           17  + * RCS: @(#) $Id: tclCmdIL.c,v 1.1.2.10 1999/03/26 22:39:52 rjohnson Exp $
    18     18    */
    19     19   
    20     20   #include "tclInt.h"
    21     21   #include "tclPort.h"
    22     22   #include "tclCompile.h"
    23     23   #include "tclRegexp.h"
    24     24   
................................................................................
   371    371   	     (char *) NULL};
   372    372       enum ISubCmdIdx {
   373    373   	    IArgsIdx, IBodyIdx, ICmdCountIdx, ICommandsIdx,
   374    374   	    ICompleteIdx, IDefaultIdx, IExistsIdx, IGlobalsIdx,
   375    375   	    IHostnameIdx, ILevelIdx, ILibraryIdx, ILoadedIdx,
   376    376   	    ILocalsIdx, INameOfExecutableIdx, IPatchLevelIdx, IProcsIdx,
   377    377   	    IScriptIdx, ISharedLibExtensionIdx, ITclVersionIdx, IVarsIdx
   378         -    } index;
   379         -    int result;
          378  +    };
          379  +    int index, result;
   380    380   
   381    381       if (objc < 2) {
   382    382           Tcl_WrongNumArgs(interp, 1, objv, "option ?arg arg ...?");
   383    383           return TCL_ERROR;
   384    384       }
   385    385       
   386    386       result = Tcl_GetIndexFromObj(interp, objv[1], subCmds, "option", 0,

Changes to generic/tclIOCmd.c.

     4      4    *	Contains the definitions of most of the Tcl commands relating to IO.
     5      5    *
     6      6    * Copyright (c) 1995-1997 Sun Microsystems, Inc.
     7      7    *
     8      8    * See the file "license.terms" for information on usage and redistribution
     9      9    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
    10     10    *
    11         - * RCS: @(#) $Id: tclIOCmd.c,v 1.1.2.4 1999/03/10 06:49:16 stanton Exp $
           11  + * RCS: @(#) $Id: tclIOCmd.c,v 1.1.2.5 1999/03/26 22:39:53 rjohnson Exp $
    12     12    */
    13     13   
    14     14   #include "tclInt.h"
    15     15   #include "tclPort.h"
    16     16   
    17     17   /*
    18     18    * Callback structure for accept callback in a TCP server.
................................................................................
  1471   1471       Tcl_Interp *interp;		/* Current interpreter. */
  1472   1472       int objc;			/* Number of arguments. */
  1473   1473       Tcl_Obj *CONST objv[];	/* Argument objects. */
  1474   1474   {
  1475   1475       Tcl_Channel inChan, outChan;
  1476   1476       char *arg;
  1477   1477       int mode, i;
  1478         -    int toRead;
         1478  +    int toRead, index;
  1479   1479       Tcl_Obj *cmdPtr;
  1480   1480       static char* switches[] = { "-size", "-command", NULL };
  1481         -    enum { FcopySize, FcopyCommand } index;
         1481  +    enum { FcopySize, FcopyCommand };
  1482   1482   
  1483   1483       if ((objc < 3) || (objc > 7) || (objc == 4) || (objc == 6)) {
  1484   1484   	Tcl_WrongNumArgs(interp, 1, objv,
  1485   1485   		"input output ?-size size? ?-command callback?");
  1486   1486   	return TCL_ERROR;
  1487   1487       }
  1488   1488   

Changes to generic/tclNamesp.c.

    15     15    *   Michael J. McLennan
    16     16    *   Bell Labs Innovations for Lucent Technologies
    17     17    *   [email protected]
    18     18    *
    19     19    * See the file "license.terms" for information on usage and redistribution
    20     20    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
    21     21    *
    22         - * RCS: @(#) $Id: tclNamesp.c,v 1.1.2.7 1999/02/10 23:31:17 stanton Exp $
           22  + * RCS: @(#) $Id: tclNamesp.c,v 1.1.2.8 1999/03/26 22:39:53 rjohnson Exp $
    23     23    */
    24     24   
    25     25   #include "tclInt.h"
    26     26   
    27     27   /*
    28     28    * Flag passed to TclGetNamespaceForQualName to indicate that it should
    29     29    * search for a namespace rather than a command or variable inside a
................................................................................
  2434   2434   	    "inscope", "origin", "parent", "qualifiers",
  2435   2435   	    "tail", "which", (char *) NULL};
  2436   2436       enum NSSubCmdIdx {
  2437   2437   	    NSChildrenIdx, NSCodeIdx, NSCurrentIdx, NSDeleteIdx,
  2438   2438   	    NSEvalIdx, NSExportIdx, NSForgetIdx, NSImportIdx,
  2439   2439   	    NSInscopeIdx, NSOriginIdx, NSParentIdx, NSQualifiersIdx,
  2440   2440   	    NSTailIdx, NSWhichIdx
  2441         -    } index;
  2442         -    int result;
         2441  +    };
         2442  +    int index, result;
  2443   2443   
  2444   2444       if (objc < 2) {
  2445   2445           Tcl_WrongNumArgs(interp, 1, objv, "subcommand ?arg ...?");
  2446   2446           return TCL_ERROR;
  2447   2447       }
  2448   2448   
  2449   2449       /*