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
167
168
169
170
171
172
173
174
175
|
#!/bin/sh
#
# CDDL HEADER START
#
# The contents of this file are subject to the terms of the
# Common Development and Distribution License, Version 1.0 only
# (the "License"). You may not use this file except in compliance
# with the License.
#
# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
# or http://www.opensolaris.org/os/licensing.
# See the License for the specific language governing permissions
# and limitations under the License.
#
# When distributing Covered Code, include this CDDL HEADER in each
# file and include the License file at usr/src/OPENSOLARIS.LICENSE.
# If applicable, add the following below this CDDL HEADER, with the
# fields enclosed by brackets "[]" replaced with your own identifying
# information: Portions Copyright [yyyy] [name of copyright owner]
#
# CDDL HEADER END
#
#
# Copyright 2005 Sun Microsystems, Inc. All rights reserved.
# Use is subject to license terms.
#
#ident "%Z%%M% %I% %E% SMI"
#
# Checks the list of files to make sure that each given file has a SMI
# standard ident string.
#
# It checks that keywords exist, and verifies the string. By default,
# all allowable forms of keywords (according to the ON documentation)
# are acceptable. The '-p' option (pedantic) allows only the canonical
# form of keywords. See below for allowable forms.
#
# Use as "keywords filelist" where filelist is the list of plain files.
#
# However, in general, this utility should not need to be directly
# invoked, but instead used through wx(1) -- e.g., `wx keywords'.
#
# Output consists of filenames with expanded, incorrect or missing
# sccs keywords and/or filenames that were not SCCS files.
#
# Exits with status 0 if all files are sccs files and all files have
# unexpanded, correct keywords. Otherwise, exits with a non-zero status.
#
# The CDPATH variable causes ksh's `cd' builtin to emit messages to stdout
# under certain circumstances, which can really screw things up; unset it.
#
unset CDPATH
PATH=/usr/bin:/usr/ccs/bin
USAGE="usage: `basename $0` [-p] <filename> ..."
# Canonical form for .c and .h files
CANON_C_H="^#pragma ident \"\%\Z\%\%\M\% \%\I\% \%\E\% SMI\""
# Canonical form for other files
CANON_OTHER="ident \"\%\Z\%\%\M\% \%\I\% \%\E\% SMI\""
STANDARD="ident \"(\%\Z\%\%\M\% +\%\I\%|\%W\%) +\%\E\% SMI\""
EXPANDED="@\(#\).*[ ]+[1-9]+(\.[0-9]+)+[ ]+(-[ ]+)?[0-9][0-9]/[01][0-9]/[0-3][0-9][ ]+.*(SMI|Sun)"
LIBERAL="(\%\Z\%\%\M\%[ ]+\%\I\%|\%W\%)[ ]+\%\E\%[ ]+.*(SMI|Sun)"
check_file() {
fname=$1
bname=$2
canon_str=$3
if [ $pedantic -eq 1 ]; then
egrep -s "$canon_str" $bname
if [ $? -ne 0 ]; then
echo "Incorrect ident string in $fname"
exitcode=1
fi
elif [ $liberal -eq 1 ]; then
egrep -s "$LIBERAL" $bname
if [ $? -ne 0 ]; then
egrep -s "$EXPANDED" $bname
if [ $? -eq 0 ]; then
echo "Expanded keywords in $fname"
else
echo "Incorrect ident string in $fname"
fi
exitcode=1
fi
else
egrep -s "$STANDARD" $bname
if [ $? -ne 0 ]; then
egrep -s "$EXPANDED" $bname
if [ $? -eq 0 ]; then
echo "Expanded keywords in $fname"
else
echo "Incorrect ident string in $fname"
fi
exitcode=1
fi
fi
}
pedantic=0
liberal=0
cwd=`pwd`
exitcode=0
rm -f /tmp/xxx$$ /tmp/kywrds.$$
trap "rm -f /tmp/xxx$$ /tmp/kywrds.$$" 0
while getopts lp c
do
case $c in
l) liberal=1;;
p) pedantic=1;;
\?) echo $USAGE
exit 2;;
esac
done
shift `expr $OPTIND - 1`
for i
do
dir=`dirname $i`
file=`basename $i`
# Try to build the full path to the file argument
echo $dir | egrep -s '^/'
if [ ! $? -eq 0 ]; then
dir=`pwd`/$dir
fi
cd $dir
if [ -f SCCS/s.$file ]; then
if [ -f SCCS/p.$file ]; then
case "$file" in
*.cxx|*.cc|*.c|*.hh|*.h)
canon_str="$CANON_C_H";;
*)
canon_str="$CANON_OTHER";;
esac
check_file $i $file "$canon_str"
else
sccs get -p $file > /dev/null 2>/tmp/xxx$$
if [ $? -ne 0 ]; then
echo "Cannot access SCCS information: $i"
exitcode=1
continue
fi
egrep -s "cm7" /tmp/xxx$$
if [ $? -eq 0 ]; then
egrep -s "$EXPANDED" $file
if [ $? -eq 0 ]; then
echo "Expanded keywords in $i"
else
echo "Missing keywords in $i"
fi
exitcode=1
else
sccs get -p -k $file > /tmp/kywrds.$$ 2>/tmp/xxx$$
case "$file" in
*.cxx|*.cc|*.c|*.hh|*.h)
canon_str="$CANON_C_H";;
*)
canon_str="$CANON_OTHER";;
esac
check_file $i /tmp/kywrds.$$ "$canon_str"
fi
fi
else
echo "Not an SCCS file: $i"
exitcode=1
fi
cd $cwd
done
exit $exitcode
|
