mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 20:00:19 +02:00
730cfd80e2
* libguile/_scm.h: Remove pairs.h. * libguile/alist.c: * libguile/array-handle.c: * libguile/array-map.c: * libguile/arrays.c: * libguile/async.c: * libguile/bitvectors.c: * libguile/bytevectors.c: * libguile/chars.c: * libguile/continuations.c: * libguile/control.c: * libguile/debug.c: * libguile/deprecation.c: * libguile/dynwind.c: * libguile/eq.c: * libguile/eval.c: * libguile/evalext.c: * libguile/expand.c: * libguile/fdes-finalizers.c: * libguile/feature.c: * libguile/filesys.c: * libguile/fluids.c: * libguile/foreign.c: * libguile/fports.c: * libguile/gc.c: * libguile/generalized-arrays.c: * libguile/goops.c: * libguile/guardians.c: * libguile/hash.c: * libguile/hashtab.c: * libguile/hooks.c: * libguile/i18n.c: * libguile/instructions.c: * libguile/ioext.c: * libguile/keywords.c: * libguile/list.c: * libguile/load.c: * libguile/loader.c: * libguile/memoize.c: * libguile/modules.c: * libguile/net_db.c: * libguile/numbers.c: * libguile/objprop.c: * libguile/options.c: * libguile/ports-internal.h: * libguile/ports.c: * libguile/posix.c: * libguile/print.c: * libguile/print.h: * libguile/procprop.c: * libguile/programs.c: * libguile/random.c: * libguile/rdelim.c: * libguile/read.c: * libguile/regex-posix.c: * libguile/scmsigs.c: * libguile/script.c: * libguile/socket.c: * libguile/sort.c: * libguile/srcprop.c: * libguile/srfi-1.c: * libguile/srfi-13.c: * libguile/srfi-14.c: * libguile/srfi-60.c: * libguile/stacks.c: * libguile/stime.c: * libguile/strings.c: * libguile/strorder.c: * libguile/struct.c: * libguile/symbols.c: * libguile/threads.c: * libguile/throw.c: * libguile/trees.c: * libguile/values.c: * libguile/vectors.c: * libguile/vm.c: * libguile/weak-list.h: * libguile/weak-set.c: * libguile/weak-table.c: * libguile/weak-vector.c: Add pairs.h.
74 lines
1.6 KiB
C
74 lines
1.6 KiB
C
/* classes: h_files */
|
||
|
||
#ifndef SCM_WEAK_LIST_H
|
||
#define SCM_WEAK_LIST_H
|
||
|
||
/* Copyright (C) 2016, 2018 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"
|
||
#include "libguile/pairs.h"
|
||
#include "libguile/weak-vector.h"
|
||
|
||
|
||
|
||
static inline SCM
|
||
scm_i_weak_cons (SCM car, SCM cdr)
|
||
{
|
||
return scm_cons (scm_c_make_weak_vector (1, car), cdr);
|
||
}
|
||
|
||
static inline SCM
|
||
scm_i_weak_car (SCM pair)
|
||
{
|
||
return scm_c_weak_vector_ref (scm_car (pair), 0);
|
||
}
|
||
|
||
static inline void
|
||
scm_i_visit_weak_list (SCM *list_loc, void (*visit) (SCM))
|
||
{
|
||
SCM in = *list_loc, out = SCM_EOL;
|
||
|
||
while (scm_is_pair (in))
|
||
{
|
||
SCM car = scm_i_weak_car (in);
|
||
SCM cdr = scm_cdr (in);
|
||
|
||
if (!scm_is_eq (car, SCM_BOOL_F))
|
||
{
|
||
scm_set_cdr_x (in, out);
|
||
out = in;
|
||
visit (car);
|
||
}
|
||
|
||
in = cdr;
|
||
}
|
||
|
||
*list_loc = out;
|
||
}
|
||
|
||
|
||
#endif /* SCM_WEAK_LIST_H */
|
||
|
||
/*
|
||
Local Variables:
|
||
c-file-style: "gnu"
|
||
End:
|
||
*/
|