Overview
Comment:Fixed bug due to adding (and then removing) 0 and 1 as port types
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 6b64332a2cb12b37492a4662e6ab518a680194316bf391e7645a00bf0fec91ed
User & Date: gawthrop@users.sourceforge.net on 1998-04-06 08:41:48
Other Links: branch diff | manifest | tags
Context
1998-04-07
05:45:12
Reverted to an older version due to untraceable bug in new version check-in: e4d0928b1a user: gawthrop@users.sourceforge.net tags: origin/master, trunk
1998-04-06
08:41:48
Fixed bug due to adding (and then removing) 0 and 1 as port types check-in: 6b64332a2c user: gawthrop@users.sourceforge.net tags: origin/master, trunk
1998-04-04
11:00:20
Modified various parts to allow coercing directions at ports check-in: cf95ec1fad user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes

Modified mttroot/mtt/bin/trans/awk/rbg_fig2m.awk from [94840e3d7f] to [64f72e2aa2].

9
10
11
12
13
14
15



16
17
18
19
20
21
22
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25







+
+
+







# Copyright (c) P.J.Gawthrop, 1996.

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.27  1998/04/04 10:54:58  peterg
## Remove a debugging print statement
##
## Revision 1.26  1998/04/04 07:29:26  peterg
## SS now only port component
##
## Revision 1.25  1998/04/03 15:07:20  peterg
## Now correctly write 0/1 port names
##
## Revision 1.24  1998/04/03 14:02:50  peterg
213
214
215
216
217
218
219
220

221
222
223
224
225
226
227
216
217
218
219
220
221
222

223
224
225
226
227
228
229
230







-
+







# Vector port definitions
  isa_PORT = ((match(str, PORT_regexp)>0) && (depth==0));

  if (isa_PORT) {
    print str
  }

# A port component is SS,0 or 1 followed by : followed by a port string
# A port component is an SS  followed by a port string
  isa_port_component = 0;
  if (match(str, delimiter)) {
    split(str,a,delimiter);
    isa_port_component = (match(a[1], port_component_regexp))&&
      (match(a[2], port_regexp)>0)
      }

248
249
250
251
252
253
254
255
256

257
258
259
260
261
262
263
251
252
253
254
255
256
257


258
259
260
261
262
263
264
265







-
-
+







    type = a[1];
    # Port name is the bit between the []
    port_label  = substr(a[2],2,length(a[2])-2);
    x_port[i_port_component] = x_coord;
    y_port[i_port_component] = y_coord;
    info_port[i_port_component] = fig_info();
    port_labels[i_port_component] = port_label;
    comp_type[port_label] = type;
  }
      }

# Do the plain components
  if (isa_plain_component) {
    i_text++;

# Get repetitions (if any)
    if (match(str,repetition_regexp) > 0) {
575
576
577
578
579
580
581
582

583
584
585
586
587
588
589
577
578
579
580
581
582
583

584
585
586
587
588
589
590
591







-
+







  printf("rcomponents = [") >> b_file;
  j = 0;


# Do the port components, in order of appearance, first
  for (i = 1; i <= i_port_component; i++) {
    name = sprintf("[%s]", port_labels[i]);
    port_type = comp_type[port_labels[i]];
    port_type = "SS";
    cr   = "MTT_port";
    arg  = i;

    if (length(x_port[i])==0)
      printf(warning_p);
    else {
      j++;


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