-
-/* Parses the current token (numeric or string, depending on type)
- value v and returns success. */
-static int
-parse_value (struct lexer *lexer, union value *v, int width)
-{
- if (width == 0)
- {
- if (!lex_force_num (lexer))
- return 0;
- v->f = lex_tokval (lexer);
- }
- else
- {
- if (!lex_force_string (lexer))
- return 0;
- value_copy_str_rpad (v, width, ds_cstr (lex_tokstr (lexer)), ' ');
- }
-
- lex_get (lexer);
-
- return 1;
-}