diff options
author | Android Build Coastguard Worker <android-build-coastguard-worker@google.com> | 2023-08-16 10:17:58 +0000 |
---|---|---|
committer | Android Build Coastguard Worker <android-build-coastguard-worker@google.com> | 2023-08-16 10:17:58 +0000 |
commit | 8c1dfba603b89eaf2e88a93018dfd9244fdf5cc4 (patch) | |
tree | e08e74fba3ff91905855d802827db39278a8d15d /linux-x86/share/swig/tcl/tclsh.i | |
parent | bdef44d430ef39c1adc233b8ae3cb2f0a6033487 (diff) | |
parent | e905be252a53d20c52bd9e59df3ff8fdd46b9eab (diff) | |
download | build-tools-androidx-mediarouter-release.tar.gz |
Snap for 10655076 from e905be252a53d20c52bd9e59df3ff8fdd46b9eab to androidx-mediarouter-releaseandroidx-mediarouter-release
Change-Id: I1299ade32fd555bdb0983eaa4409d539ecd7812d
Diffstat (limited to 'linux-x86/share/swig/tcl/tclsh.i')
-rw-r--r-- | linux-x86/share/swig/tcl/tclsh.i | 85 |
1 files changed, 85 insertions, 0 deletions
diff --git a/linux-x86/share/swig/tcl/tclsh.i b/linux-x86/share/swig/tcl/tclsh.i new file mode 100644 index 0000000..160ba8d --- /dev/null +++ b/linux-x86/share/swig/tcl/tclsh.i @@ -0,0 +1,85 @@ +/* ----------------------------------------------------------------------------- + * 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 + +%} + |