Gecko [ fernandoquevedodop.com ]

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--
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--
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.41 KB	-rw-r--r--
std_pair.i	768 B	-rw-r--r--
std_string.i	36 B	-rw-r--r--
std_vector.i	15.82 KB	-rw-r--r--
std_wstring.i	63 B	-rw-r--r--
stl.i	291 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.68 KB	-rw-r--r--
tclresult.i	684 B	-rw-r--r--
tclrun.swg	21.75 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.78 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 : tclsh.i

/* -----------------------------------------------------------------------------
 * tclsh.i
 *
 * SWIG File for building new tclsh program
 * ----------------------------------------------------------------------------- */

#ifdef AUTODOC
%subsection "tclsh.i"
%text %{
This module provides the Tcl_AppInit() function needed to build a 
new version of the tclsh executable.   This file should not be used
when using dynamic loading.   To make an interface file work with
both static and dynamic loading, put something like this in your
interface file :

#ifdef STATIC
     %include <tclsh.i>
     #endif
%}
#endif

/* A TCL_AppInit() function that lets you build a new copy
 * of tclsh.
 *
 * The macro SWIG_init contains the name of the initialization
 * function in the wrapper file.
 */

#ifndef SWIG_RcFileName
char *SWIG_RcFileName = "~/.myapprc";
#endif

#ifdef MAC_TCL
extern int		MacintoshInit _ANSI_ARGS_((void));
#endif

int Tcl_AppInit(Tcl_Interp *interp){

if (Tcl_Init(interp) == TCL_ERROR) 
    return TCL_ERROR;

/* Now initialize our functions */

if (SWIG_init(interp) == TCL_ERROR)
    return TCL_ERROR;
#if TCL_MAJOR_VERSION > 7 || TCL_MAJOR_VERSION == 7 && TCL_MINOR_VERSION >= 5
   Tcl_SetVar(interp, (char *) "tcl_rcFileName",SWIG_RcFileName,TCL_GLOBAL_ONLY);
#else
   tcl_RcFileName = SWIG_RcFileName;
#endif
#ifdef SWIG_RcRsrcName
  Tcl_SetVar(interp, (char *) "tcl_rcRsrcName",SWIG_RcRsrcName,TCL_GLOBAL);
#endif
  
  return TCL_OK;
}

#if TCL_MAJOR_VERSION > 7 || TCL_MAJOR_VERSION == 7 && TCL_MINOR_VERSION >= 4
int main(int argc, char **argv) {
#ifdef MAC_TCL
    char *newArgv[2];
    
    if (MacintoshInit()  != TCL_OK) {
	Tcl_Exit(1);
    }

argc = 1;
    newArgv[0] = "tclsh";
    newArgv[1] = NULL;
    argv = newArgv;
#endif

Tcl_Main(argc, argv, Tcl_AppInit);
  return(0);

}
#else
extern int main();
#endif

${this.title}

Code Editor : tclsh.i