Overview
Comment:Put back the matrix declaration
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 266f19d5a61f9cd8d5269810e74c9d05ac64e834188beaa18c477700c34b5e79
User & Date: gawthrop@users.sourceforge.net on 1998-02-16 12:08:38
Other Links: branch diff | manifest | tags
Context
1998-02-16
12:14:21
Corrected writing out of MTTVAR matrix - now does this id non-zero
number of variables - not vv! check-in: 70dee91067 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
12:08:38
Put back the matrix declaration check-in: 266f19d5a6 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
1998-02-12
08:18:42
VERSION 2.8 (St. Annes) check-in: bfb7869f3f 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 [bbce1cf9ac] to [4cd36c5261].

︙︙
8
9
10
11
12
13
14



15
16
17
18
19
20
21

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

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



# Revision 1.6  1996/12/07  20:02:43  peterg
# Fixed symbolic parameter bug.
#
## Revision 1.5  1996/12/07 18:06:50  peterg
## Now detects symbolic args ($1 etc) and ignores them.
##
# Revision 1.4  1996/08/30  18:45:32  peter








>
>
>








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

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

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
# Revision 1.7  1997/03/18  17:25:24  peterg
# Now just generates names - formatting removed.
#
# Revision 1.6  1996/12/07  20:02:43  peterg
# Fixed symbolic parameter bug.
#
## Revision 1.5  1996/12/07 18:06:50  peterg
## Now detects symbolic args ($1 etc) and ignores them.
##
# Revision 1.4  1996/08/30  18:45:32  peter
︙︙
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66



BEGIN {
sys_name = ARGV[1];
comment = "%";
arg_delimiter = ",";
not_an_arg = "effort flow state internal external zero 0 1";
numeric = "[0-9]";
symbol_count = 0;
symbols = "";
}
{
  if ( (match($1,comment)==0) && (NF>=3) ) {
# The following line is a bad attempt to use parameters in SS fields
# It assumes that at least one SS field is not_an_arg.








|








55
56
57
58
59
60
61
62
63
64
65
66
67
68
69



BEGIN {
sys_name = ARGV[1];
comment = "%";
arg_delimiter = ",";
not_an_arg = "effort flow state internal external zero 0 1";
numeric = "[0-9-]";
symbol_count = 0;
symbols = "";
}
{
  if ( (match($1,comment)==0) && (NF>=3) ) {
# The following line is a bad attempt to use parameters in SS fields
# It assumes that at least one SS field is not_an_arg.
︙︙
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104

}
END {
# print the _sympar file

#  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) \t := %s\n", i, symbol[i]);
      printf("%s\n", symbol[i]);
    }
  }

}











|



|








89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107

}
END {
# print the _sympar file

#  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) \t := %s\n", i, symbol[i]);
      printf("%s\t%s\n", symbol[i], name);
    }
  }

}

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