* readline.scm: moved to ./ice-9/

[bpt/guile.git] / libguile / root.h

/* 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_nullvect scm_sys_protects[2]
#define scm_nullstr scm_sys_protects[3]
#define scm_keyword_obarray scm_sys_protects[4]
#define scm_stand_in_procs scm_sys_protects[5]
#define scm_object_whash scm_sys_protects[6]
#define scm_permobjs scm_sys_protects[7]
#define scm_asyncs scm_sys_protects[8]
#define scm_protects scm_sys_protects[9]
#define scm_properties_whash scm_sys_protects[10]
#define scm_gc_registered_roots scm_sys_protects[11]
#define scm_source_whash scm_sys_protects[12]
#define SCM_NUM_PROTECTS 13

SCM_API SCM scm_sys_protects[];

\f

SCM_API scm_t_bits scm_tc16_root;

#define SCM_ROOTP(obj)       SCM_SMOB_PREDICATE (scm_tc16_root, (obj))
#define SCM_ROOT_STATE(root) ((scm_root_state *) SCM_SMOB_DATA (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:
*/