/*!@brief Convert a string to printable characters (in-place)
*
* @param[in,out] str String to convert
* @param[in] len Maximum number of characters to convert, or <= 0 to
* convert all.
*
* Uses toprint() macro defined above.
*/
void toprint_str(char *str, int len)
{
int i;
if(len <= 0) len = strlen(str);
for(i=0; i < len; i++)
str[i] = toprint(str[i]);
}
/*!@brief Dump message in both hex and ASCII
*
* @param[in] msg Buffer to dump
* @param[in] len Number of bytes to dump
*
* @return Pointer to static buffer with decoded message
*/
static const char *hexascdump(unsigned char *msg, size_t len)
{
size_t i;
static unsigned char buf[256];
unsigned char *bufp, *end;
bufp = buf;
end = bufp + sizeof(buf);
buf[0] = 0;
/* Dump each byte in hex: */
for(i=0; i<len && end-bufp>=3; i++) {
bufp += sprintf((char *)bufp, "%02x ", msg[i]);
}
/* Dump single-quoted string with printable version of each byte: */
if (end-bufp > 0) *bufp++ = '\'';
for(i=0; i<len && end-bufp>0; i++) {
*bufp++ = toprint(msg[i]);
}
if (end-bufp > 0) *bufp++ = '\'';
if (end-bufp > 0)
*bufp = '\0';
else
*--end='\0';
return (char *)buf;
}
void firstLine(char *s)
{
FILE *fp;
fp=fopen(s,"r");
char ch;
int i=0,j=0;
while(1)
{
ch=fgetc(fp);
while(ch!=',' && ch!=EOF && ch!='\n')
{
j++;
ch=fgetc(fp);
}
t[i]=j;
j=0;
i++;
if(ch=='\n'|| ch==EOF)
break;
}
if(ch!=EOF)
tocount(fp,i,s);
toprint(s,i);
}
/*
* Common internal routine for awkerr, awkperr
*/
static void
awkierr(int perr, char *fmt, va_list ap)
{
static char sep1[] = "\n>>>\t";
static char sep2[] = "\t<<<";
int saveerr = errno;
(void) fprintf(stderr, "%s: ", _cmdname);
if (running) {
(void) fprintf(stderr, gettext("line %u ("),
curnode == NNULL ? 0 : curnode->n_lineno);
if (phase == 0)
(void) fprintf(stderr, "NR=%lld): ",
(INT)exprint(varNR));
else
(void) fprintf(stderr, "%s): ",
phase == BEGIN ? s_BEGIN : s_END);
} else if (lineno != 0) {
(void) fprintf(stderr, gettext("file \"%s\": "), filename);
(void) fprintf(stderr, gettext("line %u: "), lineno);
}
(void) vfprintf(stderr, gettext(fmt), ap);
if (perr == 1)
(void) fprintf(stderr, ": %s", strerror(saveerr));
if (perr != 2 && !running) {
wchar_t *cp;
int n;
int c;
(void) fprintf(stderr, gettext(" Context is:%s"), sep1);
cp = conptr;
n = NCONTEXT;
do {
if (cp >= &context[NCONTEXT])
cp = &context[0];
if ((c = *cp++) != '\0')
(void) fputs(c == '\n' ? sep1 : toprint(c),
stderr);
} while (--n != 0);
(void) fputs(sep2, stderr);
}
(void) fprintf(stderr, "\n");
exit(1);
}
/*
* The lexical analyzer.
*/
int
yylex()
{
wint_t c, c1;
int i;
static int savetoken = 0;
static int wasfield;
static int isfuncdef;
static int nbrace, nparen, nbracket;
static struct ctosymstruct {
wint_t c, sym;
} ctosym[] = {
{ '|', BAR }, { '^', CARAT },
{ '~', TILDE }, { '<', LANGLE },
{ '>', RANGLE }, { '+', PLUSC },
{ '-', HYPHEN }, { '*', STAR },
{ '/', SLASH }, { '%', PERCENT },
{ '!', EXCLAMATION }, { '$', DOLLAR },
{ '[', LSQUARE }, { ']', RSQUARE },
{ '(', LPAREN }, { ')', RPAREN },
{ ';', SEMI }, { '{', LBRACE },
{ '}', RBRACE }, { 0, 0 }
};
if (savetoken) {
c = savetoken;
savetoken = 0;
} else if (redelim != '\0') {
c = redelim;
redelim = 0;
catterm = 0;
savetoken = c;
c = lexlast = lexregexp(c);
goto out;
} else while ((c = lexgetc()) != WEOF) {
if (iswalpha(c) || c == '_') {
c = lexid(c);
} else if (iswdigit(c) || c == '.') {
c = lexnumber(c);
} else if (isWblank(c)) {
continue;
} else switch (c) {
#if DOS || OS2
case 032: /* ^Z */
continue;
#endif
case '"':
c = lexstring(c);
break;
case '#':
while ((c = lexgetc()) != '\n' && c != WEOF)
;
lexungetc(c);
continue;
case '+':
if ((c1 = lexgetc()) == '+')
c = INC;
else if (c1 == '=')
c = AADD;
else
lexungetc(c1);
break;
case '-':
if ((c1 = lexgetc()) == '-')
c = DEC;
else if (c1 == '=')
c = ASUB;
else
lexungetc(c1);
break;
case '*':
if ((c1 = lexgetc()) == '=')
c = AMUL;
else if (c1 == '*') {
if ((c1 = lexgetc()) == '=')
c = AEXP;
else {
c = EXP;
lexungetc(c1);
}
} else
lexungetc(c1);
break;
case '^':
if ((c1 = lexgetc()) == '=') {
c = AEXP;
} else {
c = EXP;
lexungetc(c1);
}
break;
case '/':
if ((c1 = lexgetc()) == '=' &&
lexlast != RE && lexlast != NRE &&
lexlast != ';' && lexlast != '\n' &&
lexlast != ',' && lexlast != '(')
c = ADIV;
else
lexungetc(c1);
break;
case '%':
if ((c1 = lexgetc()) == '=')
c = AREM;
else
lexungetc(c1);
break;
case '&':
if ((c1 = lexgetc()) == '&')
c = AND;
else
lexungetc(c1);
break;
case '|':
if ((c1 = lexgetc()) == '|')
c = OR;
else {
lexungetc(c1);
if (inprint)
c = PIPE;
}
break;
case '>':
if ((c1 = lexgetc()) == '=')
c = GE;
else if (c1 == '>')
c = APPEND;
else {
lexungetc(c1);
if (nparen == 0 && inprint)
c = WRITE;
}
break;
case '<':
if ((c1 = lexgetc()) == '=')
c = LE;
else
lexungetc(c1);
break;
case '!':
if ((c1 = lexgetc()) == '=')
c = NE;
else if (c1 == '~')
c = NRE;
else
lexungetc(c1);
break;
case '=':
if ((c1 = lexgetc()) == '=')
c = EQ;
else {
lexungetc(c1);
c = ASG;
}
break;
case '\n':
switch (lexlast) {
case ')':
if (catterm || inprint) {
c = ';';
break;
}
/* FALLTHROUGH */
case AND:
case OR:
case COMMA:
case '{':
case ELSE:
case ';':
case DO:
continue;
case '}':
if (nbrace != 0)
continue;
/* FALLTHROUGH */
default:
c = ';';
break;
}
break;
case ELSE:
if (lexlast != ';') {
savetoken = ELSE;
c = ';';
}
break;
case '(':
++nparen;
break;
case ')':
if (--nparen < 0)
awkerr(unbal, "()");
break;
case '{':
nbrace++;
break;
case '}':
if (--nbrace < 0) {
char brk[3];
brk[0] = '{';
brk[1] = '}';
brk[2] = '\0';
awkerr(unbal, brk);
}
if (lexlast != ';') {
savetoken = c;
c = ';';
}
break;
case '[':
++nbracket;
break;
case ']':
if (--nbracket < 0) {
char brk[3];
brk[0] = '[';
brk[1] = ']';
brk[2] = '\0';
awkerr(unbal, brk);
}
break;
case '\\':
if ((c1 = lexgetc()) == '\n')
continue;
lexungetc(c1);
break;
case ',':
c = COMMA;
break;
case '?':
c = QUEST;
break;
case ':':
c = COLON;
break;
default:
if (!iswprint(c))
awkerr(
gettext("invalid character \"%s\""),
toprint(c));
break;
}
break;
}
switch (c) {
case ']':
++catterm;
break;
case VAR:
if (catterm) {
savetoken = c;
c = CONCAT;
catterm = 0;
} else if (!isfuncdef) {
if ((c1 = lexgetc()) != '(')
++catterm;
lexungetc(c1);
}
isfuncdef = 0;
break;
case PARM:
case CONSTANT:
if (catterm) {
savetoken = c;
c = CONCAT;
catterm = 0;
} else {
if (lexlast == '$')
wasfield = 2;
++catterm;
}
break;
case INC:
case DEC:
if (!catterm || lexlast != CONSTANT || wasfield)
break;
/* FALLTHROUGH */
case UFUNC:
case FUNC:
case GETLINE:
case '!':
case '$':
case '(':
if (catterm) {
savetoken = c;
c = CONCAT;
catterm = 0;
}
break;
case '}':
if (nbrace == 0)
savetoken = ';';
/* FALLTHROUGH */
case ';':
inprint = 0;
/* FALLTHROUGH */
default:
if (c == DEFFUNC)
isfuncdef = 1;
catterm = 0;
}
lexlast = c;
if (wasfield)
wasfield--;
/*
* Map character constants to symbolic names.
*/
for (i = 0; ctosym[i].c != 0; i++)
if (c == ctosym[i].c) {
c = ctosym[i].sym;
break;
}
out:
#ifdef DEBUG
if (dflag)
(void) printf("%d\n", (int)c);
#endif
return ((int)c);
}