Overview
Comment:Writes ports before components before junctions.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 5ef80ccba4f48bcb67f926a9ec8908b26cfc4292aec1a265c29f8c65992a292a
User & Date: geraint@users.sourceforge.net on 2004-08-03 06:32:38
Other Links: branch diff | manifest | tags
Context
2004-08-03
22:33:35
Writes components in lbl file order. check-in: 13f4d96b63 user: geraint@users.sourceforge.net tags: origin/master, trunk
06:32:38
Writes ports before components before junctions. check-in: 5ef80ccba4 user: geraint@users.sourceforge.net tags: origin/master, trunk
06:17:20
Writes ports before components. check-in: 9aa24ddf0b user: geraint@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/lbl2cmp_txt2m.pl from [f9442d404c] to [433a8a7085].

︙︙
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

use diagnostics;
use Getopt::Long;

sub usage;
sub read_cmp_file;
sub read_cmp_line;
sub name_anonymous_component;
sub port_or_component;
sub read_lbl_file;
sub read_lbl_line;
sub write_header;
sub write_body;
sub strip_rubbish;

## fields to write to cmp.m








|








12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

use diagnostics;
use Getopt::Long;

sub usage;
sub read_cmp_file;
sub read_cmp_line;
sub name_anonymous_component;
sub port_or_component_or_junction;
sub read_lbl_file;
sub read_lbl_line;
sub write_header;
sub write_body;
sub strip_rubbish;

## fields to write to cmp.m
︙︙
54
55
56
57
58
59
60
61
62
63

64
65
66

67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87

88
89
90
91
92
93
94
95
96







97
98
99
100
101



102
103
104
105
106
107
108
109
110



111
112
113
114
115
116
117
118
119












120
121
122
123
124
125
126



sub usage() {
    return "Usage: lbl2cmp_txt2m --sys=<sys>\n";
}

sub read_cmp_file() {
    my ($line, $name, $type, $type_rep, $name_rep, $rep, $i, %anon_index);

    my (@c_name, %c_type, %c_rep, $i_c);

    my (@p_name, %p_type, %p_rep, $i_p);

    $i_c = 0;

    $i_p = 0;

    open (CMP, $cmp) or die ("MTT: lbl2cmp_txt2m, cannot open $cmp");
    
    while (<CMP>) {
	
	chomp;
	# skip blank lines
	next if (/^(\s)*$/);
	# skip comments
	next if (/^(\s)*[%\#]/);
	# remove leading and trailing whitespace
	s/^\s*(\S.*\S)\s*$/$1/;
	
	$line = $_;
	print "read_cmp_file: line='${line}'\n" if defined ($debug);

	($type, $name, $rep) = read_cmp_line($line);
	$name = name_anonymous_component($type) if ($name eq '');
	
	if (port_or_component ($type, $name) eq "port") {

	    $i_p++;
	    $p_name[$i_p]  = $name;
	    $p_type{$name} = $type;
	    $p_rep{$name}  = $rep;
	} else {
	    $i_c++;
	    $c_name[$i_c]  = $name;
	    $c_type{$name} = $type;
	    $c_rep {$name} = $rep;







	}
    }
    close (CMP);

    $i = 0;



    while ($i < $i_p) {
	$i++;
	$name = $p_name[$i];
	$component_name[$i] = $name;
	$component_type{$name} = $p_type{$name};
	$component_rep {$name} = $p_rep{$name};
	$component_cr  {$name} = '';
	$component_arg {$name} = '';
    }



    while ($i < ($i_p + $i_c)) {
	$i++;
	$name = $c_name[${i}-${i_p}];
	$component_name[$i] = $name;
	$component_type{$name} = $c_type{$name};
	$component_rep {$name} = $c_rep{$name};
	$component_cr  {$name} = '';
	$component_arg {$name} = '';
    }












}

sub read_cmp_line() {
    my $line = $_;
    my ($type, $name, $rep, $misc);
    
    ($type, $misc) = split (/:/, $line);








|


>


|
>
|



















|
>




|




>
>
>
>
>
>
>





>
>
>
|








>
>
>
|

|






>
>
>
>
>
>
>
>
>
>
>
>








54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154



sub usage() {
    return "Usage: lbl2cmp_txt2m --sys=<sys>\n";
}

sub read_cmp_file() {
    my ($line, $name, $type, $class, $rep, $i);

    my (@c_name, %c_type, %c_rep, $i_c);
    my (@j_name, %j_type, %j_rep, $i_j);
    my (@p_name, %p_type, %p_rep, $i_p);

    $i_c = 0;			# component counter
    $i_j = 0;			# junction counter
    $i_p = 0;			# port counter

    open (CMP, $cmp) or die ("MTT: lbl2cmp_txt2m, cannot open $cmp");
    
    while (<CMP>) {
	
	chomp;
	# skip blank lines
	next if (/^(\s)*$/);
	# skip comments
	next if (/^(\s)*[%\#]/);
	# remove leading and trailing whitespace
	s/^\s*(\S.*\S)\s*$/$1/;
	
	$line = $_;
	print "read_cmp_file: line='${line}'\n" if defined ($debug);

	($type, $name, $rep) = read_cmp_line($line);
	$name = name_anonymous_component($type) if ($name eq '');
	
	$class = port_or_component_or_junction ($type, $name);
	if ($class eq "port") {
	    $i_p++;
	    $p_name[$i_p]  = $name;
	    $p_type{$name} = $type;
	    $p_rep{$name}  = $rep;
	} elsif ($class eq "component") {
	    $i_c++;
	    $c_name[$i_c]  = $name;
	    $c_type{$name} = $type;
	    $c_rep {$name} = $rep;
	} elsif ($class eq "junction") {
	    $i_j++;
	    $j_name[$i_j]  = $name;
	    $j_type{$name} = $type;
	    $j_rep {$name} = $rep;
	} else {
	    die "MTT: lbl2cmp_txt2m.pl, read_cmp_file: unclassified component";
	}
    }
    close (CMP);

    $i = 0;
 
    # assign ports (SS:[])
   my $offset = 0;
    while ($i < ($offset + $i_p)) {
	$i++;
	$name = $p_name[$i];
	$component_name[$i] = $name;
	$component_type{$name} = $p_type{$name};
	$component_rep {$name} = $p_rep{$name};
	$component_cr  {$name} = '';
	$component_arg {$name} = '';
    }

    # then assign components (including SS)
    $offset = $i_p;
    while ($i < ($offset + $i_c)) {
	$i++;
	$name = $c_name[${i}-${offset}];
	$component_name[$i] = $name;
	$component_type{$name} = $c_type{$name};
	$component_rep {$name} = $c_rep{$name};
	$component_cr  {$name} = '';
	$component_arg {$name} = '';
    }

    # then assign junctions
    $offset = $i_p + $i_c;
    while ($i < ($offset + $i_j)) {
	$i++;
	$name = $j_name[${i}-${offset}];
	$component_name[$i] = $name;
	$component_type{$name} = $j_type{$name};
	$component_rep {$name} = $j_rep{$name};
	$component_cr  {$name} = '';
	$component_arg {$name} = '';
    }
}

sub read_cmp_line() {
    my $line = $_;
    my ($type, $name, $rep, $misc);
    
    ($type, $misc) = split (/:/, $line);
︙︙
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167




168
169
170
171
172
173
174
175
176

    }
    $num  = $anonymous_component_type_index{$type};
    $name = "mtt${type}_${num}";
    print "name_anonymous_component: type='${type}', name='${name}'\n" if defined ($debug);
    return ($name);
}

sub port_or_component() {
    my ($type, $name) = @_;
    my $retval;
    if ($type ne "SS") {
	$retval = "component";
    } else {
	print "port_or_component: name='${name}'\n";
	$_ = $name;
	if (/\[.+\]/) {
	    $retval = "port";
	} else {
	    $retval = "component";
	}




    }
    print "port_or_component: type='$type', name='$name' class='$retval'\n" if defined ($debug);
    return ($retval);
}

sub read_lbl_file() {
    my (@line, $name, $type, $cr, $arg, $i);
    
    open (LBL, $lbl) or die ("MTT: lbl2cmp_txt2m, cannot open $lbl");








|


|
<
<
<






>
>
>
>

|








176
177
178
179
180
181
182
183
184
185
186



187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205

    }
    $num  = $anonymous_component_type_index{$type};
    $name = "mtt${type}_${num}";
    print "name_anonymous_component: type='${type}', name='${name}'\n" if defined ($debug);
    return ($name);
}

sub port_or_component_or_junction() {
    my ($type, $name) = @_;
    my $retval;
    if ($type eq "SS") {



	$_ = $name;
	if (/\[.+\]/) {
	    $retval = "port";
	} else {
	    $retval = "component";
	}
    } elsif (($type eq "0") or ($type eq "1")) {
	$retval = "junction";
    } else {
	$retval = "component";
    }
    print "port_or_component_or_junction: type='$type', name='$name' class='$retval'\n" if defined ($debug);
    return ($retval);
}

sub read_lbl_file() {
    my (@line, $name, $type, $cr, $arg, $i);
    
    open (LBL, $lbl) or die ("MTT: lbl2cmp_txt2m, cannot open $lbl");
︙︙

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