Overview
| Comment: | Removed error if label file has less than three fields. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
1733343d6335d408f3f1754ccd9cd5e2 |
| User & Date: | geraint@users.sourceforge.net on 2004-07-29 17:46:45 |
| Other Links: | branch diff | manifest | tags |
Context
|
2004-07-31
| ||
| 02:00:26 |
Started modifying to write ibg.m - only writes component connection data so far. Found a bug in abg.m generation (not fixed) | |
|
2004-07-29
| ||
| 17:46:45 | Removed error if label file has less than three fields. check-in: 1733343d63 user: geraint@users.sourceforge.net tags: origin/master, trunk | |
| 17:38:19 | Uncompress _abg.dia if necessary before calling dia2abg.pl check-in: 468481d575 user: geraint@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/dia2abg.pl from [e1610ffe3b] to [3a7a725f01].
| ︙ | ︙ | |||
195 196 197 198 199 200 201 |
next if (/^(\s)*$/);
# Get rid of leading/trailing whitespace:
s/^\s*(\S.+\S)\s*$/$1/;
print_debug("label: $_ \n");
@line = split(/\s+/);
| < < | 195 196 197 198 199 200 201 202 203 204 205 206 207 208 |
next if (/^(\s)*$/);
# Get rid of leading/trailing whitespace:
s/^\s*(\S.+\S)\s*$/$1/;
print_debug("label: $_ \n");
@line = split(/\s+/);
$name = shift(@line);
$component_label_data{$name} = [ ($i++,@line) ];
}
close(LBL);
}
|
| ︙ | ︙ |