Standardize spelling of program name on American English.

[perl5.git] / x2p / walk.c

diff --git a/x2p/walk.c b/x2p/walk.c
index a92808f..d6962ed 100644 (file)
--- a/x2p/walk.c
+++ b/x2p/walk.c
@@ -35,12 +35,12 @@ int prewalk ( int numit, int level, int node, int *numericptr );
 STR * walk ( int useval, int level, int node, int *numericptr, int minprec );
 #ifdef NETWARE
 char *savestr(char *str);
-char *cpytill(register char *to, register char *from, register int delim);
+char *cpytill(char *to, char *from, int delim);
 char *instr(char *big, const char *little);
 #endif
 
 STR *
-walk(int useval, int level, register int node, int *numericptr, int minprec)
+walk(int useval, int level, int node, int *numericptr, int minprec)
 {
     int len;
     STR *str;
@@ -254,7 +254,6 @@ sub Pick {\n\
        break;
     case OHUNK:
        if (len == 1) {
-           str = str_new(0);
            str = walk(0,level,oper1(OPRINT,0),&numarg,P_MIN);
            str_cat(str," if ");
            str_scat(str,fstr=walk(0,level,ops[node+1].ival,&numarg,P_MIN));
@@ -584,7 +583,7 @@ sub Pick {\n\
                    *t &= 127;
                    if (isLOWER(*t))
                        *t = toUPPER(*t);
-                   if (!isALNUMC(*t))
+                   if (!isALPHANUMERIC(*t))
                        *t = '_';
                }
                if (!strchr(tokenbuf,'_'))
@@ -1104,7 +1103,7 @@ sub Pick {\n\
        if (!do_fancy_opens) {
            t = tmpstr->str_ptr;
            if (*t == '"' || *t == '\'')
-               t = cpytill(tokenbuf,t+1,*t);
+               cpytill(tokenbuf,t+1,*t);
            else
                fatal("Internal error: OCLOSE %s",t);
            s = savestr(tokenbuf);
@@ -1112,7 +1111,7 @@ sub Pick {\n\
                *t &= 127;
                if (isLOWER(*t))
                    *t = toUPPER(*t);
-               if (!isALNUMC(*t))
+               if (!isALPHANUMERIC(*t))
                    *t = '_';
            }
            if (!strchr(tokenbuf,'_'))
@@ -1149,7 +1148,7 @@ sub Pick {\n\
                    *t &= 127;
                    if (isLOWER(*t))
                        *t = toUPPER(*t);
-                   if (!isALNUMC(*t))
+                   if (!isALPHANUMERIC(*t))
                        *t = '_';
                }
                if (!strchr(tokenbuf,'_'))
@@ -1546,7 +1545,7 @@ sub Pick {\n\
 }
 
 static void
-tab(register STR *str, register int lvl)
+tab(STR *str, int lvl)
 {
     while (lvl > 1) {
        str_cat(str,"\t");
@@ -1557,7 +1556,7 @@ tab(register STR *str, register int lvl)
 }
 
 static void
-fixtab(register STR *str, register int lvl)
+fixtab(STR *str, int lvl)
 {
     char *s;
 
@@ -1575,7 +1574,7 @@ fixtab(register STR *str, register int lvl)
 }
 
 static void
-addsemi(register STR *str)
+addsemi(STR *str)
 {
     char *s;
 
@@ -1587,7 +1586,7 @@ addsemi(register STR *str)
 }
 
 static void
-emit_split(register STR *str, int level)
+emit_split(STR *str, int level)
 {
     int i;
 
@@ -1620,7 +1619,7 @@ emit_split(register STR *str, int level)
 }
 
 int
-prewalk(int numit, int level, register int node, int *numericptr)
+prewalk(int numit, int level, int node, int *numericptr)
 {
     int len;
     int type;
@@ -2037,7 +2036,7 @@ prewalk(int numit, int level, register int node, int *numericptr)
 }
 
 static void
-numericize(register int node)
+numericize(int node)
 {
     int len;
     int type;