2010-05-25 Kai Tietz <kai.tietz@onevision.com>

* deffilep.y (opt_name): Allow leading dot.
        (dot_name): Likewise.
        (anylang_id): Likewise.
This commit is contained in:
Kai Tietz 2010-05-25 10:05:16 +00:00
parent 6ec6c79c28
commit 770c040b7e
2 changed files with 22 additions and 0 deletions

View File

@ -1,5 +1,9 @@
2010-05-25 Kai Tietz <kai.tietz@onevision.com>
* deffilep.y (opt_name): Allow leading dot.
(dot_name): Likewise.
(anylang_id): Likewise.
* emultempl/pep.em (gld_${EMULATION_NAME}_before_parse): Enable by
default auto_import.
(gld${EMULATION_NAME}_handle_option): Warn about v1.

View File

@ -224,6 +224,12 @@ attr:
;
opt_name: ID { $$ = $1; }
| '.' ID
{
char *name = xmalloc (strlen ($2) + 2);
sprintf (name, ".%s", $2);
$$ = name;
}
| ID '.' ID
{
char *name = xmalloc (strlen ($1) + 1 + strlen ($3) + 1);
@ -252,6 +258,12 @@ opt_base: BASE '=' NUMBER { $$ = $3;}
;
dot_name: ID { $$ = $1; }
| '.' ID
{
char *name = xmalloc (strlen ($2) + 2);
sprintf (name, ".%s", $2);
$$ = name;
}
| dot_name '.' ID
{
char *name = xmalloc (strlen ($1) + 1 + strlen ($3) + 1);
@ -261,6 +273,12 @@ dot_name: ID { $$ = $1; }
;
anylang_id: ID { $$ = $1; }
| '.' ID
{
char *id = xmalloc (strlen ($2) + 2);
sprintf (id, ".%s", $2);
$$ = id;
}
| anylang_id '.' opt_digits opt_id
{
char *id = xmalloc (strlen ($1) + 1 + strlen ($3) + strlen ($4) + 1);