diff options
Diffstat (limited to 'libguile/strop.h')
-rw-r--r-- | libguile/strop.h | 48 |
1 files changed, 12 insertions, 36 deletions
diff --git a/libguile/strop.h b/libguile/strop.h index 821e97b1c..fea23d79c 100644 --- a/libguile/strop.h +++ b/libguile/strop.h @@ -48,42 +48,18 @@ -#ifdef __STDC__ -extern int scm_i_index (SCM * str, SCM chr, SCM sub_start, SCM sub_end, int pos, int pos2, int pos3, int pos4, char * why); -extern int scm_i_rindex (SCM * str, SCM chr, SCM sub_start, SCM sub_end, int pos, int pos2, int pos3, int pos4, char * why); -extern SCM scm_string_index (SCM str, SCM chr, SCM frm, SCM to); -extern SCM scm_string_rindex (SCM str, SCM chr, SCM frm, SCM to); -extern SCM scm_substring_move_left_x (SCM str1, SCM start1, SCM args); -extern SCM scm_substring_move_right_x (SCM str1, SCM start1, SCM args); -extern SCM scm_substring_fill_x (SCM str, SCM start, SCM args); -extern SCM scm_string_null_p (SCM str); -extern SCM scm_string_to_list (SCM str); -extern SCM scm_string_copy (SCM str); -extern SCM scm_string_fill_x (SCM str, SCM chr); -extern void scm_init_strop (void); - -#else /* STDC */ -extern int scm_i_index (); -extern int scm_i_rindex (); -extern SCM scm_string_index (); -extern SCM scm_string_rindex (); -extern SCM scm_substring_move_left_x (); -extern SCM scm_substring_move_right_x (); -extern SCM scm_substring_fill_x (); -extern SCM scm_string_null_p (); -extern SCM scm_string_to_list (); -extern SCM scm_string_copy (); -extern SCM scm_string_fill_x (); -extern void scm_init_strop (); - -#endif /* STDC */ - - - - - - - +extern int scm_i_index SCM_P ((SCM * str, SCM chr, SCM sub_start, SCM sub_end, int pos, int pos2, int pos3, int pos4, char * why)); +extern int scm_i_rindex SCM_P ((SCM * str, SCM chr, SCM sub_start, SCM sub_end, int pos, int pos2, int pos3, int pos4, char * why)); +extern SCM scm_string_index SCM_P ((SCM str, SCM chr, SCM frm, SCM to)); +extern SCM scm_string_rindex SCM_P ((SCM str, SCM chr, SCM frm, SCM to)); +extern SCM scm_substring_move_left_x SCM_P ((SCM str1, SCM start1, SCM args)); +extern SCM scm_substring_move_right_x SCM_P ((SCM str1, SCM start1, SCM args)); +extern SCM scm_substring_fill_x SCM_P ((SCM str, SCM start, SCM args)); +extern SCM scm_string_null_p SCM_P ((SCM str)); +extern SCM scm_string_to_list SCM_P ((SCM str)); +extern SCM scm_string_copy SCM_P ((SCM str)); +extern SCM scm_string_fill_x SCM_P ((SCM str, SCM chr)); +extern void scm_init_strop SCM_P ((void)); #endif /* STROPH */ |