Overview
Comment:Replaced ifs by a table of cr/arg information
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: b0b149b31816b0674f127e41d00fb1ef06a5e7acbe7bc283617251572279377e
User & Date: gawthrop@users.sourceforge.net on 1999-11-10 00:47:08
Other Links: branch diff | manifest | tags
Context
1999-11-11
21:48:46
Modified step size adjustment check-in: 4c14f1758d user: gawthrop@users.sourceforge.net tags: origin/master, trunk
1999-11-10
00:47:08
Replaced ifs by a table of cr/arg information check-in: b0b149b318 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
1999-11-09
22:32:41
Under RCS ready for using arrays to contaain defaults. check-in: 51995a8d73 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/abg2lbl_fig2txt from [56bda1e9ba] to [c8bb956d34].

︙
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








+
+
+








# Acausal bond graph to causal bond graph: mfile format

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.8  1999/11/09 22:32:41  peterg
## Under RCS ready for using arrays to contaain defaults.
##
## Revision 1.7  1998/07/04 10:37:21  peterg
## Major revision to include:
## 	aliases
## 	new Style
## 	prettyfied
##
## Revision 1.6  1998/03/05 10:09:47  peterg
︙
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

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








+
+

-
-
-
-
-
-
+
+
+
-
-
-
+
-
-
+
-
-
+

-
-
+
+
-
-
+
+
+

-
-
+
+
-
-
-
+
+
-
-
-
-
-
+
+
+
+
+
-
-
-
-
-
-
+
+
+
+
-
-
+








#Write out non-unique names
#echo 'Non-unique names (if any):'
#diff $1_unique_raw_list  $1_raw_list | grep '>' | sed 's/>/	/'

#Write out the outline lbl file
grep -v  '\[[0-9]*\]'  $1_unique_raw_list | \
awk --field-separator ':' '
 BEGIN {
 }
 { 
#   if (($1 != "0")&&($1 != "1")) 
    { 
      if (Component !~ $1) print "\n% Component type", $1

      if ($1 == "SS") {
	port_alias[++j] = $2
  ##Aliases
  if ($1 == "SS") 
    port_alias[++j] = $2;
	print  "\t" $2 "\tSS\t\texternal,external";
      }

  else
      else if ($1 == "R") {
	alias[++i] = $2
    alias[++i] = $2;
	print  "\t" $2"\t\tlin\tflow," $2;
      }


      else if ($1 == "I") {
	alias[++i] = $2
    ## Table of components
    cr["SS"] = "SS";  arg["SS"] = "external,external";
	print  "\t" $2"\t\tlin\tflow," $2;
      }

    cr["Se"] = "SS";  arg["Se"] = "external";
    cr["Sf"] = "SS";  arg["Sf"] = "external";

      else if ($1 == "C") {
	alias[++i] = $2
    cr["De"] = "SS";  arg["De"] = "external";
    cr["Df"] = "SS";  arg["Df"] = "external";
	print  "\t" $2"\t\tlin\teffort," $2;
      }


    cr["R"] = "lin";  arg["R"]  = sprintf("flow,%s", $2);
      else if ($1 == "TF") {
	alias[++i] = $2
	print  "\t" $2"\t\tlin\tflow," $2;
      }

    cr["C"] = "lin";  arg["C"]  = sprintf("effort,%s", $2);
    cr["TF"] = "lin";  arg["TF"]  = sprintf("flow,%s", $2);
    cr["GY"] = "lin";  arg["GY"]  = sprintf("flow,%s", $2);

  ## Heading
      else if ($1 == "GY") {
	alias[++i] = $2
	print  "\t" $2"\t\tlin\tflow," $2;
      }
      else
	 print  "\t" $2;
  if (Component !~ $1) print "\n% Component type", $1

  ## Component
    print  "\t" $2 "\t" cr[$1] "\t\t" arg[$1];
      }
      Component=$1
    Component=$1
  }
  END{
    print "\n% Port aliases" >> "mtt_junk_alias.txt";
    for (k=1;k<=j;k++){
      if (port_alias[k] ~ "\\["){ # Only do ports
        port_name = substr(port_alias[k],2,length(port_alias[k])-2);
        print "%ALIAS\t" port_name "\t" port_name >> "mtt_junk_alias.txt";
︙

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