mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

Rationalize include order in C files

Browse source 
Include config.h first, then system includes, then libguile includes, in
alphabetical order, then the include for the file in question.
This commit is contained in:
Andy Wingo 2018-06-20 18:31:24 +02:00
parent 3068bc7384
commit b8d757732f
117 changed files with 981 additions and 929 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/alist.c
View file

@ -19,18 +19,21 @@
#ifdef HAVE_CONFIG_H
# include <config.h>
#endif
#include "gsubr.h"
#include "boolean.h"
#include "eq.h"
#include "gsubr.h"
#include "list.h"
#include "pairs.h"
#include "numbers.h"
#include "pairs.h"
#include "alist.h"
SCM_DEFINE (scm_acons, "acons", 3, 0, 0,

3
libguile/array-handle.c
View file

@ -26,15 +26,16 @@
#include <string.h>
#include "arrays.h"
#include "bitvectors.h"
#include "bytevectors.h"
#include "list.h"
#include "arrays.h"
#include "numbers.h"
#include "pairs.h"
#include "strings.h"
#include "symbols.h"
#include "vectors.h"
#include "array-handle.h"

23
libguile/array-map.c
View file

@ -26,29 +26,30 @@
# include <config.h>
#endif
#include <assert.h>
#include <string.h>
#include "gsubr.h"
#include "pairs.h"
#include "boolean.h"
#include "strings.h"
#include "arrays.h"
#include "smob.h"
#include "bitvectors.h"
#include "boolean.h"
#include "chars.h"
#include "eq.h"
#include "eval.h"
#include "feature.h"
#include "vectors.h"
#include "generalized-arrays.h"
#include "gsubr.h"
#include "list.h"
#include "numbers.h"
#include "bitvectors.h"
#include "srfi-4.h"
#include "symbols.h"
#include "pairs.h"
#include "procs.h"
#include "generalized-arrays.h"
#include "smob.h"
#include "srfi-4.h"
#include "strings.h"
#include "symbols.h"
#include "vectors.h"
#include "array-map.h"
#include <assert.h>
/* The WHAT argument for `scm_gc_malloc ()' et al. */
static const char vi_gc_hint[] = "array-indices";

35
libguile/arrays.c
View file

@ -28,34 +28,33 @@
#include <errno.h>
#include <string.h>
#include "verify.h"
#include "gsubr.h"
#include "pairs.h"
#include "array-map.h"
#include "bitvectors.h"
#include "boolean.h"
#include "eq.h"
#include "bytevectors.h"
#include "chars.h"
#include "dynwind.h"
#include "eq.h"
#include "eval.h"
#include "fports.h"
#include "feature.h"
#include "fports.h"
#include "generalized-arrays.h"
#include "generalized-vectors.h"
#include "gsubr.h"
#include "list.h"
#include "modules.h"
#include "strings.h"
#include "numbers.h"
#include "pairs.h"
#include "procs.h"
#include "read.h"
#include "srfi-13.h"
#include "srfi-4.h"
#include "strings.h"
#include "uniform.h"
#include "vectors.h"
#include "numbers.h"
#include "bitvectors.h"
#include "procs.h"
#include "bytevectors.h"
#include "list.h"
#include "dynwind.h"
#include "read.h"
#include "verify.h"
#include "arrays.h"
#include "array-map.h"
#include "generalized-vectors.h"
#include "generalized-arrays.h"
#include "uniform.h"
size_t

28
libguile/async.c
View file

@ -19,30 +19,30 @@
#ifdef HAVE_CONFIG_H
# include <config.h>
# include <config.h>
#endif
#include "gsubr.h"
#include "pairs.h"
#include <full-write.h>
#include <string.h>
#include <unistd.h>
#include "atomics-internal.h"
#include "eval.h"
#include "throw.h"
#include "list.h"
#include "smob.h"
#include "dynwind.h"
#include "deprecation.h"
#include "dynwind.h"
#include "eval.h"
#include "gsubr.h"
#include "list.h"
#include "pairs.h"
#include "smob.h"
#include "throw.h"
#include "async.h"
#ifdef HAVE_STRING_H
#include <string.h>
#endif
#include <unistd.h>
#include <full-write.h>
/* {Asynchronous Events}
*
* Asyncs are used to run arbitrary code at the next safe point in a

14
libguile/atomic.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 2016, 2018 Free Software Foundation, Inc.
/* 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
@ -18,18 +18,22 @@
#ifdef HAVE_CONFIG_H
# include <config.h>
#endif
#include "boolean.h"
#include "gsubr.h"
#include "extensions.h"
#include "ports.h"
#include "atomics-internal.h"
#include "boolean.h"
#include "extensions.h"
#include "gsubr.h"
#include "ports.h"
#include "atomic.h"
SCM_DEFINE (scm_make_atomic_box, "make-atomic-box", 1, 0, 0,
(SCM init),
"Return an atomic box initialized to value @var{init}.")

4
libguile/atomics-internal.h
View file

@ -1,7 +1,7 @@
#ifndef SCM_ATOMICS_INTERNAL_H
#define SCM_ATOMICS_INTERNAL_H
/* Copyright (C) 2016
/* Copyright (C) 2016, 2018
* Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
@ -23,7 +23,7 @@
#include <stdint.h>
#include "scm.h"

16
libguile/backtrace.c
View file

@ -1,6 +1,6 @@
/* Printing of backtraces and error messages
* Copyright (C) 1996,1997,1998,1999,2000,2001, 2003, 2004, 2006, 2009,
* 2010, 2011, 2014, 2018 Free Software Foundation
* Copyright (C) 1996-2001,2003-2004,2006,2009-2011,2014,2018
* Free Software Foundation
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License
@ -24,24 +24,22 @@
#include <stdio.h>
#include <ctype.h>
#include "gsubr.h"
#include "boolean.h"
#include <unistd.h>
#ifdef HAVE_IO_H
#include <io.h>
#endif
#include "backtrace.h"
#include "boolean.h"
#include "deprecation.h"
#include "dynwind.h"
#include "eval.h"
#include "filesys.h"
#include "fluids.h"
#include "frames.h"
#include "list.h"
#include "gsubr.h"
#include "keywords.h"
#include "list.h"
#include "modules.h"
#include "numbers.h"
#include "ports.h"
@ -56,6 +54,8 @@
#include "throw.h"
#include "variable.h"
#include "backtrace.h"
/* {Error reporting and backtraces}
*
* Note that these functions shouldn't generate errors themselves.

16
libguile/bitvectors.c
View file

@ -25,18 +25,20 @@
#include <string.h>
#include "gsubr.h"
#include "pairs.h"
#include "boolean.h"
#include "array-handle.h"
#include "bitvectors.h"
#include "generalized-vectors.h"
#include "numbers.h"
#include "list.h"
#include "arrays.h"
#include "boolean.h"
#include "generalized-vectors.h"
#include "gsubr.h"
#include "list.h"
#include "numbers.h"
#include "pairs.h"
#include "ports.h"
#include "srfi-4.h"
#include "bitvectors.h"
/* Bit vectors. Would be nice if they were implemented on top of bytevectors,
* but alack, all we have is this crufty C.
*/

5
libguile/boolean.c
View file

@ -19,16 +19,17 @@
#ifdef HAVE_CONFIG_H
# include <config.h>
#endif
#include "error.h"
#include "gsubr.h"
#include "verify.h"
#include "boolean.h"
#include "error.h"
#include "verify.h"

12
libguile/bytevectors.c
View file

@ -36,22 +36,24 @@
#include <gmp.h>
#include "array-handle.h"
#include "arrays.h"
#include "boolean.h"
#include "gsubr.h"
#include "dynwind.h"
#include "extensions.h"
#include "bytevectors.h"
#include "generalized-vectors.h"
#include "gsubr.h"
#include "list.h"
#include "numbers.h"
#include "pairs.h"
#include "ports.h"
#include "srfi-4.h"
#include "strings.h"
#include "symbols.h"
#include "arrays.h"
#include "array-handle.h"
#include "uniform.h"
#include "srfi-4.h"
#include "bytevectors.h"
/* Utilities. */

9
libguile/chars.c
View file

@ -19,6 +19,7 @@
#ifdef HAVE_CONFIG_H
# include <config.h>
#endif
@ -29,13 +30,15 @@
#include <unicase.h>
#include <unictype.h>
#include "gsubr.h"
#include "boolean.h"
#include "chars.h"
#include "gsubr.h"
#include "numbers.h"
#include "pairs.h"
#include "symbols.h"
#include "srfi-14.h"
#include "symbols.h"
#include "chars.h"

2
libguile/chooks.c
View file

@ -26,8 +26,10 @@
#include <stdio.h>
#include "gc.h"
#include "chooks.h"
/* C level hooks
*

16
libguile/continuations.c
View file

@ -18,6 +18,7 @@
#ifdef HAVE_CONFIG_H
# include <config.h>
#endif
@ -30,27 +31,28 @@
#include <ucontext.h>
#endif
#include "gsubr.h"
#include "pairs.h"
#include "boolean.h"
#include "async.h"
#include "backtrace.h"
#include "boolean.h"
#include "debug.h"
#include "dynstack.h"
#include "eval.h"
#include "gsubr.h"
#include "init.h"
#include "instructions.h"
#include "list.h"
#include "numbers.h"
#include "pairs.h"
#include "ports.h"
#include "smob.h"
#include "stackchk.h"
#include "stacks.h"
#include "ports.h"
#include "dynstack.h"
#include "eval.h"
#include "symbols.h"
#include "vm.h"
#include "instructions.h"
#include "continuations.h"
static scm_t_bits tc16_continuation;

9
libguile/control.c
View file

@ -23,16 +23,17 @@
#include <alloca.h>
#include "dynstack.h"
#include "gsubr.h"
#include "pairs.h"
#include "control.h"
#include "extensions.h"
#include "gsubr.h"
#include "instructions.h"
#include "list.h"
#include "pairs.h"
#include "programs.h"
#include "threads.h"
#include "instructions.h"
#include "vm.h"
#include "control.h"
#define PROMPT_ESCAPE_P(p) \

3
libguile/debug-malloc.c
View file

@ -23,13 +23,14 @@
#include <string.h>
#include <stdio.h>
#include "gsubr.h"
#include "alist.h"
#include "gsubr.h"
#include "numbers.h"
#include "strings.h"
#include "debug-malloc.h"
/*
* The following code is a hack which I wrote quickly in order to
* solve a memory leak problem. Since I wanted to have the

40
libguile/debug.c
View file

@ -35,37 +35,37 @@
# include <windows.h>
#endif
#include "gsubr.h"
#include "async.h"
#include "eval.h"
#include "list.h"
#include "stackchk.h"
#include "throw.h"
#include "macros.h"
#include "smob.h"
#include "struct.h"
#include "pairs.h"
#include "procprop.h"
#include "srcprop.h"
#include "alist.h"
#include "async.h"
#include "continuations.h"
#include "strports.h"
#include "read.h"
#include "feature.h"
#include "dynwind.h"
#include "modules.h"
#include "ports.h"
#include "eval.h"
#include "feature.h"
#include "fluids.h"
#include "programs.h"
#include "gsubr.h"
#include "list.h"
#include "macros.h"
#include "memoize.h"
#include "modules.h"
#include "pairs.h"
#include "ports.h"
#include "private-options.h"
#include "procprop.h"
#include "programs.h"
#include "read.h"
#include "smob.h"
#include "srcprop.h"
#include "stackchk.h"
#include "strports.h"
#include "struct.h"
#include "throw.h"
#include "variable.h"
#include "vm.h"
#include "debug.h"
#include "private-options.h"
/*
* Debugging options.

1
libguile/deprecated.c
View file

@ -23,6 +23,7 @@
#define SCM_BUILDING_DEPRECATED_CODE
#include "deprecation.h"
#include "deprecated.h"
#if (SCM_ENABLE_DEPRECATED == 1)

9
libguile/deprecation.c
View file

@ -28,15 +28,14 @@
#include <stdarg.h>
#include "gsubr.h"
#include "pairs.h"
#include "deprecation.h"
#include "list.h"
#include "strings.h"
#include "pairs.h"
#include "ports.h"
#include "private-options.h"
#include "strings.h"
#include "threads.h"
#include "private-options.h"
#include "deprecation.h"

48
libguile/dynl.c
View file

@ -19,52 +19,36 @@
*/
/* "dynl.c" dynamically link&load object files.
Author: Aubrey Jaffer
Modified for libguile by Marius Vollmer */
#ifdef HAVE_CONFIG_H
# include <config.h>
#endif
#include <alloca.h>
#include <string.h>
/* "dynl.c" dynamically link&load object files.
Author: Aubrey Jaffer
Modified for libguile by Marius Vollmer */
#if 0 /* Disabled until we know for sure that it isn't needed */
/* XXX - This is only here to drag in a definition of __eprintf. This
is needed for proper operation of dynamic linking. The real
solution would probably be a shared libgcc. */
#undef NDEBUG
#include <assert.h>
static void
maybe_drag_in_eprintf ()
{
assert (!maybe_drag_in_eprintf);
}
#endif
#include <stdlib.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "gsubr.h"
#include "libpath.h"
#include "dynl.h"
#include "smob.h"
#include "keywords.h"
#include "list.h"
#include "ports.h"
#include "strings.h"
#include <ltdl.h>
#include "deprecation.h"
#include "dynwind.h"
#include "foreign.h"
#include "threads.h"
#include "gc.h"
#include "gsubr.h"
#include "keywords.h"
#include "libpath.h"
#include "list.h"
#include "ports.h"
#include "smob.h"
#include "strings.h"
#include "threads.h"
#include "dynl.h"
#include <ltdl.h>
/* From the libtool manual: "Note that libltdl is not threadsafe,
i.e. a multithreaded application has to use a mutex for libltdl.".

3
libguile/dynstack.c
View file

@ -29,9 +29,10 @@
#include "control.h"
#include "eval.h"
#include "fluids.h"
#include "dynstack.h"
#include "variable.h"
#include "dynstack.h"

2
libguile/dynwind.c
View file

@ -29,9 +29,9 @@
#include "boolean.h"
#include "dynstack.h"
#include "eval.h"
#include "threads.h"
#include "pairs.h"
#include "ports.h"
#include "threads.h"
#include "variable.h"
#include "dynwind.h"

11
libguile/eq.c
View file

@ -22,22 +22,18 @@
#endif
#include <math.h>
#ifdef HAVE_STRING_H
#include <string.h>
#endif
#include "gsubr.h"
#include "boolean.h"
#include "array-map.h"
#include "async.h"
#include "bitvectors.h"
#include "boolean.h"
#include "bytevectors.h"
#include "eq.h"
#include "eval.h"
#include "foreign.h"
#include "generalized-arrays.h"
#include "goops.h"
#include "gsubr.h"
#include "hashtab.h"
#include "pairs.h"
#include "private-options.h"
@ -48,6 +44,9 @@
#include "syntax.h"
#include "vectors.h"
#include "eq.h"
static SCM scm_i_eq_p (SCM x, SCM y, SCM rest);

21
libguile/error.c
View file

@ -24,13 +24,20 @@
# include <config.h>
#endif
#include <stdlib.h>
#include <stdio.h>
#include <errno.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
/* For Windows... */
#ifdef HAVE_IO_H
#include <io.h>
#endif
#include "gsubr.h"
#include "async.h"
#include "dynwind.h"
#include "gsubr.h"
#include "list.h"
#include "modules.h"
#include "numbers.h"
@ -41,15 +48,7 @@
#include "error.h"
#ifdef HAVE_STRING_H
#include <string.h>
#endif
#include <unistd.h>
/* For Windows... */
#ifdef HAVE_IO_H
#include <io.h>
#endif
/* {Errors and Exceptional Conditions}

11
libguile/eval.c
View file

@ -26,22 +26,20 @@
#include <alloca.h>
#include <stdarg.h>
#include "gsubr.h"
#include "pairs.h"
#include "boolean.h"
#include "alist.h"
#include "async.h"
#include "boolean.h"
#include "continuations.h"
#include "control.h"
#include "debug.h"
#include "deprecation.h"
#include "dynwind.h"
#include "eq.h"
#include "eval.h"
#include "expand.h"
#include "feature.h"
#include "fluids.h"
#include "goops.h"
#include "gsubr.h"
#include "hash.h"
#include "hashtab.h"
#include "keywords.h"
@ -50,6 +48,7 @@
#include "memoize.h"
#include "modules.h"
#include "numbers.h"
#include "pairs.h"
#include "ports.h"
#include "print.h"
#include "private-options.h"
@ -67,9 +66,11 @@
#include "vectors.h"
#include "vm.h"
#include "eval.h"
/* We have three levels of EVAL here:
- eval (exp, env)

9
libguile/expand.c
View file

@ -23,18 +23,17 @@
# include <config.h>
#endif
#include "gsubr.h"
#include "pairs.h"
#include "boolean.h"
#include "alist.h"
#include "boolean.h"
#include "continuations.h"
#include "eq.h"
#include "expand.h"
#include "gsubr.h"
#include "hashtab.h"
#include "keywords.h"
#include "list.h"
#include "macros.h"
#include "modules.h"
#include "pairs.h"
#include "ports.h"
#include "print.h"
#include "srcprop.h"
@ -44,6 +43,8 @@
#include "variable.h"
#include "vectors.h"
#include "expand.h"

6
libguile/extensions.c
View file

@ -25,14 +25,16 @@
#include <string.h>
#include "gsubr.h"
#include "dynl.h"
#include "dynwind.h"
#include "extensions.h"
#include "gc.h"
#include "gsubr.h"
#include "strings.h"
#include "threads.h"
#include "extensions.h"
typedef struct extension_t
{
struct extension_t *next;

8
libguile/fdes-finalizers.c
View file

@ -21,17 +21,19 @@
# include <config.h>
#endif
#include "gsubr.h"
#include "pairs.h"
#include "boolean.h"
#include "extensions.h"
#include "eval.h"
#include "extensions.h"
#include "gsubr.h"
#include "hashtab.h"
#include "list.h"
#include "numbers.h"
#include "pairs.h"
#include "threads.h"
#include "fdes-finalizers.h"
/* Table of fdes finalizers and associated lock. */

6
libguile/feature.c
View file

@ -19,24 +19,24 @@
#ifdef HAVE_CONFIG_H
# include <config.h>
#endif
#ifdef HAVE_STRING_H
#include <string.h>
#endif
#include "fluids.h"
#include "gsubr.h"
#include "modules.h"
#include "pairs.h"
#include "strings.h"
#include "fluids.h"
#include "symbols.h"
#include "variable.h"
#include "feature.h"
SCM scm_program_arguments_fluid;

14
libguile/filesys.c
View file

@ -1,5 +1,5 @@
/* Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2004, 2006,
* 2009, 2010, 2011, 2012, 2013, 2014, 2016, 2017, 2018 Free Software Foundation, Inc.
/* Copyright (C) 1996-2002,2004,2006,2009-2014,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
@ -79,20 +79,19 @@
# include <sys/sendfile.h>
#endif
#include "gsubr.h"
#include "pairs.h"
#include "boolean.h"
#include "async.h"
#include "boolean.h"
#include "dynwind.h"
#include "fdes-finalizers.h"
#include "feature.h"
#include "filesys.h"
#include "fports.h"
#include "gsubr.h"
#include "iselect.h"
#include "list.h"
#include "load.h" /* for scm_i_mirror_backslashes */
#include "modules.h"
#include "numbers.h"
#include "pairs.h"
#include "ports-internal.h"
#include "ports.h"
#include "posix.h"
@ -103,6 +102,9 @@
#include "syscalls.h"
#include "vectors.h"
#include "filesys.h"
#define NAMLEN(dirent) strlen ((dirent)->d_name)

9
libguile/finalizers.c
View file

@ -24,20 +24,21 @@
#endif
#include <errno.h>
#include <fcntl.h>
#include <full-write.h>
#include <stdio.h>
#include <unistd.h>
#include <fcntl.h>
#include <full-write.h>
#include "async.h"
#include "bdw-gc.h"
#include "finalizers.h"
#include "gc.h"
#include "gsubr.h"
#include "init.h"
#include "threads.h"
#include "finalizers.h"
static int automatic_finalization_p = 1;

10
libguile/fluids.c
View file

@ -24,8 +24,6 @@
#include <stdio.h>
#include <string.h>
#include "gsubr.h"
#include "pairs.h"
#include "alist.h"
#include "atomics-internal.h"
#include "bdw-gc.h"
@ -33,13 +31,17 @@
#include "deprecation.h"
#include "dynwind.h"
#include "eval.h"
#include "fluids.h"
#include "gsubr.h"
#include "hashtab.h"
#include "list.h"
#include "pairs.h"
#include "ports.h"
#include "print.h"
#include "weak-table.h"
#include "variable.h"
#include "weak-table.h"
#include "fluids.h"
/* A dynamic state associates fluids with values. There are two
representations of a dynamic state in Guile: the active

4
libguile/foreign-object.c
View file

@ -18,6 +18,7 @@
#ifdef HAVE_CONFIG_H
# include <config.h>
#endif
@ -25,7 +26,6 @@
#include "eval.h"
#include "extensions.h"
#include "finalizers.h"
#include "foreign-object.h"
#include "goops.h"
#include "gsubr.h"
#include "list.h"
@ -35,6 +35,8 @@
#include "threads.h"
#include "variable.h"
#include "foreign-object.h"

22
libguile/foreign.c
View file

@ -1,4 +1,5 @@
/* Copyright (C) 2010-2016, 2018 Free Software Foundation, Inc.
/* Copyright (C) 2010-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
@ -20,15 +21,14 @@
# include <config.h>
#endif
#include <ffi.h>
#include <alloca.h>
#include <alignof.h>
#include <string.h>
#include <alloca.h>
#include <assert.h>
#include <errno.h>
#include <string.h>
#include <ffi.h>
#include "gsubr.h"
#include "boolean.h"
#include "bytevectors.h"
#include "dynwind.h"
@ -36,12 +36,12 @@
#include "eval.h"
#include "extensions.h"
#include "finalizers.h"
#include "foreign.h"
#include "keywords.h"
#include "numbers.h"
#include "list.h"
#include "gsubr.h"
#include "instructions.h"
#include "keywords.h"
#include "list.h"
#include "modules.h"
#include "numbers.h"
#include "pairs.h"
#include "ports.h"
#include "stacks.h"
@ -49,6 +49,8 @@
#include "threads.h"
#include "weak-table.h"
#include "foreign.h"
/* Return the first integer greater than or equal to LEN such that

16
libguile/fports.c
View file

@ -1,4 +1,5 @@
/* Copyright (C) 1995-2004, 2006-2015, 2017-2018 Free Software Foundation, Inc.
/* Copyright (C) 1995-2004,2006-2015,2017-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
@ -43,24 +44,22 @@
#include <sys/types.h>
#include <sys/stat.h>
#include <sys/select.h>
#include <full-write.h>
#include "gsubr.h"
#include "pairs.h"
#include "boolean.h"
#include "async.h"
#include "boolean.h"
#include "dynwind.h"
#include "extensions.h"
#include "fdes-finalizers.h"
#include "fluids.h"
#include "filesys.h"
#include "fports.h"
#include "fluids.h"
#include "gc.h"
#include "gsubr.h"
#include "hashtab.h"
#include "keywords.h"
#include "modules.h"
#include "numbers.h"
#include "pairs.h"
#include "ports-internal.h"
#include "posix.h"
#include "read.h"
@ -69,6 +68,9 @@
#include "syscalls.h"
#include "variable.h"
#include "fports.h"
#if SIZEOF_OFF_T == SIZEOF_INT
#define OFF_T_MAX INT_MAX
#define OFF_T_MIN INT_MIN

9
libguile/frames.c
View file

@ -17,24 +17,27 @@
*/
#if HAVE_CONFIG_H
# include <config.h>
# include <config.h>
#endif
#include <stdlib.h>
#include <string.h>
#include "gsubr.h"
#include "boolean.h"
#include "eval.h"
#include "extensions.h"
#include "gsubr.h"
#include "modules.h"
#include "numbers.h"
#include "frames.h"
#include "ports.h"
#include "symbols.h"
#include "threads.h"
#include "variable.h"
#include "vm.h"
#include "frames.h"
SCM
scm_c_make_frame (enum scm_vm_frame_kind kind, const struct scm_frame *frame)
{

27
libguile/gc-malloc.c
View file

@ -27,27 +27,26 @@
#include <errno.h>
#include <string.h>
#include <stdlib.h>
#include <unistd.h>
#include "eval.h"
#include "stime.h"
#include "stackchk.h"
#include "struct.h"
#include "smob.h"
#include "arrays.h"
#include "async.h"
#include "ports.h"
#include "strings.h"
#include "vectors.h"
#include "hashtab.h"
#include "deprecation.h"
#include "gc.h"
#ifdef GUILE_DEBUG_MALLOC
#include "debug-malloc.h"
#endif
#include "deprecation.h"
#include "eval.h"
#include "hashtab.h"
#include "ports.h"
#include "smob.h"
#include "stackchk.h"
#include "stime.h"
#include "strings.h"
#include "struct.h"
#include "vectors.h"
#include "gc.h"
#include <unistd.h>
/*
INIT_MALLOC_LIMIT is the initial amount of malloc usage which will

40
libguile/gc.c
View file

@ -23,48 +23,46 @@
# include <config.h>
#endif
#include "gen-scmconfig.h"
#include "pairs.h"
#include <stdio.h>
#include <errno.h>
#include <string.h>
#include <stdlib.h>
#include <math.h>
#include <unistd.h>
#include "gsubr.h"
#include "eval.h"
#include "stime.h"
#include "stackchk.h"
#include "struct.h"
#include "smob.h"
#include "arrays.h"
#include "async.h"
#include "ports.h"
#include "bdw-gc.h"
#include "deprecation.h"
#include "dynwind.h"
#include "eval.h"
#include "gen-scmconfig.h"
#include "gsubr.h"
#include "hashtab.h"
#include "hooks.h"
#include "list.h"
#include "modules.h"
#include "numbers.h"
#include "pairs.h"
#include "ports.h"
#include "simpos.h"
#include "smob.h"
#include "stackchk.h"
#include "stime.h"
#include "strings.h"
#include "struct.h"
#include "symbols.h"
#include "vectors.h"
#include "hashtab.h"
#include "deprecation.h"
#include "gc.h"
#include "dynwind.h"
#include "bdw-gc.h"
/* For GC_set_start_callback. */
#include <gc/gc_mark.h>
#ifdef GUILE_DEBUG_MALLOC
#include "debug-malloc.h"
#endif
#include <unistd.h>
#include "gc.h"
/* For GC_set_start_callback. */
#include <gc/gc_mark.h>
/* Size in bytes of the initial heap. This should be about the size of
result of 'guile -c "(display (assq-ref (gc-stats)

11
libguile/generalized-arrays.c
View file

@ -20,19 +20,20 @@
#ifdef HAVE_CONFIG_H
# include <config.h>
# include <config.h>
#endif
#include <stdio.h>
#include <errno.h>
#include <stdio.h>
#include <string.h>
#include "gsubr.h"
#include "pairs.h"
#include "array-handle.h"
#include "generalized-arrays.h"
#include "gsubr.h"
#include "list.h"
#include "numbers.h"
#include "pairs.h"
#include "generalized-arrays.h"
SCM_INTERNAL SCM scm_i_array_ref (SCM v,

2
libguile/generalized-vectors.c
View file

@ -24,8 +24,8 @@
# include <config.h>
#endif
#include "gsubr.h"
#include "error.h"
#include "gsubr.h"
#include "generalized-vectors.h"

13
libguile/gettext.c
View file

@ -21,15 +21,16 @@
# include <config.h>
#endif
#include "gsubr.h"
#include "feature.h"
#include "strings.h"
#include "numbers.h"
#include <locale.h>
#include "dynwind.h"
#include "feature.h"
#include "gsubr.h"
#include "libgettext.h"
#include "numbers.h"
#include "strings.h"
#include "gettext.h"
#include "libgettext.h"
#include <locale.h>
int

5
libguile/goops.c
View file

@ -28,8 +28,8 @@
# include <config.h>
#endif
#include "boolean.h"
#include "async.h"
#include "boolean.h"
#include "chars.h"
#include "dynwind.h"
#include "eval.h"
@ -42,8 +42,8 @@
#include "modules.h"
#include "numbers.h"
#include "pairs.h"
#include "ports.h"
#include "ports-internal.h"
#include "ports.h"
#include "procprop.h"
#include "programs.h"
#include "smob.h"
@ -56,6 +56,7 @@
#include "goops.h"
/* Objects have identity, so references to classes and instances are by
value, not by reference. Redefinition of a class or modification of
an instance causes in-place update; you can think of GOOPS as

7
libguile/gsubr.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995-2001, 2006, 2008-2011, 2013, 2015, 2018
/* Copyright (C) 1995-2001,2006,2008-2011,2013,2015,2018
* Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
@ -18,6 +18,7 @@
*/
#ifdef HAVE_CONFIG_H
# include <config.h>
#endif
@ -27,7 +28,6 @@
#include "foreign.h"
#include "frames.h"
#include "gsubr.h"
#include "instructions.h"
#include "modules.h"
#include "numbers.h"
@ -36,6 +36,9 @@
#include "srfi-4.h"
#include "symbols.h"
#include "gsubr.h"
/*
* gsubr.c

14
libguile/guardians.c
View file

@ -1,5 +1,5 @@
/* Copyright (C) 1998,1999,2000,2001, 2006, 2008, 2009, 2011,
* 2012, 2013, 2018 Free Software Foundation, Inc.
/* Copyright (C) 1998-2001,2006,2008-2009,2011-2013,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
@ -49,23 +49,23 @@
# include <config.h>
#endif
#include "gsubr.h"
#include "pairs.h"
#include "boolean.h"
#include "bdw-gc.h"
#include "boolean.h"
#include "deprecation.h"
#include "eval.h"
#include "guardians.h"
#include "gsubr.h"
#include "hashtab.h"
#include "list.h"
#include "numbers.h"
#include "pairs.h"
#include "ports.h"
#include "print.h"
#include "smob.h"
#include "threads.h"
#include "weak-vector.h"
#include "guardians.h"
static scm_t_bits tc16_guardian;

1
libguile/guile.c
View file

@ -18,7 +18,6 @@
*/
/* This is the 'main' function for the `guile' executable. It is not
included in libguile.a.
Eventually, we hope this file will be automatically generated,
based on the list of installed, statically linked libraries on the

7
libguile/hash.c
View file

@ -19,6 +19,7 @@
#ifdef HAVE_CONFIG_H
# include <config.h>
#endif
@ -31,12 +32,12 @@
#include <string.h>
#include <unistr.h>
#include "gsubr.h"
#include "chars.h"
#include "foreign.h"
#include "gsubr.h"
#include "numbers.h"
#include "pairs.h"
#include "ports.h"
#include "numbers.h"
#include "strings.h"
#include "struct.h"
#include "symbols.h"
@ -44,6 +45,8 @@
#include "vectors.h"
#include "hash.h"
#ifndef floor

11
libguile/hashtab.c
View file

@ -24,25 +24,26 @@
#endif
#include <alloca.h>
#include <stdio.h>
#include <assert.h>
#include <stdio.h>
#include "gsubr.h"
#include "pairs.h"
#include "alist.h"
#include "boolean.h"
#include "bdw-gc.h"
#include "boolean.h"
#include "eq.h"
#include "eval.h"
#include "gsubr.h"
#include "hash.h"
#include "hashtab.h"
#include "list.h"
#include "numbers.h"
#include "pairs.h"
#include "ports.h"
#include "procs.h"
#include "vectors.h"
#include "weak-table.h"
#include "hashtab.h"

8
libguile/hooks.c
View file

@ -19,18 +19,19 @@
#ifdef HAVE_CONFIG_H
# include <config.h>
#endif
#include <stdio.h>
#include "gsubr.h"
#include "pairs.h"
#include "boolean.h"
#include "boolean.h"
#include "eval.h"
#include "gsubr.h"
#include "list.h"
#include "numbers.h"
#include "pairs.h"
#include "ports.h"
#include "procprop.h"
#include "smob.h"
@ -38,6 +39,7 @@
#include "hooks.h"
/* Scheme level hooks
*

43
libguile/i18n.c
View file

@ -21,26 +21,6 @@
#endif
#include <alloca.h>
#include "gsubr.h"
#include "pairs.h"
#include "boolean.h"
#include "extensions.h"
#include "feature.h"
#include "i18n.h"
#include "list.h"
#include "strings.h"
#include "chars.h"
#include "modules.h"
#include "numbers.h"
#include "dynwind.h"
#include "syscalls.h"
#include "smob.h"
#include "symbols.h"
#include "values.h"
#include "variable.h"
#include "threads.h"
#include <locale.h>
#include <string.h> /* `strcoll ()' */
#include <ctype.h> /* `toupper ()' et al. */
@ -48,6 +28,27 @@
#include <unicase.h>
#include <unistr.h>
#include "boolean.h"
#include "chars.h"
#include "dynwind.h"
#include "extensions.h"
#include "feature.h"
#include "gsubr.h"
#include "list.h"
#include "modules.h"
#include "numbers.h"
#include "pairs.h"
#include "posix.h" /* for `scm_i_locale_mutex' */
#include "smob.h"
#include "strings.h"
#include "symbols.h"
#include "syscalls.h"
#include "threads.h"
#include "values.h"
#include "variable.h"
#include "i18n.h"
#if defined HAVE_NEWLOCALE && defined HAVE_STRCOLL_L && defined HAVE_USELOCALE
/* The GNU thread-aware locale API is documented in ``Thread-Aware Locale
Model, a Proposal'', by Ulrich Drepper:
@ -65,8 +66,6 @@
# define USE_GNU_LOCALE_API
#endif
#include "posix.h" /* for `scm_i_locale_mutex' */
/* Use Gnulib's header, which also provides `nl_item' & co. */
#include <langinfo.h>

59
libguile/init.c
View file

@ -18,22 +18,24 @@
/* Include the headers for just about everything.
We call all their initialization functions. */
#ifdef HAVE_CONFIG_H
# include <config.h>
# include <config.h>
#endif
#include <stdlib.h>
#include <stdio.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <gmp.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/stat.h>
#include <unistd.h>
#include <gmp.h>
/* Everybody has an init function. */
#include "alist.h"
#include "array-map.h"
#include "arrays.h"
#include "async.h"
#include "atomic.h"
#include "backtrace.h"
@ -41,12 +43,13 @@
#include "boolean.h"
#include "bytevectors.h"
#include "chars.h"
#include "control.h"
#include "continuations.h"
#include "control.h"
#include "debug.h"
#ifdef GUILE_DEBUG_MALLOC
#include "debug-malloc.h"
#endif
#include "deprecated.h"
#include "deprecation.h"
#include "dynl.h"
#include "dynwind.h"
@ -55,23 +58,26 @@
#include "eval.h"
#include "evalext.h"
#include "expand.h"
#include "extensions.h"
#include "fdes-finalizers.h"
#include "feature.h"
#include "filesys.h"
#include "finalizers.h"
#include "fluids.h"
#include "foreign-object.h"
#include "foreign.h"
#include "fports.h"
#include "frames.h"
#include "gc.h"
#include "generalized-arrays.h"
#include "generalized-vectors.h"
#include "gettext.h"
#include "goops.h"
#include "gsubr.h"
#include "guardians.h"
#include "hash.h"
#include "hashtab.h"
#include "hooks.h"
#include "gettext.h"
#include "i18n.h"
#include "instructions.h"
#include "intrinsics.h"
@ -79,28 +85,29 @@
#include "keywords.h"
#include "list.h"
#include "load.h"
#include "loader.h"
#include "macros.h"
#include "mallocs.h"
#include "memoize.h"
#include "modules.h"
#include "net_db.h"
#include "numbers.h"
#include "loader.h"
#include "objprop.h"
#include "options.h"
#include "pairs.h"
#include "poll.h"
#include "ports.h"
#include "posix.h"
#ifdef ENABLE_REGEX
#include "regex-posix.h"
#endif
#include "print.h"
#include "private-options.h"
#include "procprop.h"
#include "procs.h"
#include "programs.h"
#include "promises.h"
#include "array-map.h"
#ifdef ENABLE_REGEX
#include "regex-posix.h"
#endif
#include "r6rs-ports.h"
#include "random.h"
#include "rdelim.h"
#include "read.h"
@ -112,47 +119,35 @@
#include "socket.h"
#include "sort.h"
#include "srcprop.h"
#include "srfi-1.h"
#include "srfi-13.h"
#include "srfi-14.h"
#include "srfi-4.h"
#include "srfi-60.h"
#include "stackchk.h"
#include "stacks.h"
#include "stime.h"
#include "strings.h"
#include "srfi-1.h"
#include "srfi-4.h"
#include "srfi-13.h"
#include "srfi-14.h"
#include "srfi-60.h"
#include "strorder.h"
#include "strports.h"
#include "struct.h"
#include "symbols.h"
#include "syntax.h"
#include "throw.h"
#include "arrays.h"
#include "trees.h"
#include "unicode.h"
#include "uniform.h"
#include "values.h"
#include "variable.h"
#include "vectors.h"
#include "version.h"
#include "vm.h"
#include "vports.h"
#include "guardians.h"
#include "extensions.h"
#include "uniform.h"
#include "deprecated.h"
#include "weak-set.h"
#include "weak-table.h"
#include "weak-vector.h"
#include "foreign-object.h"
#include "r6rs-ports.h"
#include "init.h"
#include "private-options.h"
#ifdef HAVE_STRING_H
#include <string.h>
#endif
#include <unistd.h>

5
libguile/inline.c
View file

@ -23,9 +23,10 @@
#define SCM_IMPLEMENT_INLINES 1
#define SCM_INLINE_C_IMPLEMENTING_INLINES 1
#include "gc.h"
#include "array-handle.h"
#include "smob.h"
#include "gc.h"
#include "pairs.h"
#include "ports.h"
#include "smob.h"
#include "strings.h"

9
libguile/instructions.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 2001, 2009-2013, 2017-2018 Free Software Foundation, Inc.
/* Copyright (C) 2001,2009-2013,2017-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
@ -20,16 +20,15 @@
# include <config.h>
#endif
#include <string.h>
#include "extensions.h"
#include "gsubr.h"
#include "threads.h"
#include "list.h"
#include "numbers.h"
#include "pairs.h"
#include "symbols.h"
#include "threads.h"
#include "instructions.h"
#include "extensions.h"
SCM_SYMBOL (sym_left_arrow, "<-");

8
libguile/intrinsics.c
View file

@ -1,4 +1,5 @@
/* Copyright (C) 2018 Free Software Foundation, Inc.
/* Copyright (C) 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
@ -20,17 +21,18 @@
# include <config.h>
#endif
#include "gsubr.h"
#include "boolean.h"
#include "alist.h"
#include "boolean.h"
#include "cache-internal.h"
#include "extensions.h"
#include "fluids.h"
#include "goops.h"
#include "gsubr.h"
#include "keywords.h"
#include "modules.h"
#include "numbers.h"
#include "symbols.h"
#include "intrinsics.h"

20
libguile/ioext.c
View file

@ -24,32 +24,34 @@
# include <config.h>
#endif
#include <stdio.h>
#include <errno.h>
#include <fcntl.h>
#include <stdio.h>
#include <unistd.h>
#ifdef HAVE_IO_H
#include <io.h>
#endif
#include "gsubr.h"
#include "pairs.h"
#include "async.h"
#include "dynwind.h"
#include "extensions.h"
#include "fdes-finalizers.h"
#include "feature.h"
#include "fports.h"
#include "gsubr.h"
#include "hashtab.h"
#include "ioext.h"
#include "numbers.h"
#include "pairs.h"
#include "ports-internal.h"
#include "ports.h"
#include "strings.h"
#include "syscalls.h"
#include "weak-set.h"
#include <fcntl.h>
#include "ioext.h"
#ifdef HAVE_IO_H
#include <io.h>
#endif
#include <unistd.h>
SCM_DEFINE (scm_ftell, "ftell", 1, 0, 0,

10
libguile/keywords.c
View file

@ -1,5 +1,5 @@
/* Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004,
* 2006, 2008, 2009, 2011, 2013, 2015, 2018 Free Software Foundation, Inc.
/* Copyright (C) 1995-2001,2003-2004,2006,2008-2009,2011,2013,2015,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
@ -26,14 +26,14 @@
#include <string.h>
#include <stdarg.h>
#include "gsubr.h"
#include "async.h"
#include "dynwind.h"
#include "gsubr.h"
#include "hashtab.h"
#include "list.h"
#include "pairs.h"
#include "ports.h"
#include "smob.h"
#include "dynwind.h"
#include "hashtab.h"
#include "strings.h"
#include "symbols.h"

22
libguile/list.c
View file

@ -23,19 +23,21 @@
# include <config.h>
#endif
#include "gsubr.h"
#include "pairs.h"
#include "boolean.h"
#include "numbers.h"
#include "procs.h"
#include "eq.h"
#include "list.h"
#include "eval.h"
#include <stdarg.h>
#include "boolean.h"
#include "eq.h"
#include "eval.h"
#include "gsubr.h"
#include "numbers.h"
#include "pairs.h"
#include "procs.h"
#include "list.h"
/* creating lists */
#define SCM_I_CONS(cell, x, y) \

65
libguile/load.c
View file

@ -1,5 +1,5 @@
/* Copyright (C) 1995, 1996, 1998, 1999, 2000, 2001, 2004, 2006, 2008,
* 2009, 2010, 2011, 2012, 2013, 2014, 2017, 2018 Free Software Foundation, Inc.
/* Copyright (C) 1995-1996,1998-2001,2004,2006,2008-2014,2017-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
@ -24,38 +24,9 @@
# include <config.h>
#endif
#include <stat-time.h>
#include <string.h>
#include <stdio.h>
#include "gsubr.h"
#include "boolean.h"
#include "alist.h"
#include "chars.h"
#include "dynwind.h"
#include "eq.h"
#include "strports.h"
#include "backtrace.h"
#include "keywords.h"
#include "eval.h"
#include "filesys.h"
#include "fports.h"
#include "libpath.h"
#include "list.h"
#include "loader.h"
#include "modules.h"
#include "pairs.h"
#include "read.h"
#include "srfi-13.h"
#include "strings.h"
#include "symbols.h"
#include "throw.h"
#include "variable.h"
#include "load.h"
#include "fluids.h"
#include "vm.h" /* for load-compiled/vm */
#include <sys/types.h>
#include <sys/stat.h>
#include <unistd.h>
@ -64,12 +35,38 @@
#include <pwd.h>
#endif /* HAVE_PWD_H */
#include "alist.h"
#include "backtrace.h"
#include "boolean.h"
#include "chars.h"
#include "dynwind.h"
#include "eq.h"
#include "eval.h"
#include "filesys.h"
#include "fluids.h"
#include "fports.h"
#include "gsubr.h"
#include "keywords.h"
#include "libpath.h"
#include "list.h"
#include "loader.h"
#include "modules.h"
#include "pairs.h"
#include "read.h"
#include "srfi-13.h"
#include "strings.h"
#include "strports.h"
#include "symbols.h"
#include "throw.h"
#include "variable.h"
#include "vm.h" /* for load-compiled/vm */
#include "load.h"
#ifndef R_OK
#define R_OK 4
#endif
#include <stat-time.h>
/* Loading a file, given an absolute filename. */

26
libguile/loader.c
View file

@ -21,36 +21,36 @@
# include <config.h>
#endif
#include <string.h>
#include <alignof.h>
#include <assert.h>
#include <byteswap.h>
#include <errno.h>
#include <fcntl.h>
#include <full-read.h>
#include <string.h>
#include <sys/stat.h>
#include <sys/types.h>
#include <unistd.h>
#include <verify.h>
#ifdef HAVE_SYS_MMAN_H
#include <sys/mman.h>
#endif
#include <sys/stat.h>
#include <sys/types.h>
#include <assert.h>
#include <alignof.h>
#include <byteswap.h>
#include <errno.h>
#include <verify.h>
#include <full-read.h>
#include "gsubr.h"
#include "bytevectors.h"
#include "boolean.h"
#include "bytevectors.h"
#include "elf.h"
#include "eval.h"
#include "extensions.h"
#include "gsubr.h"
#include "pairs.h"
#include "programs.h"
#include "strings.h"
#include "threads.h"
#include "loader.h"
/* This file contains the loader for Guile's on-disk format: ELF with
some custom tags in the dynamic segment. */

6
libguile/macros.c
View file

@ -22,19 +22,19 @@
# include <config.h>
#endif
#include "gsubr.h"
#include "boolean.h"
#include "gsubr.h"
#include "modules.h"
#include "ports.h"
#include "print.h"
#include "private-options.h"
#include "procs.h"
#include "random.h"
#include "smob.h"
#include "symbols.h"
#include "macros.h"
#include "variable.h"
#include "private-options.h"
#include "macros.h"
static scm_t_bits scm_tc16_macro;

3
libguile/mallocs.c
View file

@ -25,14 +25,13 @@
#endif
#include <stdlib.h>
#include <unistd.h>
#include "ports.h"
#include "smob.h"
#include "mallocs.h"
#include <unistd.h>
scm_t_bits scm_tc16_malloc;

13
libguile/memoize.c
View file

@ -27,29 +27,30 @@
#include <string.h>
#include <stdio.h>
#include "gsubr.h"
#include "pairs.h"
#include "boolean.h"
#include "alist.h"
#include "boolean.h"
#include "continuations.h"
#include "dynstack.h"
#include "eq.h"
#include "expand.h"
#include "gsubr.h"
#include "list.h"
#include "macros.h"
#include "memoize.h"
#include "modules.h"
#include "numbers.h"
#include "srcprop.h"
#include "pairs.h"
#include "ports.h"
#include "print.h"
#include "srcprop.h"
#include "strings.h"
#include "symbols.h"
#include "throw.h"
#include "threads.h"
#include "throw.h"
#include "variable.h"
#include "vectors.h"
#include "memoize.h"

20
libguile/modules.c
View file

@ -24,25 +24,25 @@
#include <stdarg.h>
#include "gsubr.h"
#include "pairs.h"
#include "boolean.h"
#include "deprecation.h"
#include "eval.h"
#include "list.h"
#include "smob.h"
#include "procprop.h"
#include "vectors.h"
#include "keywords.h"
#include "fluids.h"
#include "gsubr.h"
#include "hashtab.h"
#include "keywords.h"
#include "list.h"
#include "pairs.h"
#include "procprop.h"
#include "smob.h"
#include "struct.h"
#include "symbols.h"
#include "variable.h"
#include "fluids.h"
#include "deprecation.h"
#include "vectors.h"
#include "modules.h"
int scm_module_system_booted_p = 0;
scm_t_bits scm_module_tag;

10
libguile/net_db.c
View file

@ -45,21 +45,21 @@
#include <netinet/in.h>
#include <arpa/inet.h>
#include "gsubr.h"
#include "pairs.h"
#include "boolean.h"
#include "dynwind.h"
#include "feature.h"
#include "gsubr.h"
#include "list.h"
#include "modules.h"
#include "numbers.h"
#include "pairs.h"
#include "socket.h"
#include "strings.h"
#include "vectors.h"
#include "dynwind.h"
#include "symbols.h"
#include "throw.h"
#include "vectors.h"
#include "net_db.h"
#include "socket.h"
#if defined (HAVE_H_ERRNO)

2
libguile/null-threads.c
View file

@ -22,8 +22,8 @@
#include <stdlib.h>
#if SCM_USE_NULL_THREADS
#if SCM_USE_NULL_THREADS
#include "null-threads.h"
static scm_i_pthread_key_t *all_keys = NULL;

25
libguile/numbers.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995-2016, 2018 Free Software Foundation, Inc.
/* Copyright (C) 1995-2016,2018 Free Software Foundation, Inc.
*
* Portions Copyright 1990, 1991, 1992, 1993 by AT&T Bell Laboratories
* and Bellcore. See scm_divide.
@ -42,40 +42,37 @@
*/
#ifdef HAVE_CONFIG_H
# include <config.h>
# include <config.h>
#endif
#include <verify.h>
#include <assert.h>
#include <math.h>
#include <stdarg.h>
#include <string.h>
#include <unicase.h>
#include <unictype.h>
#include <verify.h>
#if HAVE_COMPLEX_H
#include <complex.h>
#endif
#include <stdarg.h>
#include "gsubr.h"
#include "bdw-gc.h"
#include "boolean.h"
#include "deprecation.h"
#include "eq.h"
#include "feature.h"
#include "finalizers.h"
#include "goops.h"
#include "gsubr.h"
#include "modules.h"
#include "pairs.h"
#include "ports.h"
#include "finalizers.h"
#include "smob.h"
#include "strings.h"
#include "modules.h"
#include "bdw-gc.h"
#include "goops.h"
#include "values.h"
#include "numbers.h"
#include "deprecation.h"
#include "eq.h"
/* values per glibc, if not already defined */
#ifndef M_LOG10E

11
libguile/objprop.c
View file

@ -1,4 +1,5 @@
/* Copyright (C) 1995,1996, 2000, 2001, 2003, 2006, 2008, 2009, 2010, 2011, 2018 Free Software Foundation, Inc.
/* Copyright (C) 1995-1996,2000-2001,2003,2006,2008-2011,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
@ -18,17 +19,21 @@
#ifdef HAVE_CONFIG_H
# include <config.h>
#endif
#include "gsubr.h"
#include "alist.h"
#include "async.h"
#include "gsubr.h"
#include "hashtab.h"
#include "objprop.h"
#include "pairs.h"
#include "weak-table.h"
#include "objprop.h"
/* {Object Properties}

4
libguile/options.c
View file

@ -22,15 +22,17 @@
# include <config.h>
#endif
#include "pairs.h"
#include "boolean.h"
#include "list.h"
#include "mallocs.h"
#include "numbers.h"
#include "pairs.h"
#include "strings.h"
#include "symbols.h"
#include "options.h"
/* {Run-time options}

5
libguile/pairs.c
View file

@ -23,11 +23,12 @@
# include <config.h>
#endif
#include <verify.h>
#include "boolean.h"
#include "gsubr.h"
#include "pairs.h"
#include "verify.h"
#include "pairs.h"

1
libguile/poll.c
View file

@ -41,6 +41,7 @@
#include "poll.h"
/* {Poll}

83
libguile/ports.c
View file

@ -19,7 +19,6 @@
/* Headers. */
#define _LARGEFILE64_SOURCE /* ask for stat64 etc */
@ -28,63 +27,61 @@
#endif
#include <assert.h>
#include <stdio.h>
#include <assert.h>
#include <errno.h>
#include <fcntl.h> /* for chsize on mingw */
#include <assert.h>
#include <iconv.h>
#include <poll.h>
#include <uniconv.h>
#include <unistr.h>
#include <stdio.h>
#include <striconveh.h>
#include "gsubr.h"
#include "pairs.h"
#include "boolean.h"
#include "async.h"
#include "atomics-internal.h"
#include "deprecation.h"
#include "eval.h"
#include "fports.h" /* direct access for seek and truncate */
#include "goops.h"
#include "smob.h"
#include "chars.h"
#include "dynwind.h"
#include "extensions.h"
#include "finalizers.h"
#include "keywords.h"
#include "hashtab.h"
#include "strings.h"
#include "mallocs.h"
#include "modules.h"
#include "numbers.h"
#include "ports.h"
#include "ports-internal.h"
#include "private-options.h"
#include "procs.h"
#include "symbols.h"
#include "syscalls.h"
#include "variable.h"
#include "vectors.h"
#include "weak-set.h"
#include "fluids.h"
#include "eq.h"
#include "alist.h"
#ifdef HAVE_STRING_H
#include <string.h>
#endif
#include <uniconv.h>
#include <unistd.h>
#include <unistr.h>
#ifdef HAVE_IO_H
#include <io.h>
#endif
#include <unistd.h>
#ifdef HAVE_SYS_IOCTL_H
#include <sys/ioctl.h>
#endif
#include "alist.h"
#include "async.h"
#include "atomics-internal.h"
#include "boolean.h"
#include "chars.h"
#include "deprecation.h"
#include "dynwind.h"
#include "eq.h"
#include "eval.h"
#include "extensions.h"
#include "finalizers.h"
#include "fluids.h"
#include "fports.h" /* direct access for seek and truncate */
#include "goops.h"
#include "gsubr.h"
#include "hashtab.h"
#include "keywords.h"
#include "mallocs.h"
#include "modules.h"
#include "numbers.h"
#include "pairs.h"
#include "ports-internal.h"
#include "private-options.h"
#include "procs.h"
#include "smob.h"
#include "strings.h"
#include "symbols.h"
#include "syscalls.h"
#include "variable.h"
#include "vectors.h"
#include "weak-set.h"
#include "ports.h"
/* Mingw (version 3.4.5, circa 2006) has ftruncate as an alias for chsize
already, but have this code here in case that wasn't so in past versions,
or perhaps to help other minimal DOS environments.

3
libguile/posix-w32.c
View file

@ -32,10 +32,11 @@
#include <io.h>
#include <fcntl.h>
#include "posix-w32.h"
#include "gc.h" /* for scm_*alloc, scm_strdup */
#include "threads.h" /* for scm_i_scm_pthread_mutex_lock */
#include "posix-w32.h"
/*
* Get name and information about current kernel.
*/

75
libguile/posix.c
View file

@ -22,18 +22,20 @@
# include <config.h>
#endif
#include <stdlib.h>
#include <stdio.h>
#include <errno.h>
#include <fcntl.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/stat.h>
#include <sys/types.h>
#include <uniconv.h>
#include <unistd.h>
#ifdef HAVE_SCHED_H
# include <sched.h>
#endif
#ifdef HAVE_STRING_H
#include <string.h>
#endif
#ifdef TIME_WITH_SYS_TIME
# include <sys/time.h>
# include <time.h>
@ -45,53 +47,46 @@
# endif
#endif
#include <unistd.h>
#ifdef LIBC_H_WITH_UNISTD_H
#include <libc.h>
# include <libc.h>
#endif
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#ifdef HAVE_PWD_H
#include <pwd.h>
# include <pwd.h>
#endif
#ifdef HAVE_IO_H
#include <io.h>
# include <io.h>
#endif
#include "gsubr.h"
#include "pairs.h"
#include "async.h"
#include "dynwind.h"
#include "extensions.h"
#include "finalizers.h"
#include "fports.h"
#include "list.h"
#include "bitvectors.h"
#include "scmsigs.h"
#include "feature.h"
#include "modules.h"
#include "numbers.h"
#include "strings.h"
#include "srfi-13.h"
#include "srfi-14.h"
#include "symbols.h"
#include "syscalls.h"
#include "vectors.h"
#include "values.h"
#include "posix.h"
#include "gettext.h"
#include "threads.h"
#ifdef __MINGW32__
# include "posix-w32.h"
#endif
#include "async.h"
#include "bitvectors.h"
#include "dynwind.h"
#include "extensions.h"
#include "feature.h"
#include "finalizers.h"
#include "fports.h"
#include "gettext.h"
#include "gsubr.h"
#include "list.h"
#include "modules.h"
#include "numbers.h"
#include "pairs.h"
#include "scmsigs.h"
#include "srfi-13.h"
#include "srfi-14.h"
#include "strings.h"
#include "symbols.h"
#include "syscalls.h"
#include "threads.h"
#include "values.h"
#include "vectors.h"
#include "posix.h"
#if HAVE_SYS_WAIT_H
# include <sys/wait.h>
#endif

40
libguile/print.c
View file

@ -1,5 +1,5 @@
/* Copyright (C) 1995-1999, 2000, 2001, 2002, 2003, 2004, 2006, 2008,
* 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2017, 2018 Free Software Foundation, Inc.
/* Copyright (C) 1995-2004,2006,2008,2009-2015,2017-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
@ -30,45 +30,45 @@
#include <uniconv.h>
#include <unictype.h>
#include "gsubr.h"
#include "pairs.h"
#include "alist.h"
#include "arrays.h"
#include "atomic.h"
#include "bitvectors.h"
#include "boolean.h"
#include "chars.h"
#include "continuations.h"
#include "smob.h"
#include "control.h"
#include "eval.h"
#include "fluids.h"
#include "foreign.h"
#include "goops.h"
#include "gsubr.h"
#include "hashtab.h"
#include "weak-set.h"
#include "weak-table.h"
#include "fluids.h"
#include "keywords.h"
#include "atomic.h"
#include "bitvectors.h"
#include "arrays.h"
#include "weak-vector.h"
#include "macros.h"
#include "procprop.h"
#include "read.h"
#include "programs.h"
#include "alist.h"
#include "struct.h"
#include "ports.h"
#include "numbers.h"
#include "pairs.h"
#include "ports-internal.h"
#include "ports.h"
#include "private-options.h"
#include "procprop.h"
#include "programs.h"
#include "read.h"
#include "smob.h"
#include "strings.h"
#include "strports.h"
#include "struct.h"
#include "symbols.h"
#include "syntax.h"
#include "variable.h"
#include "vectors.h"
#include "numbers.h"
#include "vm.h"
#include "weak-set.h"
#include "weak-table.h"
#include "weak-vector.h"
#include "print.h"
#include "private-options.h"

16
libguile/procprop.c
View file

@ -19,28 +19,30 @@
#ifdef HAVE_CONFIG_H
# include <config.h>
#endif
#include "pairs.h"
#include "boolean.h"
#include "alist.h"
#include "boolean.h"
#include "eval.h"
#include "list.h"
#include "procs.h"
#include "gsubr.h"
#include "list.h"
#include "numbers.h"
#include "pairs.h"
#include "procs.h"
#include "programs.h"
#include "smob.h"
#include "symbols.h"
#include "threads.h"
#include "vectors.h"
#include "weak-table.h"
#include "programs.h"
#include "vm-builtins.h"
#include "weak-table.h"
#include "procprop.h"
SCM_GLOBAL_SYMBOL (scm_sym_system_procedure, "system-procedure");

21
libguile/procs.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995-1997, 1999-2001, 2006, 2008-2013, 2017-2018
/* Copyright (C) 1995-1997,1999-2001,2006,2008-2013,2017-2018
* Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
@ -23,23 +23,22 @@
# include <config.h>
#endif
#include "gsubr.h"
#include "goops.h"
#include "strings.h"
#include "vectors.h"
#include "smob.h"
#include "struct.h"
#include "deprecation.h"
#include "procprop.h"
#include "symbols.h"
#include "goops.h"
#include "gsubr.h"
#include "loader.h"
#include "procprop.h"
#include "programs.h"
#include "smob.h"
#include "strings.h"
#include "struct.h"
#include "symbols.h"
#include "vectors.h"
#include "procs.h"
/* {Procedures}
*/

13
libguile/programs.c
View file

@ -1,4 +1,5 @@
/* Copyright (C) 2001, 2009-2014, 2017-2018 Free Software Foundation, Inc.
/* Copyright (C) 2001,2009-2014,2017-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
@ -21,21 +22,23 @@
#endif
#include <string.h>
#include "gsubr.h"
#include "boolean.h"
#include "instructions.h"
#include "alist.h"
#include "boolean.h"
#include "eval.h"
#include "extensions.h"
#include "gsubr.h"
#include "instructions.h"
#include "modules.h"
#include "numbers.h"
#include "pairs.h"
#include "ports.h"
#include "programs.h"
#include "procprop.h" /* scm_sym_name */
#include "variable.h"
#include "vm.h"
#include "programs.h"
static SCM write_program = SCM_BOOL_F;

4
libguile/promises.c
View file

@ -25,7 +25,6 @@
#include <alloca.h>
#include "gsubr.h"
#include "alist.h"
#include "async.h"
#include "continuations.h"
@ -37,6 +36,7 @@
#include "feature.h"
#include "fluids.h"
#include "goops.h"
#include "gsubr.h"
#include "hash.h"
#include "hashtab.h"
#include "list.h"
@ -55,12 +55,12 @@
#include "threads.h"
#include "throw.h"
#include "values.h"
#include "promises.h"
scm_t_bits scm_tc16_promise;
SCM_DEFINE (scm_make_promise, "make-promise", 1, 0, 0,

12
libguile/r6rs-ports.c
View file

@ -25,22 +25,22 @@
#include <string.h>
#include <stdio.h>
#include <assert.h>
#include "gsubr.h"
#include "boolean.h"
#include "bytevectors.h"
#include "chars.h"
#include "eval.h"
#include "extensions.h"
#include "procs.h"
#include "gsubr.h"
#include "numbers.h"
#include "r6rs-ports.h"
#include "strings.h"
#include "ports-internal.h"
#include "procs.h"
#include "smob.h"
#include "strings.h"
#include "symbols.h"
#include "values.h"
#include "vectors.h"
#include "ports-internal.h"
#include "r6rs-ports.h"

23
libguile/random.c
View file

@ -18,40 +18,41 @@
*/
/* Original Author: Mikael Djurfeldt <djurfeldt@nada.kth.se> */
#ifdef HAVE_CONFIG_H
# include <config.h>
#endif
#include <gmp.h>
#include <stdio.h>
#include <math.h>
#include <stdio.h>
#include <string.h>
#include <sys/types.h>
#include <unistd.h>
#include "gsubr.h"
#include "smob.h"
#include "generalized-arrays.h"
#include "list.h"
#include "numbers.h"
#include <gmp.h>
#include "arrays.h"
#include "feature.h"
#include "generalized-arrays.h"
#include "generalized-vectors.h"
#include "gsubr.h"
#include "list.h"
#include "modules.h"
#include "numbers.h"
#include "numbers.h"
#include "pairs.h"
#include "smob.h"
#include "srfi-4.h"
#include "stime.h"
#include "strings.h"
#include "symbols.h"
#include "arrays.h"
#include "srfi-4.h"
#include "variable.h"
#include "vectors.h"
#include "generalized-vectors.h"
#include "random.h"
/*
* A plugin interface for RNGs

15
libguile/rdelim.c
View file

@ -20,26 +20,23 @@
# include <config.h>
#endif
#include "boolean.h"
#include "gsubr.h"
#include "pairs.h"
#include <stdio.h>
#ifdef HAVE_STRING_H
#include <string.h>
#endif
#include "boolean.h"
#include "chars.h"
#include "gsubr.h"
#include "list.h"
#include "modules.h"
#include "numbers.h"
#include "pairs.h"
#include "ports.h"
#include "rdelim.h"
#include "strings.h"
#include "srfi-13.h"
#include "strings.h"
#include "strports.h"
#include "rdelim.h"
SCM_DEFINE (scm_read_delimited_x, "%read-delimited!", 3, 3, 0,
(SCM delims, SCM str, SCM gobble, SCM port, SCM start, SCM end),
"Read characters from @var{port} into @var{str} until one of the\n"

42
libguile/read.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995-1997, 1999-2001, 2003-2004, 2006-2012, 2014-2015, 2018
/* Copyright (C) 1995-1997,1999-2001,2003-2004,2006-2012,2014-2015,2018
* Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
@ -24,45 +24,45 @@
# include <config.h>
#endif
#include <alloca.h>
#include <c-ctype.h>
#include <c-strcase.h>
#include <stdio.h>
#include <string.h>
#include <unistd.h>
#include <unicase.h>
#include <unictype.h>
#include <c-strcase.h>
#include <c-ctype.h>
#include <alloca.h>
#include <unistd.h>
#include "gsubr.h"
#include "pairs.h"
#include "alist.h"
#include "arrays.h"
#include "bitvectors.h"
#include "boolean.h"
#include "bytevectors.h"
#include "chars.h"
#include "eval.h"
#include "arrays.h"
#include "bitvectors.h"
#include "keywords.h"
#include "alist.h"
#include "srcprop.h"
#include "hashtab.h"
#include "hash.h"
#include "eq.h"
#include "eval.h"
#include "fluids.h"
#include "fports.h"
#include "gsubr.h"
#include "hash.h"
#include "hashtab.h"
#include "keywords.h"
#include "modules.h"
#include "numbers.h"
#include "ports.h"
#include "pairs.h"
#include "ports-internal.h"
#include "fports.h"
#include "ports.h"
#include "private-options.h"
#include "srcprop.h"
#include "srfi-13.h"
#include "srfi-4.h"
#include "strings.h"
#include "strports.h"
#include "symbols.h"
#include "variable.h"
#include "vectors.h"
#include "srfi-4.h"
#include "srfi-13.h"
#include "symbols.h"
#include "read.h"
#include "private-options.h"

18
libguile/regex-posix.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1997-2001,2004,2006-2007,2010-2012,2018
/* Copyright (C) 1997-2001,2004,2006-2007,2010-2012,2018
* Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
@ -32,29 +32,27 @@
# include <config.h>
#endif
#include <regex.h>
#include <string.h>
#include <sys/types.h>
#include "gsubr.h"
#include "pairs.h"
#include <regex.h>
#ifdef HAVE_WCHAR_H
#include <wchar.h>
#endif
#include "async.h"
#include "feature.h"
#include "gsubr.h"
#include "list.h"
#include "modules.h"
#include "numbers.h"
#include "pairs.h"
#include "ports.h"
#include "smob.h"
#include "strings.h"
#include "strports.h"
#include "symbols.h"
#include "vectors.h"
#include "strports.h"
#include "ports.h"
#include "feature.h"
#include "strings.h"
#include "regex-posix.h"

31
libguile/rw.c
View file

@ -1,4 +1,5 @@
/* Copyright (C) 2001, 2006, 2009, 2011, 2014, 2018 Free Software Foundation, Inc.
/* Copyright (C) 2001,2006,2009,2011,2014,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
@ -26,24 +27,26 @@
#include <errno.h>
#include <string.h>
#include "gsubr.h"
#include "async.h"
#include "fports.h"
#include "numbers.h"
#include "ports.h"
#include "rw.h"
#include "strings.h"
#include "modules.h"
#include "strports.h"
#include "syscalls.h"
#include "ports-internal.h"
#include <unistd.h>
#ifdef HAVE_IO_H
#include <io.h>
#endif
#include "async.h"
#include "fports.h"
#include "gsubr.h"
#include "modules.h"
#include "numbers.h"
#include "ports-internal.h"
#include "ports.h"
#include "strings.h"
#include "strports.h"
#include "syscalls.h"
#include "rw.h"
#if defined (EAGAIN)

13
libguile/scmsigs.c
View file

@ -41,22 +41,21 @@
#include <full-write.h>
#include "gsubr.h"
#include "pairs.h"
#include "boolean.h"
#include "async.h"
#include "boolean.h"
#include "dynwind.h"
#include "feature.h"
#include "eval.h"
#include "feature.h"
#include "gsubr.h"
#include "list.h"
#include "modules.h"
#include "numbers.h"
#include "pairs.h"
#include "procs.h"
#include "variable.h"
#include "vectors.h"
#include "syscalls.h"
#include "threads.h"
#include "variable.h"
#include "vectors.h"
#include "scmsigs.h"

42
libguile/script.c
View file

@ -23,36 +23,34 @@
# include <config.h>
#endif
#include <localcharset.h>
#include <stdlib.h>
#include <stdio.h>
#include <errno.h>
#include <ctype.h>
#include <uniconv.h>
#include "pairs.h"
#include "eval.h"
#include "feature.h"
#include "fluids.h"
#include "load.h"
#include "modules.h"
#include "read.h"
#include "script.h"
#include "strings.h"
#include "strports.h"
#include "version.h"
#include "vm.h"
#ifdef HAVE_STRING_H
#include <errno.h>
#include <localcharset.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#endif
#include <uniconv.h>
#include <unistd.h> /* for X_OK define */
#ifdef HAVE_IO_H
#include <io.h>
#endif
#include "eval.h"
#include "feature.h"
#include "fluids.h"
#include "load.h"
#include "modules.h"
#include "pairs.h"
#include "read.h"
#include "strings.h"
#include "strports.h"
#include "version.h"
#include "vm.h"
#include "script.h"
/* Concatentate str2 onto str1 at position n and return concatenated
string if file exists; 0 otherwise. */

2
libguile/simpos.c
View file

@ -29,9 +29,9 @@
#include "boolean.h"
#include "gsubr.h"
#include "numbers.h"
#include "strings.h"
#include "simpos.h"

13
libguile/smob.c
View file

@ -1,5 +1,5 @@
/* Copyright (C) 1995, 1996, 1998, 1999, 2000, 2001, 2003, 2004, 2006,
* 2009, 2010, 2011, 2012, 2013, 2015, 2018 Free Software Foundation, Inc.
/* Copyright (C) 1995-1996,1998-2001,2003-2004,2006,2009-2013,2015,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
@ -19,18 +19,20 @@
#ifdef HAVE_CONFIG_H
# include <config.h>
# include <config.h>
#endif
#include <errno.h>
#include <stdio.h>
#include <stdlib.h>
#include <errno.h>
#include "async.h"
#include "bdw-gc.h"
#include "finalizers.h"
#include "goops.h"
#include "gsubr.h"
#include "finalizers.h"
#include "instructions.h"
#include "numbers.h"
#include "ports.h"
@ -38,7 +40,6 @@
#include "smob.h"
#include "bdw-gc.h"
#include <gc/gc_mark.h>

14
libguile/socket.c
View file

@ -34,8 +34,8 @@
#include <string.h>
#endif
#include <unistd.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <sys/types.h>
#ifdef HAVE_UNIX_DOMAIN_SOCKETS
#include <sys/un.h>
#endif
@ -46,22 +46,22 @@
#include <gmp.h>
#include "gsubr.h"
#include "pairs.h"
#include "async.h"
#include "arrays.h"
#include "async.h"
#include "bytevectors.h"
#include "dynwind.h"
#include "feature.h"
#include "fports.h"
#include "gsubr.h"
#include "list.h"
#include "modules.h"
#include "numbers.h"
#include "pairs.h"
#include "srfi-13.h"
#include "strings.h"
#include "symbols.h"
#include "vectors.h"
#include "dynwind.h"
#include "srfi-13.h"
#include "syscalls.h"
#include "vectors.h"
#include "socket.h"

14
libguile/sort.c
View file

@ -39,18 +39,18 @@
# include <config.h>
#endif
#include "gsubr.h"
#include "pairs.h"
#include "boolean.h"
#include "eval.h"
#include "arrays.h"
#include "array-map.h"
#include "arrays.h"
#include "async.h"
#include "boolean.h"
#include "dynwind.h"
#include "eval.h"
#include "feature.h"
#include "generalized-arrays.h"
#include "gsubr.h"
#include "list.h"
#include "pairs.h"
#include "vectors.h"
#include "async.h"
#include "dynwind.h"
#include "sort.h"

16
libguile/srcprop.c
View file

@ -18,31 +18,33 @@
#ifdef HAVE_CONFIG_H
# include <config.h>
#endif
#include <errno.h>
#include "gsubr.h"
#include "pairs.h"
#include "async.h"
#include "smob.h"
#include "alist.h"
#include "async.h"
#include "debug.h"
#include "hashtab.h"
#include "gc.h"
#include "gsubr.h"
#include "hash.h"
#include "hashtab.h"
#include "keywords.h"
#include "list.h"
#include "modules.h"
#include "numbers.h"
#include "pairs.h"
#include "ports.h"
#include "gc.h"
#include "private-options.h"
#include "smob.h"
#include "symbols.h"
#include "weak-table.h"
#include "srcprop.h"
#include "private-options.h"
/* {Source Properties}

20
libguile/srfi-1.c
View file

@ -1,7 +1,7 @@
/* srfi-1.c --- SRFI-1 procedures for Guile
*
* Copyright (C) 1995-1997, 2000-2003, 2005, 2006, 2008-2011, 2013
* 2014, 2018 Free Software Foundation, Inc.
* Copyright (C) 1995-1997,2000-2003,2005-2006,2008-2011,2013-2014,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
@ -19,25 +19,27 @@
* 02110-1301 USA
*/
#ifdef HAVE_CONFIG_H
# include <config.h>
#endif
#include "gsubr.h"
#include "pairs.h"
#include <stdarg.h>
#include "boolean.h"
#include "eq.h"
#include "list.h"
#include "eval.h"
#include "extensions.h"
#include "gsubr.h"
#include "list.h"
#include "pairs.h"
#include "procs.h"
#include "srfi-1.h"
#include "values.h"
#include "vectors.h"
#include "extensions.h"
#include <stdarg.h>
#include "srfi-1.h"
/* The intent of this file was to gradually replace those Scheme

10
libguile/srfi-13.c
View file

@ -28,19 +28,21 @@
#include <unicase.h>
#include <unictype.h>
#include "gsubr.h"
#include "pairs.h"
#include "deprecation.h"
#include "eval.h"
#include "error.h"
#include "eval.h"
#include "gsubr.h"
#include "hash.h"
#include "list.h"
#include "numbers.h"
#include "pairs.h"
#include "procs.h"
#include "srfi-13.h"
#include "srfi-14.h"
#include "symbols.h"
#include "srfi-13.h"
#define MY_VALIDATE_SUBSTRING_SPEC(pos_str, str, \
pos_start, start, c_start, \
pos_end, end, c_end) \

11
libguile/srfi-14.c
View file

@ -23,27 +23,28 @@
# include <config.h>
#endif
#include <stdio.h>
#include <string.h>
#include <unictype.h>
#include "gsubr.h"
#include "pairs.h"
#include "boolean.h"
#include "chars.h"
#include "eval.h"
#include "gsubr.h"
#include "list.h"
#include "ports.h"
#include "modules.h"
#include "numbers.h"
#include "pairs.h"
#include "ports.h"
#include "procs.h"
#include "smob.h"
#include "srfi-14.h"
#include "strings.h"
#include "symbols.h"
#include "values.h"
#include "srfi-14.h"
/* Include the pre-computed standard charset data. */
#include "srfi-14.i.c"

11
libguile/srfi-4.c
View file

@ -1,6 +1,6 @@
/* srfi-4.c --- Uniform numeric vector datatypes.
*
* Copyright (C) 2001, 2004, 2006, 2009, 2010, 2011, 2014, 2018 Free Software Foundation, Inc.
* Copyright (C) 2001,2004,2006,2009-2011,2014,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
@ -24,20 +24,21 @@
#include <string.h>
#include "gsubr.h"
#include "boolean.h"
#include "bdw-gc.h"
#include "srfi-4.h"
#include "boolean.h"
#include "bytevectors.h"
#include "error.h"
#include "eval.h"
#include "extensions.h"
#include "generalized-vectors.h"
#include "gsubr.h"
#include "modules.h"
#include "numbers.h"
#include "uniform.h"
#include "variable.h"
#include "srfi-4.h"
#define DEFINE_SCHEME_PROXY100(cname, modname, scmname) \
SCM cname (SCM arg1) \

5
libguile/srfi-60.c
View file

@ -25,13 +25,12 @@
#endif
#include "boolean.h"
#include "gsubr.h"
#include "pairs.h"
#include "eq.h"
#include "extensions.h"
#include "gsubr.h"
#include "list.h"
#include "numbers.h"
#include "pairs.h"
#include "srfi-60.h"

5
libguile/stackchk.c
View file

@ -19,17 +19,20 @@
#ifdef HAVE_CONFIG_H
# include <config.h>
#endif
#include "dynwind.h"
#include "gsubr.h"
#include "numbers.h"
#include "ports.h"
#include "threads.h"
#include "dynwind.h"
#include "stackchk.h"
/* {Stack Checking}

17
libguile/stacks.c
View file

@ -19,31 +19,32 @@
#ifdef HAVE_CONFIG_H
# include <config.h>
#endif
#include "gsubr.h"
#include "boolean.h"
#include "control.h"
#include "eval.h"
#include "debug.h"
#include "continuations.h"
#include "control.h"
#include "debug.h"
#include "eval.h"
#include "fluids.h"
#include "frames.h" /* vm frames */
#include "gsubr.h"
#include "list.h"
#include "struct.h"
#include "macros.h"
#include "modules.h"
#include "numbers.h"
#include "pairs.h"
#include "private-options.h"
#include "procprop.h"
#include "modules.h"
#include "strings.h"
#include "struct.h"
#include "symbols.h"
#include "vm.h" /* to capture vm stacks */
#include "frames.h" /* vm frames */
#include "stacks.h"
#include "private-options.h"
static SCM scm_sys_stacks;

41
libguile/stime.c
View file

@ -44,36 +44,35 @@
# include <config.h>
#endif
#include <stdio.h>
#include <errno.h>
#include <stdio.h>
#include <strftime.h>
#include <unistr.h>
#include "gsubr.h"
#include "pairs.h"
#include "boolean.h"
#include "async.h"
#include "feature.h"
#include "modules.h"
#include "numbers.h"
#include "strings.h"
#include "vectors.h"
#include "dynwind.h"
#include "strings.h"
#include "stime.h"
#include <unistd.h>
#include <time.h> /* Gnulib-provided */
#include <sys/types.h>
#include <string.h>
#include <sys/times.h>
#include <sys/types.h>
#include <time.h> /* Gnulib-provided */
#include <unistd.h>
#include <unistr.h>
#ifdef HAVE_SYS_TIMEB_H
# include <sys/timeb.h>
#endif
#include "async.h"
#include "boolean.h"
#include "dynwind.h"
#include "feature.h"
#include "gsubr.h"
#include "modules.h"
#include "numbers.h"
#include "pairs.h"
#include "strings.h"
#include "strings.h"
#include "vectors.h"
#include "stime.h"
#if ! HAVE_DECL_STRPTIME
extern char *strptime ();
#endif

21
libguile/strings.c
View file

@ -33,21 +33,22 @@
#include <uniconv.h>
#include <c-strcase.h>
#include "striconveh.h"
#include "gsubr.h"
#include "pairs.h"
#include "chars.h"
#include "strings.h"
#include "numbers.h"
#include "ports.h"
#include "ports-internal.h"
#include "deprecation.h"
#include "error.h"
#include "generalized-vectors.h"
#include "deprecation.h"
#include "gsubr.h"
#include "numbers.h"
#include "pairs.h"
#include "ports-internal.h"
#include "ports.h"
#include "private-options.h"
#include "striconveh.h"
#include "symbols.h"
#include "threads.h"
#include "private-options.h"
#include "strings.h"

8
libguile/strorder.c
View file

@ -18,21 +18,25 @@
*/
#ifdef HAVE_CONFIG_H
# include <config.h>
#endif
#include "gsubr.h"
#include "boolean.h"
#include "chars.h"
#include "gsubr.h"
#include "pairs.h"
#include "srfi-13.h"
#include "strings.h"
#include "symbols.h"
#include "strorder.h"
#include "srfi-13.h"
SCM_C_INLINE_KEYWORD static SCM
srfi13_cmp (SCM s1, SCM s2, SCM (*cmp) (SCM, SCM, SCM, SCM, SCM, SCM))
{

Some files were not shown because too many files have changed in this diff Show more