Most uses of VAR_NAME_LEN within PSPP are wrong due to encoding issues:
the limit applies to variable names in the encoding used by the data
set, but most uses of VAR_NAME_LEN actually limit the length of a name
in UTF-8. The UTF-8 representation of a name can be longer or shorter
than its representation in the data set encoding, so it seems best to
eliminate references to VAR_NAME_LEN entirely.
/* PSPP - a program for statistical analysis.
/* PSPP - a program for statistical analysis.
- Copyright (C) 1997-9, 2000, 2006, 2010 Free Software Foundation, Inc.
+ Copyright (C) 1997-9, 2000, 2006, 2010, 2011 Free Software Foundation, Inc.
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
int
cmd_file_handle (struct lexer *lexer, struct dataset *ds)
{
int
cmd_file_handle (struct lexer *lexer, struct dataset *ds)
{
- char handle_name[VAR_NAME_LEN + 1];
struct cmd_file_handle cmd;
struct file_handle *handle;
struct cmd_file_handle cmd;
struct file_handle *handle;
if (!lex_force_id (lexer))
if (!lex_force_id (lexer))
- return CMD_CASCADING_FAILURE;
- str_copy_trunc (handle_name, sizeof handle_name, lex_tokcstr (lexer));
+ goto error;
+ handle_name = xstrdup (lex_tokcstr (lexer));
handle = fh_from_id (handle_name);
if (handle != NULL)
handle = fh_from_id (handle_name);
if (handle != NULL)
msg (SE, _("File handle %s is already defined. "
"Use CLOSE FILE HANDLE before redefining a file handle."),
handle_name);
msg (SE, _("File handle %s is already defined. "
"Use CLOSE FILE HANDLE before redefining a file handle."),
handle_name);
- return CMD_CASCADING_FAILURE;
}
lex_get (lexer);
if (!lex_force_match (lexer, T_SLASH))
}
lex_get (lexer);
if (!lex_force_match (lexer, T_SLASH))
- return CMD_CASCADING_FAILURE;
+ goto error_free_handle_name;
if (!parse_file_handle (lexer, ds, &cmd, NULL))
if (!parse_file_handle (lexer, ds, &cmd, NULL))
- return CMD_CASCADING_FAILURE;
+ goto error_free_handle_name;
if (lex_end_of_command (lexer) != CMD_SUCCESS)
if (lex_end_of_command (lexer) != CMD_SUCCESS)
if (cmd.mode != FH_SCRATCH)
{
if (cmd.mode != FH_SCRATCH)
{
if (cmd.s_name == NULL)
{
lex_sbc_missing (lexer, "NAME");
if (cmd.s_name == NULL)
{
lex_sbc_missing (lexer, "NAME");
else
{
msg (SE, _("RECFORM must be specified with MODE=360."));
else
{
msg (SE, _("RECFORM must be specified with MODE=360."));
free_file_handle (&cmd);
return CMD_SUCCESS;
free_file_handle (&cmd);
return CMD_SUCCESS;
+error_free_handle_name:
+ free (handle_name);
+error:
return CMD_CASCADING_FAILURE;
}
return CMD_CASCADING_FAILURE;
}