1 /* classes: h_files */ 2 3 #ifndef SCM_READ_H 4 #define SCM_READ_H 5 6 /* Copyright (C) 1995,1996,2000, 2006 Free Software Foundation, Inc. 7 * 8 * This library is free software; you can redistribute it and/or 9 * modify it under the terms of the GNU Lesser General Public 10 * License as published by the Free Software Foundation; either 11 * version 2.1 of the License, or (at your option) any later version. 12 * 13 * This library is distributed in the hope that it will be useful, 14 * but WITHOUT ANY WARRANTY; without even the implied warranty of 15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 16 * Lesser General Public License for more details. 17 * 18 * You should have received a copy of the GNU Lesser General Public 19 * License along with this library; if not, write to the Free Software 20 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA 21 */ 22 23 24 25 #include "libguile/__scm.h" 26 27 #include "libguile/options.h" 28 29 30 /* SCM_LINE_INCREMENTORS are the characters which cause the line count to 31 * be incremented for the purposes of error reporting. This feature 32 * is only used for scheme code loaded from files. 33 * 34 * SCM_WHITE_SPACES are other characters which should be treated like spaces 35 * in programs. 36 */ 37 38 #define SCM_LINE_INCREMENTORS '\n' 39 40 #ifdef MSDOS 41 # define SCM_SINGLE_SPACES ' ':case '\r':case '\f': case 26 42 #else 43 # define SCM_SINGLE_SPACES ' ':case '\r':case '\f' 44 #endif 45 46 #define SCM_WHITE_SPACES SCM_SINGLE_SPACES: case '\t' 47 48 SCM_API scm_t_option scm_read_opts[]; 49 50 #define SCM_COPY_SOURCE_P scm_read_opts[0].val 51 #define SCM_RECORD_POSITIONS_P scm_read_opts[1].val 52 #define SCM_CASE_INSENSITIVE_P scm_read_opts[2].val 53 #define SCM_KEYWORD_STYLE scm_read_opts[3].val 54 #if SCM_ENABLE_ELISP 55 #define SCM_ELISP_VECTORS_P scm_read_opts[4].val 56 #define SCM_ESCAPED_PARENS_P scm_read_opts[5].val 57 #define SCM_N_READ_OPTIONS 6 58 #else 59 #define SCM_N_READ_OPTIONS 4 60 #endif 61 62 63 64 SCM_API SCM scm_sym_dot; 65 66 SCM_API SCM scm_read_options (SCM setting); 67 SCM_API SCM scm_read (SCM port); 68 SCM_API size_t scm_read_token (int ic, SCM * tok_buf, SCM port, int weird); 69 SCM_API SCM scm_read_hash_extend (SCM chr, SCM proc); 70 71 SCM_API void scm_i_input_error (const char *func, SCM port, 72 const char *message, SCM arg) 73 SCM_NORETURN; 74 75 SCM_API void scm_init_read (void); 76 77 #endif /* SCM_READ_H */ 78 79 /* 80 Local Variables: 81 c-file-style: "gnu" 82 End: 83 */ 84