diff options
| author | Ben Elliston <bje@gnu.org> | 2016-03-21 11:03:29 +1100 |
|---|---|---|
| committer | Ben Elliston <bje@gnu.org> | 2016-03-21 11:03:29 +1100 |
| commit | 4db4a9d4819c8b9f0763c0a93c799d37e5f71f8d (patch) | |
| tree | 81b43118d34283c307626a983ef52db46c4077ca /lib/dg.exp | |
| parent | 8f87bedd442920abadaa676e5ce0a42813d06358 (diff) | |
| download | dejagnu-4db4a9d4819c8b9f0763c0a93c799d37e5f71f8d.zip dejagnu-4db4a9d4819c8b9f0763c0a93c799d37e5f71f8d.tar.gz dejagnu-4db4a9d4819c8b9f0763c0a93c799d37e5f71f8d.tar.bz2 | |
* lib/dg.exp (dg-get-options): Clean up regular expression and
remove FIXME comment about it.
Diffstat (limited to 'lib/dg.exp')
| -rw-r--r-- | lib/dg.exp | 4 |
1 files changed, 1 insertions, 3 deletions
@@ -189,9 +189,7 @@ proc dg-get-options { prog } { set tmp [grep $prog "{\[ \t\]\+dg-\[-a-z\]\+\[ \t\]\+.*\[ \t\]\+}" line] if {![string match "" $tmp]} { foreach i $tmp { - # FIXME: When to use "+" and "\+" isn't clear. - # Seems to me it took awhile to get this to work. - regexp "(\[0-9\]\+)\[ \t\]\+{\[ \t\]+(dg-\[-a-z\]+)\[ \t\]\+(.*)\[ \t\]+}\[^\}\]*(\n|$)" $i i line cmd args + regexp "(\[0-9\]+)\[ \t\]+{\[ \t\]+(dg-\[-a-z\]+)\[ \t\]+(.*)\[ \t\]+}\[^\}\]*(\n|$)" $i i line cmd args append result " { $cmd $line $args }" } } |