mirror of https://gerrit.osmocom.org/asn1c
more robust parsing of module start sequence
This commit is contained in:
parent
d57723c48c
commit
afcd6dfb56
|
@ -38,11 +38,12 @@ while(<STDIN>) {
|
|||
print O "\n";
|
||||
}
|
||||
} else {
|
||||
next unless $modules{$_};
|
||||
open(O, '> '.$modules{$_});
|
||||
/^([A-Za-z0-9-]+)(\s*{.*)?$/;
|
||||
next unless $modules{$1};
|
||||
open(O, '> '.$modules{$1});
|
||||
print O;
|
||||
$inmodule = 1;
|
||||
delete $modules{$_};
|
||||
delete $modules{$1};
|
||||
}
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in New Issue