Change to the linux kernel coding style
[wmaker-crm.git] / util / getstyle.c
1 /* getstyle.c - outputs style related options from WindowMaker to stdout
2 *
3 * WindowMaker window manager
4 *
5 * Copyright (c) 1997-2003 Alfredo K. Kojima
6 *
7 * This program is free software; you can redistribute it and/or modify
8 * it under the terms of the GNU General Public License as published by
9 * the Free Software Foundation; either version 2 of the License, or
10 * (at your option) any later version.
11 *
12 * This program is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 * GNU General Public License for more details.
16 *
17 * You should have received a copy of the GNU General Public License
18 * along with this program; if not, write to the Free Software
19 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
20 * USA.
21 */
22
23 #define PROG_VERSION "getstyle (Window Maker) 0.6"
24
25 #include <stdlib.h>
26 #include <stdio.h>
27 #include <string.h>
28 #include <unistd.h>
29 #include <string.h>
30 #include <pwd.h>
31 #include <limits.h>
32 #include <assert.h>
33 #include <WINGs/WUtil.h>
34
35 #ifndef PATH_MAX
36 #define PATH_MAX 1024
37 #endif
38
39 #include "../src/wconfig.h"
40
41 /* table of style related options */
42 static char *options[] = {
43 "TitleJustify",
44 "ClipTitleFont",
45 "WindowTitleFont",
46 "MenuTitleFont",
47 "MenuTextFont",
48 "IconTitleFont",
49 "DisplayFont",
50 "LargeDisplayFont",
51 "WindowTitleExtendSpace",
52 "MenuTitleExtendSpace",
53 "MenuTextExtendSpace",
54 "HighlightColor",
55 "HighlightTextColor",
56 "ClipTitleColor",
57 "CClipTitleColor",
58 "FTitleColor",
59 "PTitleColor",
60 "UTitleColor",
61 "FTitleBack",
62 "PTitleBack",
63 "UTitleBack",
64 "ResizebarBack",
65 "MenuTitleColor",
66 "MenuTextColor",
67 "MenuDisabledColor",
68 "MenuTitleBack",
69 "MenuTextBack",
70 "IconBack",
71 "IconTitleColor",
72 "IconTitleBack",
73 "MenuStyle",
74 "WindowTitleExtendSpace",
75 "MenuTitleExtendSpace",
76 "MenuTextExtendSpace",
77 NULL
78 };
79
80 /* table of theme related options */
81 static char *theme_options[] = {
82 "WorkspaceBack",
83 "NormalCursor",
84 "ArrowCursor",
85 "MoveCursor",
86 "ResizeCursor",
87 "TopLeftResizeCursor",
88 "TopRightResizeCursor",
89 "BottomLeftResizeCursor",
90 "BottomRightResizeCursor",
91 "VerticalResizeCursor",
92 "HorizontalResizeCursor",
93 "WaitCursor",
94 "QuestionCursor",
95 "TextCursor",
96 "SelectCursor",
97 NULL
98 };
99
100 /* table of style related fonts */
101
102 static char *font_options[] = {
103 "ClipTitleFont",
104 "WindowTitleFont",
105 "MenuTitleFont",
106 "MenuTextFont",
107 "IconTitleFont",
108 "DisplayFont",
109 "LargeDisplayFont",
110 NULL
111 };
112
113 char *ProgName;
114
115 WMPropList *PixmapPath = NULL;
116
117 char *ThemePath = NULL;
118
119 extern char *convertFont(char *font, Bool keepXLFD);
120
121 void print_help()
122 {
123 printf("Usage: %s [OPTIONS] [FILE]\n", ProgName);
124 puts("Retrieves style/theme configuration and output to FILE or to stdout");
125 puts("");
126 puts(" -t, --theme-options output theme related options when producing a style file");
127 puts(" -p, --pack produce output as a theme pack");
128 puts(" --help display this help and exit");
129 puts(" --version output version information and exit");
130 }
131
132 char *globalDefaultsPathForDomain(char *domain)
133 {
134 static char path[1024];
135
136 sprintf(path, "%s/WindowMaker/%s", SYSCONFDIR, domain);
137
138 return path;
139 }
140
141 char *defaultsPathForDomain(char *domain)
142 {
143 static char path[1024];
144 char *gspath;
145
146 gspath = getenv("GNUSTEP_USER_ROOT");
147 if (gspath) {
148 strcpy(path, gspath);
149 strcat(path, "/");
150 } else {
151 char *home;
152
153 home = getenv("HOME");
154 if (!home) {
155 printf("%s:could not get HOME environment variable!\n", ProgName);
156 exit(0);
157 }
158 strcpy(path, home);
159 strcat(path, "/GNUstep/");
160 }
161 strcat(path, DEFAULTS_DIR);
162 strcat(path, "/");
163 strcat(path, domain);
164
165 return path;
166 }
167
168 void abortar(char *reason)
169 {
170 char buffer[4000];
171
172 printf("%s: %s\n", ProgName, reason);
173
174 if (ThemePath) {
175 printf("Removing unfinished theme pack\n");
176 sprintf(buffer, "/bin/rm -fr \"%s\"", ThemePath);
177
178 if (system(buffer) != 0) {
179 printf("%s: could not execute command %s\n", ProgName, buffer);
180 }
181 }
182 exit(1);
183 }
184
185 char *wgethomedir()
186 {
187 char *home = getenv("HOME");
188 struct passwd *user;
189
190 if (home)
191 return home;
192
193 user = getpwuid(getuid());
194 if (!user) {
195 char buffer[80];
196
197 sprintf(buffer, "could not get password entry for UID %i", getuid());
198 perror(buffer);
199 return "/";
200 }
201 if (!user->pw_dir) {
202 return "/";
203 } else {
204 return user->pw_dir;
205 }
206 }
207
208 static char *getuserhomedir(char *username)
209 {
210 struct passwd *user;
211
212 user = getpwnam(username);
213 if (!user) {
214 char buffer[100];
215
216 sprintf(buffer, "could not get password entry for user %s", username);
217 perror(buffer);
218 return NULL;
219 }
220 if (!user->pw_dir) {
221 return "/";
222 } else {
223 return user->pw_dir;
224 }
225 }
226
227 char *wexpandpath(char *path)
228 {
229 char buffer2[PATH_MAX + 2];
230 char buffer[PATH_MAX + 2];
231 int i;
232
233 memset(buffer, 0, PATH_MAX + 2);
234
235 if (*path == '~') {
236 char *home;
237
238 path++;
239 if (*path == '/' || *path == 0) {
240 home = wgethomedir();
241 strcat(buffer, home);
242 } else {
243 int j;
244 j = 0;
245 while (*path != 0 && *path != '/') {
246 buffer2[j++] = *path;
247 buffer2[j] = 0;
248 path++;
249 }
250 home = getuserhomedir(buffer2);
251 if (!home)
252 return NULL;
253 strcat(buffer, home);
254 }
255 }
256
257 i = strlen(buffer);
258
259 while (*path != 0) {
260 char *tmp;
261
262 if (*path == '$') {
263 int j = 0;
264 path++;
265 /* expand $(HOME) or $HOME style environment variables */
266 if (*path == '(') {
267 path++;
268 while (*path != 0 && *path != ')') {
269 buffer2[j++] = *(path++);
270 buffer2[j] = 0;
271 }
272 if (*path == ')')
273 path++;
274 tmp = getenv(buffer2);
275 if (!tmp) {
276 buffer[i] = 0;
277 strcat(buffer, "$(");
278 strcat(buffer, buffer2);
279 strcat(buffer, ")");
280 i += strlen(buffer2) + 3;
281 } else {
282 strcat(buffer, tmp);
283 i += strlen(tmp);
284 }
285 } else {
286 while (*path != 0 && *path != '/') {
287 buffer2[j++] = *(path++);
288 buffer2[j] = 0;
289 }
290 tmp = getenv(buffer2);
291 if (!tmp) {
292 strcat(buffer, "$");
293 strcat(buffer, buffer2);
294 i += strlen(buffer2) + 1;
295 } else {
296 strcat(buffer, tmp);
297 i += strlen(tmp);
298 }
299 }
300 } else {
301 buffer[i++] = *path;
302 path++;
303 }
304 }
305
306 return wstrdup(buffer);
307 }
308
309 char *wfindfileinarray(WMPropList * paths, char *file)
310 {
311 int i;
312 char *path;
313 int len, flen;
314 char *fullpath;
315
316 if (!file)
317 return NULL;
318
319 if (*file == '/' || *file == '~' || !paths || !WMIsPLArray(paths)
320 || WMGetPropListItemCount(paths) == 0) {
321 if (access(file, R_OK) < 0) {
322 fullpath = wexpandpath(file);
323 if (!fullpath)
324 return NULL;
325
326 if (access(fullpath, R_OK) < 0) {
327 free(fullpath);
328 return NULL;
329 } else {
330 return fullpath;
331 }
332 } else {
333 return wstrdup(file);
334 }
335 }
336
337 flen = strlen(file);
338 for (i = 0; i < WMGetPropListItemCount(paths); i++) {
339 WMPropList *tmp;
340 char *dir;
341
342 tmp = WMGetFromPLArray(paths, i);
343 if (!WMIsPLString(tmp) || !(dir = WMGetFromPLString(tmp)))
344 continue;
345
346 len = strlen(dir);
347 path = wmalloc(len + flen + 2);
348 path = memcpy(path, dir, len);
349 path[len] = 0;
350 strcat(path, "/");
351 strcat(path, file);
352 /* expand tilde */
353 fullpath = wexpandpath(path);
354 free(path);
355 if (fullpath) {
356 /* check if file is readable */
357 if (access(fullpath, R_OK) == 0) {
358 return fullpath;
359 }
360 free(fullpath);
361 }
362 }
363 return NULL;
364 }
365
366 static Bool isFontOption(char *option)
367 {
368 int i;
369
370 for (i = 0; font_options[i] != NULL; i++) {
371 if (strcasecmp(option, font_options[i]) == 0) {
372 return True;
373 }
374 }
375
376 return False;
377 }
378
379 void copyFile(char *dir, char *file)
380 {
381 char buffer[4000];
382
383 sprintf(buffer, "/bin/cp \"%s\" \"%s\"", file, dir);
384 if (system(buffer) != 0) {
385 printf("%s: could not copy file %s\n", ProgName, file);
386 }
387 }
388
389 void findCopyFile(char *dir, char *file)
390 {
391 char *fullPath;
392
393 fullPath = wfindfileinarray(PixmapPath, file);
394 if (!fullPath) {
395 char buffer[4000];
396
397 sprintf(buffer, "could not find file %s", file);
398 abortar(buffer);
399 }
400 copyFile(dir, fullPath);
401 free(fullPath);
402 }
403
404 char *makeThemePack(WMPropList * style, char *themeName)
405 {
406 WMPropList *keys;
407 WMPropList *key;
408 WMPropList *value;
409 int i;
410 char *themeDir;
411
412 themeDir = wmalloc(strlen(themeName) + 50);
413 sprintf(themeDir, "%s.themed", themeName);
414 ThemePath = themeDir;
415 {
416 char *tmp;
417
418 tmp = wmalloc(strlen(themeDir) + 20);
419 sprintf(tmp, "/bin/mkdir \"%s\"", themeDir);
420 if (system(tmp) != 0) {
421 printf
422 ("%s: could not create directory %s. Probably there's already a theme with that name in this directory.\n",
423 ProgName, themeDir);
424 exit(1);
425 }
426 free(tmp);
427 }
428 keys = WMGetPLDictionaryKeys(style);
429
430 for (i = 0; i < WMGetPropListItemCount(keys); i++) {
431 key = WMGetFromPLArray(keys, i);
432
433 value = WMGetFromPLDictionary(style, key);
434 if (value && WMIsPLArray(value) && WMGetPropListItemCount(value) > 2) {
435 WMPropList *type;
436 char *t;
437
438 type = WMGetFromPLArray(value, 0);
439 t = WMGetFromPLString(type);
440 if (t == NULL)
441 continue;
442
443 if (strcasecmp(t, "tpixmap") == 0
444 || strcasecmp(t, "spixmap") == 0
445 || strcasecmp(t, "cpixmap") == 0
446 || strcasecmp(t, "mpixmap") == 0
447 || strcasecmp(t, "tdgradient") == 0
448 || strcasecmp(t, "tvgradient") == 0 || strcasecmp(t, "thgradient") == 0) {
449 WMPropList *file;
450 char *p;
451 char *newPath;
452
453 file = WMGetFromPLArray(value, 1);
454
455 p = strrchr(WMGetFromPLString(file), '/');
456 if (p) {
457 copyFile(themeDir, WMGetFromPLString(file));
458
459 newPath = wstrdup(p + 1);
460 WMDeleteFromPLArray(value, 1);
461 WMInsertInPLArray(value, 1, WMCreatePLString(newPath));
462 free(newPath);
463 } else {
464 findCopyFile(themeDir, WMGetFromPLString(file));
465 }
466 } else if (strcasecmp(t, "bitmap") == 0) {
467 WMPropList *file;
468 char *p;
469 char *newPath;
470
471 file = WMGetFromPLArray(value, 1);
472
473 p = strrchr(WMGetFromPLString(file), '/');
474 if (p) {
475 copyFile(themeDir, WMGetFromPLString(file));
476
477 newPath = wstrdup(p + 1);
478 WMDeleteFromPLArray(value, 1);
479 WMInsertInPLArray(value, 1, WMCreatePLString(newPath));
480 free(newPath);
481 } else {
482 findCopyFile(themeDir, WMGetFromPLString(file));
483 }
484
485 file = WMGetFromPLArray(value, 2);
486
487 p = strrchr(WMGetFromPLString(file), '/');
488 if (p) {
489 copyFile(themeDir, WMGetFromPLString(file));
490
491 newPath = wstrdup(p + 1);
492 WMDeleteFromPLArray(value, 2);
493 WMInsertInPLArray(value, 2, WMCreatePLString(newPath));
494 free(newPath);
495 } else {
496 findCopyFile(themeDir, WMGetFromPLString(file));
497 }
498 }
499 }
500 }
501
502 return themeDir;
503 }
504
505 int main(int argc, char **argv)
506 {
507 WMPropList *prop, *style, *key, *val;
508 char *path;
509 int i, theme_too = 0, make_pack = 0;
510 char *style_file = NULL;
511
512 ProgName = argv[0];
513
514 if (argc > 1) {
515 for (i = 1; i < argc; i++) {
516 if (strcmp(argv[i], "-p") == 0 || strcmp(argv[i], "--pack") == 0) {
517 make_pack = 1;
518 theme_too = 1;
519 } else if (strcmp(argv[i], "-t") == 0 || strcmp(argv[i], "--theme-options") == 0) {
520 theme_too++;
521 } else if (strcmp(argv[i], "--help") == 0) {
522 print_help();
523 exit(0);
524 } else if (strcmp(argv[i], "--version") == 0) {
525 puts(PROG_VERSION);
526 exit(0);
527 } else {
528 if (style_file != NULL) {
529 printf("%s: invalid argument '%s'\n", argv[0],
530 style_file[0] == '-' ? style_file : argv[i]);
531 printf("Try '%s --help' for more information\n", argv[0]);
532 exit(1);
533 }
534 style_file = argv[i];
535 }
536 }
537 }
538
539 if (make_pack && !style_file) {
540 printf("%s: you must supply a name for the theme pack\n", ProgName);
541 exit(1);
542 }
543
544 WMPLSetCaseSensitive(False);
545
546 path = defaultsPathForDomain("WindowMaker");
547
548 prop = WMReadPropListFromFile(path);
549 if (!prop) {
550 printf("%s:could not load WindowMaker configuration file \"%s\".\n", ProgName, path);
551 exit(1);
552 }
553
554 /* get global value */
555 path = globalDefaultsPathForDomain("WindowMaker");
556 val = WMReadPropListFromFile(path);
557 if (val) {
558 WMMergePLDictionaries(val, prop, True);
559 WMReleasePropList(prop);
560 prop = val;
561 }
562
563 style = WMCreatePLDictionary(NULL, NULL);
564
565 for (i = 0; options[i] != NULL; i++) {
566 key = WMCreatePLString(options[i]);
567
568 val = WMGetFromPLDictionary(prop, key);
569 if (val) {
570 WMRetainPropList(val);
571 if (isFontOption(options[i])) {
572 char *newfont, *oldfont;
573
574 oldfont = WMGetFromPLString(val);
575 newfont = convertFont(oldfont, False);
576 /* newfont is a reference to old if conversion is not needed */
577 if (newfont != oldfont) {
578 WMReleasePropList(val);
579 val = WMCreatePLString(newfont);
580 wfree(newfont);
581 }
582 }
583 WMPutInPLDictionary(style, key, val);
584 WMReleasePropList(val);
585 }
586 WMReleasePropList(key);
587 }
588
589 val = WMGetFromPLDictionary(prop, WMCreatePLString("PixmapPath"));
590 if (val)
591 PixmapPath = val;
592
593 if (theme_too) {
594 for (i = 0; theme_options[i] != NULL; i++) {
595 key = WMCreatePLString(theme_options[i]);
596
597 val = WMGetFromPLDictionary(prop, key);
598 if (val)
599 WMPutInPLDictionary(style, key, val);
600 }
601 }
602
603 if (make_pack) {
604 char *path;
605
606 makeThemePack(style, style_file);
607
608 path = wmalloc(strlen(ThemePath) + 32);
609 strcpy(path, ThemePath);
610 strcat(path, "/style");
611 WMWritePropListToFile(style, path, False);
612 wfree(path);
613 } else {
614 if (style_file) {
615 WMWritePropListToFile(style, style_file, False);
616 } else {
617 puts(WMGetPropListDescription(style, True));
618 }
619 }
620 exit(0);
621 }