diff options
| author | Robin Barker <RMBarker@cpan.org> | 2007-12-21 14:30:20 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2007-12-21 14:48:22 +0000 |
| commit | aab391487e4ce7ac2d97b35a504de2697fadd1b6 (patch) | |
| tree | f5ccfcad7dcc2a485c904f8f35cdd5e09f31ef78 /x2p/a2py.c | |
| parent | 3f5211dd25d06319ac363a33485c17282b4021a7 (diff) | |
| download | perl-aab391487e4ce7ac2d97b35a504de2697fadd1b6.tar.gz | |
C<make translators> -Wwrite-strings clean
From: "Robin Barker" <Robin.Barker@npl.co.uk>
Message-ID: <46A0F33545E63740BC7563DE59CA9C6D09399C@exchsvr2.npl.ad.local>
p4raw-id: //depot/perl@32690
Diffstat (limited to 'x2p/a2py.c')
| -rw-r--r-- | x2p/a2py.c | 23 |
1 files changed, 11 insertions, 12 deletions
diff --git a/x2p/a2py.c b/x2p/a2py.c index df0a55cb21..b6497afdb1 100644 --- a/x2p/a2py.c +++ b/x2p/a2py.c @@ -18,8 +18,8 @@ #endif #include "util.h" -char *filename; -char *myname; +const char *filename; +const char *myname; int checkers = 0; @@ -59,7 +59,7 @@ usage() #endif int -main(register int argc, register char **argv, register char **env) +main(register int argc, register const char **argv, register const char **env) { register STR *str; int i; @@ -126,7 +126,6 @@ main(register int argc, register char **argv, register char **env) } filename = savestr(argv[0]); - filename = savestr(argv[0]); if (strEQ(filename,"-")) argv[0] = ""; if (!*argv[0]) @@ -562,7 +561,7 @@ yylex(void) else if (strEQ(d,"function")) XTERM(FUNCTION); if (strEQ(d,"FILENAME")) - d = "ARGV"; + ID("ARGV"); if (strEQ(d,"foreach")) *d = toUPPER(*d); else if (strEQ(d,"format")) @@ -666,14 +665,14 @@ yylex(void) SNARFWORD; if (strEQ(d,"ORS")) { saw_ORS = TRUE; - d = "\\"; + ID("\\"); } if (strEQ(d,"OFS")) { saw_OFS = TRUE; - d = ","; + ID(","); } if (strEQ(d,"OFMT")) { - d = "#"; + ID("#"); } if (strEQ(d,"open")) *d = toUPPER(*d); @@ -701,8 +700,8 @@ yylex(void) case 'r': case 'R': SNARFWORD; if (strEQ(d,"RS")) { - d = "/"; saw_RS = TRUE; + ID("/"); } if (strEQ(d,"rand")) { yylval = ORAND; @@ -743,7 +742,7 @@ yylex(void) XTERM(FUN1); } if (strEQ(d,"SUBSEP")) { - d = ";"; + ID(";"); } if (strEQ(d,"sin")) { yylval = OSIN; @@ -878,7 +877,7 @@ scanpat(register char *s) } void -yyerror(char *s) +yyerror(const char *s) { fprintf(stderr,"%s in file %s at line %d\n", s,filename,line); @@ -921,7 +920,7 @@ scannum(register char *s) } int -string(char *ptr, int len) +string(const char *ptr, int len) { int retval = mop; |