libguile/private-options.h

   1 /*
   2  * private-options.h - private declarations for option handling
   3  *
   4  * We put this in a private header, since layout of data structures
   5  * is an implementation detail that we want to hide.
   6  *
   7  * Copyright (C) 2007, 2009, 2010, 2011 Free Software Foundation, Inc.
   8  *
   9  * This library is free software; you can redistribute it and/or
  10  * modify it under the terms of the GNU Lesser General Public License
  11  * as published by the Free Software Foundation; either version 3 of
  12  * the License, or (at your option) any later version.
  13  *
  14  * This library is distributed in the hope that it will be useful, but
  15  * WITHOUT ANY WARRANTY; without even the implied warranty of
  16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  17  * Lesser General Public License for more details.
  18  *
  19  * You should have received a copy of the GNU Lesser General Public
  20  * License along with this library; if not, write to the Free Software
  21  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  22  * 02110-1301 USA
  23  */
  24
  25 #ifndef PRIVATE_OPTIONS
  26 #define PRIVATE_OPTIONS
  27
  28 /*
  29   debugging.
  30  */
  31 SCM_INTERNAL scm_t_option scm_debug_opts[];
  32
  33 #define SCM_BACKWARDS_P         scm_debug_opts[0].val
  34 #define SCM_BACKTRACE_WIDTH     scm_debug_opts[1].val
  35 #define SCM_BACKTRACE_DEPTH     scm_debug_opts[2].val
  36 #define SCM_BACKTRACE_P         scm_debug_opts[3].val
  37 #define SCM_STACK_LIMIT         scm_debug_opts[4].val
  38 #define SCM_SHOW_FILE_NAME      scm_debug_opts[5].val
  39 #define SCM_WARN_DEPRECATED     scm_debug_opts[6].val
  40 #define SCM_N_DEBUG_OPTIONS 7
  41
  42
  43 /*
  44   printing
  45 */
  46 SCM_INTERNAL scm_t_option scm_print_opts[];
  47
  48 #define SCM_PRINT_HIGHLIGHT_PREFIX_I 0
  49 #define SCM_PRINT_HIGHLIGHT_PREFIX  (SCM_PACK (scm_print_opts[0].val))
  50 #define SCM_PRINT_HIGHLIGHT_SUFFIX_I 1
  51 #define SCM_PRINT_HIGHLIGHT_SUFFIX  (SCM_PACK (scm_print_opts[1].val))
  52 #define SCM_PRINT_KEYWORD_STYLE_I   2
  53 #define SCM_PRINT_KEYWORD_STYLE     (SCM_PACK (scm_print_opts[2].val))
  54 #define SCM_PRINT_ESCAPE_NEWLINES_P scm_print_opts[3].val
  55 #define SCM_N_PRINT_OPTIONS 4
  56
  57
  58 /*
  59   read
  60  */
  61 SCM_INTERNAL scm_t_option scm_read_opts[];
  62
  63 #define SCM_COPY_SOURCE_P      scm_read_opts[0].val
  64 #define SCM_RECORD_POSITIONS_P scm_read_opts[1].val
  65 #define SCM_CASE_INSENSITIVE_P scm_read_opts[2].val
  66 #define SCM_KEYWORD_STYLE      scm_read_opts[3].val
  67 #define SCM_R6RS_ESCAPES_P     scm_read_opts[4].val
  68 #define SCM_SQUARE_BRACKETS_P  scm_read_opts[5].val
  69 #define SCM_HUNGRY_EOL_ESCAPES_P scm_read_opts[6].val
  70 #define SCM_CURLY_INFIX_P      scm_read_opts[7].val
  71
  72 #define SCM_N_READ_OPTIONS 8
  73
  74 #endif  /* PRIVATE_OPTIONS */