Subversion Repositories core_arm

/* 2003: Konrad Eisele <eiselekd@web.de> */
 
#include <stdlib.h>
#ifdef UNIX
#include <unistd.h>
#include <sys/stat.h>
#include <strings.h>
#endif
#ifdef NT
#include <io.h>
#endif
 
#include <stdio.h>
#include <fcntl.h>
 
#include "tmki.h"
 
ti_namelist *ti_nlappend(ti_namelist *nl,const char *s) {
  int i;
  ti_namelist *n = (ti_namelist *)ti_alloc(sizeof(ti_namelist));
  if (!n) return NULL;
  nl ->n = n;
  i = strlen(s);
  if ( ((n ->s) = ti_alloc(i+1))) { strcpy(n ->s,s); }
  return n;
}
 
void ti_nlfree(ti_namelist *nl) {
  while (nl) {
    ti_namelist *n = nl ->n;
    if (nl ->s) free(nl ->s);
    nl ->s = 0;
    free(nl);
    nl = n;
  }
}
 
/* try all [nl->s]/<p><e> combinations
 * nl: list of prefixes
 * p: filename
 * e: extension
 * r: buffer to assemble dest finename
 * rc: buffer size
 * nr: return filename pointer in <r>
 * bin: binary open(NT)
 */
int ti_open_vp(ti_namelist *nl,const char *d,const char *f,const char *e,char *r,unsigned int rc,char **nr,int bin)
{
  ti_namelist x;
  int fd = -1;
  char b[TI_MAXPATH];
 
  if (d[0] == '/' 
#ifdef NT
      || (d[0] && d[1] == ':' && d[2] == '/')
#endif
      ) {
    x.n = 0;
    x.s = b;
    b[0] = 0;
  }
  else {
    x.n = nl;
    x.s = b;
    strncpy(b, d, TI_MAXPATH);
    b[TI_MAXPATH-1] = 0;
    sys_unbashfilename(b, b);
  }
  for (nl = &x; nl; nl = nl->n) {
      if (strlen(nl->s) + strlen(f) + strlen(e) + 2 > rc)
	continue;
      strcpy(r, nl->s);
      if (r[0] && r[strlen(r)-1] != '/')
	strcat(r, "/");
      strcat(r, f);
      strcat(r, e);
      sys_bashfilename(r,r);
 
      /* see if we can open the file for reading */
#ifdef NT
      if ((fd=open(r,O_RDONLY | (bin ? _O_BINARY : _O_TEXT))) >= 0)
#else
      if ((fd=open(r,O_RDONLY )) >= 0)
#endif
      {
	/* in UNIX, further check that it's not a directory */
#ifdef UNIX
	struct stat statbuf;
	int ok =  ((fstat(fd, &statbuf) >= 0) && !S_ISDIR(statbuf.st_mode));
	if (!ok) {
	  ti_print_err("ti_open_vp: %s stat failed or directory",r);
	  close (fd); fd = -1;
	}
	else
#endif
	{
	  char *slash;
	  sys_unbashfilename(r, r);
	  slash = strrchr(r, '/');
	  if (slash) {
	      *slash = 0;
	      *nr = slash + 1;
	  }
	  else *nr = r;
	  return (fd);  
	}
      }
      else  
	ti_print_err("failed to open %s\n", r);
  }
  *r = 0;
  return (-1);
}