source: trunk/lang/tcl/src/Rappture_Init.c @ 3404

Last change on this file since 3404 was 3404, checked in by ldelgass, 10 years ago

Fix compiler warnings

File size: 2.3 KB
Line 
1/*
2 * ----------------------------------------------------------------------
3 *  Rappture_Init
4 *
5 *  This file contains the function that initializes all of the various
6 *  extensions in this package.
7 * ======================================================================
8 *  AUTHOR:  Derrick Kearney, Purdue University
9 *  Copyright (c) 2004-2012  HUBzero Foundation, LLC
10 *
11 *  See the file "license.terms" for information on usage and
12 *  redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
13 * ======================================================================
14 */
15
16#include <tcl.h>
17#include "config.h"
18
19#ifdef BUILD_rappture
20#undef TCL_STORAGE_CLASS
21#define TCL_STORAGE_CLASS DLLEXPORT
22#endif
23
24extern Tcl_AppInitProc Rappture_Init;
25extern Tcl_AppInitProc RpRlimit_Init;
26extern Tcl_AppInitProc RpRusage_Init;
27extern Tcl_AppInitProc RpSignal_Init;
28extern Tcl_AppInitProc RpSlice_Init;
29extern Tcl_AppInitProc RpSysinfo_Init;
30extern Tcl_AppInitProc RpDaemon_Init;
31extern Tcl_AppInitProc RpCurses_Init;
32
33#ifdef notdef
34extern Tcl_AppInitProc RpLibrary_Init;
35#endif
36extern Tcl_AppInitProc RpUnits_Init;
37extern Tcl_AppInitProc RpEncoding_Init;
38extern Tcl_AppInitProc RpUtils_Init;
39
40#ifdef BUILD_Rappture
41__declspec( dllexport )
42#endif
43int
44Rappture_Init( Tcl_Interp * interp)
45{
46#ifdef _WIN32
47    rpWinInitJob();
48#endif
49    if (Tcl_InitStubs(interp, "8.4", 0) == NULL) {
50        return TCL_ERROR;
51    }
52    if (Tcl_PkgProvide(interp, "Rappture", PACKAGE_VERSION) != TCL_OK) {
53        return TCL_ERROR;
54    }
55#ifdef notdef
56    if (RpLibrary_Init(interp) != TCL_OK) {
57        return TCL_ERROR;
58    }
59#endif
60    if (RpUnits_Init(interp) != TCL_OK) {
61        return TCL_ERROR;
62    }
63    if (RpEncoding_Init(interp) != TCL_OK) {
64        return TCL_ERROR;
65    }
66    if (RpUtils_Init(interp) != TCL_OK) {
67        return TCL_ERROR;
68    }
69    if (RpRlimit_Init(interp) != TCL_OK) {
70        return TCL_ERROR;
71    }
72    if (RpRusage_Init(interp) != TCL_OK) {
73        return TCL_ERROR;
74    }
75    if (RpSignal_Init(interp) != TCL_OK) {
76        return TCL_ERROR;
77    }
78    if (RpSlice_Init(interp) != TCL_OK) {
79        return TCL_ERROR;
80    }
81    if (RpSysinfo_Init(interp) != TCL_OK) {
82        return TCL_ERROR;
83    }
84    if (RpDaemon_Init(interp) != TCL_OK) {
85        return TCL_ERROR;
86    }
87    if (RpCurses_Init(interp) != TCL_OK) {
88        return TCL_ERROR;
89    }
90    return TCL_OK;
91}
92
Note: See TracBrowser for help on using the repository browser.