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
|
#!/bin/sh
#
# +----------------------------------------------------------------------+
# | PHP Version 4 |
# +----------------------------------------------------------------------+
# | Copyright (c) 1997-2010 The PHP Group |
# +----------------------------------------------------------------------+
# | This source file is subject to version 2.02 of the PHP licience, |
# | that is bundled with this package in the file LICENCE and is |
# | avalible through the world wide web at |
# | http://www.php.net/license/2_02.txt. |
# | If uou did not receive a copy of the PHP license and are unable to |
# | obtain it through the world wide web, please send a note to |
# | license@php.net so we can mail you a copy immediately |
# +----------------------------------------------------------------------+
# | Authors: Gabor Hoitsy <goba@php.net> |
# +----------------------------------------------------------------------+
#
# $Id: genfuncsummary.sh 293138 2010-01-05 10:21:11Z rquadling $
if test -f funcsummary.awk; then
awkscript=funcsummary.awk
elif test -f scripts/funcsummary.awk; then
awkscript=scripts/funcsummary.awk
else
echo 1>&2 funcsummary.awk not found
exit
fi
# try to detect if we are using the old/broken awk and nawk in Solaris
os=`uname -s`
has_gawk=`which gawk`
if [ $os = "SunOS" ]; then
if [ -s $has_gawk ]; then
awkprog="gawk"
else
echo "*** Error *** Gnu awk needed in Solaris"
exit 1
fi
else
awkprog="awk"
fi
for i in `find $1 -name "*.[ch]" -print -o -name "*.ec" -print | xargs egrep -li "\{\{\{ proto" | sort` ; do
echo $i | sed -e "s|$1|# php-src|"
$awkprog -f $awkscript < $i | sort +1 | $awkprog -F "---" '{ print $1; print $2; }' | sed -e's/^[[:space:]]+//' -e's/[[:space:]]+/ /'
done
if test -f $1/language-scanner.lex # only in PHP3
then
$awkprog -f funcsummary.awk < $1/language-scanner.lex | sort +1 | $awkprog -F "---" '{ print $1; print $2; }'
fi
|
