Overview
Comment:Cleaned up - assumes new lbl style for SS
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: ede68429daa741050cb47ff333ccaf398a560f1e388495261ec3405f81834879
User & Date: gawthrop@users.sourceforge.net on 1998-07-04 11:09:46.000
Other Links: branch diff | manifest | tags
Context
1998-07-04
11:37:43
Aliases implemented for parameters + lots of associated goodies
New-style lbl files - no more SS nonsense. check-in: 86c30d98aa user: gawthrop@users.sourceforge.net tags: origin/master, trunk
11:09:46
Cleaned up - assumes new lbl style for SS check-in: ede68429da user: gawthrop@users.sourceforge.net tags: origin/master, trunk
10:47:35
Put in proper end; check-in: 4248eec902 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Unified Diff Ignore Whitespace Patch
Modified mttroot/mtt/bin/trans/awk/lbl2sympar.awk from [47f497662c] to [af7880c407].
︙︙
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.10  1998/03/26 13:03:23  peterg
## Changed SS field fudge.
##
## Revision 1.9  1998/02/16 16:09:57  peterg
## And taken it out again!
##
## Revision 1.8  1998/02/16 12:08:38  peterg








>
>
>








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.11  1998/05/13 12:39:23  peterg
## Added `unknown' to list od names to avoid
##
## Revision 1.10  1998/03/26 13:03:23  peterg
## Changed SS field fudge.
##
## Revision 1.9  1998/02/16 16:09:57  peterg
## And taken it out again!
##
## Revision 1.8  1998/02/16 12:08:38  peterg
︙︙
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

SS_parameter = "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 an SS_parameter
    if (matches(SS_parameter,$3)) {
      args = $2
	}
    else {
      args = $3;
    }
    n_args = split(args,arg,arg_delimiter);
    for (i = 1; i <= n_args; i++) {
      first_char = substr(arg[i],1,1);
      if ( (matches(not_an_arg,arg[i])==0) \
	   && (match(first_char,numeric)==0) \
	   && (match(arg[i],"\\$")==0) \
	   && (length(arg[i])>0) \
	   && (matches(symbols,arg[i]) ==0) ) {
	symbol_count++;
	symbols = sprintf("%s %s", symbols, arg[i]);
	  }
    }
  }
}
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);
    }
  }

}











<
<
<
<
<
<
<
<
|







<
|




<
<

<

<
<
<
<
<
<
<
<
<
<




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

SS_parameter = "internal external zero 0 1";
numeric = "[0-9-]";
symbol_count = 0;
symbols = "";
}
{
  if ( (match($1,comment)==0) && (NF>=3) ) {








    n_args = split($3,arg,arg_delimiter);
    for (i = 1; i <= n_args; i++) {
      first_char = substr(arg[i],1,1);
      if ( (matches(not_an_arg,arg[i])==0) \
	   && (match(first_char,numeric)==0) \
	   && (match(arg[i],"\\$")==0) \
	   && (length(arg[i])>0) \
	   && (matches(symbols,arg[i]) ==0) ) {

	 print arg[i];
	  }
    }
  }
}
MTT: Model Transformation Tools
[ GitHub | SourceHut | Sourceforge | Fossil RSS ]