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

Last change on this file since 3177 was 3177, checked in by mmc, 10 years ago

Updated all of the copyright notices to reference the transfer to
the new HUBzero Foundation, LLC.

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 RpSplit_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.