/usr/include/libguile/environments.h is in guile-1.8-dev 1.8.8+1-8ubuntu3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 | /* classes: h_files */
#ifndef SCM_ENVIRONMENTS_H
#define SCM_ENVIRONMENTS_H
/* Copyright (C) 1999,2000, 2006 Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
*/
#include "libguile/__scm.h"
/* The type for folding functions written in C. A function meant to be passed
* to scm_c_environment_fold should have the type scm_environment_folder.
*/
typedef SCM (*scm_environment_folder) (SCM data, SCM sym, SCM val, SCM tail);
/* The type for observer functions written in C. A function meant to be
* passed to scm_c_environment_observe should have the type
* scm_environment_observer.
*/
typedef void (*scm_environment_observer) (SCM env, SCM data);
struct scm_environment_funcs {
SCM (*ref) (SCM self, SCM symbol);
SCM (*fold) (SCM self, scm_environment_folder proc, SCM data, SCM init);
SCM (*define) (SCM self, SCM symbol, SCM value);
SCM (*undefine) (SCM self, SCM symbol);
SCM (*set) (SCM self, SCM symbol, SCM value);
SCM (*cell) (SCM self, SCM symbol, int for_write);
SCM (*observe) (SCM self, scm_environment_observer proc, SCM data, int weak_p);
void (*unobserve) (SCM self, SCM token);
SCM (*mark) (SCM self);
void (*free) (SCM self);
int (*print) (SCM self, SCM port, scm_print_state *pstate);
};
#define SCM_ENVIRONMENT_SUCCESS SCM_BOOL_T
#define SCM_ENVIRONMENT_BINDING_IMMUTABLE scm_from_int (0)
#define SCM_ENVIRONMENT_LOCATION_IMMUTABLE scm_from_int (1)
#define SCM_ENVIRONMENT_LOCATION_NO_CELL SCM_BOOL_F
SCM_API scm_t_bits scm_tc16_environment;
#define SCM_ENVIRONMENT_P(x) \
(!SCM_IMP (x) && SCM_CELL_TYPE (x) == scm_tc16_environment)
#define SCM_ENVIRONMENT_FUNCS(env) \
(*((struct scm_environment_funcs **) SCM_CELL_WORD_1 (env)))
#define SCM_ENVIRONMENT_BOUND_P(env, symbol) \
(!SCM_UNBNDP (SCM_ENVIRONMENT_REF (env, symbol)))
#define SCM_ENVIRONMENT_REF(env, symbol) \
((*(SCM_ENVIRONMENT_FUNCS (env)->ref)) (env, symbol))
#define SCM_ENVIRONMENT_FOLD(env, proc, data, init) \
((*(SCM_ENVIRONMENT_FUNCS (env)->fold)) (env, proc, data, init))
#define SCM_ENVIRONMENT_DEFINE(env, symbol, value) \
((*(SCM_ENVIRONMENT_FUNCS (env)->define)) (env, symbol, value))
#define SCM_ENVIRONMENT_UNDEFINE(env, symbol) \
((*(SCM_ENVIRONMENT_FUNCS (env)->undefine)) (env, symbol))
#define SCM_ENVIRONMENT_SET(env, symbol, value) \
((*(SCM_ENVIRONMENT_FUNCS (env)->set)) (env, symbol, value))
#define SCM_ENVIRONMENT_CELL(env, symbol, for_write) \
((*(SCM_ENVIRONMENT_FUNCS (env)->cell)) (env, symbol, for_write))
#define SCM_ENVIRONMENT_OBSERVE(env, proc, data, weak_p) \
((*(SCM_ENVIRONMENT_FUNCS (env)->observe)) (env, proc, data, weak_p))
#define SCM_ENVIRONMENT_UNOBSERVE(env, token) \
((*(SCM_ENVIRONMENT_FUNCS (env)->unobserve)) (env, token))
SCM_API scm_t_bits scm_tc16_observer;
#define SCM_OBSERVER_P(x) \
(!SCM_IMP (x) && (SCM_CELL_TYPE (x) == scm_tc16_observer))
#define SCM_OBSERVER_ENVIRONMENT(x) \
(SCM_CELL_OBJECT_1 (x))
#define SCM_OBSERVER_DATA(x) \
(SCM_CELL_OBJECT_2 (x))
#define SCM_OBSERVER_PROC(x) \
((scm_environment_observer) SCM_CELL_WORD_3 (x))
SCM_API SCM scm_system_environment;
SCM_API void scm_error_environment_unbound (const char *, SCM, SCM) SCM_NORETURN;
SCM_API void scm_error_environment_immutable_binding (const char *, SCM, SCM) SCM_NORETURN;
SCM_API void scm_error_environment_immutable_location (const char *, SCM, SCM) SCM_NORETURN;
SCM_API SCM scm_make_environment (void *type);
SCM_API SCM scm_environment_p (SCM env);
SCM_API SCM scm_environment_bound_p (SCM env, SCM sym);
SCM_API SCM scm_environment_ref (SCM env, SCM sym);
SCM_API SCM scm_c_environment_ref (SCM env, SCM sym);
SCM_API SCM scm_environment_fold (SCM env, SCM proc, SCM init);
SCM_API SCM scm_c_environment_fold (SCM env, scm_environment_folder proc, SCM data, SCM init);
SCM_API SCM scm_environment_define (SCM env, SCM sym, SCM val);
SCM_API SCM scm_environment_undefine (SCM env, SCM sym);
SCM_API SCM scm_environment_set_x (SCM env, SCM sym, SCM val);
SCM_API SCM scm_environment_cell (SCM env, SCM sym, SCM for_write);
SCM_API SCM scm_c_environment_cell (SCM env, SCM sym, int for_write);
SCM_API SCM scm_environment_observe (SCM env, SCM proc);
SCM_API SCM scm_environment_observe_weak (SCM env, SCM proc);
SCM_API SCM scm_c_environment_observe (SCM env, scm_environment_observer proc, SCM data, int weak_p);
SCM_API SCM scm_environment_unobserve (SCM token);
SCM_API void scm_environments_prehistory (void);
SCM_API void scm_init_environments (void);
SCM_API void *scm_type_leaf_environment;
#define SCM_LEAF_ENVIRONMENT_P(env) \
(SCM_ENVIRONMENT_P (env) \
&& SCM_ENVIRONMENT_FUNCS (env) == scm_type_leaf_environment)
SCM_API SCM scm_make_leaf_environment (void);
SCM_API SCM scm_leaf_environment_p (SCM env);
SCM_API void *scm_type_eval_environment;
#define SCM_EVAL_ENVIRONMENT_P(env) \
(SCM_ENVIRONMENT_P (env) \
&& SCM_ENVIRONMENT_FUNCS (env) == scm_type_eval_environment)
SCM_API SCM scm_make_eval_environment (SCM local, SCM imported);
SCM_API SCM scm_eval_environment_p (SCM env);
SCM_API SCM scm_eval_environment_local (SCM env);
SCM_API SCM scm_eval_environment_set_local_x (SCM env, SCM local);
SCM_API SCM scm_eval_environment_imported (SCM env);
SCM_API SCM scm_eval_environment_set_imported_x (SCM env, SCM imported);
SCM_API void *scm_type_import_environment;
#define SCM_IMPORT_ENVIRONMENT_P(env) \
(SCM_ENVIRONMENT_P (env) \
&& SCM_ENVIRONMENT_FUNCS (env) == scm_type_import_environment)
SCM_API SCM scm_make_import_environment (SCM imports, SCM conflict_proc);
SCM_API SCM scm_import_environment_p (SCM env);
SCM_API SCM scm_import_environment_imports (SCM env);
SCM_API SCM scm_import_environment_set_imports_x (SCM env, SCM imports);
SCM_API void *scm_type_export_environment;
#define SCM_EXPORT_ENVIRONMENT_P(env) \
(SCM_ENVIRONMENT_P (env) \
&& SCM_ENVIRONMENT_FUNCS (env) == scm_type_export_environment)
SCM_API SCM scm_make_export_environment (SCM private, SCM signature);
SCM_API SCM scm_export_environment_p (SCM env);
SCM_API SCM scm_export_environment_private (SCM env);
SCM_API SCM scm_export_environment_set_private_x (SCM env, SCM private);
SCM_API SCM scm_export_environment_signature (SCM env);
SCM_API SCM scm_export_environment_set_signature_x (SCM env, SCM signature);
#endif /* SCM_ENVIRONMENTS_H */
/*
Local Variables:
c-file-style: "gnu"
End:
*/
|