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 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
  11  * License as published by the Free Software Foundation; either
  12  * version 2.1 of the License, or (at your option) any later version.
  13  *
  14  * This library is distributed in the hope that it will be useful,
  15  * but 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 02110-1301 USA
  22  */
  23
  24 #ifndef PRIVATE_OPTIONS
  25 #define PRIVATE_OPTIONS
  26
  27 /*
  28   evaluator
  29  */
  30 SCM_API scm_t_option scm_eval_opts[];
  31
  32 SCM_API long scm_eval_stack;
  33
  34 SCM_API scm_t_option scm_evaluator_trap_table[];
  35
  36 SCM_API SCM scm_eval_options_interface (SCM setting);
  37
  38 #define SCM_EVAL_STACK         scm_eval_opts[0].val
  39
  40 #define SCM_TRAPS_P            scm_evaluator_trap_table[0].val
  41 #define SCM_ENTER_FRAME_P      scm_evaluator_trap_table[1].val
  42 #define SCM_APPLY_FRAME_P      scm_evaluator_trap_table[2].val
  43 #define SCM_EXIT_FRAME_P       scm_evaluator_trap_table[3].val
  44 #define SCM_ENTER_FRAME_HDLR   (SCM_PACK (scm_evaluator_trap_table[4].val))
  45 #define SCM_APPLY_FRAME_HDLR   (SCM_PACK (scm_evaluator_trap_table[5].val))
  46 #define SCM_EXIT_FRAME_HDLR    (SCM_PACK (scm_evaluator_trap_table[6].val))
  47 #define SCM_MEMOIZE_P       scm_evaluator_trap_table[7].val
  48 #define SCM_MEMOIZE_HDLR    (SCM_PACK (scm_evaluator_trap_table[8].val))
  49
  50 /*
  51   debugging.
  52  */
  53 SCM_API scm_t_option scm_debug_opts[];
  54
  55 #define SCM_BREAKPOINTS_P       scm_debug_opts[1].val
  56 #define SCM_TRACE_P             scm_debug_opts[2].val
  57 #define SCM_REC_PROCNAMES_P     scm_debug_opts[3].val
  58 #define SCM_BACKWARDS_P         scm_debug_opts[4].val
  59 #define SCM_BACKTRACE_WIDTH     scm_debug_opts[5].val
  60 #define SCM_BACKTRACE_INDENT    scm_debug_opts[6].val
  61 #define SCM_N_FRAMES            scm_debug_opts[7].val
  62 #define SCM_BACKTRACE_MAXDEPTH  scm_debug_opts[8].val
  63 #define SCM_BACKTRACE_DEPTH     scm_debug_opts[9].val
  64 #define SCM_BACKTRACE_P         scm_debug_opts[10].val
  65 #define SCM_DEVAL_P             scm_debug_opts[11].val
  66 #define SCM_STACK_LIMIT         scm_debug_opts[12].val
  67 #define SCM_SHOW_FILE_NAME      scm_debug_opts[13].val
  68 #define SCM_WARN_DEPRECATED     scm_debug_opts[14].val
  69 #define SCM_N_DEBUG_OPTIONS 15
  70
  71
  72 /*
  73   printing
  74 */
  75 SCM_API scm_t_option scm_print_opts[];
  76
  77 #define SCM_PRINT_CLOSURE           (SCM_PACK (scm_print_opts[0].val))
  78 #define SCM_PRINT_SOURCE_P          ((int) scm_print_opts[1].val)
  79 #define SCM_PRINT_HIGHLIGHT_PREFIX  (SCM_PACK (scm_print_opts[2].val))
  80 #define SCM_PRINT_HIGHLIGHT_SUFFIX  (SCM_PACK (scm_print_opts[3].val))
  81 #define SCM_PRINT_KEYWORD_STYLE_I   4
  82 #define SCM_PRINT_KEYWORD_STYLE     (SCM_PACK (scm_print_opts[4].val))
  83 #define SCM_N_PRINT_OPTIONS 5
  84
  85
  86 /*
  87   read
  88  */
  89 SCM_API scm_t_option scm_read_opts[];
  90
  91 #define SCM_COPY_SOURCE_P      scm_read_opts[0].val
  92 #define SCM_RECORD_POSITIONS_P scm_read_opts[1].val
  93 #define SCM_CASE_INSENSITIVE_P scm_read_opts[2].val
  94 #define SCM_KEYWORD_STYLE      scm_read_opts[3].val
  95 #if SCM_ENABLE_ELISP
  96 #define SCM_ELISP_VECTORS_P    scm_read_opts[4].val
  97 #define SCM_ESCAPED_PARENS_P   scm_read_opts[5].val
  98 #define SCM_N_READ_OPTIONS 6
  99 #else
 100 #define SCM_N_READ_OPTIONS 4
 101 #endif
 102
 103 #endif  /* PRIVATE_OPTIONS */