add snapshot, igor exts, cleanup
[goodguy/history.git] / cinelerra-5.1 / guicast / bcresources.C
1
2 /*
3  * CINELERRA
4  * Copyright (C) 2009-2015 Adam Williams <broadcast at earthling dot net>
5  *
6  * This program is free software; you can redistribute it and/or modify
7  * it under the terms of the GNU General Public License as published by
8  * the Free Software Foundation; either version 2 of the License, or
9  * (at your option) any later version.
10  *
11  * This program is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  * GNU General Public License for more details.
15  *
16  * You should have received a copy of the GNU General Public License
17  * along with this program; if not, write to the Free Software
18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
19  *
20  */
21
22 #include "bcdisplayinfo.h"
23 #include "bcipc.h"
24 #include "bclistbox.inc"
25 #include "bcfontentry.h"
26 #include "bcresources.h"
27 #include "bcsignals.h"
28 #include "bcsynchronous.h"
29 #include "bcwindowbase.h"
30 #include "bccolors.h"
31 #include "bccmodels.h"
32 #include "cstrdup.h"
33 #include "fonts.h"
34 #include "language.h"
35 #include "vframe.h"
36
37 #include <string.h>
38 #include <iconv.h>
39 #include <sys/ipc.h>
40 #include <sys/shm.h>
41 #include <X11/extensions/XShm.h>
42 #include <fontconfig/fontconfig.h>
43 #include <fontconfig/fcfreetype.h>
44 #include <unistd.h>
45
46
47
48
49
50 int BC_Resources::error = 0;
51
52 VFrame* BC_Resources::bg_image = 0;
53 VFrame* BC_Resources::menu_bg = 0;
54
55 int BC_Resources::locale_utf8 = 0;
56 int BC_Resources::little_endian = 0;
57 char BC_Resources::language[LEN_LANG] = {0};
58 char BC_Resources::region[LEN_LANG] = {0};
59 char BC_Resources::encoding[LEN_ENCOD] = {0};
60 const char *BC_Resources::wide_encoding = 0;
61 ArrayList<BC_FontEntry*> *BC_Resources::fontlist = 0;
62 int BC_Resources::font_debug = 0;
63 const char *BC_Resources::fc_properties[] = { FC_SLANT, FC_WEIGHT, FC_WIDTH };
64 #define LEN_FCPROP (sizeof(BC_Resources::fc_properties) / sizeof(const char*))
65
66 static const char *def_small_font = "-*-helvetica-medium-r-normal-*-%d-*";  // 10
67 static const char *def_small_font2 = "-*-helvetica-medium-r-normal-*-%d-*"; // 11
68 static const char *def_medium_font = "-*-helvetica-bold-r-normal-*-%d-*";   // 14
69 static const char *def_medium_font2 = "-*-helvetica-bold-r-normal-*-%d-*";  // 14
70 static const char *def_large_font = "-*-helvetica-bold-r-normal-*-%d-*";    // 18
71 static const char *def_large_font2 = "-*-helvetica-bold-r-normal-*-%d-*";   // 20
72 static const char *def_big_font =
73   "-*-bitstream charter-bold-r-normal-*-*-0-%d-%d-p-0-iso8859-1"; // 160
74 static const char *def_big_font2 =
75   "-*-nimbus sans l-bold-r-normal-*-*-0-%d-%d-p-0-iso8859-1";     // 160
76 static const char *def_clock_font = "-*-helvetica-bold-r-normal-*-%d-*";      // 16
77 static const char *def_clock_font2 = "-*-helvetica-bold-r-normal-*-%d-*";     // 18
78 static const char *def_small_fontset =  "-*-helvetica-medium-r-normal-*-%d-*";// 10
79 static const char *def_medium_fontset = "-*-helvetica-bold-r-normal-*-%d-*";  // 14
80 static const char *def_large_fontset =  "-*-helvetica-bold-r-normal-*-%d-*";  // 18
81 static const char *def_big_fontset =    "-*-helvetica-bold-r-normal-*-%d-*";  // 24
82 static const char *def_clock_fontset = "-*-helvetica-bold-r-normal-*-%d-*";   // 16
83
84 static const char *def_small_font_xft = "Sans:pixelsize=%.4f";           // 10.6667
85 static const char *def_small_b_font_xft = "Sans:bold:pixelsize=%.4f";    // 10.6667
86 static const char *def_medium_font_xft = "Sans:pixelsize=%.4f";          // 13.3333
87 static const char *def_medium_b_font_xft = "Sans:bold:pixelsize=%.4f";   // 13.3333
88 static const char *def_large_font_xft = "Sans:pixelsize=%.4f";           // 21.3333
89 static const char *def_large_b_font_xft = "Sans:bold:pixelsize=%.4f";    // 21.3333
90 static const char *def_big_font_xft = "Sans:pixelsize=37.3333";          // 37.3333
91 static const char *def_big_b_font_xft = "Sans:bold:pixelsize=37.33333";  // 37.3333
92 static const char *def_clock_font_xft = "Sans:pixelsize=%.4f";           // 16
93
94 #define default_font_xft2 "-microsoft-verdana-*-*-*-*-*-*-*-*-*-*-*-*"
95
96 const char* BC_Resources::small_font = 0;
97 const char* BC_Resources::small_font2 = 0;
98 const char* BC_Resources::medium_font = 0;
99 const char* BC_Resources::medium_font2 = 0;
100 const char* BC_Resources::large_font = 0;
101 const char* BC_Resources::large_font2 = 0;
102 const char* BC_Resources::big_font = 0;
103 const char* BC_Resources::big_font2 = 0;
104 const char* BC_Resources::clock_font = 0;
105 const char* BC_Resources::clock_font2 = 0;
106 const char* BC_Resources::small_fontset = 0;
107 const char* BC_Resources::medium_fontset = 0;
108 const char* BC_Resources::large_fontset = 0;
109 const char* BC_Resources::big_fontset = 0;
110 const char* BC_Resources::clock_fontset = 0;
111 const char* BC_Resources::small_font_xft = 0;
112 const char* BC_Resources::small_font_xft2 = 0;
113 const char* BC_Resources::small_b_font_xft = 0;
114 const char* BC_Resources::medium_font_xft = 0;
115 const char* BC_Resources::medium_font_xft2 = 0;
116 const char* BC_Resources::medium_b_font_xft = 0;
117 const char* BC_Resources::large_font_xft = 0;
118 const char* BC_Resources::large_font_xft2 = 0;
119 const char* BC_Resources::large_b_font_xft = 0;
120 const char* BC_Resources::big_font_xft = 0;
121 const char* BC_Resources::big_font_xft2 = 0;
122 const char* BC_Resources::big_b_font_xft = 0;
123 const char* BC_Resources::clock_font_xft = 0;
124 const char* BC_Resources::clock_font_xft2 = 0;
125
126 #define def_font(v, s...) do { sprintf(string,def_##v,s); v = cstrdup(string); } while(0)
127 #define set_font(v, s) do { sprintf(string, "%s", s); v = cstrdup(string); } while(0)
128 #define iround(v) ((int)(v+0.5))
129 void BC_Resources::init_font_defs(double scale)
130 {
131         char string[BCTEXTLEN];
132         def_font(small_font,       iround(scale*11));
133         def_font(small_font2,      iround(scale*11));
134         def_font(medium_font,      iround(scale*14));
135         def_font(medium_font2,     iround(scale*14));
136         def_font(large_font,       iround(scale*18));
137         def_font(large_font2,      iround(scale*20));
138         def_font(big_font,         iround(scale*160), iround(scale*160));
139         def_font(big_font2,        iround(scale*16), iround(scale*16));
140         def_font(clock_font,       iround(scale*16));
141         def_font(clock_font2,      iround(scale*18));
142         def_font(small_fontset,    iround(scale*10));
143         def_font(medium_fontset,   iround(scale*14));
144         def_font(large_fontset,    iround(scale*18));
145         def_font(big_fontset,      iround(scale*24));
146         def_font(clock_fontset,    iround(scale*16));
147         def_font(small_font_xft,   (scale*10.6667));
148         def_font(small_b_font_xft, (scale*10.6667));
149         def_font(medium_font_xft,  (scale*13.3333));
150         def_font(medium_b_font_xft,(scale*13.3333));
151         def_font(large_font_xft,   (scale*21.3333));
152         def_font(large_b_font_xft, (scale*21.3333));
153         def_font(big_font_xft,     (scale*37.3333));
154         def_font(big_b_font_xft,   (scale*37.3333));
155         def_font(clock_font_xft,   (scale*16.));
156
157         set_font(small_font_xft2,  default_font_xft2);
158         set_font(medium_font_xft2, default_font_xft2);
159         set_font(large_font_xft2,  default_font_xft2);
160         set_font(big_font_xft2,    default_font_xft2);
161         set_font(clock_font_xft2,  default_font_xft2);
162 }
163 void BC_Resources::finit_font_defs()
164 {
165         delete [] small_font;
166         delete [] small_font2;
167         delete [] medium_font;
168         delete [] medium_font2;
169         delete [] large_font;
170         delete [] large_font2;
171         delete [] big_font;
172         delete [] big_font2;
173         delete [] clock_font;
174         delete [] clock_font2;
175         delete [] small_fontset;
176         delete [] medium_fontset;
177         delete [] large_fontset;
178         delete [] big_fontset;
179         delete [] clock_fontset;
180         delete [] small_font_xft;
181         delete [] small_b_font_xft;
182         delete [] medium_font_xft;
183         delete [] medium_b_font_xft;
184         delete [] large_font_xft;
185         delete [] large_b_font_xft;
186         delete [] big_font_xft;
187         delete [] big_b_font_xft;
188         delete [] clock_font_xft;
189
190         delete [] small_font_xft2;
191         delete [] medium_font_xft2;
192         delete [] large_font_xft2;
193         delete [] big_font_xft2;
194         delete [] clock_font_xft2;
195 }
196
197
198 suffix_to_type_t BC_Resources::suffix_to_type[] =
199 {
200     { "aac", ICON_SOUND },
201     { "ac3", ICON_SOUND },
202     { "dts", ICON_SOUND },
203     { "f4a", ICON_SOUND },
204     { "flac", ICON_SOUND },
205     { "m4a", ICON_SOUND },
206     { "mp2", ICON_SOUND },
207     { "mp3", ICON_SOUND },
208     { "mpc", ICON_SOUND },
209     { "oga", ICON_SOUND },
210     { "ogg", ICON_SOUND },
211     { "opus", ICON_SOUND },
212     { "ra", ICON_SOUND },
213     { "tta", ICON_SOUND },
214     { "vox", ICON_SOUND },
215     { "wav", ICON_SOUND },
216     { "wma", ICON_SOUND },
217     { "3gp", ICON_FILM },
218     { "avi", ICON_FILM },
219     { "bmp", ICON_FILM },
220     { "cr2", ICON_FILM },
221     { "dnxhd", ICON_FILM },
222     { "drc", ICON_FILM },
223     { "dv", ICON_FILM },
224     { "dvd", ICON_FILM },
225     { "exr", ICON_FILM },
226     { "f4v", ICON_FILM },
227     { "flv", ICON_FILM },
228     { "gif", ICON_FILM },
229     { "gxf", ICON_FILM },
230     { "h263", ICON_FILM },
231     { "h264", ICON_FILM },
232     { "h265", ICON_FILM },
233     { "hevc", ICON_FILM },
234     { "ifo", ICON_FILM },
235     { "jpeg", ICON_FILM },
236     { "jpg", ICON_FILM },
237     { "m2t", ICON_FILM },
238     { "m2ts", ICON_FILM },
239     { "m2v", ICON_FILM },
240     { "m4p", ICON_FILM },
241     { "m4v", ICON_FILM },
242     { "mkv", ICON_FILM },
243     { "mov", ICON_FILM },
244     { "mp4", ICON_FILM },
245     { "m4p", ICON_FILM },
246     { "mpe", ICON_FILM },
247     { "mpeg", ICON_FILM },
248     { "mpg", ICON_FILM },
249     { "mpv", ICON_FILM },
250     { "mts", ICON_FILM },
251     { "mxf", ICON_FILM },
252     { "ogv", ICON_FILM },
253     { "pcm", ICON_FILM },
254     { "pgm", ICON_FILM },
255     { "png", ICON_FILM },
256     { "ppm", ICON_FILM },
257     { "qt", ICON_FILM },
258     { "rm", ICON_FILM },
259     { "rmvb", ICON_FILM },
260     { "rv", ICON_FILM },
261     { "swf", ICON_FILM },
262     { "tif", ICON_FILM },
263     { "tiff", ICON_FILM },
264     { "ts",  ICON_FILM },
265     { "vob", ICON_FILM },
266     { "vts", ICON_FILM },
267     { "webm", ICON_FILM },
268     { "webp", ICON_FILM },
269     { "wmv", ICON_FILM },
270     { "xml", ICON_FILM },
271     { "y4m", ICON_FILM },
272     { 0, 0 },
273 };
274
275 BC_Signals* BC_Resources::signal_handler = 0;
276 Mutex BC_Resources::fontconfig_lock("BC_Resources::fonconfig_lock");
277
278 int BC_Resources::x_error_handler(Display *display, XErrorEvent *event)
279 {
280 #if defined(OUTPUT_X_ERROR)
281         char string[1024];
282         XGetErrorText(event->display, event->error_code, string, 1024);
283         fprintf(stderr, "BC_Resources::x_error_handler: error_code=%d opcode=%d,%d %s\n",
284                 event->error_code,
285                 event->request_code,
286                 event->minor_code,
287                 string);
288 #endif
289
290         BC_Resources::error = 1;
291 // This bug only happens in 32 bit mode.
292 //      if(sizeof(long) == 4)
293 //              BC_WindowBase::get_resources()->use_xft = 0;
294         return 0;
295 }
296
297 int BC_Resources::machine_cpus = 1;
298
299 int BC_Resources::get_machine_cpus()
300 {
301         int cpus = 1;
302         FILE *proc = fopen("/proc/cpuinfo", "r");
303         if( proc ) {
304                 char string[BCTEXTLEN], *cp;
305                 while(!feof(proc) && fgets(string, sizeof(string), proc) ) {
306                         if( !strncasecmp(string, "processor", 9) &&
307                             (cp = strchr(string, ':')) != 0 ) {
308                                 int n = atol(cp+1) + 1;
309                                 if( n > cpus ) cpus = n;
310                         }
311                         else if( !strncasecmp(string, "cpus detected", 13) &&
312                             (cp = strchr(string, ':')) != 0 )
313                                 cpus = atol(cp+1);
314                 }
315                 fclose(proc);
316         }
317         return cpus;
318 }
319
320 void BC_Resources::new_vframes(int n, VFrame *vframes[], ...)
321 {
322         va_list ap;
323         va_start(ap, vframes);
324         for( int i=0; i<n; ++i )
325                 vframes[i] = va_arg(ap, VFrame *);
326         va_end(ap);
327 }
328
329 VFrame *BC_Resources::default_type_to_icon[6] = { 0, };
330 VFrame *BC_Resources::default_bar = 0;
331 VFrame *BC_Resources::default_cancel_images[3] = { 0, };
332 VFrame *BC_Resources::default_ok_images[3] = { 0, };
333 VFrame *BC_Resources::default_usethis_images[3] = { 0, };
334 #if 0
335 VFrame *BC_Resources::default_checkbox_images[5] = { 0, };
336 VFrame *BC_Resources::default_radial_images[5] = { 0, };
337 VFrame *BC_Resources::default_label_images[5] = { 0, };
338 #endif
339 VFrame *BC_Resources::default_menuitem_data[3] = { 0, };
340 VFrame *BC_Resources::default_menubar_data[3] = { 0, };
341 VFrame *BC_Resources::default_menu_popup_bg = 0;
342 VFrame *BC_Resources::default_menu_bar_bg = 0;
343 VFrame *BC_Resources::default_check_image = 0;
344 VFrame *BC_Resources::default_filebox_text_images[3] = { 0, };
345 VFrame *BC_Resources::default_filebox_icons_images[3] = { 0, };
346 VFrame *BC_Resources::default_filebox_updir_images[3] = { 0, };
347 VFrame *BC_Resources::default_filebox_newfolder_images[3] = { 0, };
348 VFrame *BC_Resources::default_filebox_rename_images[3] = { 0, };
349 VFrame *BC_Resources::default_filebox_delete_images[3] = { 0, };
350 VFrame *BC_Resources::default_filebox_reload_images[3] = { 0, };
351 VFrame *BC_Resources::default_listbox_button[4] = { 0, };
352 VFrame *BC_Resources::default_listbox_bg = 0;
353 VFrame *BC_Resources::default_listbox_expand[5] = { 0, };
354 VFrame *BC_Resources::default_listbox_column[3] = { 0, };
355 VFrame *BC_Resources::default_listbox_up = 0;
356 VFrame *BC_Resources::default_listbox_dn = 0;
357 VFrame *BC_Resources::default_pot_images[3] = { 0, };
358 VFrame *BC_Resources::default_progress_images[2] = { 0, };
359 VFrame *BC_Resources::default_medium_7segment[20] = { 0, };
360
361 BC_Resources::BC_Resources()
362 {
363         synchronous = 0;
364         vframe_shm = 0;
365         double default_scale = 1.0; // display_size/1000.;
366         char *env = getenv("BC_FONT_DEBUG");
367         font_debug = env ? atoi(env) : 0;
368         env = getenv("BC_FONT_SCALE");
369         font_scale = env ? atof(env) : default_scale;
370         if( font_scale <= 0 ) font_scale = 1;
371         init_font_defs(font_scale);
372         env = getenv("BC_ICON_SCALE");
373         icon_scale = env ? atof(env) : default_scale;
374         if( icon_scale <= 0 ) icon_scale = 1;
375
376         id_lock = new Mutex("BC_Resources::id_lock");
377         create_window_lock = new Mutex("BC_Resources::create_window_lock", 1);
378         id = 0;
379         machine_cpus = get_machine_cpus();
380
381         for(int i = 0; i < FILEBOX_HISTORY_SIZE; i++)
382                 filebox_history[i].path[0] = 0;
383
384 #ifdef HAVE_XFT
385         XftInitFtLibrary();
386 #endif
387
388         little_endian = (*(const u_int32_t*)"\01\0\0\0") & 1;
389         wide_encoding = little_endian ?  "UTF32LE" : "UTF32BE";
390         use_xvideo = 1;
391
392 #include "images/file_folder_png.h"
393 #include "images/file_unknown_png.h"
394 #include "images/file_film_png.h"
395 #include "images/file_sound_png.h"
396 #include "images/file_label_png.h"
397 #include "images/file_column_png.h"
398 new_vframes(6,default_type_to_icon,
399         new VFramePng(file_folder_png),
400         new VFramePng(file_unknown_png),
401         new VFramePng(file_film_png),
402         new VFramePng(file_sound_png),
403         new VFramePng(file_label_png),
404         new VFramePng(file_column_png));
405
406 #include "images/bar_png.h"
407         default_bar = new VFramePng(bar_png);
408
409 #include "images/cancel_up_png.h"
410 #include "images/cancel_hi_png.h"
411 #include "images/cancel_dn_png.h"
412 new_vframes(3,default_cancel_images,
413         new VFramePng(cancel_up_png),
414         new VFramePng(cancel_hi_png),
415         new VFramePng(cancel_dn_png));
416
417 #include "images/ok_up_png.h"
418 #include "images/ok_hi_png.h"
419 #include "images/ok_dn_png.h"
420 new_vframes(3,default_ok_images,
421         new VFramePng(ok_up_png),
422         new VFramePng(ok_hi_png),
423         new VFramePng(ok_dn_png));
424
425 #include "images/usethis_up_png.h"
426 #include "images/usethis_uphi_png.h"
427 #include "images/usethis_dn_png.h"
428 new_vframes(3,default_usethis_images,
429         new VFramePng(usethis_up_png),
430         new VFramePng(usethis_uphi_png),
431         new VFramePng(usethis_dn_png));
432
433 #if 0
434 #include "images/checkbox_checked_png.h"
435 #include "images/checkbox_dn_png.h"
436 #include "images/checkbox_checkedhi_png.h"
437 #include "images/checkbox_up_png.h"
438 #include "images/checkbox_hi_png.h"
439 new_vframes(5,default_checkbox_images,
440         new VFramePng(checkbox_up_png),
441         new VFramePng(checkbox_hi_png),
442         new VFramePng(checkbox_checked_png),
443         new VFramePng(checkbox_dn_png),
444         new VFramePng(checkbox_checkedhi_png));
445
446 #include "images/radial_checked_png.h"
447 #include "images/radial_dn_png.h"
448 #include "images/radial_checkedhi_png.h"
449 #include "images/radial_up_png.h"
450 #include "images/radial_hi_png.h"
451 new_vframes(5,default_radial_images,
452         new VFramePng(radial_up_png),
453         new VFramePng(radial_hi_png),
454         new VFramePng(radial_checked_png),
455         new VFramePng(radial_dn_png),
456         new VFramePng(radial_checkedhi_png));
457
458 new_vframes(5,default_label_images,
459         new VFramePng(radial_up_png),
460         new VFramePng(radial_hi_png),
461         new VFramePng(radial_checked_png),
462         new VFramePng(radial_dn_png),
463         new VFramePng(radial_checkedhi_png));
464 #endif
465
466 #include "images/menuitem_up_png.h"
467 #include "images/menuitem_hi_png.h"
468 #include "images/menuitem_dn_png.h"
469 new_vframes(3,default_menuitem_data,
470         new VFramePng(menuitem_up_png),
471         new VFramePng(menuitem_hi_png),
472         new VFramePng(menuitem_dn_png));
473
474 #include "images/menubar_up_png.h"
475 #include "images/menubar_hi_png.h"
476 #include "images/menubar_dn_png.h"
477 new_vframes(3,default_menubar_data,
478         new VFramePng(menubar_up_png),
479         new VFramePng(menubar_hi_png),
480         new VFramePng(menubar_dn_png));
481
482 #include "images/menu_popup_bg_png.h"
483         default_menu_popup_bg = new VFramePng(menu_popup_bg_png);
484
485 #include "images/menubar_bg_png.h"
486         default_menu_bar_bg = new VFramePng(menubar_bg_png);
487
488 #include "images/check_png.h"
489         default_check_image = new VFramePng(check_png);
490
491 #include "images/file_text_up_png.h"
492 #include "images/file_text_hi_png.h"
493 #include "images/file_text_dn_png.h"
494 #include "images/file_icons_up_png.h"
495 #include "images/file_icons_hi_png.h"
496 #include "images/file_icons_dn_png.h"
497 #include "images/file_newfolder_up_png.h"
498 #include "images/file_newfolder_hi_png.h"
499 #include "images/file_newfolder_dn_png.h"
500 #include "images/file_rename_up_png.h"
501 #include "images/file_rename_hi_png.h"
502 #include "images/file_rename_dn_png.h"
503 #include "images/file_updir_up_png.h"
504 #include "images/file_updir_hi_png.h"
505 #include "images/file_updir_dn_png.h"
506 #include "images/file_delete_up_png.h"
507 #include "images/file_delete_hi_png.h"
508 #include "images/file_delete_dn_png.h"
509 #include "images/file_reload_up_png.h"
510 #include "images/file_reload_hi_png.h"
511 #include "images/file_reload_dn_png.h"
512 new_vframes(3,default_filebox_text_images,
513         new VFramePng(file_text_up_png),
514         new VFramePng(file_text_hi_png),
515         new VFramePng(file_text_dn_png));
516
517 new_vframes(3,default_filebox_icons_images,
518         new VFramePng(file_icons_up_png),
519         new VFramePng(file_icons_hi_png),
520         new VFramePng(file_icons_dn_png));
521
522 new_vframes(3,default_filebox_updir_images,
523         new VFramePng(file_updir_up_png),
524         new VFramePng(file_updir_hi_png),
525         new VFramePng(file_updir_dn_png));
526
527 new_vframes(3,default_filebox_newfolder_images,
528         new VFramePng(file_newfolder_up_png),
529         new VFramePng(file_newfolder_hi_png),
530         new VFramePng(file_newfolder_dn_png));
531
532 new_vframes(3,default_filebox_rename_images,
533         new VFramePng(file_rename_up_png),
534         new VFramePng(file_rename_hi_png),
535         new VFramePng(file_rename_dn_png));
536
537 new_vframes(3,default_filebox_delete_images,
538         new VFramePng(file_delete_up_png),
539         new VFramePng(file_delete_hi_png),
540         new VFramePng(file_delete_dn_png));
541
542 new_vframes(3,default_filebox_reload_images,
543         new VFramePng(file_reload_up_png),
544         new VFramePng(file_reload_hi_png),
545         new VFramePng(file_reload_dn_png));
546
547 #include "images/listbox_button_dn_png.h"
548 #include "images/listbox_button_hi_png.h"
549 #include "images/listbox_button_up_png.h"
550 #include "images/listbox_button_disabled_png.h"
551 new_vframes(4,default_listbox_button,
552         new VFramePng(listbox_button_up_png),
553         new VFramePng(listbox_button_hi_png),
554         new VFramePng(listbox_button_dn_png),
555         new VFramePng(listbox_button_disabled_png));
556
557 default_listbox_bg = 0;
558
559 #include "images/listbox_expandchecked_png.h"
560 #include "images/listbox_expandcheckedhi_png.h"
561 #include "images/listbox_expanddn_png.h"
562 #include "images/listbox_expandup_png.h"
563 #include "images/listbox_expanduphi_png.h"
564 new_vframes(5,default_listbox_expand,
565         new VFramePng(listbox_expandup_png),
566         new VFramePng(listbox_expanduphi_png),
567         new VFramePng(listbox_expandchecked_png),
568         new VFramePng(listbox_expanddn_png),
569         new VFramePng(listbox_expandcheckedhi_png));
570
571 #include "images/listbox_columnup_png.h"
572 #include "images/listbox_columnhi_png.h"
573 #include "images/listbox_columndn_png.h"
574 new_vframes(3,default_listbox_column,
575         new VFramePng(listbox_columnup_png),
576         new VFramePng(listbox_columnhi_png),
577         new VFramePng(listbox_columndn_png));
578
579 #include "images/listbox_up_png.h"
580         default_listbox_up = new VFramePng(listbox_up_png);
581
582 #include "images/listbox_dn_png.h"
583         default_listbox_dn = new VFramePng(listbox_dn_png);
584
585 #include "images/pot_hi_png.h"
586 #include "images/pot_up_png.h"
587 #include "images/pot_dn_png.h"
588 new_vframes(3,default_pot_images,
589         new VFramePng(pot_up_png),
590         new VFramePng(pot_hi_png),
591         new VFramePng(pot_dn_png));
592
593 #include "images/progress_up_png.h"
594 #include "images/progress_hi_png.h"
595 new_vframes(2,default_progress_images,
596         new VFramePng(progress_up_png),
597         new VFramePng(progress_hi_png));
598
599 #include "images/7seg_small/0_png.h"
600 #include "images/7seg_small/1_png.h"
601 #include "images/7seg_small/2_png.h"
602 #include "images/7seg_small/3_png.h"
603 #include "images/7seg_small/4_png.h"
604 #include "images/7seg_small/5_png.h"
605 #include "images/7seg_small/6_png.h"
606 #include "images/7seg_small/7_png.h"
607 #include "images/7seg_small/8_png.h"
608 #include "images/7seg_small/9_png.h"
609 #include "images/7seg_small/colon_png.h"
610 #include "images/7seg_small/period_png.h"
611 #include "images/7seg_small/a_png.h"
612 #include "images/7seg_small/b_png.h"
613 #include "images/7seg_small/c_png.h"
614 #include "images/7seg_small/d_png.h"
615 #include "images/7seg_small/e_png.h"
616 #include "images/7seg_small/f_png.h"
617 #include "images/7seg_small/space_png.h"
618 #include "images/7seg_small/dash_png.h"
619 new_vframes(20,default_medium_7segment,
620         new VFramePng(_0_png),
621         new VFramePng(_1_png),
622         new VFramePng(_2_png),
623         new VFramePng(_3_png),
624         new VFramePng(_4_png),
625         new VFramePng(_5_png),
626         new VFramePng(_6_png),
627         new VFramePng(_7_png),
628         new VFramePng(_8_png),
629         new VFramePng(_9_png),
630         new VFramePng(colon_png),
631         new VFramePng(period_png),
632         new VFramePng(a_png),
633         new VFramePng(b_png),
634         new VFramePng(c_png),
635         new VFramePng(d_png),
636         new VFramePng(e_png),
637         new VFramePng(f_png),
638         new VFramePng(space_png),
639         new VFramePng(dash_png));
640
641         type_to_icon = default_type_to_icon;
642         bar_data = default_bar;
643         check = default_check_image;
644         listbox_button = default_listbox_button;
645         listbox_bg = default_listbox_bg;
646         listbox_expand = default_listbox_expand;
647         listbox_column = default_listbox_column;
648         listbox_up = default_listbox_up;
649         listbox_dn = default_listbox_dn;
650         listbox_title_overlap = 0;
651         listbox_title_margin = 0;
652         listbox_title_color = BLACK;
653         listbox_title_hotspot = 5;
654
655         listbox_border1 = DKGREY;
656         listbox_border2_hi = RED;
657         listbox_border2 = BLACK;
658         listbox_border3_hi = RED;
659         listbox_border3 = MEGREY;
660         listbox_border4 = WHITE;
661         listbox_selected = BLUE;
662         listbox_highlighted = LTGREY;
663         listbox_inactive = WHITE;
664         listbox_text = BLACK;
665
666         pan_data = 0;
667         pan_text_color = YELLOW;
668
669         generic_button_margin = 15;
670         draw_clock_background=1;
671
672         use_shm = -1;
673         shm_reply = 1;
674
675 // Initialize
676         bg_color = ORANGE;
677         bg_shadow1 = DKGREY;
678         bg_shadow2 = BLACK;
679         bg_light1 = WHITE;
680         bg_light2 = bg_color;
681
682
683         border_light1 = bg_color;
684         border_light2 = MEGREY;
685         border_shadow1 = BLACK;
686         border_shadow2 = bg_color;
687
688         default_text_color = BLACK;
689         disabled_text_color = DMGREY;
690
691         button_light = MEGREY;           // bright corner
692 //      button_highlighted = LTGREY;  // face when highlighted
693         button_highlighted = 0xffe000;  // face when highlighted
694         button_down = MDGREY;         // face when down
695 //      button_up = MEGREY;           // face when up
696         button_up = 0xffc000;           // face when up
697         button_shadow = BLACK;       // dark corner
698         button_uphighlighted = RED;   // upper side when highlighted
699
700         tumble_data = 0;
701         tumble_duration = 150;
702
703         ok_images = default_ok_images;
704         cancel_images = default_cancel_images;
705         usethis_button_images = default_usethis_images;
706         filebox_descend_images = default_ok_images;
707
708         menu_light = LTCYAN;
709         menu_highlighted = LTBLUE;
710         menu_down = MDCYAN;
711         menu_up = MECYAN;
712         menu_shadow = DKCYAN;
713
714         menu_title_bg = default_menubar_data;
715         menu_popup_bg = default_menu_popup_bg;
716         menu_bar_bg = default_menu_bar_bg;
717
718         popupmenu_images = 0;
719
720
721         popupmenu_margin = 10;
722         popupmenu_btnup = 1;
723         popupmenu_triangle_margin = 10;
724
725         min_menu_w = 0;
726         menu_title_text = BLACK;
727         popup_title_text = BLACK;
728         menu_item_text = BLACK;
729         menu_highlighted_fontcolor = BLACK;
730         progress_text = BLACK;
731         grab_input_focus = 1;
732
733         text_default = BLACK;
734         highlight_inverse = WHITE ^ BLUE;
735         text_background = WHITE;
736         text_background_hi = LTYELLOW;
737         text_background_noborder_hi = LTGREY;
738         text_background_noborder = -1;
739         text_border1 = DKGREY;
740         text_border2 = BLACK;
741         text_border2_hi = RED;
742         text_border3 = MEGREY;
743         text_border3_hi = LTPINK;
744         text_border4 = WHITE;
745         text_highlight = BLUE;
746         text_selected_highlight = SLBLUE;
747         text_inactive_highlight = MEGREY;
748
749         toggle_highlight_bg = 0;
750         toggle_text_margin = 0;
751
752 // Delays must all be different for repeaters
753         double_click = 300;
754         blink_rate = 250;
755         scroll_repeat = 150;
756         tooltip_delay = 1000;
757         tooltip_bg_color = YELLOW;
758         tooltips_enabled = 1;
759         textbox_focus_policy = 0;
760
761         filebox_margin = 110;
762         dirbox_margin = 90;
763         filebox_mode = LISTBOX_TEXT;
764         sprintf(filebox_filter, "*");
765         filebox_w = 640;
766         filebox_h = 480;
767         filebox_columntype[0] = FILEBOX_NAME;
768         filebox_columntype[1] = FILEBOX_SIZE;
769         filebox_columntype[2] = FILEBOX_DATE;
770         filebox_columntype[3] = FILEBOX_EXTENSION;
771         filebox_columnwidth[0] = 200;
772         filebox_columnwidth[1] = 100;
773         filebox_columnwidth[2] = 100;
774         filebox_columnwidth[3] = 100;
775         dirbox_columntype[0] = FILEBOX_NAME;
776         dirbox_columntype[1] = FILEBOX_DATE;
777         dirbox_columnwidth[0] = 200;
778         dirbox_columnwidth[1] = 100;
779
780         filebox_text_images = default_filebox_text_images;
781         filebox_icons_images = default_filebox_icons_images;
782         filebox_updir_images = default_filebox_updir_images;
783         filebox_newfolder_images = default_filebox_newfolder_images;
784         filebox_rename_images = default_filebox_rename_images;
785         filebox_delete_images = default_filebox_delete_images;
786         filebox_reload_images = default_filebox_reload_images;
787         directory_color = BLUE;
788         file_color = BLACK;
789
790         filebox_sortcolumn = 0;
791         filebox_sortorder = BC_ListBox::SORT_ASCENDING;
792         dirbox_sortcolumn = 0;
793         dirbox_sortorder = BC_ListBox::SORT_ASCENDING;
794
795
796         pot_images = default_pot_images;
797         pot_offset = 2;
798         pot_x1 = pot_images[0]->get_w() / 2 - pot_offset;
799         pot_y1 = pot_images[0]->get_h() / 2 - pot_offset;
800         pot_r = pot_x1;
801         pot_needle_color = BLACK;
802
803         progress_images = default_progress_images;
804
805         xmeter_images = 0;
806         ymeter_images = 0;
807         meter_font = SMALLFONT_3D;
808         meter_font_color = RED;
809         meter_title_w = 20;
810         meter_3d = 1;
811         medium_7segment = default_medium_7segment;
812
813         audiovideo_color = RED;
814
815         use_fontset = 0;
816
817 // Xft has priority over font set
818 #ifdef HAVE_XFT
819 // But Xft dies in 32 bit mode after some amount of drawing.
820         use_xft = 1;
821 #else
822         use_xft = 0;
823 #endif
824
825
826         drag_radius = 10;
827         recursive_resizing = 1;
828
829
830 }
831
832 void BC_Resources::del_vframes(VFrame *vframes[], int n)
833 {
834         while( --n >= 0 ) delete vframes[n];
835 }
836
837 BC_Resources::~BC_Resources()
838 {
839         delete id_lock;
840         delete create_window_lock;
841         del_vframes(default_type_to_icon, 6);
842         delete default_bar;
843         del_vframes(default_cancel_images, 3);
844         del_vframes(default_ok_images, 3);
845         del_vframes(default_usethis_images, 3);
846 #if 0
847         del_vframes(default_checkbox_images, 5);
848         del_vframes(default_radial_images, 5);
849         del_vframes(default_label_images, 5);
850 #endif
851         del_vframes(default_menuitem_data, 3);
852         del_vframes(default_menubar_data, 3);
853         delete default_menu_popup_bg;
854         delete default_menu_bar_bg;
855         delete default_check_image;
856         del_vframes(default_filebox_text_images, 3);
857         del_vframes(default_filebox_icons_images, 3);
858         del_vframes(default_filebox_updir_images, 3);
859         del_vframes(default_filebox_newfolder_images, 3);
860         del_vframes(default_filebox_rename_images, 3);
861         del_vframes(default_filebox_delete_images, 3);
862         del_vframes(default_filebox_reload_images, 3);
863         del_vframes(default_listbox_button, 4);
864         delete default_listbox_bg;
865         del_vframes(default_listbox_expand, 5);
866         del_vframes(default_listbox_column, 3);
867         delete default_listbox_up;
868         delete default_listbox_dn;
869         del_vframes(default_pot_images, 3);
870         del_vframes(default_progress_images, 2);
871         del_vframes(default_medium_7segment, 20);
872         if( fontlist ) {
873                 fontlist->remove_all_objects();
874                 delete fontlist;
875         }
876         finit_font_defs();
877 }
878
879 int BC_Resources::initialize_display(BC_WindowBase *window)
880 {
881 // Set up IPC cleanup handlers
882 //      bc_init_ipc();
883
884 // Test for shm.  Must come before yuv test
885         init_shm(window);
886         return 0;
887 }
888
889
890 void BC_Resources::init_shm(BC_WindowBase *window)
891 {
892         use_shm = 0;
893         int (*old_handler)(Display *, XErrorEvent *) =
894                 XSetErrorHandler(BC_Resources::x_error_handler);
895
896         if(XShmQueryExtension(window->display))
897         {
898                 XShmSegmentInfo test_shm;
899                 memset(&test_shm,0,sizeof(test_shm));
900                 XImage *test_image = XShmCreateImage(window->display, window->vis,
901                         window->default_depth, ZPixmap, (char*)NULL, &test_shm, 5, 5);
902                 BC_Resources::error = 0;
903                 test_shm.shmid = shmget(IPC_PRIVATE, 5 * test_image->bytes_per_line, (IPC_CREAT | 0600));
904                 if(test_shm.shmid != -1) {
905                         char *data = (char *)shmat(test_shm.shmid, NULL, 0);
906                         if(data != (void *)-1) {
907                                 shmctl(test_shm.shmid, IPC_RMID, 0);
908                                 test_shm.shmaddr = data;
909                                 test_shm.readOnly = 0;
910
911                                 if(XShmAttach(window->display, &test_shm)) {
912                                         XSync(window->display, False);
913                                         use_shm = 1;
914                                 }
915                                 shmdt(data);
916                         }
917                 }
918
919                 XDestroyImage(test_image);
920                 if(BC_Resources::error) use_shm = 0;
921         }
922         XSetErrorHandler(old_handler);
923 }
924
925
926
927
928 BC_Synchronous* BC_Resources::get_synchronous()
929 {
930         return synchronous;
931 }
932
933 void BC_Resources::set_synchronous(BC_Synchronous *synchronous)
934 {
935         this->synchronous = synchronous;
936 }
937
938
939
940
941 int BC_Resources::get_bg_color() { return bg_color; }
942
943 int BC_Resources::get_bg_shadow1() { return bg_shadow1; }
944
945 int BC_Resources::get_bg_shadow2() { return bg_shadow2; }
946
947 int BC_Resources::get_bg_light1() { return bg_light1; }
948
949 int BC_Resources::get_bg_light2() { return bg_light2; }
950
951
952 int BC_Resources::get_id()
953 {
954         id_lock->lock("BC_Resources::get_id");
955         int result = id++;
956         id_lock->unlock();
957         return result;
958 }
959
960 int BC_Resources::get_filebox_id()
961 {
962         id_lock->lock("BC_Resources::get_filebox_id");
963         int result = filebox_id++;
964         id_lock->unlock();
965         return result;
966 }
967
968
969 void BC_Resources::set_signals(BC_Signals *signal_handler)
970 {
971         BC_Resources::signal_handler = signal_handler;
972 }
973
974 int BC_Resources::init_fontconfig(const char *search_path)
975 {
976         if( fontlist ) return 0;
977         fontlist = new ArrayList<BC_FontEntry*>;
978
979 #define get_str(str,sep,ptr,cond) do { char *out = str; \
980   while( *ptr && !strchr(sep,*ptr) && (cond) ) *out++ = *ptr++; \
981   *out = 0; \
982 } while(0)
983
984 #define skip_str(sep, ptr) do { \
985   while( *ptr && strchr(sep,*ptr) ) ++ptr; \
986 } while(0)
987
988         char find_command[BCTEXTLEN];
989         char *fp = find_command, *ep = fp+sizeof(find_command)-1;
990         fp += snprintf(fp, ep-fp, "%s", "find");
991         const char *bc_font_path = getenv("BC_FONT_PATH");
992 // if BC_FONT_PATH starts with ':', omit default path
993         if( !(bc_font_path && bc_font_path[0] == ':') )
994                 fp += snprintf(fp, ep-fp, " '%s'", search_path);
995         if( bc_font_path ) {
996                 const char *path = bc_font_path;
997                 while( *path ) {
998                         char font_path[BCTEXTLEN];
999                         const char *cp = strchr(path,':');
1000                         int len = !cp ? strlen(path) : cp-path;
1001                         if( len > 0 ) {
1002                                 memcpy(font_path, path, len);
1003                                 font_path[len] = 0;  path += len;
1004                                 fp += snprintf(fp, ep-fp, " '%s'", font_path);
1005                         }
1006                         if( cp ) ++path;
1007                 }
1008         }
1009         fp += snprintf(fp, ep-fp, " -name 'fonts.scale' -print -exec cat {} \\;");
1010         FILE *in = popen(find_command, "r");
1011
1012         FT_Library freetype_library = 0;
1013 //      FT_Face freetype_face = 0;
1014 //      FT_Init_FreeType(&freetype_library);
1015
1016         char line[BCTEXTLEN], current_dir[BCTEXTLEN];
1017         current_dir[0] = 0;
1018
1019         while( !feof(in) && fgets(line, BCTEXTLEN, in) ) {
1020                 if(!strlen(line)) break;
1021
1022                 char *in_ptr = line;
1023
1024 // Get current directory
1025                 if(line[0] == '/') {
1026                         get_str(current_dir, "\n", in_ptr,1);
1027                         for( int i=strlen(current_dir); --i>=0 && current_dir[i]!='/'; )
1028                                 current_dir[i] = 0;
1029                         continue;
1030                 }
1031
1032 //printf("TitleMain::build_fonts %s\n", line);
1033                 BC_FontEntry *entry = new BC_FontEntry;
1034                 char string[BCTEXTLEN];
1035 // Path
1036                 get_str(string, "\n", in_ptr, in_ptr[0]!=' ' || in_ptr[1]!='-');
1037                 entry->path = cstrcat(2, current_dir, string);
1038 // Foundary
1039                 skip_str(" -", in_ptr);
1040                 get_str(string, "-\n", in_ptr, 1);
1041                 if( !string[0] ) { delete entry;  continue; }
1042                 entry->foundry = cstrdup(string);
1043                 if(*in_ptr == '-') in_ptr++;
1044 // Family
1045                 get_str(string, "-\n", in_ptr, 1);
1046                 if( !string[0] ) { delete entry;  continue; }
1047                 entry->family = cstrdup(string);
1048                 if(*in_ptr == '-') in_ptr++;
1049 // Weight
1050                 get_str(string, "-\n", in_ptr, 1);
1051                 entry->weight = cstrdup(string);
1052                 if(*in_ptr == '-') in_ptr++;
1053 // Slant
1054                 get_str(string, "-\n", in_ptr, 1);
1055                 entry->slant = cstrdup(string);
1056                 if(*in_ptr == '-') in_ptr++;
1057 // SWidth
1058                 get_str(string, "-\n", in_ptr, 1);
1059                 entry->swidth = cstrdup(string);
1060                 if(*in_ptr == '-') in_ptr++;
1061 // Adstyle
1062                 get_str(string, "-\n", in_ptr, 1);
1063                 entry->adstyle = cstrdup(string);
1064                 if(*in_ptr == '-') in_ptr++;
1065 // pixelsize
1066                 get_str(string, "-\n", in_ptr, 1);
1067                 entry->pixelsize = atol(string);
1068                 if(*in_ptr == '-') in_ptr++;
1069 // pointsize
1070                 get_str(string, "-\n", in_ptr, 1);
1071                 entry->pointsize = atol(string);
1072                 if(*in_ptr == '-') in_ptr++;
1073 // xres
1074                 get_str(string, "-\n", in_ptr, 1);
1075                 entry->xres = atol(string);
1076                 if(*in_ptr == '-') in_ptr++;
1077 // yres
1078                 get_str(string, "-\n", in_ptr, 1);
1079                 entry->yres = atol(string);
1080                 if(*in_ptr == '-') in_ptr++;
1081 // spacing
1082                 get_str(string, "-\n", in_ptr, 1);
1083                 entry->spacing = cstrdup(string);
1084                 if(*in_ptr == '-') in_ptr++;
1085 // avg_width
1086                 get_str(string, "-\n", in_ptr, 1);
1087                 entry->avg_width = atol(string);
1088                 if(*in_ptr == '-') in_ptr++;
1089 // registry
1090                 get_str(string, "-\n", in_ptr, 1);
1091                 entry->registry = cstrdup(string);
1092                 if(*in_ptr == '-') in_ptr++;
1093 // encoding
1094                 get_str(string, "-\n", in_ptr, 1);
1095                 entry->encoding = cstrdup(string);
1096                 if(*in_ptr == '-') in_ptr++;
1097
1098 // Add to list
1099 //printf("TitleMain::build_fonts 1 %s\n", entry->path);
1100 // This takes a real long time to do.  Instead just take all fonts
1101 //              if(!load_freetype_face(freetype_library,
1102 //                      freetype_face, entry->path) )
1103 // Fix parameters
1104                 sprintf(line, "%s (%s)", entry->family, entry->foundry);
1105                 entry->displayname = cstrdup(line);
1106
1107                 if(!strcasecmp(entry->weight, "demibold")) {
1108                         entry->fixed_style |= BC_FONT_BOLD;
1109                         entry->style |= FL_WEIGHT_DEMIBOLD;
1110                 }
1111                 else if(!strcasecmp(entry->weight, "bold")) {
1112                         entry->fixed_style |= BC_FONT_BOLD;
1113                         entry->style |= FL_WEIGHT_BOLD;
1114                 }
1115                 else {
1116                         entry->style |= FL_WEIGHT_NORMAL;
1117                 }
1118
1119                 if(!strcasecmp(entry->slant, "r")) {
1120                         entry->style |= FL_SLANT_ROMAN;
1121                 }
1122                 else if(!strcasecmp(entry->slant, "i")) {
1123                         entry->style |= FL_SLANT_ITALIC;
1124                         entry->fixed_style |= BC_FONT_ITALIC;
1125                 }
1126                 else if(!strcasecmp(entry->slant, "o")) {
1127                         entry->style |= FL_SLANT_OBLIQUE;
1128                         entry->fixed_style |= BC_FONT_ITALIC;
1129                 }
1130
1131                 if(!strcasecmp(entry->swidth, "normal"))
1132                         entry->style |= FL_WIDTH_NORMAL;
1133                 else if(!strcasecmp(entry->swidth, "ultracondensed"))
1134                         entry->style |= FL_WIDTH_ULTRACONDENSED;
1135                 else if(!strcasecmp(entry->swidth, "extracondensed"))
1136                         entry->style |= FL_WIDTH_EXTRACONDENSED;
1137                 else if(!strcasecmp(entry->swidth, "condensed"))
1138                         entry->style |= FL_WIDTH_CONDENSED;
1139                 else if(!strcasecmp(entry->swidth, "semicondensed"))
1140                         entry->style |= FL_WIDTH_SEMICONDENSED;
1141                 else if(!strcasecmp(entry->swidth, "semiexpanded"))
1142                         entry->style |= FL_WIDTH_SEMIEXPANDED;
1143                 else if(!strcasecmp(entry->swidth, "expanded"))
1144                         entry->style |= FL_WIDTH_EXPANDED;
1145                 else if(!strcasecmp(entry->swidth, "extraexpanded"))
1146                         entry->style |= FL_WIDTH_EXTRAEXPANDED;
1147                 else if(!strcasecmp(entry->swidth, "ultraexpanded"))
1148                         entry->style |= FL_WIDTH_ULTRAEXPANDED;
1149                 else
1150                         entry->style |= FL_WIDTH_NORMAL;
1151
1152                 fontlist->append(entry);
1153                 if( font_debug )
1154                         dump_font_entry(stdout, "font 0: ", entry);
1155
1156 //              printf("TitleMain::build_fonts %s: success\n",  entry->path);
1157 //printf("TitleMain::build_fonts 2\n");
1158         }
1159         pclose(in);
1160
1161         if( bc_font_path && bc_font_path[0] == ':' )
1162                 return 0;
1163
1164 // Load all the fonts from fontconfig
1165         FcPattern *pat;
1166         FcFontSet *fs;
1167         FcObjectSet *os;
1168         FcChar8 *family, *file, *foundry, *style, *format;
1169         int slant, spacing, width, weight;
1170         int force_style = 0;
1171 // if you want limit search to TrueType put 1
1172         int limit_to_trutype = 1;
1173         FcConfig *config;
1174         int i;
1175         char tmpstring[BCTEXTLEN];
1176         if(!FcInit())
1177                 return 1;
1178         config = FcConfigGetCurrent();
1179         FcConfigSetRescanInterval(config, 0);
1180
1181         pat = FcPatternCreate();
1182         os = FcObjectSetBuild ( FC_FAMILY, FC_FILE, FC_FOUNDRY, FC_WEIGHT,
1183                 FC_WIDTH, FC_SLANT, FC_FONTFORMAT, FC_SPACING, FC_STYLE, (char *) 0);
1184         FcPatternAddBool(pat, FC_SCALABLE, true);
1185
1186         if(language[0]) {
1187                 char langstr[LEN_LANG * 3];
1188                 strcpy(langstr, language);
1189
1190                 if(region[0]) {
1191                         strcat(langstr, "-");
1192                         strcat(langstr, region);
1193                 }
1194
1195                 FcLangSet *ls =  FcLangSetCreate();
1196                 if(FcLangSetAdd(ls, (const FcChar8*)langstr))
1197                 if(FcPatternAddLangSet(pat, FC_LANG, ls))
1198                 FcLangSetDestroy(ls);
1199         }
1200
1201         fs = FcFontList(config, pat, os);
1202         FcPatternDestroy(pat);
1203         FcObjectSetDestroy(os);
1204
1205         for (i = 0; fs && i < fs->nfont; i++) {
1206                 FcPattern *font = fs->fonts[i];
1207                 force_style = 0;
1208                 FcPatternGetString(font, FC_FONTFORMAT, 0, &format);
1209                 //on this point you can limit font search
1210                 if(limit_to_trutype && strcmp((char *)format, "TrueType"))
1211                         continue;
1212
1213                 sprintf(tmpstring, "%s", format);
1214                 BC_FontEntry *entry = new BC_FontEntry;
1215                 if(FcPatternGetString(font, FC_FILE, 0, &file) == FcResultMatch) {
1216                         entry->path = cstrdup((char*)file);
1217                 }
1218
1219                 if(FcPatternGetString(font, FC_FOUNDRY, 0, &foundry) == FcResultMatch) {
1220                         entry->foundry = cstrdup((char*)foundry);
1221                 }
1222
1223                 if(FcPatternGetInteger(font, FC_WEIGHT, 0, &weight) == FcResultMatch) {
1224                         switch(weight) {
1225                         case FC_WEIGHT_THIN:
1226                         case FC_WEIGHT_EXTRALIGHT:
1227                         case FC_WEIGHT_LIGHT:
1228                         case FC_WEIGHT_BOOK:
1229                                 force_style = 1;
1230                                 entry->weight = cstrdup("medium");
1231                                 break;
1232
1233                         case FC_WEIGHT_NORMAL:
1234                         case FC_WEIGHT_MEDIUM:
1235                         default:
1236                                 entry->weight = cstrdup("medium");
1237                                 break;
1238
1239                         case FC_WEIGHT_BLACK:
1240                         case FC_WEIGHT_SEMIBOLD:
1241                         case FC_WEIGHT_BOLD:
1242                                 entry->weight = cstrdup("bold");
1243                                 entry->fixed_style |= BC_FONT_BOLD;
1244                                 break;
1245
1246                         case FC_WEIGHT_EXTRABOLD:
1247                         case FC_WEIGHT_EXTRABLACK:
1248                                 force_style = 1;
1249                                 entry->weight = cstrdup("bold");
1250                                 entry->fixed_style |= BC_FONT_BOLD;
1251                                 break;
1252                         }
1253                 }
1254
1255                 if(FcPatternGetString(font, FC_FAMILY, 0, &family) == FcResultMatch)
1256                         entry->family = cstrdup((char*)family);
1257
1258                 if(FcPatternGetInteger(font, FC_SLANT, 0, &slant) == FcResultMatch) {
1259                         switch(slant) {
1260                         case FC_SLANT_ROMAN:
1261                         default:
1262                                 entry->slant = cstrdup("r");
1263                                 entry->style |= FL_SLANT_ROMAN;
1264                                 break;
1265                         case FC_SLANT_ITALIC:
1266                                 entry->slant = cstrdup("i");
1267                                 entry->style |= FL_SLANT_ITALIC;
1268                                 entry->fixed_style |= BC_FONT_ITALIC;
1269                                 break;
1270                         case FC_SLANT_OBLIQUE:
1271                                 entry->slant = cstrdup("o");
1272                                 entry->style |= FL_SLANT_OBLIQUE;
1273                                 entry->fixed_style |= BC_FONT_ITALIC;
1274                                 break;
1275                         }
1276                 }
1277
1278                 if(FcPatternGetInteger(font, FC_WIDTH, 0, &width) == FcResultMatch) {
1279                         switch(width) {
1280                         case FC_WIDTH_ULTRACONDENSED:
1281                                 entry->swidth = cstrdup("ultracondensed");
1282                                 break;
1283
1284                         case FC_WIDTH_EXTRACONDENSED:
1285                                 entry->swidth = cstrdup("extracondensed");
1286                                 break;
1287
1288                         case FC_WIDTH_CONDENSED:
1289                                 entry->swidth = cstrdup("condensed");
1290                                 break;
1291                         case FC_WIDTH_SEMICONDENSED:
1292                                 entry->swidth = cstrdup("semicondensed");
1293                                 break;
1294
1295                         case FC_WIDTH_NORMAL:
1296                         default:
1297                                 entry->swidth = cstrdup("normal");
1298                                 break;
1299
1300                         case FC_WIDTH_SEMIEXPANDED:
1301                                 entry->swidth = cstrdup("semiexpanded");
1302                                 break;
1303
1304                         case FC_WIDTH_EXPANDED:
1305                                 entry->swidth = cstrdup("expanded");
1306                                 break;
1307
1308                         case FC_WIDTH_EXTRAEXPANDED:
1309                                 entry->swidth = cstrdup("extraexpanded");
1310                                 break;
1311
1312                         case FC_WIDTH_ULTRAEXPANDED:
1313                                 entry->swidth = cstrdup("ultraexpanded");
1314                                 break;
1315                         }
1316                 }
1317
1318                 if(FcPatternGetInteger(font, FC_SPACING, 0, &spacing) == FcResultMatch) {
1319                         switch(spacing) {
1320                         case 0:
1321                         default:
1322                                 entry->spacing = cstrdup("p");
1323                                 break;
1324
1325                         case 90:
1326                                 entry->spacing = cstrdup("d");
1327                                 break;
1328
1329                         case 100:
1330                                 entry->spacing = cstrdup("m");
1331                                 break;
1332
1333                         case 110:
1334                                 entry->spacing = cstrdup("c");
1335                                 break;
1336                         }
1337                 }
1338
1339                 // Add fake stuff for compatibility
1340                 entry->adstyle = cstrdup(" ");
1341                 entry->pixelsize = 0;
1342                 entry->pointsize = 0;
1343                 entry->xres = 0;
1344                 entry->yres = 0;
1345                 entry->avg_width = 0;
1346                 entry->registry = cstrdup("utf");
1347                 entry->encoding = cstrdup("8");
1348
1349                 if(!FcPatternGetString(font, FC_STYLE, 0, &style) == FcResultMatch)
1350                         force_style = 0;
1351
1352                 // If font has a style unmanaged by titler plugin, force style to be displayed on name
1353                 // in this way we can shown all available fonts styles.
1354                 if(force_style) {
1355                         sprintf(tmpstring, "%s (%s)", entry->family, style);
1356                         entry->displayname = cstrdup(tmpstring);
1357                 }
1358                 else {
1359                         if(strcmp(entry->foundry, "unknown")) {
1360                                 sprintf(tmpstring, "%s (%s)", entry->family, entry->foundry);
1361                                 entry->displayname = cstrdup(tmpstring);
1362                         }
1363                         else {
1364                                 sprintf(tmpstring, "%s", entry->family);
1365                                 entry->displayname = cstrdup(tmpstring);
1366                         }
1367
1368                 }
1369                 fontlist->append(entry);
1370                 if( font_debug )
1371                         dump_font_entry(stdout, "font 1: ", entry);
1372         }
1373
1374         FcFontSetDestroy(fs);
1375         if(freetype_library)
1376                 FT_Done_FreeType(freetype_library);
1377 // for(int i = 0; i < fonts->total; i++)
1378 //      fonts->values[i]->dump();
1379
1380         FcConfigAppFontAddDir(0, (const FcChar8*)search_path);
1381         FcConfigSetRescanInterval(0, 0);
1382
1383         os = FcObjectSetBuild(FC_FAMILY, FC_FILE, FC_FOUNDRY, FC_WEIGHT,
1384                 FC_WIDTH, FC_SLANT, FC_SPACING, FC_STYLE, (char *)0);
1385         pat = FcPatternCreate();
1386         FcPatternAddBool(pat, FC_SCALABLE, true);
1387
1388         if(language[0])
1389         {
1390                 char langstr[LEN_LANG * 3];
1391                 strcpy(langstr, language);
1392
1393                 if(region[0])
1394                 {
1395                         strcat(langstr, "-");
1396                         strcat(langstr, region);
1397                 }
1398
1399                 FcLangSet *ls =  FcLangSetCreate();
1400                 if(FcLangSetAdd(ls, (const FcChar8*)langstr))
1401                         if(FcPatternAddLangSet(pat, FC_LANG, ls))
1402                 FcLangSetDestroy(ls);
1403         }
1404
1405         fs = FcFontList(0, pat, os);
1406         FcPatternDestroy(pat);
1407         FcObjectSetDestroy(os);
1408
1409         for(int i = 0; i < fs->nfont; i++)
1410         {
1411                 FcPattern *font = fs->fonts[i];
1412                 BC_FontEntry *entry = new BC_FontEntry;
1413
1414                 FcChar8 *strvalue;
1415                 if(FcPatternGetString(font, FC_FILE, 0, &strvalue) == FcResultMatch)
1416                 {
1417                         entry->path = new char[strlen((char*)strvalue) + 1];
1418                         strcpy(entry->path, (char*)strvalue);
1419                 }
1420
1421                 if(FcPatternGetString(font, FC_FOUNDRY, 0, &strvalue) == FcResultMatch)
1422                 {
1423                         entry->foundry = new char[strlen((char*)strvalue) + 1];
1424                         strcpy(entry->foundry, (char *)strvalue);
1425                 }
1426
1427                 if(FcPatternGetString(font, FC_FAMILY, 0, &strvalue) == FcResultMatch)
1428                 {
1429                         entry->family = new char[strlen((char*)strvalue) + 2];
1430                         strcpy(entry->family, (char*)strvalue);
1431                 }
1432
1433                 int intvalue;
1434                 if(FcPatternGetInteger(font, FC_SLANT, 0, &intvalue) == FcResultMatch)
1435                 {
1436                         switch(intvalue)
1437                         {
1438                         case FC_SLANT_ROMAN:
1439                         default:
1440                                 entry->style |= FL_SLANT_ROMAN;
1441                                 break;
1442
1443                         case FC_SLANT_ITALIC:
1444                                 entry->style |= FL_SLANT_ITALIC;
1445                                 break;
1446
1447                         case FC_SLANT_OBLIQUE:
1448                                 entry->style |= FL_SLANT_OBLIQUE;
1449                                 break;
1450                         }
1451                 }
1452
1453                 if(FcPatternGetInteger(font, FC_WEIGHT, 0, &intvalue) == FcResultMatch)
1454                 {
1455                         switch(intvalue)
1456                         {
1457                         case FC_WEIGHT_THIN:
1458                                 entry->style |= FL_WEIGHT_THIN;
1459                                 break;
1460
1461                         case FC_WEIGHT_EXTRALIGHT:
1462                                 entry->style |= FL_WEIGHT_EXTRALIGHT;
1463                                 break;
1464
1465                         case FC_WEIGHT_LIGHT:
1466                                 entry->style |= FL_WEIGHT_LIGHT;
1467                                 break;
1468
1469                         case FC_WEIGHT_BOOK:
1470                                 entry->style |= FL_WEIGHT_BOOK;
1471                                 break;
1472
1473                         case FC_WEIGHT_NORMAL:
1474                         default:
1475                                 entry->style |= FL_WEIGHT_NORMAL;
1476                                 break;
1477
1478                         case FC_WEIGHT_MEDIUM:
1479                                 entry->style |= FL_WEIGHT_MEDIUM;
1480                                 break;
1481
1482                         case FC_WEIGHT_DEMIBOLD:
1483                                 entry->style |= FL_WEIGHT_DEMIBOLD;
1484                                 break;
1485
1486                         case FC_WEIGHT_BOLD:
1487                                 entry->style |= FL_WEIGHT_BOLD;
1488                                 break;
1489
1490                         case FC_WEIGHT_EXTRABOLD:
1491                                 entry->style |= FL_WEIGHT_EXTRABOLD;
1492                                 break;
1493
1494                         case FC_WEIGHT_BLACK:
1495                                 entry->style |= FL_WEIGHT_BLACK;
1496                                 break;
1497
1498                         case FC_WEIGHT_EXTRABLACK:
1499                                 entry->style |= FL_WEIGHT_EXTRABLACK;
1500                                 break;
1501                         }
1502                 }
1503
1504                 if(FcPatternGetInteger(font, FC_WIDTH, 0, &intvalue) == FcResultMatch)
1505                 {
1506                         switch(intvalue)
1507                         {
1508                         case FC_WIDTH_ULTRACONDENSED:
1509                                 entry->style |= FL_WIDTH_ULTRACONDENSED;
1510                                 break;
1511
1512                         case FC_WIDTH_EXTRACONDENSED:
1513                                 entry->style |= FL_WIDTH_EXTRACONDENSED;
1514                                 break;
1515
1516                         case FC_WIDTH_CONDENSED:
1517                                 entry->style |= FL_WIDTH_CONDENSED;
1518                                 break;
1519
1520                         case FC_WIDTH_SEMICONDENSED:
1521                                 entry->style = FL_WIDTH_SEMICONDENSED;
1522                                 break;
1523
1524                         case FC_WIDTH_NORMAL:
1525                         default:
1526                                 entry->style |= FL_WIDTH_NORMAL;
1527                                 break;
1528
1529                         case FC_WIDTH_SEMIEXPANDED:
1530                                 entry->style |= FL_WIDTH_SEMIEXPANDED;
1531                                 break;
1532
1533                         case FC_WIDTH_EXPANDED:
1534                                 entry->style |= FL_WIDTH_EXPANDED;
1535                                 break;
1536
1537                         case FC_WIDTH_EXTRAEXPANDED:
1538                                 entry->style |= FL_WIDTH_EXTRAEXPANDED;
1539                                 break;
1540
1541                         case FC_WIDTH_ULTRAEXPANDED:
1542                                 entry->style |= FL_WIDTH_ULTRAEXPANDED;
1543                                 break;
1544                         }
1545                 }
1546                 if(FcPatternGetInteger(font, FC_SPACING, 0, &intvalue) == FcResultMatch)
1547                 {
1548                         switch(intvalue)
1549                         {
1550                         case FC_PROPORTIONAL:
1551                         default:
1552                                 entry->style |= FL_PROPORTIONAL;
1553                                 break;
1554
1555                         case FC_DUAL:
1556                                 entry->style |= FL_DUAL;
1557                                 break;
1558
1559                         case FC_MONO:
1560                                 entry->style |= FL_MONO;
1561                                 break;
1562
1563                         case FC_CHARCELL:
1564                                 entry->style |= FL_CHARCELL;
1565                                 break;
1566                         }
1567                 }
1568                 if(entry->foundry && strcmp(entry->foundry, "unknown"))
1569                 {
1570                         char tempstr[BCTEXTLEN];
1571                         sprintf(tempstr, "%s (%s)", entry->family, entry->foundry);
1572                         entry->displayname = new char[strlen(tempstr) + 1];
1573                         strcpy(entry->displayname, tempstr);
1574                 }
1575                 else
1576                 {
1577                         entry->displayname = new char[strlen(entry->family) + 1];
1578                         strcpy(entry->displayname, entry->family);
1579                 }
1580                 fontlist->append(entry);
1581                 if( font_debug )
1582                         dump_font_entry(stdout, "font 2: ", entry);
1583         }
1584         FcFontSetDestroy(fs);
1585         return 0;
1586 }
1587
1588 #define STYLE_MATCH(fst, stl, msk) ((fst) & (msk) & (stl)) && \
1589        !((fst) & ~(style) & (msk))
1590
1591 BC_FontEntry *BC_Resources::find_fontentry(const char *displayname, int style,
1592         int mask, int preferred)
1593 {
1594         BC_FontEntry *entry, *style_match, *preferred_match;
1595
1596         if(!fontlist)
1597                 return 0;
1598
1599         style_match = 0;
1600         preferred_match = 0;
1601
1602         if(displayname)
1603         {
1604                 for(int i = 0; i < fontlist->total; i++)
1605                 {
1606                         entry = fontlist->values[i];
1607
1608                         if(strcmp(entry->displayname, displayname) == 0 &&
1609                                         STYLE_MATCH(entry->style, style, mask))
1610                         {
1611                                 if(!style_match)
1612                                         style_match = entry;
1613                                 if(!preferred_match && entry->fixed_style == preferred)
1614                                         preferred_match = entry;
1615                         }
1616                 }
1617                 if(preferred_match)
1618                         return preferred_match;
1619
1620                 if(style_match)
1621                         return style_match;
1622         }
1623
1624 // No exact match - assume normal width font
1625         style |= FL_WIDTH_NORMAL;
1626         mask |= FL_WIDTH_MASK;
1627         style_match = 0;
1628         preferred_match = 0;
1629
1630         for(int i = 0; i < fontlist->total; i++)
1631         {
1632                 entry = fontlist->values[i];
1633
1634                 if(STYLE_MATCH(entry->style, style, mask))
1635                 {
1636                         if(!style_match)
1637                                 style_match = entry;
1638
1639                         if(!preferred_match && (entry->style & preferred))
1640                                 preferred_match = entry;
1641
1642                         if(!strncasecmp(displayname, entry->family,
1643                                         strlen(entry->family)))
1644                         return entry;
1645                 }
1646         }
1647
1648         if(preferred_match)
1649                 return preferred_match;
1650
1651         return style_match;
1652 }
1653
1654 size_t BC_Resources::encode(const char *from_enc, const char *to_enc,
1655         char *input, int input_length, char *output, int output_length)
1656 {
1657         size_t inbytes, outbytes = 0;
1658         iconv_t cd;
1659         char *outbase = output;
1660
1661         if(!from_enc || *from_enc == 0)
1662                 from_enc = "UTF-8";
1663
1664         if(!to_enc || *to_enc == 0)
1665                 to_enc = "UTF-8";
1666
1667         if(input_length < 0)
1668                 inbytes = strlen(input);
1669         else
1670                 inbytes = input_length;
1671
1672         if(strcmp(from_enc, to_enc) && inbytes)
1673         {
1674                 if((cd = iconv_open(to_enc, from_enc)) == (iconv_t)-1)
1675                 {
1676                         printf(_("Conversion from %s to %s is not available\n"),
1677                                 from_enc, to_enc);
1678                         return 0;
1679                 }
1680
1681                 outbytes = output_length - 1;
1682
1683                 iconv(cd, &input, &inbytes, &output, &outbytes);
1684
1685                 iconv_close(cd);
1686                 inbytes = output - outbase;
1687         }
1688         else if(inbytes)
1689         {
1690                 memcpy(output,  input, inbytes);
1691                 outbytes -= inbytes;
1692         }
1693         for(int i = 0; i < 4; i++)
1694         {
1695                 output[i] = 0;
1696                 if(outbytes-- == 0)
1697                         break;
1698         }
1699         return inbytes;
1700 }
1701
1702 void BC_Resources::encode_to_utf8(char *buffer, int buflen)
1703 {
1704         if(BC_Resources::locale_utf8) return;
1705         char lbuf[buflen];
1706         encode(encoding, 0, buffer, buflen, lbuf, buflen);
1707         strcpy(buffer, lbuf);
1708 }
1709
1710 int BC_Resources::find_font_by_char(FT_ULong char_code, char *path_new, const FT_Face oldface)
1711 {
1712         FcPattern *font, *ofont;
1713         FcChar8 *file;
1714         int result = 0;
1715
1716         *path_new = 0;
1717
1718         // Do not search control codes
1719         if(char_code < ' ')
1720                 return 0;
1721
1722         if( (ofont = FcFreeTypeQueryFace(oldface, (const FcChar8*)"", 4097, 0)) != 0 ) {
1723                 if( (font = find_similar_font(char_code, ofont)) != 0 ) {
1724                         if(FcPatternGetString(font, FC_FILE, 0, &file) == FcResultMatch) {
1725                                 strcpy(path_new, (char*)file);
1726                                 result = 1;
1727                         }
1728                         FcPatternDestroy(font);
1729                 }
1730                 FcPatternDestroy(ofont);
1731         }
1732         return result;
1733 }
1734
1735 FcPattern* BC_Resources::find_similar_font(FT_ULong char_code, FcPattern *oldfont)
1736 {
1737         FcPattern *pat, *font;
1738         FcFontSet *fs;
1739         FcObjectSet *os;
1740         FcCharSet *fcs;
1741         int ival;
1742
1743         // Do not search control codes
1744         if(char_code < ' ')
1745                 return 0;
1746
1747         fontconfig_lock.lock("BC_Resources::find_similar_font");
1748         pat = FcPatternCreate();
1749         os = FcObjectSetBuild(FC_FILE, FC_CHARSET, FC_SCALABLE, FC_FAMILY,
1750                 FC_SLANT, FC_WEIGHT, FC_WIDTH, (char *)0);
1751
1752         FcPatternAddBool(pat, FC_SCALABLE, true);
1753         fcs = FcCharSetCreate();
1754         if(FcCharSetAddChar(fcs, char_code))
1755                 FcPatternAddCharSet(pat, FC_CHARSET, fcs);
1756         FcCharSetDestroy(fcs);
1757         for( int i=0; i<(int)LEN_FCPROP; ++i ) {
1758                 if(FcPatternGetInteger(oldfont, fc_properties[i], 0, &ival) == FcResultMatch)
1759                         FcPatternAddInteger(pat, fc_properties[i], ival);
1760         }
1761         fs = FcFontList(0, pat, os);
1762         for( int i=LEN_FCPROP; --i>=0 && !fs->nfont; ) {
1763                 FcFontSetDestroy(fs);
1764                 FcPatternDel(pat, fc_properties[i]);
1765                 fs = FcFontList(0, pat, os);
1766         }
1767         FcPatternDestroy(pat);
1768         FcObjectSetDestroy(os);
1769
1770         pat = 0;
1771
1772         for (int i = 0; i < fs->nfont; i++)
1773         {
1774                 font = fs->fonts[i];
1775                 if(FcPatternGetCharSet(font, FC_CHARSET, 0, &fcs) == FcResultMatch)
1776                 {
1777                         if(FcCharSetHasChar(fcs, char_code))
1778                         {
1779                                 pat =  FcPatternDuplicate(font);
1780                                 break;
1781                         }
1782                 }
1783         }
1784         FcFontSetDestroy(fs);
1785         fontconfig_lock.unlock();
1786
1787         return pat;
1788 }
1789
1790 void BC_Resources::dump_fonts(FILE *fp)
1791 {
1792         for( int i=0; i<fontlist->total; ++i )
1793                 dump_font_entry(fp, "", fontlist->values[i]);
1794 }
1795
1796 void BC_Resources::dump_font_entry(FILE *fp, const char *cp,  BC_FontEntry *ep)
1797 {
1798         fprintf(fp,"%s%s = %s\n",cp,ep->displayname,ep->path);
1799         fprintf(fp,"  %s:%s:%s:%s:%s:%s:%d:%d:%d:%d:%d:%s:%d:%s:%s:%d\n",
1800                 ep->foundry, ep->family, ep->weight, ep->slant, ep->swidth, ep->adstyle,
1801                 ep->pixelsize, ep->pointsize, ep->xres, ep->yres, ep->style, ep->spacing,
1802                 ep->avg_width, ep->registry, ep->encoding, ep->fixed_style);
1803 }
1804