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