:
##########################################################################
# Title      :	shellpat - convert shell patterns to grep regular expressions
# Author     :	Heiner Steven <heiner.steven@odn.de>
# Date       :	1994-04-19
# Requires   :	nawk
# Category   :	File Utilities
# SCCS-Id.   :	@(#) shellpat	1.2 03/12/19
##########################################################################
# Description
#
##########################################################################

PN=`basename "$0"`			# Program name
VER='1.2'

AWK=awk
[ -x /bin/nawk ] && AWK=nawk

for i
do
    echo "$i" | 
$AWK '
    # Shell2awk - Convert shell-pattern to AWK regular expressions
    # The following conversions take place:
    #   -  pattern -> ^pattern$
    #   -  "." -> "\\."
    #   -  "?" -> "."
    #   -  "*" -> ".*"

    function Shell2awk (pattern)
    {
	Erg = "^"
    	for ( i=1; i<=length (pattern); i++ )
	{
	    c = substr (pattern, i, 1);
	    if ( c == "*" )	 Erg = Erg ".*"
	    else if ( c == "." ) Erg = Erg "\\." 
	    else if ( c == "?" ) Erg = Erg "."
	    else Erg = Erg c
	}
	return Erg "$"
    }

    { print Shell2awk($0) }
'
done