-/* classes: h_files */
-
-#ifndef SCM_ROOT_H
-#define SCM_ROOT_H
-
-/* Copyright (C) 1996,1998,2000,2001, 2002 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
- */
-
-\f
-
-#include "libguile/__scm.h"
-#include "libguile/debug.h"
-#include "libguile/throw.h"
-
-\f
-
-#define scm_flo0 scm_sys_protects[0]
-#define scm_listofnull scm_sys_protects[1]
-#define scm_undefineds scm_sys_protects[2]
-#define scm_nullvect scm_sys_protects[3]
-#define scm_nullstr scm_sys_protects[4]
-#define scm_keyword_obarray scm_sys_protects[5]
-#define scm_stand_in_procs scm_sys_protects[6]
-#define scm_object_whash scm_sys_protects[7]
-#define scm_permobjs scm_sys_protects[8]
-#define scm_asyncs scm_sys_protects[9]
-#define scm_protects scm_sys_protects[10]
-#define scm_properties_whash scm_sys_protects[11]
-#define scm_gc_registered_roots scm_sys_protects[12]
-#define scm_source_whash scm_sys_protects[13]
-#define SCM_NUM_PROTECTS 14
-
-SCM_API SCM scm_sys_protects[];
-
-\f
-
-SCM_API scm_t_bits scm_tc16_root;
-
-#define SCM_ROOTP(obj) SCM_TYP16_PREDICATE (scm_tc16_root, obj)
-#define SCM_ROOT_STATE(root) ((scm_root_state *) SCM_CELL_WORD_1 (root))
-
-typedef struct scm_root_state
-{
- SCM_STACKITEM * stack_base;
- jmp_buf save_regs_gc_mark;
- int errjmp_bad;
-
- SCM rootcont;
- SCM dynwinds;
-
- /* It is very inefficient to have this variable in the root state. */
- scm_t_debug_frame *last_debug_frame;
-
- SCM progargs; /* vestigial */
- SCM exitval; /* vestigial */
-
- SCM cur_inp;
- SCM cur_outp;
- SCM cur_errp;
- SCM cur_loadp;
-
- SCM fluids;
-
- SCM handle; /* The root object for this root state */
- SCM parent; /* The parent root object */
-
- SCM active_asyncs; /* The thunks to be run at the next
- safe point */
- SCM signal_asyncs; /* The pre-queued cells for signal handlers.
- */
- unsigned int block_asyncs; /* Non-zero means that asyncs should
- not be run. */
- unsigned int pending_asyncs; /* Non-zero means that asyncs might be pending.
- */
-} scm_root_state;
-
-#define scm_stack_base (scm_root->stack_base)
-#define scm_save_regs_gc_mark (scm_root->save_regs_gc_mark)
-#define scm_errjmp_bad (scm_root->errjmp_bad)
-
-#define scm_rootcont (scm_root->rootcont)
-#define scm_dynwinds (scm_root->dynwinds)
-#define scm_progargs (scm_root->progargs)
-#define scm_last_debug_frame (scm_root->last_debug_frame)
-#define scm_exitval (scm_root->exitval)
-#define scm_cur_inp (scm_root->cur_inp)
-#define scm_cur_outp (scm_root->cur_outp)
-#define scm_cur_errp (scm_root->cur_errp)
-#define scm_cur_loadp (scm_root->cur_loadp)
-
-#define scm_root ((scm_root_state *) SCM_THREAD_LOCAL_DATA)
-#define scm_set_root(new_root) SCM_SET_THREAD_LOCAL_DATA (new_root)
-
-\f
-
-SCM_API SCM scm_make_root (SCM parent);
-SCM_API SCM scm_internal_cwdr (scm_t_catch_body body,
- void *body_data,
- scm_t_catch_handler handler,
- void *handler_data,
- SCM_STACKITEM *stack_start);
-SCM_API SCM scm_call_with_dynamic_root (SCM thunk, SCM handler);
-SCM_API SCM scm_dynamic_root (void);
-SCM_API SCM scm_apply_with_dynamic_root (SCM proc, SCM a1, SCM args, SCM handler);
-SCM_API void scm_init_root (void);
-
-#endif /* SCM_ROOT_H */
-
-/*
- Local Variables:
- c-file-style: "gnu"
- End:
-*/
+/* classes: h_files */
+
+#ifndef SCM_ROOT_H
+#define SCM_ROOT_H
+
+/* Copyright (C) 1996,1998,2000,2001, 2002, 2006, 2008, 2009 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 3 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
+ */
+
+\f
+
+#include "libguile/__scm.h"
+#include "libguile/debug.h"
+#include "libguile/throw.h"
+
+\f
+
+SCM_API SCM scm_internal_cwdr (scm_t_catch_body body,
+ void *body_data,
+ scm_t_catch_handler handler,
+ void *handler_data,
+ SCM_STACKITEM *stack_start);
+SCM_API SCM scm_call_with_dynamic_root (SCM thunk, SCM handler);
+SCM_API SCM scm_dynamic_root (void);
+SCM_API SCM scm_apply_with_dynamic_root (SCM proc, SCM a1, SCM args, SCM handler);
+SCM_INTERNAL void scm_init_root (void);
+
+#endif /* SCM_ROOT_H */
+
+/*
+ Local Variables:
+ c-file-style: "gnu"
+ End:
+*/
HCoop / bpt / guile.git / blobdiff