287 |
int prev_recno = fx.recno; |
int prev_recno = fx.recno; |
288 |
|
|
289 |
fx.recno++; |
fx.recno++; |
290 |
if (token == T_NUM) |
if (lex_is_number ()) |
291 |
{ |
{ |
292 |
if (!lex_force_int ()) |
if (!lex_force_int ()) |
293 |
return 0; |
return 0; |
349 |
lex_get (); |
lex_get (); |
350 |
|
|
351 |
/* Parse the included column range. */ |
/* Parse the included column range. */ |
352 |
if (token == T_NUM) |
if (lex_is_number ()) |
353 |
{ |
{ |
354 |
/* Width of column range in characters. */ |
/* Width of column range in characters. */ |
355 |
int c_len; |
int c_len; |
360 |
/* 1-based index of last column in range. */ |
/* 1-based index of last column in range. */ |
361 |
int lc; |
int lc; |
362 |
|
|
363 |
if (!lex_integer_p () || lex_integer () <= 0) |
if (!lex_is_integer () || lex_integer () <= 0) |
364 |
{ |
{ |
365 |
msg (SE, _("%g is not a valid column location."), tokval); |
msg (SE, _("%g is not a valid column location."), tokval); |
366 |
goto fail; |
goto fail; |
371 |
lex_negative_to_dash (); |
lex_negative_to_dash (); |
372 |
if (lex_match ('-')) |
if (lex_match ('-')) |
373 |
{ |
{ |
374 |
if (!lex_integer_p ()) |
if (!lex_is_integer ()) |
375 |
{ |
{ |
376 |
msg (SE, _("Column location expected following `%d-'."), |
msg (SE, _("Column location expected following `%d-'."), |
377 |
fx.spec.fc + 1); |
fx.spec.fc + 1); |
434 |
if (!parse_variables (default_dict, &fx.v, &fx.nv, PV_DUPLICATE)) |
if (!parse_variables (default_dict, &fx.v, &fx.nv, PV_DUPLICATE)) |
435 |
return 0; |
return 0; |
436 |
|
|
437 |
if (token == T_NUM) |
if (lex_is_number ()) |
438 |
{ |
{ |
439 |
if (!fixed_parse_compatible ()) |
if (!fixed_parse_compatible ()) |
440 |
goto fail; |
goto fail; |
553 |
else |
else |
554 |
fx.spec.u.v.f.type = FMT_F; |
fx.spec.u.v.f.type = FMT_F; |
555 |
|
|
556 |
if (token == T_NUM) |
if (lex_is_number ()) |
557 |
{ |
{ |
558 |
if (!lex_force_int ()) |
if (!lex_force_int ()) |
559 |
return 0; |
return 0; |
727 |
else |
else |
728 |
head = fl = xmalloc (sizeof *fl); |
head = fl = xmalloc (sizeof *fl); |
729 |
|
|
730 |
if (token == T_NUM) |
if (lex_is_number ()) |
731 |
{ |
{ |
732 |
if (!lex_integer_p ()) |
if (!lex_is_integer ()) |
733 |
goto fail; |
goto fail; |
734 |
fl->count = lex_integer (); |
fl->count = lex_integer (); |
735 |
lex_get (); |
lex_get (); |