Overview
Comment:Fixed naming of anonymous 0 junctions.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: c7d6c7327303a2ea88b56b85d09881808c3d8f0fa6c1621edc48141d5ca8e98a
User & Date: geraint@users.sourceforge.net on 2004-08-03 22:57:50
Other Links: branch diff | manifest | tags
Context
2004-08-04
19:41:47
Writes 0 junctions before 1 junctions. check-in: 459eb924a5 user: geraint@users.sourceforge.net tags: origin/master, trunk
2004-08-03
22:57:50
Fixed naming of anonymous 0 junctions. check-in: c7d6c73273 user: geraint@users.sourceforge.net tags: origin/master, trunk
22:33:35
Writes components in lbl file order. check-in: 13f4d96b63 user: geraint@users.sourceforge.net tags: origin/master, trunk
Changes

Modified mttroot/mtt/bin/trans/lbl2cmp_txt2m.pl from [b0bb360133] to [535e13e03e].

39
40
41
42
43
44
45
46


47
48
49
50
51
52
53
39
40
41
42
43
44
45

46
47
48
49
50
51
52
53
54







-
+
+







    %anonymous_component_type_index);

## files to read/write
my ($cmp, $lbl, $out);

my $sys = '';

GetOptions ('sys=s' => \$sys);
GetOptions ('sys=s' => \$sys,
	    'debug' => \$debug);

die usage() if ($sys eq '');

$cmp = "${sys}_cmp.txt";
$lbl = "${sys}_lbl.txt";
$out = "${sys}_cmp.m";

115
116
117
118
119
120
121
122

123
124
125
126
127
128
129
116
117
118
119
120
121
122

123
124
125
126
127
128
129
130







-
+







    $rep  = 1  unless defined $rep;
    
    print "read_cmp_line: type='$type', name='$name', rep='$rep'\n" if ($debug);
    return ($type, $name, $rep);
}

sub name_anonymous_component() {
    my $type = @_;
    my $type = $_;
    my ($name, $num);
    if (defined ($anonymous_component_type_index{$type})) {
	$num = ++$anonymous_component_type_index{$type};
	$name = "mtt${type}_${num}";
    } else {
	$anonymous_component_type_index{$type} = 1;
	$name = "mtt${type}";


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