mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 16:20:17 +02:00
Code Activity

* __scm.h, alist.c, alist.h, append.c, append.h, appinit.c,

Browse source 
arbiters.c, arbiters.h, async.c, async.h, boolean.c, boolean.h,
chars.c, chars.h, continuations.c, continuations.h, debug.c,
debug.h, dynwind.c, dynwind.h, eq.c, eq.h, error.c, eval.c,
eval.h, extchrs.c, extchrs.h, fdsocket.c, fdsocket.h, filesys.c,
filesys.h, fports.c, fports.h, gc.c, gdb_interface.h, gdbint.c,
gdbint.h, genio.c, genio.h, gscm.c, gscm.h, gsubr.c, gsubr.h,
hash.c, hash.h, hashtab.c, hashtab.h, init.c, ioext.c, ioext.h,
kw.c, kw.h, libguile.h, mallocs.c, mallocs.h, markers.c,
markers.h, mbstrings.c, mbstrings.h, numbers.c, numbers.h,
objprop.c, objprop.h, options.c, options.h, pairs.c, pairs.h,
ports.c, ports.h, posix.c, posix.h, print.c, print.h, procprop.c,
procprop.h, procs.c, procs.h, ramap.c, ramap.h, read.c, read.h,
root.c, scmsigs.c, scmsigs.h, sequences.c, sequences.h, simpos.c,
simpos.h, smob.c, socket.c, socket.h, srcprop.c, srcprop.h,
stackchk.c, stackchk.h, stime.c, stime.h, strings.c, strings.h,
strop.c, strop.h, strorder.c, strorder.h, strports.c, strports.h,
struct.c, struct.h, symbols.c, symbols.h, tag.c, tag.h, unif.c,
unif.h, variable.c, variable.h, vectors.c, vectors.h, version.c,
version.h, vports.c, vports.h, weaks.c, weaks.h: Use SCM_P to
declare functions with prototypes.  (Patch thanks to Marius
Vollmer.)

More prototype-related changes from Marius Vollmer:
* gdb_interface.h: Wrapped header file in #ifdef/#endif
* gscm.h (gscm_run_scm): Added prototype for `initfn' paramter.
* ports.h (ptobfuns): Added prototypes. This means some casting in
fports.c.
* fports.c: Added casts for initializations, since the functions
are defined to take FILE * as their stream argument, not SCM.
* fdsocket.c, fdsocket.h: Made `init_addr_buffer' static.
* genio.c (scm_gen_puts): Changed `unsigned char *str_data' parameter
to `char *str_data' to conform to prototype.
This commit is contained in:
Jim Blandy 1996-10-14 01:28:01 +00:00
parent 0682f7ab1d
commit 1717856b4e
5 changed files with 124 additions and 250 deletions
Download patch file Download diff file Expand all files Collapse all files

29
libguile/gdb_interface.h
View file

@ -20,6 +20,9 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
The author can be reached at djurfeldt@nada.kth.se
Mikael Djurfeldt, SANS/NADA KTH, 10044 STOCKHOLM, SWEDEN */
#ifndef GDB_INTERFACE_H
#define GDB_INTERFACE_H
/* This is the header file for GDB's interpreter interface. The
interpreter must supply definitions of all symbols declared in this
file.
@ -74,8 +77,6 @@ extern char *gdb_output;
extern int gdb_output_length;
#ifdef __STDC__
/* Return TRUE if the interpreter regards VALUE's type as valid. A
lazy implementation is allowed to pass TRUE always. FALSE should
only be returned when it is certain that VALUE is not valid.
@ -83,7 +84,7 @@ extern int gdb_output_length;
In the "lisp/c" language mode, this is used to heuristically
discriminate lisp values from C values during printing. */
extern int gdb_maybe_valid_type_p (GDB_TYPE value);
extern int gdb_maybe_valid_type_p SCM_P ((GDB_TYPE value));
/* Parse expression in string STR. Store result in GDB_RESULT, then
return 0 to indicate success. On error, return -1 to indicate
@ -92,7 +93,7 @@ extern int gdb_maybe_valid_type_p (GDB_TYPE value);
no message is passed. Please note that the resulting value should
be protected against garbage collection. */
extern int gdb_read (char *str);
extern int gdb_read SCM_P ((char *str));
/* Evaluate expression EXP. Store result in GDB_RESULT, then return 0
to indicate success. On error, return -1 to indicate failure. Any
@ -101,7 +102,7 @@ extern int gdb_read (char *str);
if no output is passed. Please note that the resulting lisp object
should be protected against garbage collection. */
extern int gdb_eval (GDB_TYPE exp);
extern int gdb_eval SCM_P ((GDB_TYPE exp));
/* Print VALUE. Store output in GDB_OUTPUT and GDB_OUTPUT_LENGTH.
Return 0 to indicate success. On error, return -1 to indicate
@ -109,7 +110,7 @@ extern int gdb_eval (GDB_TYPE exp);
failure. Note that this function should be robust against strange
values. It could in fact be passed any kind of value. */
extern int gdb_print (GDB_TYPE value);
extern int gdb_print SCM_P ((GDB_TYPE value));
/* Bind NAME to VALUE in interpreter. (GDB has previously obtained
NAME by passing a string to gdb_read.) Return 0 to indicate
@ -121,18 +122,6 @@ extern int gdb_print (GDB_TYPE value);
For scheme interpreters, this function should introduce top-level
bindings. */
extern int gdb_binding (GDB_TYPE name, GDB_TYPE value);
extern int gdb_binding SCM_P ((GDB_TYPE name, GDB_TYPE value));
#else
extern int gdb_maybe_valid_type_p ();
extern int gdb_read ();
extern int gdb_eval ();
extern int gdb_print ();
extern int gdb_binding ();
#endif /* __STDC__ */
#endif /* GDB_INTERFACE_H */