X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/e5d7f4e5fdc8fcb324745c39345b369ab04cadb1..b78ed007fa9baa198c63557db888ec30e57d786e:/ext/SDBM_File/sdbm.h diff --git a/ext/SDBM_File/sdbm.h b/ext/SDBM_File/sdbm.h index 1c1151a..ba001cf 100644 --- a/ext/SDBM_File/sdbm.h +++ b/ext/SDBM_File/sdbm.h @@ -53,12 +53,6 @@ typedef struct { extern const datum nullitem; -#if defined(__STDC__) || defined(__cplusplus) || defined(CAN_PROTOTYPE) -#define proto(p) p -#else -#define proto(p) () -#endif - /* * flags to sdbm_store */ @@ -68,20 +62,20 @@ extern const datum nullitem; /* * ndbm interface */ -extern DBM *sdbm_open proto((char *, int, int)); -extern void sdbm_close proto((DBM *)); -extern datum sdbm_fetch proto((DBM *, datum)); -extern int sdbm_delete proto((DBM *, datum)); -extern int sdbm_store proto((DBM *, datum, datum, int)); -extern datum sdbm_firstkey proto((DBM *)); -extern datum sdbm_nextkey proto((DBM *)); -extern int sdbm_exists proto((DBM *, datum)); +extern DBM *sdbm_open(char *, int, int); +extern void sdbm_close(DBM *); +extern datum sdbm_fetch(DBM *, datum); +extern int sdbm_delete(DBM *, datum); +extern int sdbm_store(DBM *, datum, datum, int); +extern datum sdbm_firstkey(DBM *); +extern datum sdbm_nextkey(DBM *); +extern int sdbm_exists(DBM *, datum); /* * other */ -extern DBM *sdbm_prep proto((char *, char *, int, int)); -extern long sdbm_hash proto((const char *, int)); +extern DBM *sdbm_prep(char *, char *, int, int); +extern long sdbm_hash(const char *, int); #ifndef SDBM_ONLY #define dbm_open sdbm_open @@ -117,10 +111,6 @@ extern long sdbm_hash proto((const char *, int)); # endif #endif -#if defined(__STDC__) || defined(_AIX) || defined(__stdc__) || defined(__cplusplus) -# define STANDARD_C 1 -#endif - #include #include #include @@ -159,10 +149,8 @@ extern long sdbm_hash proto((const char *, int)); # endif #endif -/* Use all the "standard" definitions? */ -#if defined(STANDARD_C) && defined(I_STDLIB) -# include -#endif /* STANDARD_C */ +/* Use all the "standard" definitions */ +#include #define MEM_SIZE Size_t @@ -179,10 +167,10 @@ extern long sdbm_hash proto((const char *, int)); extern "C" { #endif -Malloc_t Perl_malloc proto((MEM_SIZE nbytes)); -Malloc_t Perl_calloc proto((MEM_SIZE elements, MEM_SIZE size)); -Malloc_t Perl_realloc proto((Malloc_t where, MEM_SIZE nbytes)); -Free_t Perl_mfree proto((Malloc_t where)); +Malloc_t Perl_malloc(MEM_SIZE nbytes); +Malloc_t Perl_calloc(MEM_SIZE elements, MEM_SIZE size); +Malloc_t Perl_realloc(Malloc_t where, MEM_SIZE nbytes); +Free_t Perl_mfree(Malloc_t where); #ifdef __cplusplus }