diff options
author | Tom Tromey <tromey@redhat.com> | 1997-10-15 17:18:32 +0000 |
---|---|---|
committer | Tom Tromey <tromey@redhat.com> | 1997-10-15 17:18:32 +0000 |
commit | b7f3516f99450ec2f0338ed1d17e28491c85de9e (patch) | |
tree | d0bfca606a3a187d20da8671282641c04e74aa61 /libguile/unif.c | |
parent | 8d6787b6dcf1480f3c67c4c9b8d4ca81b4ec0b40 (diff) | |
download | guile-b7f3516f99450ec2f0338ed1d17e28491c85de9e.tar.gz |
* Makefile.in: Rebuilt.
* Makefile.am (libguile_la_SOURCES): Removed extchrs.c,
mbstrings.c.
(modinclude_HEADERS): Removed extchrs.h, mbstrings.h.
* unif.c (scm_vector_set_length_x): Don't handle multibyte
strings.
* tag.c (scm_utag_mb_string, scm_utag_mb_substring): Removed.
(scm_tag): Don't handle multibyte strings.
* read.c: Don't include mbstrings.h.
(scm_lreadr): Don't handle multibyte ports.
* kw.c: Don't include mbstrings.h.
* init.c: Don't include mbstrings.h.
(scm_boot_guile_1): Don't init mbstrings module.
* hash.c (scm_hasher): Don't handle mbstrings.
* gscm.c (gscm_run_scm): Don't init mbstrings module.
* gc.c (scm_gc_mark): Don't handle mbstrings.
(scm_gc_sweep): Likewise.
* eval.c (SCM_CEVAL): Don't handle mbstrings.
* eq.c (scm_equal_p): Use SCM_TYP7S, not SCM_TYP7SD.
* tags.h (SCM_TYP7SD): Removed.
(SCM_TYP7D): Removed.
(scm_tc7_mb_string): Removed.
(scm_tc7_mb_substring): Removed.
* print.c (scm_iprin1): Handle char printing directly. Don't
handle mbstrings.
Don't include "mbstrings.h".
* symbols.c (scm_intern_obarray_soft, scm_string_to_symbol,
scm_string_to_obarray_symbol, msymbolize): Don't set symbol's
multi-byte flag.
Don't include "mbstrings.h".
* symbols.h (SCM_SYMBOL_MULTI_BYTE_STRINGP): Removed.
(SCM_SYMBOL_SLOTS): Define as 4.
(SCM_ROSTRINGP): Use SCM_TYP7S, not SCM_TYP7SD.
* arbiters.c, backtrace.c, debug.c, dynl.c, eval.c, fluids.c,
gc.c, gsubr.c, ioext.c, kw.c, mallocs.c, numbers.c, ports.c,
print.c, read.c, regex-posix.c, root.c, srcprop.c, stackchk.c,
struct.c, threads.c, throw.c, unif.c, variable.c: Use new
("gen"-less) I/O function names.
* ports.c (scm_add_to_port_table): Don't set port's
representation.
* ports.h (scm_port_representation_type): Removed.
(scm_string_representation_type): Removed.
(struct scm_port_table ): Removed representation field.
(SCM_PORT_REPRESENTATION): Removed.
(SCM_SET_PORT_REPRESENTATION): Removed.
* genio.h: Use new function names.
* genio.c: Don't include "extchrs.h".
(scm_gen_putc, scm_gen_puts, scm_gen_write, scm_get_getc):
Removed.
(scm_putc, scm_puts, scm_lfwrite): No longer static.
(scm_getc): No longer static; handle line and column changes.
(scm_ungetc): Renamed from scm_gen_ungetc.
(scm_do_read_line): Renamed from scm_gen_read_line.
* libguile.h: Don't include "extchrs.h" or "mbstrings.h"
* extchrs.h, extchrs.c, mbstrings.h, mbstrings.c: Removed.
Diffstat (limited to 'libguile/unif.c')
-rw-r--r-- | libguile/unif.c | 65 |
1 files changed, 32 insertions, 33 deletions
diff --git a/libguile/unif.c b/libguile/unif.c index 17b5fbd7a..d6bf1da80 100644 --- a/libguile/unif.c +++ b/libguile/unif.c @@ -99,7 +99,6 @@ scm_vector_set_length_x (vect, len) default: badarg1: scm_wta (vect, (char *) SCM_ARG1, s_vector_set_length_x); case scm_tc7_string: - case scm_tc7_mb_string: SCM_ASRTGO (vect != scm_nullstr, badarg1); sz = sizeof (char); l++; @@ -2228,7 +2227,7 @@ tail: scm_iprin1 (ra, port, pstate); for (j += inc; n-- > 0; j += inc) { - scm_gen_putc (' ', port); + scm_putc (' ', port); SCM_ARRAY_BASE (ra) = j; scm_iprin1 (ra, port, pstate); } @@ -2240,16 +2239,16 @@ tail: inc = SCM_ARRAY_DIMS (ra)[k].inc; for (i = SCM_ARRAY_DIMS (ra)[k].lbnd; i < SCM_ARRAY_DIMS (ra)[k].ubnd; i++) { - scm_gen_putc ('(', port); + scm_putc ('(', port); rapr1 (ra, j, k + 1, port, pstate); - scm_gen_puts (scm_regular_string, ") ", port); + scm_puts (") ", port); j += inc; } if (i == SCM_ARRAY_DIMS (ra)[k].ubnd) { /* could be zero size. */ - scm_gen_putc ('(', port); + scm_putc ('(', port); rapr1 (ra, j, k + 1, port, pstate); - scm_gen_putc (')', port); + scm_putc (')', port); } break; } @@ -2268,7 +2267,7 @@ tail: scm_iprin1 (scm_uniform_vector_ref (ra, SCM_MAKINUM (j)), port, pstate); for (j += inc; n-- > 0; j += inc) { - scm_gen_putc (' ', port); + scm_putc (' ', port); scm_iprin1 (scm_cvref (ra, j, SCM_UNDEFINED), port, pstate); } break; @@ -2278,19 +2277,19 @@ tail: if (SCM_WRITINGP (pstate)) for (j += inc; n-- > 0; j += inc) { - scm_gen_putc (' ', port); + scm_putc (' ', port); scm_iprin1 (SCM_MAKICHR (SCM_CHARS (ra)[j]), port, pstate); } else for (j += inc; n-- > 0; j += inc) - scm_gen_putc (SCM_CHARS (ra)[j], port); + scm_putc (SCM_CHARS (ra)[j], port); break; case scm_tc7_byvect: if (n-- > 0) scm_intprint (((char *)SCM_CDR (ra))[j], 10, port); for (j += inc; n-- > 0; j += inc) { - scm_gen_putc (' ', port); + scm_putc (' ', port); scm_intprint (((char *)SCM_CDR (ra))[j], 10, port); } break; @@ -2301,7 +2300,7 @@ tail: scm_intprint (SCM_VELTS (ra)[j], 10, port); for (j += inc; n-- > 0; j += inc) { - scm_gen_putc (' ', port); + scm_putc (' ', port); scm_intprint (SCM_VELTS (ra)[j], 10, port); } break; @@ -2311,7 +2310,7 @@ tail: scm_intprint (((short *)SCM_CDR (ra))[j], 10, port); for (j += inc; n-- > 0; j += inc) { - scm_gen_putc (' ', port); + scm_putc (' ', port); scm_intprint (((short *)SCM_CDR (ra))[j], 10, port); } break; @@ -2326,7 +2325,7 @@ tail: scm_floprint (z, port, pstate); for (j += inc; n-- > 0; j += inc) { - scm_gen_putc (' ', port); + scm_putc (' ', port); SCM_FLO (z) = ((float *) SCM_VELTS (ra))[j]; scm_floprint (z, port, pstate); } @@ -2341,7 +2340,7 @@ tail: scm_floprint (z, port, pstate); for (j += inc; n-- > 0; j += inc) { - scm_gen_putc (' ', port); + scm_putc (' ', port); SCM_REAL (z) = ((double *) SCM_VELTS (ra))[j]; scm_floprint (z, port, pstate); } @@ -2356,7 +2355,7 @@ tail: scm_floprint ((0.0 == SCM_IMAG (cz) ? z : cz), port, pstate); for (j += inc; n-- > 0; j += inc) { - scm_gen_putc (' ', port); + scm_putc (' ', port); SCM_REAL (z) = SCM_REAL (cz) = ((double *) SCM_VELTS (ra))[2 * j]; SCM_IMAG (cz) = ((double *) SCM_VELTS (ra))[2 * j + 1]; scm_floprint ((0.0 == SCM_IMAG (cz) ? z : cz), port, pstate); @@ -2377,7 +2376,7 @@ scm_raprin1 (exp, port, pstate) { SCM v = exp; scm_sizet base = 0; - scm_gen_putc ('#', port); + scm_putc ('#', port); tail: switch SCM_TYP7 (v) @@ -2390,9 +2389,9 @@ tail: if (SCM_ARRAYP (v)) { - scm_gen_puts (scm_regular_string, "<enclosed-array ", port); + scm_puts ("<enclosed-array ", port); rapr1 (exp, base, 0, port, pstate); - scm_gen_putc ('>', port); + scm_putc ('>', port); return 1; } else @@ -2405,13 +2404,13 @@ tail: if (exp == v) { /* a uve, not an scm_array */ register long i, j, w; - scm_gen_putc ('*', port); + scm_putc ('*', port); for (i = 0; i < (SCM_LENGTH (exp)) / SCM_LONG_BIT; i++) { w = SCM_VELTS (exp)[i]; for (j = SCM_LONG_BIT; j; j--) { - scm_gen_putc (w & 1 ? '1' : '0', port); + scm_putc (w & 1 ? '1' : '0', port); w >>= 1; } } @@ -2421,52 +2420,52 @@ tail: w = SCM_VELTS (exp)[SCM_LENGTH (exp) / SCM_LONG_BIT]; for (; j; j--) { - scm_gen_putc (w & 1 ? '1' : '0', port); + scm_putc (w & 1 ? '1' : '0', port); w >>= 1; } } return 1; } else - scm_gen_putc ('b', port); + scm_putc ('b', port); break; case scm_tc7_string: - scm_gen_putc ('a', port); + scm_putc ('a', port); break; case scm_tc7_byvect: - scm_gen_puts (scm_regular_string, "bytes", port); + scm_puts ("bytes", port); break; case scm_tc7_uvect: - scm_gen_putc ('u', port); + scm_putc ('u', port); break; case scm_tc7_ivect: - scm_gen_putc ('e', port); + scm_putc ('e', port); break; case scm_tc7_svect: - scm_gen_puts (scm_regular_string, "short", port); + scm_puts ("short", port); break; #ifdef LONGLONGS case scm_tc7_llvect: - scm_gen_puts (scm_regular_string, "long_long", port); + scm_puts ("long_long", port); break; #endif #ifdef SCM_FLOATS #ifdef SCM_SINGLES case scm_tc7_fvect: - scm_gen_putc ('s', port); + scm_putc ('s', port); break; #endif /*SCM_SINGLES*/ case scm_tc7_dvect: - scm_gen_putc ('i', port); + scm_putc ('i', port); break; case scm_tc7_cvect: - scm_gen_putc ('c', port); + scm_putc ('c', port); break; #endif /*SCM_FLOATS*/ } - scm_gen_putc ('(', port); + scm_putc ('(', port); rapr1 (exp, base, 0, port, pstate); - scm_gen_putc (')', port); + scm_putc (')', port); return 1; } |