guile/libguile/guardians.h

/* classes: h_files */

#ifndef SCM_GUARDIANS_H
#define SCM_GUARDIANS_H

/* Copyright (C) 1998,2000,2001, 2006, 2008 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
 */


#include "libguile/__scm.h"

SCM_API SCM scm_make_guardian (void);

SCM_INTERNAL void scm_i_init_guardians_for_gc (void);
SCM_INTERNAL void scm_i_identify_inaccessible_guardeds (void);
SCM_INTERNAL int scm_i_mark_inaccessible_guardeds (void);

SCM_INTERNAL void scm_init_guardians (void);

#endif  /* SCM_GUARDIANS_H */

/*
  Local Variables:
  c-file-style: "gnu"
  End:
*/
-												* guardians.c, guardians.h (scm_make_guardian,
scm_guardian_gc_init, scm_guardian_zombify, scm_guard,
scm_get_one_zombie, scm_init_guardian): This is an implementation
of guardians as described in R. Kent Dybvig, Carl Bruggeman, and
David Eby (1993) "Guardians in a Generation-Based Garbage
Collector" ACM SIGPLAN Conference on Programming Language Design
and Implementation, June 1993 ftp://ftp.cs.indiana.edu
/pub/scheme-repository/doc/pubs/guardians.ps.gz
Author: Michael	N. Livshin.

											
										
										
											1998-12-23 06:38:06 +00:00
+								/* classes: h_files */
-												* Renamed header macros to the SCM_<filename>_H format.

											
										
										
											2001-08-31 10:42:19 +00:00
+								#ifndef SCM_GUARDIANS_H
 								#define SCM_GUARDIANS_H
-												Add `SCM_INTERNAL' macro, use it.

											
										
										
											2008-05-14 05:20:47 +02:00
+								/* Copyright (C) 1998,2000,2001, 2006, 2008 Free Software Foundation, Inc.
-												* Renamed header macros to the SCM_<filename>_H format.

											
										
										
											2001-08-31 10:42:19 +00:00
+								 *
-												Changed license terms to the plain LGPL thru-out.

											
										
										
											2003-04-05 19:15:35 +00:00
+								 * This library is free software; you can redistribute it and/or
-												Change Guile license to LGPLv3+

(Not quite finished, the following will be done tomorrow.
   module/srfi/*.scm
   module/rnrs/*.scm
   module/scripts/*.scm
   testsuite/*.scm
   guile-readline/*
)

											
										
										
											2009-06-17 00:22:09 +01:00
+								 * 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.
-												* Renamed header macros to the SCM_<filename>_H format.

											
										
										
											2001-08-31 10:42:19 +00:00
+								 *
-												Change Guile license to LGPLv3+

(Not quite finished, the following will be done tomorrow.
   module/srfi/*.scm
   module/rnrs/*.scm
   module/scripts/*.scm
   testsuite/*.scm
   guile-readline/*
)

											
										
										
											2009-06-17 00:22:09 +01:00
+								 * This library is distributed in the hope that it will be useful, but
 								 * WITHOUT ANY WARRANTY; without even the implied warranty of
-												Changed license terms to the plain LGPL thru-out.

											
										
										
											2003-04-05 19:15:35 +00:00
+								 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 								 * Lesser General Public License for more details.
-												* Renamed header macros to the SCM_<filename>_H format.

											
										
										
											2001-08-31 10:42:19 +00:00
+								 *
-												Changed license terms to the plain LGPL thru-out.

											
										
										
											2003-04-05 19:15:35 +00:00
+								 * You should have received a copy of the GNU Lesser General Public
 								 * License along with this library; if not, write to the Free Software
-												Change Guile license to LGPLv3+

(Not quite finished, the following will be done tomorrow.
   module/srfi/*.scm
   module/rnrs/*.scm
   module/scripts/*.scm
   testsuite/*.scm
   guile-readline/*
)

											
										
										
											2009-06-17 00:22:09 +01:00
+								 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
 								 * 02110-1301 USA
-												Changed license terms to the plain LGPL thru-out.

											
										
										
											2003-04-05 19:15:35 +00:00
+								 */
-												* Renamed header macros to the SCM_<filename>_H format.

											
										
										
											2001-08-31 10:42:19 +00:00
-												* guardians.c, guardians.h (scm_make_guardian,
scm_guardian_gc_init, scm_guardian_zombify, scm_guard,
scm_get_one_zombie, scm_init_guardian): This is an implementation
of guardians as described in R. Kent Dybvig, Carl Bruggeman, and
David Eby (1993) "Guardians in a Generation-Based Garbage
Collector" ACM SIGPLAN Conference on Programming Language Design
and Implementation, June 1993 ftp://ftp.cs.indiana.edu
/pub/scheme-repository/doc/pubs/guardians.ps.gz
Author: Michael	N. Livshin.

											
										
										
											1998-12-23 06:38:06 +00:00
 								#include "libguile/__scm.h"
-												* gc-mark.c (scm_mark_all): Do not rely on hooks to run the weak
hashtable and guardian machinery but call the relevant functions
directly.

* guardians.h, guardians.c, deprecated.h,
deprecated.c (scm_destroy_guardian_x, scm_guardian_greedy_p,
scm_guardian_destroyed_p, scm_guard, scm_get_one_zombie):
Deprecated and moved into deprecated.[ch].

* guardians.h, guardians.c: Mostly rewritten.
(scm_i_init_guardians_for_gc,
scm_i_identify_inaccessible_guardeds,
scm_i_mark_inaccessible_guardeds): New.

* weaks.h, weaks.c (SCM_I_WVECT_TYPE, SCM_I_SET_WVECT_TYPE): New.
(SCM_I_WVECT_N_ITEMS, SCM_I_SET_WVECT_N_ITEMS): New.
(SCM_WVECTF_NOSCAN, SCM_WVECT_NOSCAN_P): Removed.
(scm_weaks_prehistory): Removed.
(scm_i_init_weak_vectors_for_gc, scm_i_mark_weak_vector,
scm_i_mark_weak_vectors_non_weaks,
scm_i_remove_weaks_from_weak_vectors, scm_i_remove_weaks): New.
(scm_weak_vector_gc_init, scm_mark_weak_vector_spines,
scm_scan_weak_vectors): Removed.

* hashtab.h (scm_i_scan_weak_hashtables): New.
* hashtab.c (make_hash_table, scm_i_rehash): Do not use
SCM_WVECTF_NOSCAN.
(hashtable_print): Use SCM_HASHTABLE_N_ITEMS instead of
t->n_items.
(scan_weak_hashtables, scm_i_scan_weak_hashtables): Renamed former
to latter.  Do not scan the alists themselves, this is done by the
weak vector code now.  Just update the element count.

* vectors.h (SCM_I_WVECT_TYPE, SCM_I_WVECT_EXTRA): Renamed former
to latter.  The type is now only part of the cell word.
(SCM_I_SET_WVECT_TYPE, SCM_I_SET_WVECT_EXTRA): Likewise.

* init.c (scm_i_init_guile): Do not call scm_weaks_prehistory.

											
										
										
											2005-07-31 23:04:36 +00:00
+								SCM_API SCM scm_make_guardian (void);
-													* guardians.c (F_GREEDY, F_LISTED, F_DESTROYED, GREEDY_P,
 	SET_GREEDY, LISTED_P, SET_LISTED, CLR_LISTED, DESTROYED_P,
 	SET_DESTROYED): new defines/macros.
	(GUARDIAN_LIVE, GUARDIAN_ZOMBIES, GUARDIAN_NEXT): deleted.
	(add_to_live_list): takes a `guardian_t *' now, not SCM.
	(guardian_print): print more info.
	(guardian_apply): check if the guardian is destroyed, and throw an
 	error if so.  take one more optional argument `throw_p'.
	(scm_guard): depending on the value of `throw_p', return a boolean
 	result.
	(scm_get_one_zombie): remove redundant property test.
	(guardian_t): represent the various (currently 3, I hope nothing
 	more gets added) boolean fields as bit flags.
	(scm_guardian_destroyed_p, scm_guardian_greedy_p): new predicates.
	(scm_destroy_guardian_x): new procedure.

	* guardians.h: added prototypes for `scm_guardian_greedy_p' and
	`scm_guardian_destroyed_p'.  changed prototype for `scm_guard'.

											
										
										
											2001-01-04 13:00:31 +00:00
-												Add `SCM_INTERNAL' macro, use it.

											
										
										
											2008-05-14 05:20:47 +02:00
+								SCM_INTERNAL void scm_i_init_guardians_for_gc (void);
 								SCM_INTERNAL void scm_i_identify_inaccessible_guardeds (void);
 								SCM_INTERNAL int scm_i_mark_inaccessible_guardeds (void);
-												* guardians.c, guardians.h (scm_make_guardian,
scm_guardian_gc_init, scm_guardian_zombify, scm_guard,
scm_get_one_zombie, scm_init_guardian): This is an implementation
of guardians as described in R. Kent Dybvig, Carl Bruggeman, and
David Eby (1993) "Guardians in a Generation-Based Garbage
Collector" ACM SIGPLAN Conference on Programming Language Design
and Implementation, June 1993 ftp://ftp.cs.indiana.edu
/pub/scheme-repository/doc/pubs/guardians.ps.gz
Author: Michael	N. Livshin.

											
										
										
											1998-12-23 06:38:06 +00:00
-												Add `SCM_INTERNAL' macro, use it.

											
										
										
											2008-05-14 05:20:47 +02:00
+								SCM_INTERNAL void scm_init_guardians (void);
-												* guardians.c, guardians.h (scm_make_guardian,
scm_guardian_gc_init, scm_guardian_zombify, scm_guard,
scm_get_one_zombie, scm_init_guardian): This is an implementation
of guardians as described in R. Kent Dybvig, Carl Bruggeman, and
David Eby (1993) "Guardians in a Generation-Based Garbage
Collector" ACM SIGPLAN Conference on Programming Language Design
and Implementation, June 1993 ftp://ftp.cs.indiana.edu
/pub/scheme-repository/doc/pubs/guardians.ps.gz
Author: Michael	N. Livshin.

											
										
										
											1998-12-23 06:38:06 +00:00
-												* Renamed header macros to the SCM_<filename>_H format.

											
										
										
											2001-08-31 10:42:19 +00:00
+								#endif  /* SCM_GUARDIANS_H */
-													* *.[hc]: add Emacs magic at the end of file, to ensure GNU
 	indentation style.

											
										
										
											2000-03-19 19:01:16 +00:00
 								/*
 								  Local Variables:
 								  c-file-style: "gnu"
 								  End:
 								*/