tools: Support for DB files, added dbExpand.pl

2015-07-06 11:26:35 -05:00
parent 3a54e97758
commit f6cdbe2693
19 changed files with 420 additions and 85 deletions
@@ -122,7 +122,8 @@ sub suppressWarning($$) {
 sub expandString($$) {
    my ($this, $src) = @_;
    $this->_expand;
-    my $entry = EPICS::macLib::entry->new($src, 'string');
+    (my $name = $src) =~ s/^ (.{20}) .* $/$1.../xs;
+    my $entry = EPICS::macLib::entry->new($name, 'string');
    my $result = $this->_translate($entry, 0, $src);
    return $result unless $entry->{error};
    return $this->{noWarn} ? $result : undef;