0.9.9e/tcl/maletesh.c

/*
        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: maletesh.c,v 1.2 2004/09/28 17:17:53 kripke Exp $
        Malete Tcl shell
*/


#include <tcl.h>

#include "../core/core.h"
#include "maletecl.h"


#ifndef WIN32
extern int unixInit (Tcl_Interp *ip);
#endif
#ifndef BUILD_NOCRYPTO
extern int cryptoInit (Tcl_Interp *ip);
#endif

static int appinit ( Tcl_Interp *interp )
{
        if ( TCL_OK != Tcl_Init(interp)
                || TCL_OK != maleteclInit(interp)
                || TCL_OK != utiInit(interp)
#ifndef WIN32
                || TCL_OK != unixInit(interp)
#endif
#ifndef BUILD_NOCRYPTO
                || TCL_OK != cryptoInit(interp)
#endif
        )
                return TCL_ERROR;
        return TCL_OK;
}


int main ( int argc, const char **argv )
{
        Tcl_Main(argc, (char**)argv, appinit);
        return 0;
}
1	dpavlin	604	/*
2			openisis - an open implementation of the CDS/ISIS database
3			Version 0.8.x (patchlevel see file Version)
4			Copyright (C) 2001-2003 by Erik Grziwotz, erik@openisis.org
5
6			This library is free software; you can redistribute it and/or
7			modify it under the terms of the GNU Lesser General Public
8			License as published by the Free Software Foundation; either
9			version 2.1 of the License, or (at your option) any later version.
10
11			This library is distributed in the hope that it will be useful,
12			but WITHOUT ANY WARRANTY; without even the implied warranty of
13			MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14			Lesser General Public License for more details.
15
16			You should have received a copy of the GNU Lesser General Public
17			License along with this library; if not, write to the Free Software
18			Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
19
20			see README for more information
21			EOH */
22
23			/*
24			$Id: maletesh.c,v 1.2 2004/09/28 17:17:53 kripke Exp $
25			Malete Tcl shell
26			*/
27
28
29			#include <tcl.h>
30
31			#include "../core/core.h"
32			#include "maletecl.h"
33
34
35			#ifndef WIN32
36			extern int unixInit (Tcl_Interp *ip);
37			#endif
38			#ifndef BUILD_NOCRYPTO
39			extern int cryptoInit (Tcl_Interp *ip);
40			#endif
41
42			static int appinit ( Tcl_Interp *interp )
43			{
44			if ( TCL_OK != Tcl_Init(interp)
45			\|\| TCL_OK != maleteclInit(interp)
46			\|\| TCL_OK != utiInit(interp)
47			#ifndef WIN32
48			\|\| TCL_OK != unixInit(interp)
49			#endif
50			#ifndef BUILD_NOCRYPTO
51			\|\| TCL_OK != cryptoInit(interp)
52			#endif
53			)
54			return TCL_ERROR;
55			return TCL_OK;
56			}
57
58
59			int main ( int argc, const char **argv )
60			{
61			Tcl_Main(argc, (char**)argv, appinit);
62			return 0;
63			}