diff options
author | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1995-01-18 02:37:01 +0000 |
---|---|---|
committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1995-01-18 02:37:01 +0000 |
commit | 9c8d0b29b7bd1493cc1d95591b17902820e5579c (patch) | |
tree | f8671d758a3a5d07d4fef72c609650aa9af8f7e1 /x2p/walk.c | |
parent | f4cb4c40de81ad9c5a8e775c2298ec5a52130124 (diff) | |
download | perl-9c8d0b29b7bd1493cc1d95591b17902820e5579c.tar.gz |
perl5.000 patch.0e: fix various non-broken things in the x2p/ directory
This patch fixes various non-broken things in the x2p/ directory.
Mostly, I've supplied function prototypes to satisfy particularly
picky compilers.
I've also updated Makefile.SH to know that the byacc-generated a2p.c
is now included with the distribution so that we no longer need to go
looking for yacc/bison/byacc and deal with various library issues or
command line options to support those various compiler compilers.
I've included a2p.c generated by byacc-1.9. Larry, feel free to
use your own from byacc-1.8 instead.
Diffstat (limited to 'x2p/walk.c')
-rw-r--r-- | x2p/walk.c | 21 |
1 files changed, 16 insertions, 5 deletions
diff --git a/x2p/walk.c b/x2p/walk.c index 26e89ae5bd..e4cca450ee 100644 --- a/x2p/walk.c +++ b/x2p/walk.c @@ -8,10 +8,9 @@ * $Log: walk.c,v $ */ -#include "handy.h" #include "EXTERN.h" -#include "util.h" #include "a2p.h" +#include "util.h" bool exitval = FALSE; bool realexit = FALSE; @@ -27,6 +26,15 @@ char *limit; STR *subs; STR *curargs = Nullstr; +void addsemi _(( STR *str )); +void emit_split _(( STR *str, int level )); +void fixtab _(( STR *str, int lvl )); +void numericize _(( int node )); +int prewalk _(( int numit, int level, int node, int *numericptr )); +void tab _(( STR *str, int lvl )); +STR * walk _(( int useval, int level, int node, int *numericptr, int minprec )); + + STR * walk(useval,level,node,numericptr,minprec) int useval; @@ -1547,6 +1555,7 @@ sub Pick {\n\ return str; } +void tab(str,lvl) register STR *str; register int lvl; @@ -1559,6 +1568,7 @@ register int lvl; str_cat(str," "); } +void fixtab(str,lvl) register STR *str; register int lvl; @@ -1578,6 +1588,7 @@ register int lvl; tab(str,lvl); } +void addsemi(str) register STR *str; { @@ -1590,6 +1601,7 @@ register STR *str; str_cat(str,";"); } +void emit_split(str,level) register STR *str; int level; @@ -1624,6 +1636,7 @@ int level; tab(str,level); } +int prewalk(numit,level,node,numericptr) int numit; int level; @@ -1633,8 +1646,6 @@ int *numericptr; register int len; register int type; register int i; - char *t; - char *d, *s; int numarg; int numeric = FALSE; STR *tmpstr; @@ -2046,12 +2057,12 @@ int *numericptr; return 1; } +void numericize(node) register int node; { register int len; register int type; - register int i; STR *tmpstr; STR *tmp2str; int numarg; |