Since I have made several changes to SWIG over the years to accomodate
special cases and other things in wxPython, and since I plan on making several more, I've decided to put the SWIG sources in wxPython's CVS instead of relying on maintaining patches. This effectivly becomes a fork of an obsolete version of SWIG, :-( but since SWIG 1.3 still doesn't have some things I rely on in 1.1, not to mention that my custom patches would all have to be redone, I felt that this is the easier road to take. git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@15307 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775
This commit is contained in:
97
wxPython/wxSWIG/swig_lib/tcl/expect.i
Normal file
97
wxPython/wxSWIG/swig_lib/tcl/expect.i
Normal file
@@ -0,0 +1,97 @@
|
||||
//
|
||||
// $Header$
|
||||
// SWIG File for building expect
|
||||
// Dave Beazley
|
||||
// March 18, 1996
|
||||
//
|
||||
/* Revision History
|
||||
* $Log$
|
||||
* Revision 1.1 2002/04/29 19:56:56 RD
|
||||
* Since I have made several changes to SWIG over the years to accomodate
|
||||
* special cases and other things in wxPython, and since I plan on making
|
||||
* several more, I've decided to put the SWIG sources in wxPython's CVS
|
||||
* instead of relying on maintaining patches. This effectivly becomes a
|
||||
* fork of an obsolete version of SWIG, :-( but since SWIG 1.3 still
|
||||
* doesn't have some things I rely on in 1.1, not to mention that my
|
||||
* custom patches would all have to be redone, I felt that this is the
|
||||
* easier road to take.
|
||||
*
|
||||
* Revision 1.2 1999/11/05 21:45:14 beazley
|
||||
* Minor Changes
|
||||
*
|
||||
* Revision 1.1.1.1 1999/02/28 02:00:55 beazley
|
||||
* Swig1.1
|
||||
*
|
||||
* Revision 1.1 1996/05/22 19:47:45 beazley
|
||||
* Initial revision
|
||||
*
|
||||
*/
|
||||
|
||||
#ifdef AUTODOC
|
||||
%subsection "expect.i"
|
||||
%text %{
|
||||
This module provides a main() function for building an extended version of
|
||||
Expect. It has been tested with Expect 5.19, but may need modification
|
||||
for newer versions.
|
||||
%}
|
||||
#endif
|
||||
|
||||
|
||||
%{
|
||||
|
||||
/* main.c - main() and some logging routines for expect
|
||||
|
||||
Written by: Don Libes, NIST, 2/6/90
|
||||
|
||||
Design and implementation of this program was paid for by U.S. tax
|
||||
dollars. Therefore it is public domain. However, the author and NIST
|
||||
would appreciate credit if this program or parts of it are used.
|
||||
*/
|
||||
|
||||
#include "expect_cf.h"
|
||||
#include <stdio.h>
|
||||
#include "expect_tcl.h"
|
||||
|
||||
void
|
||||
main(argc, argv)
|
||||
int argc;
|
||||
char *argv[];
|
||||
{
|
||||
int rc = 0;
|
||||
Tcl_Interp *interp = Tcl_CreateInterp();
|
||||
int SWIG_init(Tcl_Interp *);
|
||||
|
||||
if (Tcl_Init(interp) == TCL_ERROR) {
|
||||
fprintf(stderr,"Tcl_Init failed: %s\n",interp->result);
|
||||
exit(1);
|
||||
}
|
||||
|
||||
if (Exp_Init(interp) == TCL_ERROR) {
|
||||
fprintf(stderr,"Exp_Init failed: %s\n",interp->result);
|
||||
exit(1);
|
||||
}
|
||||
|
||||
/* SWIG initialization. --- 2/11/96 */
|
||||
|
||||
if (SWIG_init(interp) == TCL_ERROR) {
|
||||
fprintf(stderr,"SWIG initialization failed: %s\n", interp->result);
|
||||
exit(1);
|
||||
}
|
||||
|
||||
exp_parse_argv(interp,argc,argv);
|
||||
|
||||
/* become interactive if requested or "nothing to do" */
|
||||
if (exp_interactive)
|
||||
(void) exp_interpreter(interp);
|
||||
else if (exp_cmdfile)
|
||||
rc = exp_interpret_cmdfile(interp,exp_cmdfile);
|
||||
else if (exp_cmdfilename)
|
||||
rc = exp_interpret_cmdfilename(interp,exp_cmdfilename);
|
||||
|
||||
/* assert(exp_cmdlinecmds != 0) */
|
||||
|
||||
exp_exit(interp,rc);
|
||||
/*NOTREACHED*/
|
||||
}
|
||||
|
||||
%}
|
Reference in New Issue
Block a user