mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-29 19:30:36 +02:00
f4ca107f7f
* libguile/exceptions.c:
* libguile/exceptions.h: New files.
* libguile.h: Add exceptions.h.
* libguile/Makefile.am (libguile_@GUILE_EFFECTIVE_VERSION@_la_SOURCES):
(DOT_X_FILES, DOT_DOC_FILES, modinclude_HEADERS): Add exceptions.c and
exceptions.h.
* libguile/init.c (scm_i_init_guile): Initialize exceptions.
* libguile/threads.c (scm_spawn_thread): Use new names for
scm_i_make_catch_handler and scm_c_make_thunk.
* libguile/throw.c: Rewrite to be implemented in terms of
with-exception-handler / raise-exception.
* libguile/throw.h: Use data types from exceptions.h. Move
scm_report_stack_overflow and scm_report_out_of_memory to
exceptions.[ch].
* module/ice-9/boot-9.scm (&error, &programming-error)
(&non-continuable, make-exception-from-throw, raise-exception)
(with-exception-handler): New top-level definitions.
(throw, catch, with-throw-handler): Rewrite in terms of
with-exception-handler and raise-exception.
: New top-level definitions.
* module/ice-9/exceptions.scm: Adapt to re-export &error,
&programming-error, &non-continuable, raise-exception, and
with-exception-handler from boot-9.
(make-quit-exception, guile-quit-exception-converter): New exception
converters.
(make-exception-from-throw): Override core binding.
* test-suite/tests/eval.test ("inner trim with prompt tag"): Adapt to
"with-exception-handler" being the procedure on the stack.
("outer trim with prompt tag"): Likewise.
* test-suite/tests/exceptions.test (throw-test): Use pass-if-equal.
* module/srfi/srfi-34.scm: Reimplement in terms of core exceptions, and
make "guard" actually re-raise continuations with the original "raise"
continuation.
146 lines
3.9 KiB
C
146 lines
3.9 KiB
C
#ifndef SCM_LIBGUILE_H
|
||
#define SCM_LIBGUILE_H
|
||
|
||
/* Copyright 1995-1998,2000-2004,2006,2008-2014,2018
|
||
Free Software Foundation, Inc.
|
||
|
||
This file is part of Guile.
|
||
|
||
Guile 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.
|
||
|
||
Guile 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 Guile. If not, see
|
||
<https://www.gnu.org/licenses/>. */
|
||
|
||
|
||
|
||
/* This needs to be included outside of the extern "C" block.
|
||
*/
|
||
#include <gmp.h>
|
||
|
||
#ifdef __cplusplus
|
||
extern "C" {
|
||
#endif
|
||
|
||
#include "libguile/scm.h"
|
||
#include "libguile/alist.h"
|
||
#include "libguile/array-handle.h"
|
||
#include "libguile/array-map.h"
|
||
#include "libguile/arrays.h"
|
||
#include "libguile/async.h"
|
||
#include "libguile/atomic.h"
|
||
#include "libguile/boolean.h"
|
||
#include "libguile/bitvectors.h"
|
||
#include "libguile/bytevectors.h"
|
||
#include "libguile/chars.h"
|
||
#include "libguile/chooks.h"
|
||
#include "libguile/continuations.h"
|
||
#include "libguile/dynl.h"
|
||
#include "libguile/dynwind.h"
|
||
#include "libguile/eq.h"
|
||
#include "libguile/error.h"
|
||
#include "libguile/eval.h"
|
||
#include "libguile/evalext.h"
|
||
#include "libguile/exceptions.h"
|
||
#include "libguile/extensions.h"
|
||
#include "libguile/fdes-finalizers.h"
|
||
#include "libguile/feature.h"
|
||
#include "libguile/filesys.h"
|
||
#include "libguile/finalizers.h"
|
||
#include "libguile/fluids.h"
|
||
#include "libguile/foreign.h"
|
||
#include "libguile/foreign-object.h"
|
||
#include "libguile/fports.h"
|
||
#include "libguile/frames.h"
|
||
#include "libguile/gc.h"
|
||
#include "libguile/generalized-arrays.h"
|
||
#include "libguile/generalized-vectors.h"
|
||
#include "libguile/goops.h"
|
||
#include "libguile/gsubr.h"
|
||
#include "libguile/guardians.h"
|
||
#include "libguile/hash.h"
|
||
#include "libguile/hashtab.h"
|
||
#include "libguile/i18n.h"
|
||
#include "libguile/init.h"
|
||
#include "libguile/ioext.h"
|
||
#include "libguile/rdelim.h"
|
||
#include "libguile/rw.h"
|
||
#include "libguile/keywords.h"
|
||
#include "libguile/list.h"
|
||
#include "libguile/load.h"
|
||
#include "libguile/macros.h"
|
||
#include "libguile/mallocs.h"
|
||
#include "libguile/modules.h"
|
||
#include "libguile/net_db.h"
|
||
#include "libguile/numbers.h"
|
||
#include "libguile/objprop.h"
|
||
#include "libguile/options.h"
|
||
#include "libguile/pairs.h"
|
||
#include "libguile/ports.h"
|
||
#include "libguile/posix.h"
|
||
#include "libguile/print.h"
|
||
#include "libguile/procprop.h"
|
||
#include "libguile/promises.h"
|
||
#include "libguile/procs.h"
|
||
#include "libguile/r6rs-ports.h"
|
||
#include "libguile/random.h"
|
||
#include "libguile/read.h"
|
||
#include "libguile/scmsigs.h"
|
||
#include "libguile/script.h"
|
||
#include "libguile/simpos.h"
|
||
#include "libguile/smob.h"
|
||
#include "libguile/snarf.h"
|
||
#include "libguile/socket.h"
|
||
#include "libguile/sort.h"
|
||
#include "libguile/srcprop.h"
|
||
#include "libguile/stackchk.h"
|
||
#include "libguile/stime.h"
|
||
#include "libguile/strings.h"
|
||
#include "libguile/srfi-13.h"
|
||
#include "libguile/srfi-14.h"
|
||
#include "libguile/strorder.h"
|
||
#include "libguile/strports.h"
|
||
#include "libguile/struct.h"
|
||
#include "libguile/symbols.h"
|
||
#include "libguile/throw.h"
|
||
#include "libguile/trees.h"
|
||
#include "libguile/uniform.h"
|
||
#include "libguile/values.h"
|
||
#include "libguile/variable.h"
|
||
#include "libguile/vectors.h"
|
||
#include "libguile/srfi-4.h"
|
||
#include "libguile/version.h"
|
||
#include "libguile/vm.h"
|
||
#include "libguile/vports.h"
|
||
#include "libguile/weak-set.h"
|
||
#include "libguile/weak-table.h"
|
||
#include "libguile/weak-vector.h"
|
||
#include "libguile/backtrace.h"
|
||
#include "libguile/debug.h"
|
||
#include "libguile/stacks.h"
|
||
#include "libguile/threads.h"
|
||
#include "libguile/inline.h"
|
||
|
||
#include "libguile/deprecated.h"
|
||
|
||
#ifdef __cplusplus
|
||
}
|
||
#endif
|
||
|
||
|
||
|
||
#endif /* SCM_LIBGUILE_H */
|
||
|
||
/*
|
||
Local Variables:
|
||
c-file-style: "gnu"
|
||
End:
|
||
*/
|