This is the mail archive of the
guile@sourceware.cygnus.com
mailing list for the Guile project.
PATCH: const-correctness
- To: Guile Mailing List <guile at sourceware dot cygnus dot com>
- Subject: PATCH: const-correctness
- From: Dirk Herrmann <dirk at ida dot ing dot tu-bs dot de>
- Date: Wed, 8 Dec 1999 13:16:17 +0100 (MET)
Here's a patch to correct parameter constness for gh_eval_str (by also
const-correcting and ANSI-fying scm_eval_0str)
1999-12-08 Dirk Herrmann <D.Herrmann@tu-bs.de>
* gh.h, gh_eval.c, strports.h, strports.c: Parameter constness
corrections
diff -u -p -r1.21 gh.h
--- gh.h 1999/11/19 18:16:19 1.21
+++ gh.h 1999/12/08 12:06:38
@@ -67,7 +67,7 @@ SCM gh_catch(SCM tag, scm_catch_body_t b
SCM gh_standard_handler(void *data, SCM tag, SCM throw_args);
-SCM gh_eval_str(char *scheme_code);
+SCM gh_eval_str(const char *scheme_code);
SCM gh_eval_str_with_catch(char *scheme_code, scm_catch_handler_t handler);
SCM gh_eval_str_with_standard_handler(char *scheme_code);
SCM gh_eval_str_with_stack_saving_handler(char *scheme_code);
diff -u -p -r1.7 gh_eval.c
--- gh_eval.c 1998/10/24 20:54:57 1.7
+++ gh_eval.c 1999/12/08 12:06:38
@@ -50,7 +50,7 @@ typedef SCM (*gh_eval_t) (void *data, SC
/* Evaluate the string; toss the value. */
SCM
-gh_eval_str (char *scheme_code)
+gh_eval_str (const char *scheme_code)
{
return scm_eval_0str (scheme_code);
}
diff -u -p -r1.11 strports.h
--- strports.h 1999/07/24 23:10:43 1.11
+++ strports.h 1999/12/08 12:13:47
@@ -54,7 +54,7 @@ extern SCM scm_call_with_output_string S
extern SCM scm_strprint_obj SCM_P ((SCM obj));
extern SCM scm_call_with_input_string SCM_P ((SCM str, SCM proc));
extern SCM scm_read_0str SCM_P ((char *expr));
-extern SCM scm_eval_0str SCM_P ((char *expr));
+extern SCM scm_eval_0str SCM_P ((const char *expr));
extern SCM scm_eval_string SCM_P ((SCM string));
extern void scm_init_strports SCM_P ((void));
diff -u -p -r1.35 strports.c
--- strports.c 1999/10/26 18:42:11 1.35
+++ strports.c 1999/12/08 12:06:38
@@ -371,8 +371,7 @@ scm_read_0str (expr)
/* Given a null-terminated string EXPR containing Scheme program text,
evaluate it, and return the result of the last expression evaluated. */
SCM
-scm_eval_0str (expr)
- char *expr;
+scm_eval_0str (const char *expr)
{
return scm_eval_string (scm_makfrom0str (expr));
}