mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 03:40:34 +02:00
889975e51a
Ports are given two additional properties: a character encoding and a conversion failure strategy. These properties have getters and setters. The new properties are used to convert any locale text to/from the internal representation of strings. If unspecified, ports use a default value. The default value of these properties is held in a fluid. The default character encoding can be modified by calling setlocale. ISO-8859-1 is treated specially. Since it is a native encoding of strings, it can be processed more quickly. Source code is assumed to be ISO-8859-1 unless otherwise specified. The encoding of a source code file can be given as 'coding: XXXXX' in a magic comment at the top of a file. The C functions that deal with encoding often use a null pointer as shorthand for the native Latin-1 encoding, for efficiency's sake. * test-suite/tests/encoding-iso88591.test: new tests * test-suite/tests/encoding-iso88597.test: new tests * test-suite/tests/encoding-utf8.test: new tests * test-suite/tests/encoding-escapes.test: new tests * test-suite/tests/numbers.test: declare 'binary' encoding * test-suite/tests/ports.test: declare 'binary' encoding * test-suite/tests/r6rs-ports.test: declare 'binary' encoding * module/system/base/compile.scm (compile-file): use source-code file's self-declared encoding when compiling files * libguile/strports.c: store string ports in locale encoding (scm_strport_to_locale_u8vector, scm_call_with_output_locale_u8vector) (scm_open_input_locale_u8vector, scm_get_output_locale_u8vector): new functions * libguile/strings.h: new declaration for scm_i_string_contains_char * libguile/strings.c (scm_i_string_contains_char): new function (scm_from_stringn, scm_to_stringn): use NULL for Latin-1 (scm_from_locale_stringn, scm_to_locale_stringn): respect character encoding of input and output ports * libguile/read.h: declaration for scm_scan_for_encoding * libguile/read.c: (read_token): now takes scheme string instead of C string/length (read_complete_token): new function (scm_read_sexp, scm_read_number, scm_read_mixed_case_symbol) (scm_read_number_and_radix, scm_read_quote, scm_read_semicolon_comment) (scm_read_srfi4_vector, scm_read_bytevector, scm_read_guile_bit_vector) (scm_read_scsh_block_comment, scm_read_commented_expression) (scm_read_extended_symbol, scm_read_sharp_extension, scm_read_shart) (scm_read_expression): use scm_t_wchar for char type, use read_complete_token (scm_scan_for_encoding): new function to find a file's character encoding (scm_file_encoding): new function to find a port's character encoding * libguile/rdelim.c: don't unpack strings * libguile/print.h: declaration for modified function scm_i_charprint * libguile/print.c: use locale when printing characters and strings (scm_i_charprint): input parameter is now scm_t_wchar (scm_simple_format): don't unpack strings * libguile/posix.h: new declaration for scm_setbinary. * libguile/posix.c (scm_setlocale): set default and stdio port encodings based on the locale's character encoding (scm_setbinary): new function * libguile/ports.h (scm_t_port): add encoding and failed conversion handler to port type. Declarations for new or modified functions scm_getc, scm_unget_byte, scm_ungetc, scm_i_get_port_encoding, scm_i_set_port_encoding_x, scm_port_encoding, scm_set_port_encoding_x, scm_i_get_conversion_strategy, scm_i_set_conversion_strategy_x, scm_port_conversion_strategy, scm_set_port_conversion_strategy_x. * libguile/ports.c: assign the current ports to zero on startup so we can see if they've been set. (scm_current_input_port, scm_current_output_port, scm_current_error_port): return #f if the port is not yet initialized (scm_new_port_table_entry): set up a new port's encoding and illegal sequence handler based on the thread's current defaults (scm_i_remove_port): free port encoding name when port is removed (scm_i_mode_bits_n): now takes a scheme string instead of a c string and length. All callers changed. (SCM_MBCHAR_BUF_SIZE): new const (scm_getc): new function, since the scm_getc in inline.h is now scm_get_byte_or_eof. This pulls one codepoint from a port. (scm_lfwrite_substr, scm_lfwrite_str): now uses port's encoding (scm_unget_byte): new function, incorportaing the low-level functionality of scm_ungetc (scm_ungetc): uses scm_unget_byte * libguile/numbers.h (scm_t_wchar): compilation order problem with scm_t_wchar being use in functions in multiple headers. Forward declare scm_t_wchar. * libguile/load.c (scm_primitive_load): scan for file encoding at top of file and use it to set the load port's encoding * libguile/inline.h (scm_get_byte_or_eof): new function incorporating most of the functionality of scm_getc. * libguile/fports.c (fport_fill_input): now returns scm_t_wchar * libguile/chars.h (scm_t_wchar): avoid compilation order problem with declaration of scm_t_wchar
111 lines
4 KiB
C
111 lines
4 KiB
C
/* classes: h_files */
|
||
|
||
#ifndef SCM_PRINT_H
|
||
#define SCM_PRINT_H
|
||
|
||
/* Copyright (C) 1995,1996,1998,2000,2001, 2003, 2004, 2006, 2008 Free Software Foundation, Inc.
|
||
*
|
||
* This library is free software; you can redistribute it and/or
|
||
* modify it under the terms of the GNU Lesser General Public License
|
||
* as published by the Free Software Foundation; either version 3 of
|
||
* the License, or (at your option) any later version.
|
||
*
|
||
* This library is distributed in the hope that it will be useful, but
|
||
* WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||
* Lesser General Public License for more details.
|
||
*
|
||
* You should have received a copy of the GNU Lesser General Public
|
||
* License along with this library; if not, write to the Free Software
|
||
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
|
||
* 02110-1301 USA
|
||
*/
|
||
|
||
|
||
|
||
#include "libguile/__scm.h"
|
||
|
||
#include "libguile/chars.h"
|
||
#include "libguile/options.h"
|
||
|
||
|
||
/* State information passed around during printing.
|
||
*/
|
||
#define SCM_PRINT_STATE_P(obj) (SCM_STRUCTP(obj) \
|
||
&& (scm_is_eq (SCM_STRUCT_VTABLE(obj), \
|
||
scm_print_state_vtable)))
|
||
#define SCM_PRINT_STATE(obj) ((scm_print_state *) SCM_STRUCT_DATA (obj))
|
||
|
||
#define RESET_PRINT_STATE(pstate) \
|
||
do { \
|
||
pstate->list_offset = 0; \
|
||
pstate->top = 0; \
|
||
} while (0)
|
||
|
||
#define SCM_WRITINGP(pstate) ((pstate)->writingp)
|
||
#define SCM_SET_WRITINGP(pstate, x) { (pstate)->writingp = (x); }
|
||
|
||
#define SCM_PORT_WITH_PS_P(p) SCM_TYP16_PREDICATE (scm_tc16_port_with_ps, p)
|
||
#define SCM_PORT_WITH_PS_PORT(p) SCM_CAR (SCM_CELL_OBJECT_1 (p))
|
||
#define SCM_PORT_WITH_PS_PS(p) SCM_CDR (SCM_CELL_OBJECT_1 (p))
|
||
|
||
#define SCM_COERCE_OUTPORT(p) \
|
||
(SCM_PORT_WITH_PS_P (p) ? SCM_PORT_WITH_PS_PORT (p) : p)
|
||
|
||
#define SCM_PRINT_STATE_LAYOUT "sruwuwuwuwuwpwuwuwurprpw"
|
||
typedef struct scm_print_state {
|
||
SCM handle; /* Struct handle */
|
||
int revealed; /* Has the state escaped to Scheme? */
|
||
unsigned long writingp; /* Writing? */
|
||
unsigned long fancyp; /* Fancy printing? */
|
||
unsigned long level; /* Max level */
|
||
unsigned long length; /* Max number of objects per level */
|
||
SCM hot_ref; /* Hot reference */
|
||
unsigned long list_offset;
|
||
unsigned long top; /* Top of reference stack */
|
||
unsigned long ceiling; /* Max size of reference stack */
|
||
SCM ref_vect; /* Stack of references used during
|
||
circular reference detection;
|
||
a simple vector. */
|
||
SCM highlight_objects; /* List of objects to be highlighted */
|
||
} scm_print_state;
|
||
|
||
SCM_API SCM scm_print_state_vtable;
|
||
|
||
SCM_API scm_t_bits scm_tc16_port_with_ps;
|
||
|
||
SCM_API SCM scm_print_options (SCM setting);
|
||
SCM_API SCM scm_make_print_state (void);
|
||
SCM_API void scm_free_print_state (SCM print_state);
|
||
SCM_INTERNAL SCM scm_i_port_with_print_state (SCM port, SCM print_state);
|
||
SCM_INTERNAL void scm_i_charprint (scm_t_wchar c, SCM port);
|
||
SCM_API void scm_intprint (scm_t_intmax n, int radix, SCM port);
|
||
SCM_API void scm_uintprint (scm_t_uintmax n, int radix, SCM port);
|
||
SCM_API void scm_ipruk (char *hdr, SCM ptr, SCM port);
|
||
SCM_API void scm_iprlist (char *hdr, SCM exp, int tlr, SCM port, scm_print_state *pstate);
|
||
SCM_INTERNAL void scm_i_print_symbol_name (SCM sym, SCM port);
|
||
SCM_API void scm_print_symbol_name (const char *str, size_t len, SCM port);
|
||
SCM_API void scm_prin1 (SCM exp, SCM port, int writingp);
|
||
SCM_API void scm_iprin1 (SCM exp, SCM port, scm_print_state *pstate);
|
||
SCM_API SCM scm_write (SCM obj, SCM port);
|
||
SCM_API SCM scm_display (SCM obj, SCM port);
|
||
SCM_API SCM scm_simple_format (SCM port, SCM message, SCM args);
|
||
SCM_API SCM scm_newline (SCM port);
|
||
SCM_API SCM scm_write_char (SCM chr, SCM port);
|
||
SCM_API SCM scm_printer_apply (SCM proc, SCM exp, SCM port, scm_print_state *);
|
||
SCM_API SCM scm_port_with_print_state (SCM port, SCM pstate);
|
||
SCM_API SCM scm_get_print_state (SCM port);
|
||
SCM_API int scm_valid_oport_value_p (SCM val);
|
||
SCM_INTERNAL void scm_init_print (void);
|
||
|
||
#ifdef GUILE_DEBUG
|
||
SCM_API SCM scm_current_pstate (void);
|
||
#endif
|
||
|
||
#endif /* SCM_PRINT_H */
|
||
|
||
/*
|
||
Local Variables:
|
||
c-file-style: "gnu"
|
||
End:
|
||
*/
|