blob: d38ac0f814ae2f35b430254e7ca334b13698b6f4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
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
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
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
|
#! /bin/sh
# =============================================================================
#
# = DESCRIPTION
# Front end to awk script for generating Frame mml from classinfo
# files.
#
# = AUTHOR(S)
# Graham Dumpleton
# K. Dorn
#
# = COPYRIGHT
# Copyright 1991 OTC LIMITED
# Copyright 1994 DUMPLETON SOFTWARE CONSULTING PTY LIMITED
#
# =============================================================================
OSE_HOST=
OSE_RELEASE_NAME=
export OSE_RELEASE_NAME
OSE_ROOT=${OSE_ROOT-$ACE_ROOT}
export OSE_ROOT
OSE_VERSION_ROOT=$OSE_ROOT/$OSE_RELEASE_NAME
export OSE_VERSION_ROOT
BINDIR="$OSE_VERSION_ROOT/$OSE_HOST/bin"
LIBDIR=${CLASSINFOLIBDIR-"$OSE_VERSION_ROOT/bin"}
AWK="${AWK-gawk}"
if test "$AWK" = "gawk"
then
VARG="-v"
fi
EXT="mml"
#
# Error.
#
ERROR()
{
echo "`basename $0`: $1" >&2
shift
while test $# != "0"
do
echo $1 >&2
shift
done
exit 1
}
#
# Usage message.
#
USAGE()
{
ERROR "Usage: `basename $0` file.ci"
}
#
# Check usage.
#
if test $# != "1" -o "'basename $1 .ci'" = "$1"
then
USAGE
fi
#
# Check for awk file etc.
#
INFO2MAN=$LIBDIR/info2doc.awk
HIDINGFMT=$LIBDIR/hiding.fmt
MANFMT=$LIBDIR/info2doc.fmt
if test ! -f $HIDINGFMT
then
ERROR "Can't find $HIDINGFMT"
fi
if test ! -f $INFO2MAN
then
ERROR "Can't find $INFO2MAN"
fi
if test ! -f $MANFMT
then
ERROR "Can't find $MANFMT"
fi
ADTS=`$AWK '
BEGIN {
FS="\n"; RS=""
}
$1 ~ "^(CLASS|STRUCT|UNION)$" && $2 !~ "(::|<)" {
printf( "%s\n", $2 )
}
$1 ~ "^TEMPLATE$" && $3 !~ "::" {
printf( "%s\n", $3 )
}' $1`
VCSA=`$AWK '
BEGIN {
FS="\n"; RS=""
}
$1 ~ "^CSAHEADER$" {
if ( $2 ~ "on" )
printf("%s","csaprintheader=off");
else
printf("%s","csaprintheader=off");
}' $HIDINGFMT`
VPUBL=`$AWK '
BEGIN {
FS="\n"; RS=""
}
$1 ~ "^PUBLIC$" {
if ( $2 ~ "on" )
printf("%s","publ=on");
else
printf("%s","publ=");
}' $HIDINGFMT`
VPROT=`$AWK '
BEGIN {
FS="\n"; RS=""
}
$1 ~ "^PROTECTED$" {
if ( $2 ~ "on" )
printf("%s","prot=on");
else
printf("%s","prot=");
}' $HIDINGFMT`
VPRIV=`$AWK '
BEGIN {
FS="\n"; RS=""
}
$1 ~ "^PRIVATE$" {
if ( $2 ~ "on" )
printf("%s","priv=on");
else
printf("%s","priv=");
}' $HIDINGFMT`
echo " $VPUBL $VPROT $VPRIV $VCSA "
if test ! -z "$ADTS"
then
for ADT in $ADTS
do
echo "$ADT"
$AWK -f $INFO2MAN \
$VARG $VPUBL $VARG $VPROT $VARG $VPRIV $VARG $VCSA \
$VARG pass=0 $VARG device=mml $VARG infile=$1 \
$VARG class=$ADT $MANFMT $MANFMT > $ADT.$EXT
done
fi
|
