ADDED wishrl.c Index: wishrl.c ================================================================== --- /dev/null +++ wishrl.c @@ -0,0 +1,77 @@ + + /* ================================================================== + + FILE: "/home/joze/src/tclreadline/wishrl.c" + LAST MODIFICATION: "Thu Dec 16 22:05:05 1999 (joze)" + (C) 1998, 1999 by Johannes Zellner, + $Id$ + --- + + tclreadline -- gnu readline for tcl + Copyright (C) 1999 Johannes Zellner + + This program is free software; you can redistribute it and/or + modify it under the terms of the GNU General Public License + as published by the Free Software Foundation; either version 2 + of the License, or (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + + , http://www.zellner.org/tclreadline/ + + ================================================================== */ + +#ifdef HAVE_CONFIG_H +# include "config.h" +#endif + +#include +#include +#include + +extern int Tclreadline_Init(Tcl_Interp *interp); +extern int Tclreadline_SafeInit(Tcl_Interp *interp); + +int +TclreadlineAppInit(Tcl_Interp* interp) +{ + char file[0xff]; + int status; + + if (TCL_ERROR == Tcl_Init(interp)) { + return TCL_ERROR; + } + if (TCL_ERROR == Tk_Init(interp)) { + return TCL_ERROR; + } + if (TCL_ERROR == Tclreadline_Init(interp)) { + return TCL_ERROR; + } + Tcl_StaticPackage(interp, "tclreadline", + Tclreadline_Init, Tclreadline_SafeInit); +#if (TCL_MAJOR_VERSION == 7) && (TCL_MINOR_VERSION == 4) + tcl_RcFileName = "~/.wishrc"; +#else + Tcl_SetVar(interp, "tcl_rcFileName", "~/.wishrc", TCL_GLOBAL_ONLY); +#endif + sprintf(file, "%s/tclreadlineInit.tcl", TCLRL_LIBRARY); + if ((status = Tcl_EvalFile(interp, file))) { + fprintf(stderr, "(TclreadlineAppInit) unable to eval %s\n", file); + exit (1); + } + return TCL_OK; +} + +int +main(int argc, char *argv[]) +{ + Tk_Main(argc, argv, TclreadlineAppInit); + return 0; +}