Commit | Line | Data |
---|---|---|
a44c4336 AW |
1 | /* Copyright (C) 1999,2000,2001,2003, 2006, 2008 Free Software Foundation, Inc. |
2 | * | |
3 | * This library is free software; you can redistribute it and/or | |
53befeb7 NJ |
4 | * modify it under the terms of the GNU Lesser General Public License |
5 | * as published by the Free Software Foundation; either version 3 of | |
6 | * the License, or (at your option) any later version. | |
a44c4336 | 7 | * |
53befeb7 NJ |
8 | * This library is distributed in the hope that it will be useful, but |
9 | * WITHOUT ANY WARRANTY; without even the implied warranty of | |
a44c4336 AW |
10 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
11 | * Lesser General Public License for more details. | |
12 | * | |
13 | * You should have received a copy of the GNU Lesser General Public | |
14 | * License along with this library; if not, write to the Free Software | |
53befeb7 NJ |
15 | * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA |
16 | * 02110-1301 USA | |
a44c4336 AW |
17 | */ |
18 | ||
eb0ffdd8 | 19 | #ifdef HAVE_CONFIG_H |
a44c4336 AW |
20 | # include <config.h> |
21 | #endif | |
22 | ||
23 | #include <libguile.h> | |
24 | ||
25 | SCM init2_count; | |
26 | ||
27 | void libtest_extensions_init2 (void); | |
28 | void libtest_extensions_init (void); | |
29 | ||
30 | void | |
31 | libtest_extensions_init2 (void) | |
32 | { | |
33 | scm_variable_set_x (init2_count, | |
34 | scm_from_int (scm_to_int (scm_variable_ref (init2_count)) + 1)); | |
35 | } | |
36 | ||
37 | void | |
38 | libtest_extensions_init (void) | |
39 | { | |
40 | scm_c_define ("init2-count", scm_from_int (0)); | |
41 | init2_count = scm_permanent_object (scm_c_lookup ("init2-count")); | |
42 | scm_c_register_extension ("libtest-extensions", "libtest_extensions_init2", | |
43 | (scm_t_extension_init_func)libtest_extensions_init2, NULL); | |
44 | } |