350 |
while (lex_match ('/')) |
while (lex_match ('/')) |
351 |
{ |
{ |
352 |
fx.recno++; |
fx.recno++; |
353 |
if (lex_integer_p ()) |
if (lex_is_integer ()) |
354 |
{ |
{ |
355 |
if (lex_integer () < fx.recno) |
if (lex_integer () < fx.recno) |
356 |
{ |
{ |
371 |
if (!parse_DATA_LIST_vars (&fx.name, &fx.name_cnt, PV_NONE)) |
if (!parse_DATA_LIST_vars (&fx.name, &fx.name_cnt, PV_NONE)) |
372 |
return 0; |
return 0; |
373 |
|
|
374 |
if (token == T_NUM) |
if (lex_is_number ()) |
375 |
{ |
{ |
376 |
if (!fixed_parse_compatible (&fx, &dls->first, &dls->last)) |
if (!fixed_parse_compatible (&fx, &dls->first, &dls->last)) |
377 |
goto fail; |
goto fail; |
501 |
else |
else |
502 |
input.type = FMT_F; |
input.type = FMT_F; |
503 |
|
|
504 |
if (lex_integer_p ()) |
if (lex_is_integer ()) |
505 |
{ |
{ |
506 |
if (lex_integer () < 1) |
if (lex_integer () < 1) |
507 |
{ |
{ |
713 |
tail = new; |
tail = new; |
714 |
|
|
715 |
/* Parse count. */ |
/* Parse count. */ |
716 |
if (lex_integer_p ()) |
if (lex_is_integer ()) |
717 |
{ |
{ |
718 |
new->count = lex_integer (); |
new->count = lex_integer (); |
719 |
lex_get (); |
lex_get (); |
1690 |
return 0; |
return 0; |
1691 |
} |
} |
1692 |
} |
} |
1693 |
else if (lex_integer_p ()) |
else if (lex_is_integer ()) |
1694 |
{ |
{ |
1695 |
value->num = lex_integer (); |
value->num = lex_integer (); |
1696 |
|
|
1725 |
if (!parse_DATA_LIST_vars (&fx.name, &fx.name_cnt, PV_NONE)) |
if (!parse_DATA_LIST_vars (&fx.name, &fx.name_cnt, PV_NONE)) |
1726 |
return 0; |
return 0; |
1727 |
|
|
1728 |
if (token == T_NUM) |
if (lex_is_number ()) |
1729 |
{ |
{ |
1730 |
if (!fixed_parse_compatible (&fx, first, last)) |
if (!fixed_parse_compatible (&fx, first, last)) |
1731 |
goto fail; |
goto fail; |