Correct PPTP server firewall rules chain.
[tomato/davidwu.git] / release / src / router / glib / gmodule / gmodule-dld.c
blob1d1391aa2197b39f708e7c67bb7a11712ab2b427
1 /* GMODULE - GLIB wrapper code for dynamic module loading
2 * Copyright (C) 1998, 2000 Tim Janik
4 * This library is free software; you can redistribute it and/or
5 * modify it under the terms of the GNU Library General Public
6 * License as published by the Free Software Foundation; either
7 * version 2 of the License, or (at your option) any later version.
9 * This library is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 * Library General Public License for more details.
14 * You should have received a copy of the GNU Library General Public
15 * License along with this library; if not, write to the
16 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
17 * Boston, MA 02111-1307, USA.
21 * Modified by the GLib Team and others 1997-1999. See the AUTHORS
22 * file for a list of people on the GLib Team. See the ChangeLog
23 * files for a list of changes. These files are distributed with
24 * GLib at ftp://ftp.gtk.org/pub/gtk/.
27 /*
28 * MT safe
31 #include <dl.h>
34 /* some flags are missing on some systems, so we provide
35 * harmless defaults.
37 * Mandatory:
38 * BIND_IMMEDIATE - Resolve symbol references when the library is loaded.
39 * BIND_DEFERRED - Delay code symbol resolution until actual reference.
41 * Optionally:
42 * BIND_FIRST - Place the library at the head of the symbol search order.
43 * BIND_NONFATAL - The default BIND_IMMEDIATE behavior is to treat all unsatisfied
44 * symbols as fatal. This flag allows binding of unsatisfied code
45 * symbols to be deferred until use.
46 * [Perl: For certain libraries, like DCE, deferred binding often
47 * causes run time problems. Adding BIND_NONFATAL to BIND_IMMEDIATE
48 * still allows unresolved references in situations like this.]
49 * BIND_NOSTART - Do not call the initializer for the shared library when the
50 * library is loaded, nor on a future call to shl_unload().
51 * BIND_VERBOSE - Print verbose messages concerning possible unsatisfied symbols.
53 * hp9000s700/hp9000s800:
54 * BIND_RESTRICTED - Restrict symbols visible by the library to those present at
55 * library load time.
56 * DYNAMIC_PATH - Allow the loader to dynamically search for the library specified
57 * by the path argument.
59 #ifndef DYNAMIC_PATH
60 #define DYNAMIC_PATH 0
61 #endif /* DYNAMIC_PATH */
62 #ifndef BIND_RESTRICTED
63 #define BIND_RESTRICTED 0
64 #endif /* BIND_RESTRICTED */
66 #define OPT_BIND_FLAGS (BIND_NONFATAL | BIND_VERBOSE)
69 /* --- functions --- */
70 static gpointer
71 _g_module_open (const gchar *file_name,
72 gboolean bind_lazy)
74 shl_t shl_handle;
76 shl_handle = shl_load (file_name,
77 (bind_lazy ? BIND_DEFERRED : BIND_IMMEDIATE) | OPT_BIND_FLAGS, 0);
78 if (!shl_handle)
80 /* the hp-docs say we should better abort() if errno==ENOSYM ;( */
81 g_module_set_error (g_strerror (errno));
84 return (gpointer) shl_handle;
87 static gpointer
88 _g_module_self (void)
90 shl_t shl_handle;
92 shl_handle = PROG_HANDLE;
93 if (!shl_handle)
94 g_module_set_error (g_strerror (errno));
96 return shl_handle;
99 static void
100 _g_module_close (gpointer handle,
101 gboolean is_unref)
103 if (!is_unref)
105 if (shl_unload ((shl_t) handle) != 0)
106 g_module_set_error (g_strerror (errno));
110 static gpointer
111 _g_module_symbol (gpointer handle,
112 const gchar *symbol_name)
114 gpointer p = NULL;
116 /* should we restrict lookups to TYPE_PROCEDURE?
118 if (handle == PROG_HANDLE)
120 /* PROG_HANDLE will only lookup symbols in the program itself, not honouring
121 * libraries. passing NULL as a handle will also try to lookup the symbol
122 * in currently loaded libraries. fix pointed out and supplied by:
123 * David Gero <dgero@nortelnetworks.com>
125 handle = NULL;
127 if (shl_findsym ((shl_t*) &handle, symbol_name, TYPE_UNDEFINED, &p) != 0 ||
128 handle == NULL || p == NULL)
130 /* the hp-docs say we should better abort() if errno==ENOSYM ;( */
131 g_module_set_error (g_strerror (errno));
134 return p;
137 static gchar*
138 _g_module_build_path (const gchar *directory,
139 const gchar *module_name)
141 if (directory && *directory)
142 if (strncmp (module_name, "lib", 3) == 0)
143 return g_strconcat (directory, "/", module_name, NULL);
144 else
145 return g_strconcat (directory, "/lib", module_name, ".sl", NULL);
146 else if (strncmp (module_name, "lib", 3) == 0)
147 return g_strdup (module_name);
148 else
149 return g_strconcat ("lib", module_name, ".sl", NULL);