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
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
/*
* aolstub.cpp --
*
* Adds interface for loading the extension into the AOLserver.
*
* See the file "LICENSE" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* Rcsid: @(#)$Id$
* ---------------------------------------------------------------------------
*/
#if defined (NS_AOLSERVER)
#include <ns.h>
int Ns_ModuleVersion = 1;
/*
* Structure to pass to NsThread_Init. This holds the module
* and virtual server name for proper interp initializations.
* This is valid only for AOLservers 4.x or later.
*/
struct mydata {
char *modname;
char *server;
};
/*
*----------------------------------------------------------------------------
*
* NsTdom_Init --
*
* Loads the package in the Tcl interpreter.
*
* Results:
* Standard Tcl result
*
* Side effects:
* Package initialized. Tcl commands created.
*
*----------------------------------------------------------------------------
*/
static int
NsTdom_Init (Tcl_Interp *interp, void *cd)
{
struct mydata *md = (struct mydata*)cd;
int ret = Tdom_Init(interp);
if (ret != TCL_OK) {
Ns_Log(Warning, "can't load module %s: %s", md->modname,
Tcl_GetStringResult(interp));
}
Tcl_SetAssocData(interp, "tdom:nsd", NULL, (ClientData)md);
return TCL_OK;
}
/*
*----------------------------------------------------------------------------
*
* 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 *srv, char *mod)
{
struct mydata *md = NULL;
md = (struct mydata*)ns_malloc(sizeof(struct mydata));
md->modname = strcpy(ns_malloc(strlen(mod)+1), mod);
md->server = strcpy(ns_malloc(strlen(srv)+1), srv);
return (Ns_TclInitInterps(srv, NsTdom_Init, (void*)md) == TCL_OK)
? NS_OK : NS_ERROR;
}
#endif /* NS_AOLSERVER */
/* EOF $RCSfile$ */
/* Emacs Setup Variables */
/* Local Variables: */
/* mode: C */
/* indent-tabs-mode: nil */
/* c-basic-offset: 4 */
/* End: */
|
