10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
# Copyright (c) P.J.Gawthrop 1998
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.7 1998/07/27 12:56:26 peterg
## Splits up | separated expressions.
##
## Revision 1.6 1998/07/27 10:56:31 peterg
## Cosmetics.
##
## Revision 1.5 1998/07/27 08:29:44 peterg
|
>
>
>
|
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
# Copyright (c) P.J.Gawthrop 1998
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.8 1999/02/17 21:42:19 peterg
## Replaced print by printf to avoid extra nl in paragraph command.
##
## Revision 1.7 1998/07/27 12:56:26 peterg
## Splits up | separated expressions.
##
## Revision 1.6 1998/07/27 10:56:31 peterg
## Cosmetics.
##
## Revision 1.5 1998/07/27 08:29:44 peterg
|
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
}
printf("\\textbf{%s}",$3)
if (match($4,"[\#\%]")==1) printf(" -- ");
for (j=5;j<=NF;j++) printf(" %s", $j)
printf("\n");
}
}
END{if (NR==0) print "\\item This component has no aliases"
}' | sort >> $1_lbl.tex
cat <<EOF >> $1_lbl.tex
\end{description}
EOF
|
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
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
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
|
}
printf("\\textbf{%s}",$3)
if (match($4,"[\#\%]")==1) printf(" -- ");
for (j=5;j<=NF;j++) printf(" %s", $j)
printf("\n");
}
}
END{if (NR==0) print "\\item This component has no ALIAS declarations"
}' | sort >> $1_lbl.tex
cat <<EOF >> $1_lbl.tex
\end{description}
EOF
#Write out the VARS
cat <<EOF >> $1_lbl.tex
\paragraph{Variable declarations:}
\begin{description}
EOF
grep '[%|#][V|P]AR' $1_lbl.txt | sed 's/_/\\_/g' |\
awk '{
printf("\\item %s\n",$2)
}
END{if (NR==0) print "\\item This component has no PAR declarations"
}' | sort >> $1_lbl.tex
cat <<EOF >> $1_lbl.tex
\end{description}
EOF
#Write out the UNITS
cat <<EOF >> $1_lbl.tex
\paragraph{Units declarations:}
\begin{description}
EOF
grep '[%|#]UNITS' $1_lbl.txt | sed 's/_/\\_/g' |\
awk '{
printf("\\item [Port %s] has domain %s\n",$2, $3)
printf("\\begin{description}\n")
printf("\\item [Effort units] %s\n",$4)
printf("\\item [Flow units] %s\n",$5)
printf("\\end{description}\n")
}
END{if (NR==0) print "\\item This component has no UNITs declarations"
}' >> $1_lbl.tex
cat <<EOF >> $1_lbl.tex
\end{description}
EOF
|