xref: /illumos-gate/usr/src/cmd/dtrace/test/tst/common/misc/tst.include.ksh (revision 81b2d5738d8e67bdf2438cd3e8c79f379bce44d2)
1#
2# CDDL HEADER START
3#
4# The contents of this file are subject to the terms of the
5# Common Development and Distribution License (the "License").
6# You may not use this file except in compliance with the License.
7#
8# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9# or http://www.opensolaris.org/os/licensing.
10# See the License for the specific language governing permissions
11# and limitations under the License.
12#
13# When distributing Covered Code, include this CDDL HEADER in each
14# file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15# If applicable, add the following below this CDDL HEADER, with the
16# fields enclosed by brackets "[]" replaced with your own identifying
17# information: Portions Copyright [yyyy] [name of copyright owner]
18#
19# CDDL HEADER END
20#
21
22#
23# Copyright 2007 Sun Microsystems, Inc.  All rights reserved.
24# Use is subject to license terms.
25#
26
27if [ $# != 1 ]; then
28	echo expected one argument: '<'dtrace-path'>'
29	exit 2
30fi
31
32dtrace=$1
33CC=/usr/sfw/bin/gcc
34CFLAGS=
35
36doit()
37{
38	file=$1
39	ofile=$2
40	errfile=$3
41	cfile=${TMPDIR:-/tmp}/inc.$$.$file.c
42	cofile=${TMPDIR:-/tmp}/inc.$$.$file
43	cat > $cfile <<EOF
44#include <sys/$file>
45void
46main()
47{}
48EOF
49	if $CC $CFLAGS -o $cofile $cfile >/dev/null 2>&1; then
50		$dtrace -xerrtags -C -s /dev/stdin \
51		    >/dev/null 2>$errfile <<EOF
52#include <sys/$file>
53BEGIN
54{
55	exit(0);
56}
57EOF
58		if [ $? -ne 0 ]; then
59			echo $inc failed: `cat $errfile | head -1` > $ofile
60		else
61			echo $inc succeeded > $ofile
62		fi
63		rm -f $errfile
64	fi
65
66	rm -f $cofile $cfile 2>/dev/null
67}
68
69if [ ! -x $CC ]; then
70	echo "$0: bad compiler: $CC" >& 2
71	exit 1
72fi
73
74concurrency=`psrinfo | wc -l`
75let concurrency=concurrency*4
76let i=0
77
78files=/usr/include/sys/*.h
79
80#
81# There are a few files in /usr/include/sys that are known to be bad -- usually
82# because they include static globals (!) or function bodies (!!) in the header
83# file.  Hopefully these remain sufficiently few that the O(#files * #badfiles)
84# algorithm, below, doesn't become a problem.  (And yes, writing scripts in
85# something other than ksh would probably be a good idea.)  If this script
86# becomes a problem, kindly fix it by reducing the number of bad files!  (That
87# is, fix it by fixing the broken file, not the broken script.)
88#
89badfiles="ctype.h ser_sync.h neti.h hook_event.h \
90    bootconf.h bootstat.h dtrace.h dumphdr.h exacct_impl.h fasttrap.h \
91    kobj.h kobj_impl.h ksyms.h lockstat.h smedia.h stat.h utsname.h \
92    rds.h smbios_impl.h"
93
94for inc in $files; do
95	file=`basename $inc`
96	for bad in $badfiles; do
97		if [ "$file" = "$bad" ]; then
98			continue 2
99		fi
100	done
101
102	ofile=${TMPDIR:-/tmp}/inc.$file.$$.out
103	errfile=${TMPDIR:-/tmp}/inc.$file.$$.err
104	doit $file $ofile $errfile &
105	let i=i+1
106
107	if [ $i -eq $concurrency ]; then
108		#
109		# This isn't optimal -- it creates a highly fluctuating load
110		# as we wait for all work to complete -- but it's an easy
111		# way of parallelizing work.
112		#
113		wait
114		let i=0
115	fi
116done
117
118wait
119
120bigofile=${TMPDIR:-/tmp}/inc.$$.out
121
122for inc in $files; do
123	file=`basename $inc`
124	ofile=${TMPDIR:-/tmp}/inc.$file.$$.out
125
126	if [ -f $ofile ]; then
127		cat $ofile >> $bigofile
128		rm $ofile
129	fi
130done
131
132status=$(grep "failed:" $bigofile | wc -l)
133cat $bigofile
134rm -f $bigofile
135exit $status
136