This is the mail archive of the guile@sourceware.cygnus.com mailing list for the Guile project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

PATCH: const-correctness


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));
 }


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]