1996-07-25 22:56:11 +00:00
|
|
|
|
/* classes: h_files */
|
|
|
|
|
|
|
2001-08-31 12:13:50 +00:00
|
|
|
|
#ifndef SCM_LIST_H
|
|
|
|
|
|
#define SCM_LIST_H
|
|
|
|
|
|
|
2009-11-27 23:12:35 +01:00
|
|
|
|
/* Copyright (C) 1995,1996,1997,2000,2001,2003,2004,2005,2006,2008,2009
|
* list.[ch] (scm_i_finite_list_copy): New internal function to
copy lists that are known to be finite (though not necessarily
proper).
* debug.c (scm_procedure_source): Don't have scm_unmemocopy treat
a closure's argument list like an expression of a body.
* eval.c (unmemoize_expression, unmemoize_exprs, unmemoize_and,
unmemoize_begin, unmemoize_case, unmemoize_cond, unmemoize_delay,
unmemoize_do, unmemoize_if, unmemoize_lambda, unmemoize_let,
unmemoize_letrec, unmemoize_letstar, unmemoize_or,
unmemoize_set_x, unmemoize_apply, unmemoize_atcall_cc,
unmemoize_at_call_with_values, unmemoize_future, sym_atslot_ref,
unmemoize_atslot_ref, sym_atslot_set_x, unmemoize_atslot_set_x,
unmemoize_builtin_macro): New static functions and symbols.
(scm_unmemocopy): Rewritten in terms of the above. scm_unmemocopy
now has a slightly different meaning: The memoized form that is
receives as its argument is now interpreted as a sequence of
expressions from a body.
(unmemocar, scm_unmemocar): Since the whole functionality of
unmemocar and scm_unmemocar is not needed any more, scm_unmemocar
has its old content back and is deprecated, while unmemocar has
been removed.
(SCM_BIT7): Removed.
(CEVAL): For unmemoizing a single expression, call
unmemoize_expression instead of scm_unmemocopy, which now expects
a sequence of body expressions. Eliminated unnecessary empty
environment frame when executing let* forms. Eliminated
unmemoization step from evaluator.
2004-06-06 07:46:18 +00:00
|
|
|
|
* Free Software Foundation, Inc.
|
2001-08-31 12:13:50 +00:00
|
|
|
|
*
|
2003-04-05 19:15:35 +00:00
|
|
|
|
* This library is free software; you can redistribute it and/or
|
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.
|
2001-08-31 12:13:50 +00:00
|
|
|
|
*
|
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
|
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.
|
2001-08-31 12:13:50 +00:00
|
|
|
|
*
|
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
|
2009-06-17 00:22:09 +01:00
|
|
|
|
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
|
|
|
|
|
|
* 02110-1301 USA
|
2003-04-05 19:15:35 +00:00
|
|
|
|
*/
|
2001-08-31 12:13:50 +00:00
|
|
|
|
|
1996-07-25 22:56:11 +00:00
|
|
|
|
|
|
|
|
|
|
|
* alist.h, append.h, arbiters.h, async.h, boolean.h, chars.h,
continuations.h, debug.h, dynwind.h, error.h, eval.h, fdsocket.h,
feature.h, filesys.h, fports.h, gc.h, gdbint.h, genio.h, gsubr.h,
hash.h, init.h, ioext.h, kw.h, list.h, markers.h, marksweep.h,
mbstrings.h, numbers.h, objprop.h, options.h, pairs.h, ports.h,
posix.h, print.h, procprop.h, procs.h, ramap.h, read.h, root.h,
sequences.h, smob.h, socket.h, srcprop.h, stackchk.h, stime.h,
strings.h, strop.h, strorder.h, strports.h, struct.h, symbols.h,
tag.h, throw.h, unif.h, variable.h, vectors.h, version.h,
vports.h, weaks.h: #include "libguile/__scm.h", not
<libguile/__scm.h>. This allows 'gcc -MM' to determine which
dependencies are within libguile properly.
1996-09-05 21:19:08 +00:00
|
|
|
|
#include "libguile/__scm.h"
|
1996-07-25 22:56:11 +00:00
|
|
|
|
|
|
|
|
|
|
|
* list.h (SCM_LISTn): New macros. Make list creation in C code
prettier. The idea comes from STk.
* sequences.h, sequences.c, append.h, append.c: Removed. These
files implemented non-R4RS operations which would encourage
non-portable programming style and less easy-to-read code.
* Makefile.am (sequences.h, sequences.c, append.h, append.c):
Removed.
* libguile.h, eval.c, init.c, stime.c, unif.c: Removed #include
sequences.h, #include append.h.
* gh.h, gh_list.c: Renamed gh_list_length --> gh_length.
* list.h, list.c: Renamed scm_list_length --> scm_length, scm
1997-09-15 21:20:48 +00:00
|
|
|
|
|
2001-11-02 00:19:12 +00:00
|
|
|
|
SCM_API SCM scm_list_1 (SCM e1);
|
|
|
|
|
|
SCM_API SCM scm_list_2 (SCM e1, SCM e2);
|
|
|
|
|
|
SCM_API SCM scm_list_3 (SCM e1, SCM e2, SCM e3);
|
|
|
|
|
|
SCM_API SCM scm_list_4 (SCM e1, SCM e2, SCM e3, SCM e4);
|
|
|
|
|
|
SCM_API SCM scm_list_5 (SCM e1, SCM e2, SCM e3, SCM e4, SCM e5);
|
|
|
|
|
|
SCM_API SCM scm_list_n (SCM elt, ...);
|
2006-02-02 21:15:48 +00:00
|
|
|
|
SCM_API SCM scm_list (SCM objs);
|
2001-11-02 00:19:12 +00:00
|
|
|
|
SCM_API SCM scm_list_head (SCM lst, SCM k);
|
2005-04-23 00:15:16 +00:00
|
|
|
|
SCM_API SCM scm_make_list (SCM n, SCM init);
|
2001-11-02 00:19:12 +00:00
|
|
|
|
SCM_API SCM scm_cons_star (SCM arg, SCM objs);
|
|
|
|
|
|
SCM_API SCM scm_null_p (SCM x);
|
|
|
|
|
|
SCM_API SCM scm_list_p (SCM x);
|
|
|
|
|
|
SCM_API long scm_ilength (SCM sx);
|
|
|
|
|
|
SCM_API SCM scm_length (SCM x);
|
|
|
|
|
|
SCM_API SCM scm_append (SCM args);
|
|
|
|
|
|
SCM_API SCM scm_append_x (SCM args);
|
|
|
|
|
|
SCM_API SCM scm_reverse (SCM lst);
|
|
|
|
|
|
SCM_API SCM scm_reverse_x (SCM lst, SCM newtail);
|
|
|
|
|
|
SCM_API SCM scm_list_ref (SCM lst, SCM k);
|
|
|
|
|
|
SCM_API SCM scm_list_set_x (SCM lst, SCM k, SCM val);
|
|
|
|
|
|
SCM_API SCM scm_list_cdr_set_x (SCM lst, SCM k, SCM val);
|
|
|
|
|
|
SCM_API SCM scm_last_pair (SCM sx);
|
|
|
|
|
|
SCM_API SCM scm_list_tail (SCM lst, SCM k);
|
|
|
|
|
|
SCM_API SCM scm_c_memq (SCM x, SCM lst);
|
|
|
|
|
|
SCM_API SCM scm_memq (SCM x, SCM lst);
|
|
|
|
|
|
SCM_API SCM scm_memv (SCM x, SCM lst);
|
|
|
|
|
|
SCM_API SCM scm_member (SCM x, SCM lst);
|
|
|
|
|
|
SCM_API SCM scm_delq_x (SCM item, SCM lst);
|
|
|
|
|
|
SCM_API SCM scm_delv_x (SCM item, SCM lst);
|
|
|
|
|
|
SCM_API SCM scm_delete_x (SCM item, SCM lst);
|
|
|
|
|
|
SCM_API SCM scm_list_copy (SCM lst);
|
|
|
|
|
|
SCM_API SCM scm_delq (SCM item, SCM lst);
|
|
|
|
|
|
SCM_API SCM scm_delv (SCM item, SCM lst);
|
|
|
|
|
|
SCM_API SCM scm_delete (SCM item, SCM lst);
|
|
|
|
|
|
SCM_API SCM scm_delq1_x (SCM item, SCM lst);
|
|
|
|
|
|
SCM_API SCM scm_delv1_x (SCM item, SCM lst);
|
|
|
|
|
|
SCM_API SCM scm_delete1_x (SCM item, SCM lst);
|
2003-03-11 19:58:14 +00:00
|
|
|
|
SCM_API SCM scm_filter (SCM pred, SCM list);
|
|
|
|
|
|
SCM_API SCM scm_filter_x (SCM pred, SCM list);
|
2009-11-27 23:12:35 +01:00
|
|
|
|
SCM_API SCM scm_copy_tree (SCM obj);
|
* list.[ch] (scm_i_finite_list_copy): New internal function to
copy lists that are known to be finite (though not necessarily
proper).
* debug.c (scm_procedure_source): Don't have scm_unmemocopy treat
a closure's argument list like an expression of a body.
* eval.c (unmemoize_expression, unmemoize_exprs, unmemoize_and,
unmemoize_begin, unmemoize_case, unmemoize_cond, unmemoize_delay,
unmemoize_do, unmemoize_if, unmemoize_lambda, unmemoize_let,
unmemoize_letrec, unmemoize_letstar, unmemoize_or,
unmemoize_set_x, unmemoize_apply, unmemoize_atcall_cc,
unmemoize_at_call_with_values, unmemoize_future, sym_atslot_ref,
unmemoize_atslot_ref, sym_atslot_set_x, unmemoize_atslot_set_x,
unmemoize_builtin_macro): New static functions and symbols.
(scm_unmemocopy): Rewritten in terms of the above. scm_unmemocopy
now has a slightly different meaning: The memoized form that is
receives as its argument is now interpreted as a sequence of
expressions from a body.
(unmemocar, scm_unmemocar): Since the whole functionality of
unmemocar and scm_unmemocar is not needed any more, scm_unmemocar
has its old content back and is deprecated, while unmemocar has
been removed.
(SCM_BIT7): Removed.
(CEVAL): For unmemoizing a single expression, call
unmemoize_expression instead of scm_unmemocopy, which now expects
a sequence of body expressions. Eliminated unnecessary empty
environment frame when executing let* forms. Eliminated
unmemoization step from evaluator.
2004-06-06 07:46:18 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Guile internal functions */
|
|
|
|
|
|
|
2008-05-14 05:20:47 +02:00
|
|
|
|
SCM_INTERNAL SCM scm_i_finite_list_copy (SCM /* a list known to be finite */);
|
|
|
|
|
|
SCM_INTERNAL void scm_init_list (void);
|
1996-07-25 22:56:11 +00:00
|
|
|
|
|
2001-08-31 12:13:50 +00:00
|
|
|
|
#endif /* SCM_LIST_H */
|
2000-03-19 19:01:16 +00:00
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
|
Local Variables:
|
|
|
|
|
|
c-file-style: "gnu"
|
|
|
|
|
|
End:
|
|
|
|
|
|
*/
|