mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00
Code Activity

* smob.h: Use PROTO instead of #if __STDC__.

Browse source 
* smob.h: #include "ports.h", "genio.h", and "print.h", since
anyone who uses this file will need them to define the smob
printing functions.  Also, get markers.h, since people will need
to #define the mark functions.

* smob.h (scm_ptobfuns, SCM_PTOBNUM): Definitions moved...
* ports.h: ... to here.

* debug.h: Don't #include "options.h"; the compiler won't be able
to find that once the headers are installed; instead, #include
"libguile/options.h".
* gc.h: Same, with marksweep.h.
* mbstrings.h: Same, with symbols.h.
* scmhob.h: Same, with _scm.h.
* smob.h: Same, with params.h.
This commit is contained in:
Jim Blandy 1996-09-10 02:30:27 +00:00
parent 8f899f6971
commit 16cd1abdd4
1 changed files with 10 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

40
libguile/smob.h
View file

@ -44,7 +44,7 @@
*/
#include "libguile/__scm.h"
#include "params.h"
#include "libguile/params.h"
@ -58,24 +58,6 @@ typedef struct scm_smobfuns
SCM (*equalp) SCM_P ((SCM, SCM));
} scm_smobfuns;
typedef struct scm_ptobfuns
{
SCM (*mark) ();
int (*free) ();
int (*print) ();
SCM (*equalp) ();
int (*fputc) ();
int (*fputs) ();
scm_sizet (*fwrite) ();
int (*fflush) ();
int (*fgetc) ();
int (*fclose) ();
} scm_ptobfuns;
#define SCM_SMOBNUM(x) (0x0ff & (SCM_CAR(x)>>8));
@ -85,19 +67,17 @@ extern scm_sizet scm_numsmob;
extern scm_smobfuns *scm_smobs;
#ifdef __STDC__
extern long scm_newsmob (scm_smobfuns *smob);
extern void scm_smob_prehistory (void);
#else /* STDC */
extern long scm_newsmob ();
extern void scm_smob_prehistory ();
#endif /* STDC */
/* Everyone who uses smobs needs to print. */
#include "libguile/ports.h"
#include "libguile/genio.h"
#include "libguile/print.h"
/* ... and they all need to GC. */
#include "libguile/markers.h"
extern long scm_newsmob PROTO ((scm_smobfuns *smob));
extern void scm_smob_prehistory PROTO ((void));
#endif /* SMOBH */