test-migration.c revision a4e54154 
1/*
2 * fontconfig/test/test-migration.c
3 *
4 * Copyright © 2000 Keith Packard
5 * Copyright © 2013 Akira TAGOH
6 *
7 * Permission to use, copy, modify, distribute, and sell this software and its
8 * documentation for any purpose is hereby granted without fee, provided that
9 * the above copyright notice appear in all copies and that both that
10 * copyright notice and this permission notice appear in supporting
11 * documentation, and that the name of the author(s) not be used in
12 * advertising or publicity pertaining to distribution of the software without
13 * specific, written prior permission.  The authors make no
14 * representations about the suitability of this software for any purpose.  It
15 * is provided "as is" without express or implied warranty.
16 *
17 * THE AUTHOR(S) DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
18 * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
19 * EVENT SHALL THE AUTHOR(S) BE LIABLE FOR ANY SPECIAL, INDIRECT OR
20 * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
21 * DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
22 * TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
23 * PERFORMANCE OF THIS SOFTWARE.
24 */
25#ifdef HAVE_CONFIG_H
26#include "config.h"
27#endif
28#include <stdio.h>
29#include <stdlib.h>
30#include <string.h>
31#include <sys/types.h>
32#include <dirent.h>
33#ifdef HAVE_UNISTD_H
34#include <unistd.h>
35#endif
36#ifndef HAVE_STRUCT_DIRENT_D_TYPE
37#include <sys/types.h>
38#include <sys/stat.h>
39#endif
40#include <fontconfig/fontconfig.h>
41
42#ifdef HAVE_MKDTEMP
43#define fc_mkdtemp	mkdtemp
44#else
45char *
46fc_mkdtemp (char *template)
47{
48    if (!mktemp (template) || mkdir (template, 0700))
49	return NULL;
50
51    return template;
52}
53#endif
54
55FcBool
56mkdir_p(const char *dir)
57{
58    char *parent;
59    FcBool ret;
60
61    if (strlen (dir) == 0)
62	return FcFalse;
63    parent = (char *) FcStrDirname ((const FcChar8 *)dir);
64    if (!parent)
65	return FcFalse;
66    if (access (parent, F_OK) == 0)
67	ret = mkdir (dir, 0755) == 0 && chmod (dir, 0755) == 0;
68    else if (access (parent, F_OK) == -1)
69	ret = mkdir_p (parent) && (mkdir (dir, 0755) == 0) && chmod (dir, 0755) == 0;
70    else
71	ret = FcFalse;
72    free (parent);
73
74    return ret;
75}
76
77FcBool
78unlink_dirs(const char *dir)
79{
80    DIR *d = opendir (dir);
81    struct dirent *e;
82    size_t len = strlen (dir);
83    char *n = NULL;
84    FcBool ret = FcTrue;
85#ifndef HAVE_STRUCT_DIRENT_D_TYPE
86    struct stat statb;
87#endif
88
89    if (!d)
90	return FcFalse;
91    while ((e = readdir(d)) != NULL)
92    {
93	size_t l;
94
95	if (strcmp (e->d_name, ".") == 0 ||
96	    strcmp (e->d_name, "..") == 0)
97	    continue;
98	l = strlen (e->d_name) + 1;
99	if (n)
100	    free (n);
101	n = malloc (l + len + 1);
102	strcpy (n, dir);
103	n[len] = '/';
104	strcpy (&n[len + 1], e->d_name);
105#ifdef HAVE_STRUCT_DIRENT_D_TYPE
106	if (e->d_type == DT_DIR)
107#else
108	if (stat (n, &statb) == -1)
109	{
110		fprintf (stderr, "E: %s\n", n);
111		ret = FcFalse;
112		break;
113	}
114	if (S_ISDIR (statb.st_mode))
115#endif
116	{
117	    if (!unlink_dirs (n))
118	    {
119		fprintf (stderr, "E: %s\n", n);
120		ret = FcFalse;
121		break;
122	    }
123	}
124	else
125	{
126	    if (unlink (n) == -1)
127	    {
128		fprintf (stderr, "E: %s\n", n);
129		ret = FcFalse;
130		break;
131	    }
132	}
133    }
134    if (n)
135	free (n);
136    closedir (d);
137
138    if (rmdir (dir) == -1)
139    {
140	fprintf (stderr, "E: %s\n", dir);
141	return FcFalse;
142    }
143
144    return ret;
145}
146
147int
148main(void)
149{
150    char template[32] = "fontconfig-XXXXXXXX";
151    char *tmp = fc_mkdtemp (template);
152    size_t len = strlen (tmp), xlen, dlen;
153    char xdg[256], confd[256], fn[256], nfn[256], ud[256], nud[256];
154    int ret = -1;
155    FILE *fp;
156    char *content = "<fontconfig></fontconfig>";
157
158    strcpy (xdg, tmp);
159    strcpy (&xdg[len], "/.config");
160    setenv ("HOME", tmp, 1);
161    setenv ("XDG_CONFIG_HOME", xdg, 1);
162    xlen = strlen (xdg);
163    strcpy (confd, xdg);
164    strcpy (&confd[xlen], "/fontconfig");
165    dlen = strlen (confd);
166    /* In case there are no configuration files nor directory */
167    FcInit ();
168    if (access (confd, F_OK) == 0)
169    {
170	fprintf (stderr, "%s unexpectedly exists\n", confd);
171	goto bail;
172    }
173    FcFini ();
174    if (!unlink_dirs (tmp))
175    {
176	fprintf (stderr, "Unable to clean up\n");
177	goto bail;
178    }
179    /* In case there are the user configuration file */
180    strcpy (fn, tmp);
181    strcpy (&fn[len], "/.fonts.conf");
182    strcpy (nfn, confd);
183    strcpy (&nfn[dlen], "/fonts.conf");
184    if (!mkdir_p (confd))
185    {
186	fprintf (stderr, "Unable to create a config dir: %s\n", confd);
187	goto bail;
188    }
189    if ((fp = fopen (fn, "wb")) == NULL)
190    {
191	fprintf (stderr, "Unable to create a config file: %s\n", fn);
192	goto bail;
193    }
194    fwrite (content, sizeof (char), strlen (content), fp);
195    fclose (fp);
196    FcInit ();
197    if (access (nfn, F_OK) != 0)
198    {
199	fprintf (stderr, "migration failed for %s\n", nfn);
200	goto bail;
201    }
202    FcFini ();
203    if (!unlink_dirs (tmp))
204    {
205	fprintf (stderr, "Unable to clean up\n");
206	goto bail;
207    }
208    /* In case there are the user configuration dir */
209    strcpy (ud, tmp);
210    strcpy (&ud[len], "/.fonts.conf.d");
211    strcpy (nud, confd);
212    strcpy (&nud[dlen], "/conf.d");
213    if (!mkdir_p (ud))
214    {
215	fprintf (stderr, "Unable to create a config dir: %s\n", ud);
216	goto bail;
217    }
218    FcInit ();
219    if (access (nud, F_OK) != 0)
220    {
221	fprintf (stderr, "migration failed for %s\n", nud);
222	goto bail;
223    }
224    FcFini ();
225
226    ret = 0;
227bail:
228    unlink_dirs (tmp);
229
230    return ret;
231}
232