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 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_API scm_t_option scm_debug_opts[];
  32
  33 #define SCM_BREAKPOINTS_P       scm_debug_opts[1].val
  34 #define SCM_TRACE_P             scm_debug_opts[2].val
  35 #define SCM_REC_PROCNAMES_P     scm_debug_opts[3].val
  36 #define SCM_BACKWARDS_P         scm_debug_opts[4].val
  37 #define SCM_BACKTRACE_WIDTH     scm_debug_opts[5].val
  38 #define SCM_BACKTRACE_INDENT    scm_debug_opts[6].val
  39 #define SCM_N_FRAMES            scm_debug_opts[7].val
  40 #define SCM_BACKTRACE_MAXDEPTH  scm_debug_opts[8].val
  41 #define SCM_BACKTRACE_DEPTH     scm_debug_opts[9].val
  42 #define SCM_BACKTRACE_P         scm_debug_opts[10].val
  43 #define SCM_DEVAL_P             scm_debug_opts[11].val
  44 #define SCM_STACK_LIMIT         scm_debug_opts[12].val
  45 #define SCM_SHOW_FILE_NAME      scm_debug_opts[13].val
  46 #define SCM_WARN_DEPRECATED     scm_debug_opts[14].val
  47 #define SCM_N_DEBUG_OPTIONS 15
  48
  49
  50 /*
  51   printing
  52 */
  53 SCM_API scm_t_option scm_print_opts[];
  54
  55 #define SCM_PRINT_CLOSURE           (SCM_PACK (scm_print_opts[0].val))
  56 #define SCM_PRINT_SOURCE_P          ((int) scm_print_opts[1].val)
  57 #define SCM_PRINT_HIGHLIGHT_PREFIX  (SCM_PACK (scm_print_opts[2].val))
  58 #define SCM_PRINT_HIGHLIGHT_SUFFIX  (SCM_PACK (scm_print_opts[3].val))
  59 #define SCM_PRINT_KEYWORD_STYLE_I   4
  60 #define SCM_PRINT_KEYWORD_STYLE     (SCM_PACK (scm_print_opts[4].val))
  61 #define SCM_N_PRINT_OPTIONS 5
  62
  63
  64 /*
  65   read
  66  */
  67 SCM_API scm_t_option scm_read_opts[];
  68
  69 #define SCM_COPY_SOURCE_P      scm_read_opts[0].val
  70 #define SCM_RECORD_POSITIONS_P scm_read_opts[1].val
  71 #define SCM_CASE_INSENSITIVE_P scm_read_opts[2].val
  72 #define SCM_KEYWORD_STYLE      scm_read_opts[3].val
  73 #define SCM_ELISP_VECTORS_P    scm_read_opts[4].val
  74 #define SCM_ESCAPED_PARENS_P   scm_read_opts[5].val
  75 #define SCM_R6RS_ESCAPES_P     scm_read_opts[6].val
  76 #define SCM_SQUARE_BRACKETS_P  scm_read_opts[7].val
  77
  78 #define SCM_N_READ_OPTIONS 8
  79
  80 #endif  /* PRIVATE_OPTIONS */