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:
parent
6ec6c79c28
commit
770c040b7e
2 changed files with 22 additions and 0 deletions
|
@ -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.
|
||||
|
|
|
@ -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);
|
||||
|
|
Loading…
Reference in a new issue