c90f71dd8c
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
98 lines
2.3 KiB
OpenEdge ABL
98 lines
2.3 KiB
OpenEdge ABL
//
|
|
// $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*/
|
|
}
|
|
|
|
%}
|