cleanup and documentation updates

[webpac] / openisis / tcl / isish.c

diff --git a/openisis/tcl/isish.c b/openisis/tcl/isish.c
deleted file mode 100644 (file)
index 03fc043..0000000
--- a/openisis/tcl/isish.c
+++ /dev/null
@@ -1,63 +0,0 @@
-/*
-       openisis - an open implementation of the CDS/ISIS database
-       Version 0.8.x (patchlevel see file Version)
-       Copyright (C) 2001-2003 by Erik Grziwotz, erik@openisis.org
-
-       This library is free software; you can redistribute it and/or
-       modify it under the terms of the GNU Lesser General Public
-       License as published by the Free Software Foundation; either
-       version 2.1 of the License, or (at your option) any later version.
-
-       This library 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
-       Lesser General Public License for more details.
-
-       You should have received a copy of the GNU Lesser General Public
-       License along with this library; if not, write to the Free Software
-       Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
-
-       see README for more information
-EOH */
-
-/*
-       $Id: isish.c,v 1.5 2003/05/26 19:17:48 mawag Exp $
-       OpenIsis Tcl shell
-*/
-
-
-#include "openisis.h"
-#include "openisistcl.h"
-
-
-#ifdef ORATCL
-extern int Oratcl_Init ( Tcl_Interp *ip );
-#endif
-#ifdef PGTCL
-extern int Pgtcl_Init ( Tcl_Interp *ip );
-#endif
-
-
-static int appinit ( Tcl_Interp *interp )
-{
-       if ( TCL_OK != Tcl_Init( interp )
-               || TCL_OK != openIsisTclInit ( interp )
-#ifdef ORATCL
-               || TCL_OK != Oratcl_Init( interp )
-#endif
-#ifdef PGTCL
-               || TCL_OK != Pgtcl_Init( interp )
-#endif
-       )
-               return TCL_ERROR;
-       return TCL_OK;
-}
-
-
-int main ( int argc, char **argv )
-{
-       openIsisCOpen(0);
-
-       Tcl_Main( argc, argv, appinit );
-       return 0;
-}