projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Basic working spreadsheet import dialog (sort of)
[pspp]
/
src
/
language
/
expressions
/
parse.incpl
diff --git
a/src/language/expressions/parse.incpl
b/src/language/expressions/parse.incpl
index 4e7243c16086b8c8efb0d1e6c6ce2f36c13c4ee2..7f9af1b92f26f2dd6b4fbd6e9d6852208ce1349e 100644
(file)
--- a/
src/language/expressions/parse.incpl
+++ b/
src/language/expressions/parse.incpl
@@
-12,9
+12,9
@@
sub generate_output {
next if $type->{ROLE} eq 'fixed';
my ($human_name) = $type->{HUMAN_NAME};
next if $type->{ROLE} eq 'fixed';
my ($human_name) = $type->{HUMAN_NAME};
- $human_name =
""
if !defined $human_name;
+ $human_name =
$type->{NAME}
if !defined $human_name;
- my (@members) = ("\"$type->{NAME}\"", "\"\"",
+ my (@members) = ("\"$type->{NAME}\"", "\"
$human_name
\"",
0, "OP_$type->{NAME}", 0, "{}", 0, 0);
print "{", join (', ', @members), "},\n";
}
0, "OP_$type->{NAME}", 0, "{}", 0, 0);
print "{", join (', ', @members), "},\n";
}