text: /*
   * fontconfig/test/test-migration.c
   *
   * Copyright © 2000 Keith Packard
   * Copyright © 2013 Akira TAGOH
   *
   * Permission to use, copy, modify, distribute, and sell this software and its
   * documentation for any purpose is hereby granted without fee, provided that
   * the above copyright notice appear in all copies and that both that
   * copyright notice and this permission notice appear in supporting
   * documentation, and that the name of the author(s) not be used in
   * advertising or publicity pertaining to distribution of the software without
   * specific, written prior permission.  The authors make no
   * representations about the suitability of this software for any purpose.  It
   * is provided "as is" without express or implied warranty.
   *
   * THE AUTHOR(S) DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
   * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
   * EVENT SHALL THE AUTHOR(S) BE LIABLE FOR ANY SPECIAL, INDIRECT OR
   * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
   * DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
   * TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
   * PERFORMANCE OF THIS SOFTWARE.
   */
  #ifdef HAVE_CONFIG_H
  #include "config.h"
  #endif
  #include <stdio.h>
  #include <stdlib.h>
  #include <string.h>
  #include <unistd.h>
  #include <sys/types.h>
  #include <dirent.h>
  #ifndef HAVE_STRUCT_DIRENT_D_TYPE
  #include <sys/types.h>
  #include <sys/stat.h>
  #include <unistd.h>
  #endif
  #include <fontconfig/fontconfig.h>
  
  #ifdef HAVE_MKDTEMP
  #define fc_mkdtemp	mkdtemp
  #else
  char *
  fc_mkdtemp (char *template)
  {
      if (!mktemp (template) || mkdir (template, 0700))
  	return NULL;
  
      return template;
  }
  #endif
  
  FcBool
  mkdir_p(const char *dir)
  {
      char *parent;
      FcBool ret;
  
      if (strlen (dir) == 0)
  	return FcFalse;
      parent = (char *) FcStrDirname ((const FcChar8 *)dir);
      if (!parent)
  	return FcFalse;
      if (access (parent, F_OK) == 0)
  	ret = mkdir (dir, 0755) == 0 && chmod (dir, 0755) == 0;
      else if (access (parent, F_OK) == -1)
  	ret = mkdir_p (parent) && (mkdir (dir, 0755) == 0) && chmod (dir, 0755) == 0;
      else
  	ret = FcFalse;
      free (parent);
  
      return ret;
  }
  
  FcBool
  unlink_dirs(const char *dir)
  {
      DIR *d = opendir (dir);
      struct dirent *e;
      size_t len = strlen (dir);
      char *n = NULL;
      FcBool ret = FcTrue;
  #ifndef HAVE_STRUCT_DIRENT_D_TYPE
      struct stat statb;
  #endif
  
      if (!d)
  	return FcFalse;
      while ((e = readdir(d)) != NULL)
      {
  	size_t l;
  
  	if (strcmp (e->d_name, ".") == 0 ||
  	    strcmp (e->d_name, "..") == 0)
  	    continue;
  	l = strlen (e->d_name) + 1;
  	if (n)
  	    free (n);
  	n = malloc (l + len + 1);
  	strcpy (n, dir);
  	n[len] = '/';
  	strcpy (&n[len + 1], e->d_name);
  #ifdef HAVE_STRUCT_DIRENT_D_TYPE
  	if (e->d_type == DT_DIR)
  #else
  	if (stat (n, &statb) == -1)
  	{
  		fprintf (stderr, "E: %s\n", n);
  		ret = FcFalse;
  		break;
  	}
  	if (S_ISDIR (statb.st_mode))
  #endif
  	{
  	    if (!unlink_dirs (n))
  	    {
  		fprintf (stderr, "E: %s\n", n);
  		ret = FcFalse;
  		break;
  	    }
  	}
  	else
  	{
  	    if (unlink (n) == -1)
  	    {
  		fprintf (stderr, "E: %s\n", n);
  		ret = FcFalse;
  		break;
  	    }
  	}
      }
      if (n)
  	free (n);
      closedir (d);
  
      if (rmdir (dir) == -1)
      {
  	fprintf (stderr, "E: %s\n", dir);
  	return FcFalse;
      }
  
      return ret;
  }
  
  int
  main(void)
  {
      char template[32] = "fontconfig-XXXXXXXX";
      char *tmp = fc_mkdtemp (template);
      size_t len = strlen (tmp), xlen, dlen;
      char xdg[256], confd[256], fn[256], nfn[256], ud[256], nud[256];
      int ret = -1;
      FILE *fp;
      char *content = "<fontconfig></fontconfig>";
  
      strcpy (xdg, tmp);
      strcpy (&xdg[len], "/.config");
      setenv ("HOME", tmp, 1);
      setenv ("XDG_CONFIG_HOME", xdg, 1);
      xlen = strlen (xdg);
      strcpy (confd, xdg);
      strcpy (&confd[xlen], "/fontconfig");
      dlen = strlen (confd);
      /* In case there are no configuration files nor directory */
      FcInit ();
      if (access (confd, F_OK) == 0)
      {
  	fprintf (stderr, "%s unexpectedly exists\n", confd);
  	goto bail;
      }
      FcFini ();
      if (!unlink_dirs (tmp))
      {
  	fprintf (stderr, "Unable to clean up\n");
  	goto bail;
      }
      /* In case there are the user configuration file */
      strcpy (fn, tmp);
      strcpy (&fn[len], "/.fonts.conf");
      strcpy (nfn, confd);
      strcpy (&nfn[dlen], "/fonts.conf");
      if (!mkdir_p (confd))
      {
  	fprintf (stderr, "Unable to create a config dir: %s\n", confd);
  	goto bail;
      }
      if ((fp = fopen (fn, "wb")) == NULL)
      {
  	fprintf (stderr, "Unable to create a config file: %s\n", fn);
  	goto bail;
      }
      fwrite (content, sizeof (char), strlen (content), fp);
      fclose (fp);
      FcInit ();
      if (access (nfn, F_OK) != 0)
      {
  	fprintf (stderr, "migration failed for %s\n", nfn);
  	goto bail;
      }
      FcFini ();
      if (!unlink_dirs (tmp))
      {
  	fprintf (stderr, "Unable to clean up\n");
  	goto bail;
      }
      /* In case there are the user configuration dir */
      strcpy (ud, tmp);
      strcpy (&ud[len], "/.fonts.conf.d");
      strcpy (nud, confd);
      strcpy (&nud[dlen], "/conf.d");
      if (!mkdir_p (ud))
      {
  	fprintf (stderr, "Unable to create a config dir: %s\n", ud);
  	goto bail;
      }
      FcInit ();
      if (access (nud, F_OK) != 0)
      {
  	fprintf (stderr, "migration failed for %s\n", nud);
  	goto bail;
      }
      FcFini ();
  
      ret = 0;
  bail:
      unlink_dirs (tmp);
  
      return ret;
  }
  