diff options
author | Jim Blandy <jimb@red-bean.com> | 1996-10-14 01:33:50 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1996-10-14 01:33:50 +0000 |
commit | 1cc91f1b2937a230a2dc80dd25cc6003b7b8f2b5 (patch) | |
tree | 64ddce6a971f0e0ca6ddd41d9ac0f5b999122484 /libguile/chars.c | |
parent | 1717856b4e8072b5aebab2324fcfba55bc504369 (diff) | |
download | guile-1cc91f1b2937a230a2dc80dd25cc6003b7b8f2b5.tar.gz |
* __scm.h, alist.c, alist.h, append.c, append.h, appinit.c,
arbiters.c, arbiters.h, async.c, async.h, boolean.c, boolean.h,
chars.c, chars.h, continuations.c, continuations.h, debug.c,
debug.h, dynwind.c, dynwind.h, eq.c, eq.h, error.c, eval.c,
eval.h, extchrs.c, extchrs.h, fdsocket.c, fdsocket.h, filesys.c,
filesys.h, fports.c, fports.h, gc.c, gdb_interface.h, gdbint.c,
gdbint.h, genio.c, genio.h, gscm.c, gscm.h, gsubr.c, gsubr.h,
hash.c, hash.h, hashtab.c, hashtab.h, init.c, ioext.c, ioext.h,
kw.c, kw.h, libguile.h, mallocs.c, mallocs.h, markers.c,
markers.h, mbstrings.c, mbstrings.h, numbers.c, numbers.h,
objprop.c, objprop.h, options.c, options.h, pairs.c, pairs.h,
ports.c, ports.h, posix.c, posix.h, print.c, print.h, procprop.c,
procprop.h, procs.c, procs.h, ramap.c, ramap.h, read.c, read.h,
root.c, scmsigs.c, scmsigs.h, sequences.c, sequences.h, simpos.c,
simpos.h, smob.c, socket.c, socket.h, srcprop.c, srcprop.h,
stackchk.c, stackchk.h, stime.c, stime.h, strings.c, strings.h,
strop.c, strop.h, strorder.c, strorder.h, strports.c, strports.h,
struct.c, struct.h, symbols.c, symbols.h, tag.c, tag.h, unif.c,
unif.h, variable.c, variable.h, vectors.c, vectors.h, version.c,
version.h, vports.c, vports.h, weaks.c, weaks.h: Use SCM_P to
declare functions with prototypes. (Patch thanks to Marius
Vollmer.)
Diffstat (limited to 'libguile/chars.c')
-rw-r--r-- | libguile/chars.c | 150 |
1 files changed, 25 insertions, 125 deletions
diff --git a/libguile/chars.c b/libguile/chars.c index 773be4d81..cc77d3d09 100644 --- a/libguile/chars.c +++ b/libguile/chars.c @@ -50,28 +50,20 @@ SCM_PROC(s_char_p, "char?", 1, 0, 0, scm_char_p); -#ifdef __STDC__ -SCM -scm_char_p(SCM x) -#else + SCM scm_char_p(x) SCM x; -#endif { return SCM_ICHRP(x) ? SCM_BOOL_T : SCM_BOOL_F; } SCM_PROC1 (s_char_eq_p, "char=?", scm_tc7_rpsubr, scm_char_eq_p); -#ifdef __STDC__ -SCM -scm_char_eq_p(SCM x, SCM y) -#else + SCM scm_char_eq_p(x, y) SCM x; SCM y; -#endif { SCM_ASSERT(SCM_ICHRP(x), x, SCM_ARG1, s_char_eq_p); SCM_ASSERT(SCM_ICHRP(y), y, SCM_ARG2, s_char_eq_p); @@ -80,15 +72,11 @@ scm_char_eq_p(x, y) SCM_PROC1 (s_char_less_p, "char<?", scm_tc7_rpsubr, scm_char_less_p); -#ifdef __STDC__ -SCM -scm_char_less_p(SCM x, SCM y) -#else + SCM scm_char_less_p(x, y) SCM x; SCM y; -#endif { SCM_ASSERT(SCM_ICHRP(x), x, SCM_ARG1, s_char_less_p); SCM_ASSERT(SCM_ICHRP(y), y, SCM_ARG2, s_char_less_p); @@ -96,15 +84,11 @@ scm_char_less_p(x, y) } SCM_PROC1 (s_char_leq_p, "char<=?", scm_tc7_rpsubr, scm_char_leq_p); -#ifdef __STDC__ -SCM -scm_char_leq_p(SCM x, SCM y) -#else + SCM scm_char_leq_p(x, y) SCM x; SCM y; -#endif { SCM_ASSERT(SCM_ICHRP(x), x, SCM_ARG1, s_char_leq_p); SCM_ASSERT(SCM_ICHRP(y), y, SCM_ARG2, s_char_leq_p); @@ -112,15 +96,11 @@ scm_char_leq_p(x, y) } SCM_PROC1 (s_char_gr_p, "char>?", scm_tc7_rpsubr, scm_char_gr_p); -#ifdef __STDC__ -SCM -scm_char_gr_p(SCM x, SCM y) -#else + SCM scm_char_gr_p(x, y) SCM x; SCM y; -#endif { SCM_ASSERT(SCM_ICHRP(x), x, SCM_ARG1, s_char_gr_p); SCM_ASSERT(SCM_ICHRP(y), y, SCM_ARG2, s_char_gr_p); @@ -128,15 +108,11 @@ scm_char_gr_p(x, y) } SCM_PROC1 (s_char_geq_p, "char>=?", scm_tc7_rpsubr, scm_char_geq_p); -#ifdef __STDC__ -SCM -scm_char_geq_p(SCM x, SCM y) -#else + SCM scm_char_geq_p(x, y) SCM x; SCM y; -#endif { SCM_ASSERT(SCM_ICHRP(x), x, SCM_ARG1, s_char_geq_p); SCM_ASSERT(SCM_ICHRP(y), y, SCM_ARG2, s_char_geq_p); @@ -144,15 +120,11 @@ scm_char_geq_p(x, y) } SCM_PROC1 (s_char_ci_eq_p, "char-ci=?", scm_tc7_rpsubr, scm_char_ci_eq_p); -#ifdef __STDC__ -SCM -scm_char_ci_eq_p(SCM x, SCM y) -#else + SCM scm_char_ci_eq_p(x, y) SCM x; SCM y; -#endif { SCM_ASSERT(SCM_ICHRP(x), x, SCM_ARG1, s_char_ci_eq_p); SCM_ASSERT(SCM_ICHRP(y), y, SCM_ARG2, s_char_ci_eq_p); @@ -160,15 +132,11 @@ scm_char_ci_eq_p(x, y) } SCM_PROC1 (s_char_ci_less_p, "char-ci<?", scm_tc7_rpsubr, scm_char_ci_less_p); -#ifdef __STDC__ -SCM -scm_char_ci_less_p(SCM x, SCM y) -#else + SCM scm_char_ci_less_p(x, y) SCM x; SCM y; -#endif { SCM_ASSERT(SCM_ICHRP(x), x, SCM_ARG1, s_char_ci_less_p); SCM_ASSERT(SCM_ICHRP(y), y, SCM_ARG2, s_char_ci_less_p); @@ -176,15 +144,11 @@ scm_char_ci_less_p(x, y) } SCM_PROC1 (s_char_ci_leq_p, "char-ci<=?", scm_tc7_rpsubr, scm_char_ci_leq_p); -#ifdef __STDC__ -SCM -scm_char_ci_leq_p(SCM x, SCM y) -#else + SCM scm_char_ci_leq_p(x, y) SCM x; SCM y; -#endif { SCM_ASSERT(SCM_ICHRP(x), x, SCM_ARG1, s_char_ci_leq_p); SCM_ASSERT(SCM_ICHRP(y), y, SCM_ARG2, s_char_ci_leq_p); @@ -192,15 +156,11 @@ scm_char_ci_leq_p(x, y) } SCM_PROC1 (s_char_ci_gr_p, "char-ci>?", scm_tc7_rpsubr, scm_char_ci_gr_p); -#ifdef __STDC__ -SCM -scm_char_ci_gr_p(SCM x, SCM y) -#else + SCM scm_char_ci_gr_p(x, y) SCM x; SCM y; -#endif { SCM_ASSERT(SCM_ICHRP(x), x, SCM_ARG1, s_char_ci_gr_p); SCM_ASSERT(SCM_ICHRP(y), y, SCM_ARG2, s_char_ci_gr_p); @@ -208,15 +168,11 @@ scm_char_ci_gr_p(x, y) } SCM_PROC1 (s_char_ci_geq_p, "char-ci>=?", scm_tc7_rpsubr, scm_char_ci_geq_p); -#ifdef __STDC__ -SCM -scm_char_ci_geq_p(SCM x, SCM y) -#else + SCM scm_char_ci_geq_p(x, y) SCM x; SCM y; -#endif { SCM_ASSERT(SCM_ICHRP(x), x, SCM_ARG1, s_char_ci_geq_p); SCM_ASSERT(SCM_ICHRP(y), y, SCM_ARG2, s_char_ci_geq_p); @@ -225,42 +181,30 @@ scm_char_ci_geq_p(x, y) SCM_PROC(s_char_alphabetic_p, "char-alphabetic?", 1, 0, 0, scm_char_alphabetic_p); -#ifdef __STDC__ -SCM -scm_char_alphabetic_p(SCM chr) -#else + SCM scm_char_alphabetic_p(chr) SCM chr; -#endif { SCM_ASSERT(SCM_ICHRP(chr), chr, SCM_ARG1, s_char_alphabetic_p); return (isascii(SCM_ICHR(chr)) && isalpha(SCM_ICHR(chr))) ? SCM_BOOL_T : SCM_BOOL_F; } SCM_PROC(s_char_numeric_p, "char-numeric?", 1, 0, 0, scm_char_numeric_p); -#ifdef __STDC__ -SCM -scm_char_numeric_p(SCM chr) -#else + SCM scm_char_numeric_p(chr) SCM chr; -#endif { SCM_ASSERT(SCM_ICHRP(chr), chr, SCM_ARG1, s_char_numeric_p); return (isascii(SCM_ICHR(chr)) && isdigit(SCM_ICHR(chr))) ? SCM_BOOL_T : SCM_BOOL_F; } SCM_PROC(s_char_whitespace_p, "char-whitespace?", 1, 0, 0, scm_char_whitespace_p); -#ifdef __STDC__ -SCM -scm_char_whitespace_p(SCM chr) -#else + SCM scm_char_whitespace_p(chr) SCM chr; -#endif { SCM_ASSERT(SCM_ICHRP(chr), chr, SCM_ARG1, s_char_whitespace_p); return (isascii(SCM_ICHR(chr)) && isspace(SCM_ICHR(chr))) ? SCM_BOOL_T : SCM_BOOL_F; @@ -269,14 +213,10 @@ scm_char_whitespace_p(chr) SCM_PROC(s_char_upper_case_p, "char-upper-case?", 1, 0, 0, scm_char_upper_case_p); -#ifdef __STDC__ -SCM -scm_char_upper_case_p(SCM chr) -#else + SCM scm_char_upper_case_p(chr) SCM chr; -#endif { SCM_ASSERT(SCM_ICHRP(chr), chr, SCM_ARG1, s_char_upper_case_p); return (isascii(SCM_ICHR(chr)) && isupper(SCM_ICHR(chr))) ? SCM_BOOL_T : SCM_BOOL_F; @@ -284,14 +224,10 @@ scm_char_upper_case_p(chr) SCM_PROC(s_char_lower_case_p, "char-lower-case?", 1, 0, 0, scm_char_lower_case_p); -#ifdef __STDC__ -SCM -scm_char_lower_case_p(SCM chr) -#else + SCM scm_char_lower_case_p(chr) SCM chr; -#endif { SCM_ASSERT(SCM_ICHRP(chr), chr, SCM_ARG1, s_char_lower_case_p); return (isascii(SCM_ICHR(chr)) && islower(SCM_ICHR(chr))) ? SCM_BOOL_T : SCM_BOOL_F; @@ -300,14 +236,10 @@ scm_char_lower_case_p(chr) SCM_PROC (s_char_is_both_p, "char-is-both?", 1, 0, 0, scm_char_is_both_p); -#ifdef __STDC__ -SCM -scm_char_is_both_p (SCM chr) -#else + SCM scm_char_is_both_p (chr) SCM chr; -#endif { SCM_ASSERT(SCM_ICHRP(chr), chr, SCM_ARG1, s_char_upper_case_p); return ((isascii(SCM_ICHR(chr)) && (isupper(SCM_ICHR(chr)) || islower(SCM_ICHR(chr)))) @@ -319,14 +251,10 @@ scm_char_is_both_p (chr) SCM_PROC(s_char_to_integer, "char->integer", 1, 0, 0, scm_char_to_integer); -#ifdef __STDC__ -SCM -scm_char_to_integer(SCM chr) -#else + SCM scm_char_to_integer(chr) SCM chr; -#endif { SCM_ASSERT(SCM_ICHRP(chr), chr, SCM_ARG1, s_char_to_integer); return scm_ulong2num((unsigned long)SCM_ICHR(chr)); @@ -335,14 +263,10 @@ scm_char_to_integer(chr) SCM_PROC(s_integer_to_char, "integer->char", 1, 0, 0, scm_integer_to_char); -#ifdef __STDC__ -SCM -scm_integer_to_char(SCM n) -#else + SCM scm_integer_to_char(n) SCM n; -#endif { unsigned long ni; @@ -352,14 +276,10 @@ scm_integer_to_char(n) SCM_PROC(s_char_upcase, "char-upcase", 1, 0, 0, scm_char_upcase); -#ifdef __STDC__ -SCM -scm_char_upcase(SCM chr) -#else + SCM scm_char_upcase(chr) SCM chr; -#endif { SCM_ASSERT(SCM_ICHRP(chr), chr, SCM_ARG1, s_char_upcase); return SCM_MAKICHR(scm_upcase(SCM_ICHR(chr))); @@ -367,14 +287,10 @@ scm_char_upcase(chr) SCM_PROC(s_char_downcase, "char-downcase", 1, 0, 0, scm_char_downcase); -#ifdef __STDC__ -SCM -scm_char_downcase(SCM chr) -#else + SCM scm_char_downcase(chr) SCM chr; -#endif { SCM_ASSERT(SCM_ICHRP(chr), chr, SCM_ARG1, s_char_downcase); return SCM_MAKICHR(scm_downcase(SCM_ICHR(chr))); @@ -389,13 +305,9 @@ static unsigned char scm_downcase_table[SCM_CHAR_CODE_LIMIT]; static unsigned char scm_lowers[] = "abcdefghijklmnopqrstuvwxyz"; static unsigned char scm_uppers[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"; -#ifdef __STDC__ -void -scm_tables_prehistory (void) -#else + void scm_tables_prehistory () -#endif { int i; for (i = 0; i < SCM_CHAR_CODE_LIMIT; i++) @@ -407,14 +319,10 @@ scm_tables_prehistory () } } -#ifdef __STDC__ -int -scm_upcase (unsigned int c) -#else + int scm_upcase (c) unsigned int c; -#endif { if (c < sizeof (scm_upcase_table)) return scm_upcase_table[c]; @@ -422,14 +330,10 @@ scm_upcase (c) return c; } -#ifdef __STDC__ -int -scm_downcase (unsigned int c) -#else + int scm_downcase (c) unsigned int c; -#endif { if (c < sizeof (scm_downcase_table)) return scm_downcase_table[c]; @@ -495,13 +399,9 @@ int scm_n_charnames = sizeof (scm_charnames) / sizeof (char *); -#ifdef __STDC__ -void -scm_init_chars (void) -#else + void scm_init_chars () -#endif { #include "chars.x" } |