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: de8a6e6d8a499f6afedbf5d50a81b56c9ec80d641bf268108a59e568854288e8
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)
- anonymous components are not written to cmp.txt check-in: 8bb63d003f user: geraint@users.sourceforge.net tags: origin/master, trunk

2004-07-29
17:46:45
Removed error if label file has less than three fields. check-in: de8a6e6d8a user: geraint@users.sourceforge.net tags: origin/master, trunk
17:38:19
Uncompress _abg.dia if necessary before calling dia2abg.pl check-in: 7bf6b22e52 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
202
203
204
205
206
207
208
209
210
      next if (/^(\s)*$/);
      # Get rid of leading/trailing whitespace:
      s/^\s*(\S.+\S)\s*$/$1/;

      print_debug("label: $_ \n");      

      @line = split(/\s+/);
      die "Label file entries must have at least 3 columns!\n" unless
	  @line >= 3;
      $name = shift(@line);

      $component_label_data{$name} = [ ($i++,@line) ];
  }
    close(LBL);
}








<
<







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);
}


MTT: Model Transformation Tools
GitHub | SourceHut | Sourceforge | Fossil RSS ]