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