Gecko [ casapremiada.novaexata.com.br ]

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

Code Editor : tclapi.swg

/* -----------------------------------------------------------------------------
 * SWIG API. Portion that goes into the runtime
 * ----------------------------------------------------------------------------- */
#ifdef __cplusplus
extern "C" {
#endif

/* -----------------------------------------------------------------------------
 * Constant declarations
 * ----------------------------------------------------------------------------- */

/* Constant Types */
#define SWIG_TCL_POINTER 4
#define SWIG_TCL_BINARY  5

/* Constant information structure */
typedef struct swig_const_info {
    int type;
    char *name;
    long lvalue;
    double dvalue;
    void   *pvalue;
    swig_type_info **ptype;
} swig_const_info;

typedef int   (*swig_wrapper)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST []);
typedef int   (*swig_wrapper_func)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST []);
typedef char *(*swig_variable_func)(ClientData, Tcl_Interp *, char *, char *, int);
typedef void  (*swig_delete_func)(ClientData);

typedef struct swig_method {
  const char     *name;
  swig_wrapper   method;
} swig_method;

typedef struct swig_attribute {
  const char     *name;
  swig_wrapper   getmethod;
  swig_wrapper   setmethod;
} swig_attribute;

typedef struct swig_class {
  const char         *name;
  swig_type_info   **type;
  swig_wrapper       constructor;
  void              (*destructor)(void *);
  swig_method        *methods;
  swig_attribute     *attributes;
  struct swig_class **bases;
  const char              **base_names;
  swig_module_info   *module;
  Tcl_HashTable       hashtable;
} swig_class;

typedef struct swig_instance {
  Tcl_Obj       *thisptr;
  void          *thisvalue;
  swig_class   *classptr;
  int            destroy;
  Tcl_Command    cmdtok;
} swig_instance;

/* Structure for command table */
typedef struct {
  const char *name;
  int       (*wrapper)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST []);
  ClientData  clientdata;
} swig_command_info;

/* Structure for variable linking table */
typedef struct {
  const char *name;
  void *addr;
  char * (*get)(ClientData, Tcl_Interp *, char *, char *, int);
  char * (*set)(ClientData, Tcl_Interp *, char *, char *, int);
} swig_var_info;

/* -----------------------------------------------------------------------------*
 *  Install a constant object 
 * -----------------------------------------------------------------------------*/

static Tcl_HashTable   swigconstTable;
static int             swigconstTableinit = 0;

SWIGINTERN void
SWIG_Tcl_SetConstantObj(Tcl_Interp *interp, const char* name, Tcl_Obj *obj) {
  int newobj;
  Tcl_ObjSetVar2(interp,Tcl_NewStringObj(name,-1), NULL, obj, TCL_GLOBAL_ONLY);
  Tcl_SetHashValue(Tcl_CreateHashEntry(&swigconstTable, name, &newobj), (ClientData) obj);
}

SWIGINTERN Tcl_Obj *
SWIG_Tcl_GetConstantObj(const char *key) {
  Tcl_HashEntry *entryPtr;
  if (!swigconstTableinit) return 0;
  entryPtr = Tcl_FindHashEntry(&swigconstTable, key);
  if (entryPtr) {
    return (Tcl_Obj *) Tcl_GetHashValue(entryPtr);
  }
  return 0;
}

#ifdef __cplusplus
}
#endif

${this.title}

Code Editor : tclapi.swg