Print this page
XXX Remove nawk(1)
*** 21,32 ****
#
#
# Copyright 2006 Sun Microsystems, Inc. All rights reserved.
# Use is subject to license terms.
#
- #ident "%Z%%M% %I% %E% SMI"
- #
#
# Given a header file, extract function prototypes and global variable
# declarations in a form that can be used in a mapfile. The list of extracted
# functions and variables will be combined with a user-specified template to
--- 21,30 ----
*** 110,120 ****
function extract_prototypes
{
typeset header="$1"
typeset prefix="$2"
! nawk -v prefix="$prefix" <$header '
/^.*MAPFILE: export \"[^\"]*\"$/ {
if (protoexclude) {
print "ERROR: export after exclude\n";
exit(1);
}
--- 108,118 ----
function extract_prototypes
{
typeset header="$1"
typeset prefix="$2"
! /usr/xpg4/bin/awk -v prefix="$prefix" <$header '
/^.*MAPFILE: export \"[^\"]*\"$/ {
if (protoexclude) {
print "ERROR: export after exclude\n";
exit(1);
}
*** 192,202 ****
function extract_section
{
typeset skel="$1"
typeset secname="$2"
! nawk <$skel -v name=$secname -v skel=$skel '
/\/\* [^ ]* [^ ]* \*\// && $3 == name {
if ($2 == "BEGIN") {
printing = 1;
} else {
printing = 0;
--- 190,200 ----
function extract_section
{
typeset skel="$1"
typeset secname="$2"
! /usr/xpg4/bin/awk <$skel -v name=$secname -v skel=$skel '
/\/\* [^ ]* [^ ]* \*\// && $3 == name {
if ($2 == "BEGIN") {
printing = 1;
} else {
printing = 0;