1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
/*
* aolstub.cpp --
*
* Adds interface for loading the extension into the AOLserver.
*
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* Rcsid: @(#)$Id: aolstub.cpp,v 1.3 2002/10/15 12:27:02 zoran Exp $
* ---------------------------------------------------------------------------
*/
#if defined (NS_AOLSERVER)
#include <ns.h>
int Ns_ModuleVersion = 1;
/*
*----------------------------------------------------------------------------
*
* NsTdom_Init --
*
* Loads the package for the first time, i.e. in the startup thread.
*
* Results:
* Standard Tcl result
*
* Side effects:
* Package initialized. Tcl commands created.
*
*----------------------------------------------------------------------------
*/
static int
NsTdom_Init (Tcl_Interp *interp, void *context)
{
int ret = Tdom_Init(interp);
if (ret != TCL_OK) {
Ns_Log(Warning, "can't load module %s: %s",
(char *)context, Tcl_GetStringResult(interp));
} else {
Ns_Log(Notice, "%s module", (char*)context);
}
return ret;
}
/*
*----------------------------------------------------------------------------
*
* Ns_ModuleInit --
*
* Called by the AOLserver when loading shared object file.
*
* Results:
* Standard AOLserver result
*
* Side effects:
* Many. Depends on the package.
*
*----------------------------------------------------------------------------
*/
int
Ns_ModuleInit(char *hServer, char *hMod)
{
return (Ns_TclInitInterps(hServer, NsTdom_Init, (void*)hMod) == TCL_OK)
? NS_OK : NS_ERROR;
}
#endif /* NS_AOLSERVER */
/* EOF $RCSfile: aolstub.cpp,v $ */
/* Emacs Setup Variables */
/* Local Variables: */
/* mode: C */
/* indent-tabs-mode: nil */
/* c-basic-offset: 4 */
/* End: */
|
