10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
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.6 1998/07/27 10:56:31 peterg
## Cosmetics.
##
## Revision 1.5 1998/07/27 08:29:44 peterg
## Include a comment field in the aliases
##
## Revision 1.4 1998/07/17 19:46:44 peterg
## Included component alias.
##
## Revision 1.3 1998/07/16 20:39:52 peterg
|
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
#Write out the aliases
cat <<EOF >> $1_lbl.tex
\paragraph{Interface information:}
\begin{description}
EOF
grep '[%|#]ALIAS' $1_lbl.txt | sed 's/_/\\_/g' |\
awk '{
N=split($2,a,"|");
for (i=1;i<=N;i++){
if (match($2,"\\$")>0){
printf("\\item [Parameter \\%s] represents actual parameter ",$2)
}
else if (match($3,"/")>0){
printf("\\item [Component %s] is in library ",$2)
}
else{
printf("\\item [Port %s] represents actual port ",$2)
}
printf("\\textbf{%s}",$3)
if (match($4,"[\#\%]")==1) printf(" -- ");
for (i=5;i<=NF;i++) printf(" %s", $i)
printf("\n");
}
if (match(a[i],"\\$")>0){
printf("\\item [Parameter \\%s] represents actual parameter ",a[i])
}
else if (match($3,"/")>0){
printf("\\item [Component %s] is in library ",a[i])
}
else{
printf("\\item [Port %s] represents actual port ",a[i])
}
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
|