/****************************************************************************
*
*                            Open Watcom Project
*
*    Portions Copyright (c) 1983-2002 Sybase, Inc. All Rights Reserved.
*
*  ========================================================================
*
*    This file contains Original Code and/or Modifications of Original
*    Code as defined in and that are subject to the Sybase Open Watcom
*    Public License version 1.0 (the 'License'). You may not use this file
*    except in compliance with the License. BY USING THIS FILE YOU AGREE TO
*    ALL TERMS AND CONDITIONS OF THE LICENSE. A copy of the License is
*    provided with the Original Code and Modifications, and is also
*    available at www.sybase.com/developer/opensource.
*
*    The Original Code and all software distributed under the License are
*    distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
*    EXPRESS OR IMPLIED, AND SYBASE AND ALL CONTRIBUTORS HEREBY DISCLAIM
*    ALL SUCH WARRANTIES, INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF
*    MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR
*    NON-INFRINGEMENT. Please see the License for the specific language
*    governing rights and limitations under the License.
*
*  ========================================================================
*
* Description:  Wildcard file matching.
*
****************************************************************************/


#include "vi.h"
#include "walloca.h"
#include "rxsupp.h"

static regexp  *cRx;

/*
 * FileMatch - check if a file matches a wild card
 */
bool FileMatch( char *name )
{
    int i;

    i = RegExec( cRx, name, TRUE );
    if( i ) {
        return( TRUE );
    }
    return( FALSE );

} /* FileMatch */

/*
 * FileMatchInit - start file matching
 */
vi_rc FileMatchInit( char *wild )
{
    char        *tomatch;
    int         i, j, len;

    RegExpAttrSave( TRUE, "." );

    /*
     * compute required size
     */
    j = 3;
    len = strlen( wild );
    for( i = 0; i < len; i++ ) {
        if( wild[i] == '?' ) {
            j += 2;
        } else if( wild[i] == '*' ) {
            j += 3;
        } else {
            j++;
        }
    }
    tomatch = alloca( j );

    /*
     * build match string
     */
    tomatch[0] = '^';
    j = 1;
    len = strlen( wild );
    for( i = 0; i < len; i++ ) {
        if( wild[i] == '?' ) {
            tomatch[j++] = '\\';
            tomatch[j++] = '.';
            continue;
        }
        if( wild[i] == '*' ) {
            tomatch[j++] = '\\';
            tomatch[j++] = '.';
        }
        tomatch[j++] = wild[i];
    }
    tomatch[j++] = '$';
    tomatch[j] = 0;

    cRx = RegComp( tomatch );
    if( RegExpError ) {
        FileMatchFini();
        return( RegExpError );
    }
    return( ERR_NO_ERR );

} /* FileMatchInit */

/*
 * FileMatchFini - done with file matching
 */
void FileMatchFini( void )
{
    RegExpAttrRestore();
    MemFree( cRx );

} /* FileMatchFini */
