Commit | Line | Data |
---|---|---|
2b829bbb | 1 | /* Copyright (C) 1995,1996,1997,1998, 2000, 2001, 2006 Free Software Foundation, Inc. |
ee2a8b9b | 2 | |
73be1d9e MV |
3 | * This library is free software; you can redistribute it and/or |
4 | * modify it under the terms of the GNU Lesser General Public | |
5 | * License as published by the Free Software Foundation; either | |
6 | * version 2.1 of the License, or (at your option) any later version. | |
ee2a8b9b | 7 | * |
73be1d9e MV |
8 | * This library is distributed in the hope that it will be useful, |
9 | * but WITHOUT ANY WARRANTY; without even the implied warranty of | |
10 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
11 | * Lesser General Public License for more details. | |
ee2a8b9b | 12 | * |
73be1d9e MV |
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 | |
92205699 | 15 | * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
73be1d9e | 16 | */ |
ee2a8b9b JB |
17 | \f |
18 | ||
19 | /* routines to evaluate Scheme code */ | |
20 | ||
a0599745 | 21 | #include "libguile/gh.h" |
ee2a8b9b | 22 | |
5c56ebe1 MV |
23 | #if SCM_ENABLE_DEPRECATED |
24 | ||
ee2a8b9b JB |
25 | typedef SCM (*gh_eval_t) (void *data, SCM jmpbuf); |
26 | ||
ee2a8b9b | 27 | /* Evaluate the string; toss the value. */ |
ee2a8b9b | 28 | SCM |
6e706938 | 29 | gh_eval_str (const char *scheme_code) |
ee2a8b9b | 30 | { |
2dc6875d | 31 | return scm_c_eval_string (scheme_code); |
ee2a8b9b JB |
32 | } |
33 | ||
34 | /* evaluate the file by passing it to the lower level scm_primitive_load() */ | |
35 | SCM | |
6e706938 | 36 | gh_eval_file (const char *fname) |
ee2a8b9b JB |
37 | { |
38 | return scm_primitive_load (gh_str02scm (fname)); | |
39 | } | |
40 | ||
41 | static SCM | |
39752bec | 42 | eval_str_wrapper (void *data) |
ee2a8b9b JB |
43 | { |
44 | /* gh_eval_t real_eval_proc = (gh_eval_t) (* ((gh_eval_t *) data)); */ | |
45 | ||
46 | char *scheme_code = (char *) data; | |
47 | return gh_eval_str (scheme_code); | |
48 | } | |
49 | ||
50 | SCM | |
92c2555f | 51 | gh_eval_str_with_catch (const char *scheme_code, scm_t_catch_handler handler) |
ee2a8b9b JB |
52 | { |
53 | /* FIXME: not there yet */ | |
92c2555f MV |
54 | return gh_catch (SCM_BOOL_T, (scm_t_catch_body) eval_str_wrapper, (void *) scheme_code, |
55 | (scm_t_catch_handler) handler, (void *) scheme_code); | |
ee2a8b9b JB |
56 | } |
57 | ||
58 | SCM | |
6e706938 | 59 | gh_eval_str_with_standard_handler (const char *scheme_code) |
ee2a8b9b JB |
60 | { |
61 | return gh_eval_str_with_catch (scheme_code, gh_standard_handler); | |
62 | } | |
63 | ||
ee2a8b9b | 64 | SCM |
6e706938 | 65 | gh_eval_str_with_stack_saving_handler (const char *scheme_code) |
ee2a8b9b | 66 | { |
95384717 | 67 | return scm_internal_stack_catch (SCM_BOOL_T, |
92c2555f | 68 | (scm_t_catch_body) eval_str_wrapper, |
6e706938 | 69 | (void *) scheme_code, |
92c2555f | 70 | (scm_t_catch_handler) |
95384717 | 71 | gh_standard_handler, |
6e706938 | 72 | (void *) scheme_code); |
ee2a8b9b JB |
73 | } |
74 | ||
75 | static SCM | |
39752bec | 76 | eval_file_wrapper (void *data) |
ee2a8b9b JB |
77 | { |
78 | /* gh_eval_t real_eval_proc = (gh_eval_t) (* ((gh_eval_t *) data)); */ | |
79 | ||
80 | char *scheme_code = (char *) data; | |
81 | return gh_eval_file (scheme_code); | |
82 | } | |
83 | ||
84 | SCM | |
92c2555f | 85 | gh_eval_file_with_catch (const char *scheme_code, scm_t_catch_handler handler) |
ee2a8b9b JB |
86 | { |
87 | /* FIXME: not there yet */ | |
92c2555f MV |
88 | return gh_catch (SCM_BOOL_T, (scm_t_catch_body) eval_file_wrapper, |
89 | (void *) scheme_code, (scm_t_catch_handler) handler, | |
6e706938 | 90 | (void *) scheme_code); |
ee2a8b9b JB |
91 | } |
92 | ||
93 | SCM | |
6e706938 | 94 | gh_eval_file_with_standard_handler (const char *scheme_code) |
ee2a8b9b JB |
95 | { |
96 | return gh_eval_file_with_catch (scheme_code, gh_standard_handler); | |
97 | } | |
89e00824 | 98 | |
5c56ebe1 MV |
99 | #endif /* SCM_ENABLE_DEPRECATED */ |
100 | ||
89e00824 ML |
101 | /* |
102 | Local Variables: | |
103 | c-file-style: "gnu" | |
104 | End: | |
105 | */ |