Overview
Comment:Fixed problem with global variable in function.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: c6de5a3480d931c93f9e61478eb4cff4dcdaae6f48b8c12120a23c08651534cb
User & Date: gawthrop@users.sourceforge.net on 1996-08-30 09:35:10
Other Links: branch diff | manifest | tags
Context
1996-08-30
09:54:44
Initial revision check-in: a817a166ed user: gawthrop@users.sourceforge.net tags: origin/master, trunk
09:35:10
Fixed problem with global variable in function. check-in: c6de5a3480 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
1996-08-27
12:50:43
Initial revision check-in: 533da0b258 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/awk/lbl2sympar.awk from [0eda038fdf] to [022588a53d].

︙︙
8
9
10
11
12
13
14



15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34

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

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$



###############################################################



function exact_match(name1, name2) {
  return ((match(name1,name2)>0)&&(length(name1)==length(name2)))
    }

function matches(name, names) {
  n = split(names,match_name);
  matched = 0;
  for (i = 1; i <= n; i++) {
    if ( exact_match(name,match_name[i]) ) {
      matched = 1;
      break;
    }
  }
  return matched;
    }









>
>
>









|

|
|








8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37

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

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.1  1996/08/24 13:34:48  peter
## Initial revision
##
###############################################################



function exact_match(name1, name2) {
  return ((match(name1,name2)>0)&&(length(name1)==length(name2)))
    }

function matches(name, names) {
  n_matches = split(names,match_name);
  matched = 0;
  for (i_matches = 1; i_matches <= n_matches; i_matches++) {
    if ( exact_match(name,match_name[i_matches]) ) {
      matched = 1;
      break;
    }
  }
  return matched;
    }
︙︙
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73

	symbols = sprintf("%s %s", symbols, arg[i]);
	  }
    }
  }
}
END {
# print the _sympar file
printf("%% Symbolic parameter file - generated by MTT\n\n");
printf("MTTNVar := %1.0f;\n", symbol_count);

if (symbol_count>0) {
  printf("MATRIX MTTVar(MTTNVar,1);\n");
  split(symbols,symbol);
  for (i = 1; i <= symbol_count; i++) {
    printf("MTTVar(%1.0f,1) := %s;\n", i, symbol[i]);
  }
}

}








|
|

|
|
|
|
|
|
|
|


58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76

	symbols = sprintf("%s %s", symbols, arg[i]);
	  }
    }
  }
}
END {
# print the _sympar file
  printf("%% Symbolic parameter file - generated by MTT\n\n");
  printf("MTTNVar := %1.0f;\n", symbol_count);

  if (symbol_count>0) {
    printf("MATRIX MTTVar(MTTNVar,1);\n");
    split(symbols,symbol);
    for (i = 1; i <= symbol_count; i++) {
      printf("MTTVar(%1.0f,1) := %s;\n", i, symbol[i]);
    }
  }
  printf("END;\n\n");  
}

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