/* Copyright (C) 2015 DJ Delorie, see COPYING.DJ for details */
/* Copyright (C) 2002 DJ Delorie, see COPYING.DJ for details */
/* Copyright (C) 2001 DJ Delorie, see COPYING.DJ for details */
/* Copyright (C) 1999 DJ Delorie, see COPYING.DJ for details */
/* Copyright (C) 1998 DJ Delorie, see COPYING.DJ for details */
/* Copyright (C) 1997 DJ Delorie, see COPYING.DJ for details */
/* Copyright (C) 1996 DJ Delorie, see COPYING.DJ for details */
/* Copyright (C) 1995 DJ Delorie, see COPYING.DJ for details */
#include <libc/stubs.h>
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <ctype.h>
#include <unistd.h>
#include <fcntl.h>
#include <fnmatch.h>
#include <dir.h>
#include <glob.h>
#include <crt0.h>

#define PATHBUF_LEN 2000

typedef struct Save {
  struct Save *prev;
  char *entry;
} Save;

static Save *save_list;
static int save_count;
static int flags;
static int (*errfunc)(const char *epath, int eerno);
static char *pathbuf;
static char *pathbuf_end;
static int wildcard_nesting;
static char use_lfn;
static char preserve_case;
static char slash;

static int glob2(const char *pattern, char *epathbuf, int lower, int caseless);
static int glob_dirs(const char *rest, char *epathbuf, int first, int lower, int caseless);
static int add(const char *path);
static int str_compare(const void *va, const void *vb);

/* `tolower' might depend on the locale.  We don't want to.  */
static int
msdos_tolower_fname (int c)
{
  return (c >= 'A' && c <= 'Z') ? c + 'a' - 'A' : c;
}

static int
add(const char *path)
{
  Save *sp;
  for (sp=save_list; sp; sp=sp->prev)
    if (stricmp(sp->entry, path) == 0)
      return 0;
  sp = (Save *)malloc(sizeof(Save));
  if (sp == 0)
    return 1;
  sp->entry = (char *)malloc(strlen(path)+1);
  if (sp->entry == 0)
  {
    free(sp);
    return 1;
  }
/*  printf("add: `%s'\n", path); */
  strcpy(sp->entry, path);
  sp->prev = save_list;
  save_list = sp;
  save_count++;
  return 0;
}

static int
glob_dirs(const char *rest, char *epathbuf, int first, /* rest is ptr to null or ptr after slash, bp after slash */
	  int lower, int caseless)
{
  struct ffblk ff;
  int done;

/*  printf("glob_dirs[%d]: rest=`%s' %c epathbuf=`%s' %c pathbuf=`%s'\n",
	 wildcard_nesting, rest, *rest, epathbuf, *epathbuf, pathbuf); */

  if (first)
  {
    if (*rest)
    {
      if (glob2(rest, epathbuf, preserve_case ? 0 : 1,
		preserve_case ? 0 : 1) == GLOB_NOSPACE)
	return GLOB_NOSPACE;
    }
    else
    {
      char sl = epathbuf[-1];
      *epathbuf = 0;
/*      printf("end, checking `%s'\n", pathbuf); */
      if (epathbuf == pathbuf)
      {
	epathbuf[0] = '.';
	epathbuf[1] = 0;
      }
      else
	epathbuf[-1] = 0;
      if (__file_exists(pathbuf))
	if (add(pathbuf))
	  return GLOB_NOSPACE;
      epathbuf[-1] = sl;
    }
  }

  strcpy(epathbuf, "*.*");
  done = findfirst(pathbuf, &ff, FA_DIREC);
  while (!done)
  {
    if ((ff.ff_attrib & FA_DIREC)
	&& (strcmp(ff.ff_name, ".") && strcmp(ff.ff_name, "..")))
    {
      int i;
      char *tp;
      /* Long directory names are never lower-cased!  */
      if (lower && _is_DOS83(ff.ff_name))
	for (i=0; ff.ff_name[i] && i<13; i++)
	  ff.ff_name[i] = msdos_tolower_fname(ff.ff_name[i]);

/*    printf("found `%s' `%s'\n", pathbuf, ff.ff_name); */

      strcpy(epathbuf, ff.ff_name);
      tp = epathbuf + strlen(epathbuf);
      *tp++ = slash;
      *tp = 0;

      wildcard_nesting++;
      if (*rest)
      {
	if (glob2(rest, tp, preserve_case ? 0 : 1,
		  preserve_case ? 0 : 1) == GLOB_NOSPACE)
	  return GLOB_NOSPACE;
      }
      else
      {
	if (!(flags & GLOB_MARK))
	  tp[-1] = 0;
	if (add(pathbuf))
	  return GLOB_NOSPACE;
	tp[-1] = slash;
      }
      *tp = 0;
      if (glob_dirs(rest, tp, 0, preserve_case ? 0 : 1,
		    preserve_case ? 0 : 1) == GLOB_NOSPACE)
	return GLOB_NOSPACE;
      wildcard_nesting--;
    }
    done = findnext(&ff);
  }
  return 0;
}

static int
glob2(const char *pattern, char *epathbuf,  /* both point *after* the slash */
      int lower, int caseless)
{
  const char *pp, *pslash;
  char *bp;
  struct ffblk ff;
  char *my_pattern;
  int done;

  if (strcmp(pattern, "...") == 0)
  {
    return glob_dirs(pattern+3, epathbuf, 1,
		     preserve_case ? 0 : 1, preserve_case ? 0 : 1);
  }
  if (strncmp(pattern, "...", 3) == 0 && (pattern[3] == '\\' || pattern[3] == '/'))
  {
    slash = pattern[3];
    return glob_dirs(pattern+4, epathbuf, 1,
		     preserve_case ? 0 : 1, preserve_case ? 0 : 1);
  }

  *epathbuf = 0;
  /* copy as many non-wildcard segments as possible */
  pp = pattern;
  bp = epathbuf;
  pslash = bp-1;
  while (bp < pathbuf_end)
  {
    if (*pp == ':' || *pp == '\\' || *pp == '/')
    {
      pslash = bp;
      caseless = lower = preserve_case ? 0 : 1;
      if (strcmp(pp+1, "...") == 0
	  || (strncmp(pp+1, "...", 3) == 0 && (pp[4] == '/' || pp[4] == '\\')))
      {
	if (*pp != ':')
	  slash = *pp;
/*	printf("glob2: dots at `%s'\n", pp); */
	*bp++ = *pp++;
	break;
      }
    }

    else if (*pp == '*' || *pp == '?' || *pp == '[')
    {
      if (pslash > pathbuf)
	strncpy(epathbuf, pattern, pslash - pathbuf);
      pp = pattern + (pslash - epathbuf) + 1;
      bp = epathbuf + (pslash - epathbuf) + 1;
      break;
    }

    else if (*pp == 0)
    {
      break;
    }

    /* Upper-case or mixed-case patterns force case-sensitive
       matches in `fnmatch' for LFN filesystems.  They also
       suppress downcasing 8+3 filenames (on all filesystems).  */
    else if (!preserve_case)
    {
      if (*pp >= 'A' && *pp <= 'Z')
      {
	if (use_lfn)
	  caseless = 0;
	lower = 0;
      }
    }

    *bp++ = *pp++;
  }
  *bp = 0;

  /* A pattern this big won't match any file.  */
  if (bp >= pathbuf_end && *pp)
    return 0;

  if (*pp == 0) /* end of pattern? */
  {
    if (__file_exists(pathbuf))
    {
      if (flags & GLOB_MARK)
      {
        struct ffblk _ff;
        findfirst(pathbuf, &_ff, FA_RDONLY|FA_SYSTEM|FA_DIREC|FA_ARCH);
        if (_ff.ff_attrib & FA_DIREC)
        {
          char *_pathbuf = pathbuf + strlen(pathbuf);
          *_pathbuf++ = '/';
          *_pathbuf = 0;
        }
      }
      if (add(pathbuf))
	return GLOB_NOSPACE;
    }
    return 0;
  }
/*  printf("glob2: initial segment is `%s'\n", pathbuf); */
  if (wildcard_nesting)
  {
    char s = bp[-1];
    bp[-1] = 0;
    if (!__file_exists(pathbuf))
      return 0;
    bp[-1] = s;
  }

  for (pslash = pp; *pslash && *pslash != '\\' && *pslash != '/';  pslash++)
    if (!preserve_case)
    {
      if (*pslash >= 'A' && *pslash <= 'Z')
      {
	if (use_lfn)
	  caseless = 0;
	lower = 0;
      }
    }

  if (*pslash)
    slash = *pslash;
  my_pattern = (char *)alloca(pslash - pp + 1);
  if (my_pattern == 0)
    return GLOB_NOSPACE;
  strncpy(my_pattern, pp, pslash - pp);
  my_pattern[pslash-pp] = 0;

/*  printf("glob2: `%s' `%s'\n", pathbuf, my_pattern); */

  if (strcmp(my_pattern, "...") == 0)
  {
    if (glob_dirs(*pslash ? pslash+1 : pslash, bp, 1, preserve_case ? 0 : 1,
		  preserve_case ? 0 : 1) == GLOB_NOSPACE)
      return GLOB_NOSPACE;
    return 0;
  }

  strcpy(bp, "*.*");

  done = findfirst(pathbuf, &ff, FA_RDONLY|FA_SYSTEM|FA_DIREC|FA_ARCH);
  while (!done)
  {
    int i;
    if ((ff.ff_attrib & FA_DIREC) == 0
	|| (strcmp(ff.ff_name, ".") && strcmp(ff.ff_name, "..")))
    {
      /* Long filenames are never lower-cased!  */
      if (lower && _is_DOS83(ff.ff_name))
	for (i=0; ff.ff_name[i] && i<13; i++)
	  ff.ff_name[i] = msdos_tolower_fname(ff.ff_name[i]);

      if (fnmatch(my_pattern, ff.ff_name,
		  FNM_NOESCAPE|FNM_PATHNAME|(caseless ? FNM_NOCASE : 0)) == 0)
      {
	strcpy(bp, ff.ff_name);
	if (*pslash)
	{
	  char *tp = bp + strlen(bp);
	  *tp++ = *pslash;
	  *tp = 0;
/*	  printf("nest: `%s' `%s'\n", pslash+1, pathbuf); */
	  wildcard_nesting++;
	  if (glob2(pslash+1, tp, preserve_case ? 0 : 1,
		    preserve_case ? 0 : 1) == GLOB_NOSPACE)
	    return GLOB_NOSPACE;
	  wildcard_nesting--;
	}
	else
	{
/*	  printf("ffmatch: `%s' matching `%s', add `%s'\n",
		 ff.ff_name, my_pattern, pathbuf); */
	  if (ff.ff_attrib & FA_DIREC && (flags & GLOB_MARK))
	  {
	    bp[strlen(bp)+1] = 0;
	    bp[strlen(bp)] = slash;
	  }
	  if (add(pathbuf))
	    return GLOB_NOSPACE;
	}
      }
    }
    done = findnext(&ff);
  }

  return 0;
}

static int
str_compare(const void *va, const void *vb)
{
  return strcmp(*(const char * const *)va, *(const char * const *)vb);
}

int
glob(const char *_pattern, int _flags, int (*_errfunc)(const char *_epath, int _eerrno), glob_t *_pglob)
{
  char path_buffer[PATHBUF_LEN + 1];
  int l_ofs, l_ptr;

  pathbuf = path_buffer+1;
  pathbuf_end = path_buffer + PATHBUF_LEN;
  flags = _flags;
  errfunc = _errfunc;
  wildcard_nesting = 0;
  save_count = 0;
  save_list = 0;
  use_lfn = _use_lfn(_pattern);
  preserve_case = _preserve_fncase();
  slash = '/';

  if (!(_flags & GLOB_APPEND))
    {
      _pglob->gl_pathc = 0;
      _pglob->gl_pathv = NULL;
      if (!(flags & GLOB_DOOFFS))
        _pglob->gl_offs = 0;
    }
  if (glob2(_pattern, pathbuf, preserve_case ? 0 : 1, preserve_case ? 0 : 1) == GLOB_NOSPACE)
    {
      return GLOB_NOSPACE;
    }

  if (save_count == 0)
  {
    if (flags & GLOB_NOCHECK)
    {
      if (add(_pattern))
	return GLOB_NOSPACE;
    }
    else
      return GLOB_NOMATCH;
  }

  if (flags & GLOB_DOOFFS)
    l_ofs = _pglob->gl_offs;
  else
    l_ofs = 0;

  if (flags & GLOB_APPEND)
  {
    _pglob->gl_pathv = (char **)realloc(_pglob->gl_pathv, (l_ofs + _pglob->gl_pathc + save_count + 1) * sizeof(char *));
    if (_pglob->gl_pathv == 0)
      return GLOB_NOSPACE;
    l_ptr = l_ofs + _pglob->gl_pathc;
  }
  else
  {
    _pglob->gl_pathv = (char* *)malloc((l_ofs + save_count + 1) * sizeof(char *));
    if (_pglob->gl_pathv == 0)
      return GLOB_NOSPACE;
    l_ptr = l_ofs;
    if (l_ofs)
      memset(_pglob->gl_pathv, 0, l_ofs * sizeof(char *));
  }

  l_ptr += save_count;
  _pglob->gl_pathv[l_ptr] = 0;
  while (save_list)
  {
    Save *s = save_list;
    l_ptr --;
    _pglob->gl_pathv[l_ptr] = save_list->entry;
    save_list = save_list->prev;
    free(s);
  }
  if (!(flags & GLOB_NOSORT))
    qsort(_pglob->gl_pathv + l_ptr, save_count, sizeof(char *), str_compare);

  _pglob->gl_pathc = l_ptr + save_count;

  return 0;
}