diff options
Diffstat (limited to 'gnu/usr.bin/perl/ext/SDBM_File/sdbm/dbu.c')
| -rw-r--r-- | gnu/usr.bin/perl/ext/SDBM_File/sdbm/dbu.c | 39 |
1 files changed, 23 insertions, 16 deletions
diff --git a/gnu/usr.bin/perl/ext/SDBM_File/sdbm/dbu.c b/gnu/usr.bin/perl/ext/SDBM_File/sdbm/dbu.c index d861c0f1b19..106262872e2 100644 --- a/gnu/usr.bin/perl/ext/SDBM_File/sdbm/dbu.c +++ b/gnu/usr.bin/perl/ext/SDBM_File/sdbm/dbu.c @@ -1,7 +1,6 @@ #include <stdio.h> #include <sys/file.h> #ifdef SDBM -#include "EXTERN.h" #include "sdbm.h" #else #include <ndbm.h> @@ -65,10 +64,12 @@ static cmd *parse(); static void badk(), doit(), prdatum(); int -main(int argc, char **argv) +main(argc, argv) +int argc; +char *argv[]; { int c; - cmd *act; + register cmd *act; extern int optind; extern char *optarg; @@ -96,13 +97,15 @@ main(int argc, char **argv) } static void -doit(cmd *act, char *file) +doit(act, file) +register cmd *act; +char *file; { datum key; datum val; - DBM *db; - char *op; - int n; + register DBM *db; + register char *op; + register int n; char *line; #ifdef TIME long start; @@ -193,9 +196,10 @@ doit(cmd *act, char *file) } static void -badk(char *word) +badk(word) +char *word; { - int i; + register int i; if (progname) fprintf(stderr, "%s: ", progname); @@ -209,10 +213,11 @@ badk(char *word) } static cmd * -parse(char *str) +parse(str) +register char *str; { - int i = CTABSIZ; - cmd *p; + register int i = CTABSIZ; + register cmd *p; for (p = cmds; i--; p++) if (strcmp(p->sname, str) == 0) @@ -221,11 +226,13 @@ parse(char *str) } static void -prdatum(FILE *stream, datum d) +prdatum(stream, d) +FILE *stream; +datum d; { - int c; - char *p = d.dptr; - int n = d.dsize; + register int c; + register char *p = d.dptr; + register int n = d.dsize; while (n--) { c = *p++ & 0377; |