File Manager

X7ROOT File Manager

Current Path: /usr/share/swig/2.0.10/tcl

📁 ..
📄 attribute.i(34 B)
📄 carrays.i(35 B)
📄 cdata.i(30 B)
📄 cmalloc.i(32 B)
📄 cni.i(42 B)
📄 cpointer.i(33 B)
📄 cstring.i(32 B)
📄 cwstring.i(60 B)
📄 exception.i(145 B)
📄 factory.i(32 B)
📄 jstring.i(1000 B)
📄 std_common.i(467 B)
📄 std_deque.i(28 B)
📄 std_except.i(35 B)
📄 std_map.i(2.17 KB)
📄 std_pair.i(707 B)
📄 std_string.i(36 B)
📄 std_vector.i(15.25 KB)
📄 std_wstring.i(63 B)
📄 stl.i(357 B)
📄 tcl8.swg(1.46 KB)
📄 tclapi.swg(3.03 KB)
📄 tclerrors.swg(1.66 KB)
📄 tclfragments.swg(555 B)
📄 tclinit.swg(3.97 KB)
📄 tclinterp.i(617 B)
📄 tclkw.swg(247 B)
📄 tclmacros.swg(38 B)
📄 tclopers.swg(1.48 KB)
📄 tclprimtypes.swg(5.47 KB)
📄 tclresult.i(684 B)
📄 tclrun.swg(21.53 KB)
📄 tclruntime.swg(484 B)
📄 tclsh.i(1.83 KB)
📄 tclstrings.swg(793 B)
📄 tcltypemaps.swg(2.71 KB)
📄 tcluserdir.swg(195 B)
📄 tclwstrings.swg(1.79 KB)
📄 typemaps.i(15.68 KB)
📄 wish.i(3.36 KB)

Editing: tclinit.swg

/* ------------------------------------------------------------
 * The start of the Tcl initialization function 
 * ------------------------------------------------------------ */

%insert(init) "swiginit.swg"

/* This initialization code exports the module initialization function */

%header %{

#ifdef __cplusplus
extern "C" {
#endif
#ifdef MAC_TCL
#pragma export on
#endif
SWIGEXPORT int SWIG_init(Tcl_Interp *);
#ifdef MAC_TCL
#pragma export off
#endif
#ifdef __cplusplus
}
#endif

/* Compatibility version for TCL stubs */
#ifndef SWIG_TCL_STUBS_VERSION
#define SWIG_TCL_STUBS_VERSION "8.1"
#endif

%init %{
#ifdef __cplusplus
extern "C" {   
#endif

/* -----------------------------------------------------------------------------
 * constants/methods manipulation
 * ----------------------------------------------------------------------------- */

/* Install Constants */

SWIGINTERN void
SWIG_Tcl_InstallConstants(Tcl_Interp *interp, swig_const_info constants[]) {
  size_t i;
  Tcl_Obj *obj;

if (!swigconstTableinit) {
    Tcl_InitHashTable(&swigconstTable, TCL_STRING_KEYS);
    swigconstTableinit = 1;
  }
  for (i = 0; constants[i].type; i++) {
    switch(constants[i].type) {
    case SWIG_TCL_POINTER:
      obj = SWIG_NewPointerObj(constants[i].pvalue, *(constants[i]).ptype,0);
      break;
    case SWIG_TCL_BINARY:
      obj = SWIG_NewPackedObj(constants[i].pvalue, constants[i].lvalue, *(constants[i].ptype));
      break;
    default:
      obj = 0;
      break;
    }
    if (obj) {
      SWIG_Tcl_SetConstantObj(interp, constants[i].name, obj);
    }
  }
}

/* Create fast method lookup tables */

SWIGINTERN void
SWIG_Tcl_InstallMethodLookupTables(void) {
  size_t i;

for (i = 0; i < swig_module.size; ++i) {
    swig_type_info *type = swig_module.type_initial[i];
    if (type->clientdata) {
      swig_class* klass = (swig_class*) type->clientdata;
      swig_method* meth;
      Tcl_InitHashTable(&(klass->hashtable), TCL_STRING_KEYS);
      for (meth = klass->methods; meth && meth->name; ++meth) {
        int newEntry;
        Tcl_HashEntry* hashentry = Tcl_CreateHashEntry(&(klass->hashtable), meth->name, &newEntry);
        Tcl_SetHashValue(hashentry, (ClientData)meth->method);
      }
    }
  }
}

#ifdef __cplusplus
}
#endif

/* -----------------------------------------------------------------------------*
 *  Partial Init method
 * -----------------------------------------------------------------------------*/

SWIGEXPORT int SWIG_init(Tcl_Interp *interp) {
  size_t i;
  if (interp == 0) return TCL_ERROR;
#ifdef USE_TCL_STUBS
  /* (char*) cast is required to avoid compiler warning/error for Tcl < 8.4. */
  if (Tcl_InitStubs(interp, (char*)SWIG_TCL_STUBS_VERSION, 0) == NULL) {
    return TCL_ERROR;
  }
#endif  
#ifdef USE_TK_STUBS
  /* (char*) cast is required to avoid compiler warning/error. */
  if (Tk_InitStubs(interp, (char*)SWIG_TCL_STUBS_VERSION, 0) == NULL) {
    return TCL_ERROR;
  }
#endif

Tcl_PkgProvide(interp, (char*)SWIG_name, (char*)SWIG_version);
  
#ifdef SWIG_namespace
  Tcl_Eval(interp, "namespace eval " SWIG_namespace " { }");
#endif
  
  SWIG_InitializeModule((void *) interp);
  SWIG_PropagateClientData();
  
  for (i = 0; swig_commands[i].name; i++) {
    Tcl_CreateObjCommand(interp, (char *) swig_commands[i].name, (swig_wrapper_func) swig_commands[i].wrapper,
			 swig_commands[i].clientdata, NULL);
  }
  for (i = 0; swig_variables[i].name; i++) {
    Tcl_SetVar(interp, (char *) swig_variables[i].name, (char *) "", TCL_GLOBAL_ONLY);
    Tcl_TraceVar(interp, (char *) swig_variables[i].name, TCL_TRACE_READS | TCL_GLOBAL_ONLY, 
		 (Tcl_VarTraceProc *) swig_variables[i].get, (ClientData) swig_variables[i].addr);
    Tcl_TraceVar(interp, (char *) swig_variables[i].name, TCL_TRACE_WRITES | TCL_GLOBAL_ONLY, 
		 (Tcl_VarTraceProc *) swig_variables[i].set, (ClientData) swig_variables[i].addr);
  }

SWIG_Tcl_InstallConstants(interp, swig_constants);
  SWIG_Tcl_InstallMethodLookupTables();

/* Note: the initialization function is closed after all code is generated */

X7ROOT File Manager

Editing: tclinit.swg

Upload File

Create Folder