/*
 * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 * Copyright (C) 2007 - INRIA - Allan CORNET
 *
 * This file must be used under the terms of the CeCILL.
 * This source file is licensed as described in the file COPYING, which
 * you should have received as part of this distribution.  The terms
 * are also available at
 * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
 *
 */
/*--------------------------------------------------------------------------*/
#ifdef _MSC_VER
#include <Windows.h>
#else
#include <sys/types.h>
#include <dirent.h>
#include <errno.h>
#endif
#include <stdio.h>
#include <string.h>
#include "findfiles.h"
#include "MALLOC.h"
#include "localization.h"
#include "sciprint.h"
#ifdef _MSC_VER
#include "strdup_windows.h"
#endif
#include "charEncoding.h"
/*--------------------------------------------------------------------------*/
#ifndef _MSC_VER
static BOOL find_spec( char *filename , char *filespec);
#endif
/*--------------------------------------------------------------------------*/
#ifdef _MSC_VER
char **findfiles(char *path, char *filespec, int *sizeListReturned, BOOL warning)
{
    char **ListFiles = NULL;
    wchar_t *wcstrPattern = NULL;
    wchar_t *wcfilespec = NULL;
    wchar_t *wcpath = NULL;
    HANDLE hFile;
    WIN32_FIND_DATAW FileInformation;
    int nbElements = 0;
    int len = 0;

    wcfilespec = to_wide_string(filespec);
    wcpath = to_wide_string(path);

    len = (int)( wcslen(wcpath) + wcslen(wcfilespec) + 8);
    wcstrPattern = (wchar_t*)MALLOC(sizeof(wchar_t) * len);
    swprintf(wcstrPattern, len, L"%s/%s", wcpath, wcfilespec);

    hFile = FindFirstFileW(wcstrPattern, &FileInformation);
    if (wcstrPattern)
    {
        FREE(wcstrPattern);
        wcstrPattern = NULL;
    }

    if (hFile != INVALID_HANDLE_VALUE)
    {
        do
        {
            if (  wcscmp(FileInformation.cFileName, L".") &&  wcscmp(FileInformation.cFileName, L"..") )
            {
                nbElements++;
                if (ListFiles)
                {
                    ListFiles = (char**)REALLOC(ListFiles, sizeof(char*) * (nbElements));
                }
                else
                {
                    ListFiles = (char**)MALLOC(sizeof(char*) * (nbElements));
                }
                ListFiles[nbElements - 1] = wide_string_to_UTF8(FileInformation.cFileName);
            }
        }
        while (FindNextFileW(hFile, &FileInformation) == TRUE);
    }
    else
    {
        if (warning)
        {
            sciprint(_("Warning: Could not open directory %s: %s\n"), path, strerror(errno));
        }
    }
    FindClose(hFile);
    *sizeListReturned = nbElements;
    return ListFiles;
}
#else
/*--------------------------------------------------------------------------*/
char **findfiles(char *path, char *filespec, int *sizeListReturned, BOOL warning)
{
    char **ListFiles = NULL;
    int nbElements = 0;
    DIR *folder = NULL;
    struct dirent *read = NULL;

    *sizeListReturned = 0;

    folder = opendir(path);
    if (folder)
    {
        while ((read = readdir(folder)))
        {
            if ( strcmp(read->d_name, ".") && strcmp(read->d_name, "..") )
            {
                if ( find_spec(read->d_name , filespec) )
                {
                    nbElements++;
                    if (ListFiles)
                    {
                        ListFiles = (char**)REALLOC(ListFiles, sizeof(char*) * (nbElements));
                    }
                    else
                    {
                        ListFiles = (char**)MALLOC(sizeof(char*) * (nbElements));
                    }
                    ListFiles[nbElements - 1] = strdup(read->d_name);
                }
            }
        }
        closedir(folder);
    }
    else
    {
        if (warning)
        {
            sciprint(_("Warning: Could not open directory %s: %s\n"), path, strerror(errno));
        }
    }

    *sizeListReturned = nbElements;
    return ListFiles;
}
#endif
/*--------------------------------------------------------------------------*/
#ifndef _MSC_VER
/**
 * Check if the file matches the mask
 * '*' for all chars
 * '?' for only one
 * @TODO check if it can be optimized
 * @param filename the filename
 * @param filespec the mask
 */
static BOOL find_spec( char *filename , char *filespec)
{
    char *any = NULL;

    while ( ( *filespec ) || ( *filename ) )
    {
        switch ( *filespec )
        {
            case '*':
                any = filespec;
                filespec++;
                while ( ( *filename != *filespec ) && ( *filename ) )
                {
                    filename++;
                }
                break;

            case '?':
                filespec++;
                if ( *filename )
                {
                    filename++;
                }
                break;

            default:
                if ( *filespec != *filename )
                {
                    if ( ( any ) && ( *filename ) )
                    {
                        filespec = any;
                    }
                    else
                    {
                        return FALSE;
                    }
                }
                else
                {
                    filespec++;
                    filename++;
                }
                break;
        }
    }

    return TRUE;
}
#endif
/*--------------------------------------------------------------------------*/