379 |
strcpy(rbuf, rstr); |
strcpy(rbuf, rstr); |
380 |
for (tok = strtok(rbuf, ":"); tok; tok = strtok(0, ":")) |
for (tok = strtok(rbuf, ":"); tok; tok = strtok(0, ":")) |
381 |
{ |
{ |
382 |
snprintf(buf,sizeof(buf),"%s/%s",tok,appclass); |
fl_snprintf(buf,sizeof(buf),"%s/%s",tok,appclass); |
383 |
M_info(0, "Trying XAPPLRESDIR: %s", buf); |
M_info(0, "Trying XAPPLRESDIR: %s", buf); |
384 |
if ((fdb = XrmGetFileDatabase(buf))) |
if ((fdb = XrmGetFileDatabase(buf))) |
385 |
{ |
{ |
420 |
The window resource manager for this display |
The window resource manager for this display |
421 |
|
|
422 |
*/ |
*/ |
423 |
snprintf(buf, sizeof(buf), "DECW$SYSTEM_DEFAULTS:%s.DAT", appclass); |
fl_snprintf(buf, sizeof(buf), "DECW$SYSTEM_DEFAULTS:%s.DAT", appclass); |
424 |
M_info(0, "Trying Sys_default: %s", buf); |
M_info(0, "Trying Sys_default: %s", buf); |
425 |
if ((fdb = XrmGetFileDatabase(buf))) |
if ((fdb = XrmGetFileDatabase(buf))) |
426 |
{ |
{ |
428 |
M_warn(0, " system default %s loaded", buf); |
M_warn(0, " system default %s loaded", buf); |
429 |
} |
} |
430 |
|
|
431 |
snprintf(buf, sizeof(buf), "DECW$USER_DEFAULTS:%s.DAT", appclass); |
fl_snprintf(buf, sizeof(buf), "DECW$USER_DEFAULTS:%s.DAT", appclass); |
432 |
M_info(0, "Trying User_default: %s", buf); |
M_info(0, "Trying User_default: %s", buf); |
433 |
if ((fdb = XrmGetFileDatabase(buf))) |
if ((fdb = XrmGetFileDatabase(buf))) |
434 |
{ |
{ |
437 |
} |
} |
438 |
|
|
439 |
|
|
440 |
snprintf(buf, sizeof(buf), "DECW$USER_DEFAULTS:DECW$XDEFAULTS.DAT"); |
fl_snprintf(buf, sizeof(buf), "DECW$USER_DEFAULTS:DECW$XDEFAULTS.DAT"); |
441 |
M_info(0, "Trying Sys_default: %s", buf); |
M_info(0, "Trying Sys_default: %s", buf); |
442 |
if ((fdb = XrmGetFileDatabase(buf))) |
if ((fdb = XrmGetFileDatabase(buf))) |
443 |
{ |
{ |
455 |
} |
} |
456 |
} |
} |
457 |
#else /* !VMS */ |
#else /* !VMS */ |
458 |
snprintf(buf, sizeof(buf), "/usr/lib/X11/app-defaults/%s", appclass); |
fl_snprintf(buf, sizeof(buf), "/usr/lib/X11/app-defaults/%s", appclass); |
459 |
M_info(0, "Trying Sys_default: %s", buf); |
M_info(0, "Trying Sys_default: %s", buf); |
460 |
if ((fdb = XrmGetFileDatabase(buf))) |
if ((fdb = XrmGetFileDatabase(buf))) |
461 |
{ |
{ |
483 |
/* try ~/.Xdefaults */ |
/* try ~/.Xdefaults */ |
484 |
if ((rstr = getenv("HOME"))) |
if ((rstr = getenv("HOME"))) |
485 |
{ |
{ |
486 |
snprintf(buf,sizeof(buf),"%s/.Xdefaults",rstr); |
fl_snprintf(buf,sizeof(buf),"%s/.Xdefaults",rstr); |
487 |
M_info(0, "Trying %s", buf); |
M_info(0, "Trying %s", buf); |
488 |
if ((fdb = XrmGetFileDatabase(buf))) |
if ((fdb = XrmGetFileDatabase(buf))) |
489 |
{ |
{ |
510 |
if ((rstr = getenv("HOME"))) |
if ((rstr = getenv("HOME"))) |
511 |
{ |
{ |
512 |
int l; |
int l; |
513 |
snprintf(buf,sizeof(buf),"%s/.Xdefaults",rstr); |
fl_snprintf(buf,sizeof(buf),"%s/.Xdefaults",rstr); |
514 |
l = strlen(strcat(buf, "-")); |
l = strlen(strcat(buf, "-")); |
515 |
gethostname(buf + l, sizeof(buf) - l); |
gethostname(buf + l, sizeof(buf) - l); |
516 |
M_info(0, "Trying %s", buf); |
M_info(0, "Trying %s", buf); |
561 |
char res_name[256], res_class[256]; |
char res_name[256], res_class[256]; |
562 |
|
|
563 |
res_name[0] = res_class[0] = '\0'; |
res_name[0] = res_class[0] = '\0'; |
564 |
snprintf(res_name,sizeof(res_name),"%s.%s",fl_app_name,rname); |
fl_snprintf(res_name,sizeof(res_name),"%s.%s",fl_app_name,rname); |
565 |
if (cname) |
if (cname) |
566 |
snprintf(res_class,sizeof(res_class),"%s.%s",fl_app_class,cname); |
fl_snprintf(res_class,sizeof(res_class),"%s.%s",fl_app_class,cname); |
567 |
|
|
568 |
entry.addr = 0; |
entry.addr = 0; |
569 |
entry.size = 0; |
entry.size = 0; |
615 |
fl_set_resource(const char *str, const char *val) |
fl_set_resource(const char *str, const char *val) |
616 |
{ |
{ |
617 |
char res_name[256]; |
char res_name[256]; |
618 |
snprintf(res_name,sizeof(res_name),"%s.%s",fl_app_name,str); |
fl_snprintf(res_name,sizeof(res_name),"%s.%s",fl_app_name,str); |
619 |
XrmPutStringResource(&fldatabase, res_name, (char *) val); |
XrmPutStringResource(&fldatabase, res_name, (char *) val); |
620 |
} |
} |
621 |
|
|
632 |
/* internal resources need to be prefixed xform and XForm. need to |
/* internal resources need to be prefixed xform and XForm. need to |
633 |
generate for all names */ |
generate for all names */ |
634 |
|
|
635 |
snprintf(cls,sizeof(cls),"%s.XForm",fl_app_class); |
fl_snprintf(cls,sizeof(cls),"%s.XForm",fl_app_class); |
636 |
fl_app_class = cls; |
fl_app_class = cls; |
637 |
snprintf(res,sizeof(res),"%s.xform",fl_app_name); |
fl_snprintf(res,sizeof(res),"%s.xform",fl_app_name); |
638 |
fl_app_name = res; |
fl_app_name = res; |
639 |
snprintf(ores,sizeof(ores),"%s.xform",fl_ori_app_name); |
fl_snprintf(ores,sizeof(ores),"%s.xform",fl_ori_app_name); |
640 |
fl_ori_app_name = ores; |
fl_ori_app_name = ores; |
641 |
fl_get_app_resources(internal_resources, Niopt); |
fl_get_app_resources(internal_resources, Niopt); |
642 |
|
|
805 |
(char *) fl_ori_app_name, na, arg); |
(char *) fl_ori_app_name, na, arg); |
806 |
|
|
807 |
/* check version request */ |
/* check version request */ |
808 |
snprintf(disp_name,sizeof(disp_name), "%s.fl_version", fl_app_name); |
fl_snprintf(disp_name,sizeof(disp_name), "%s.fl_version", fl_app_name); |
809 |
snprintf(disp_cls,sizeof(disp_cls), "%s.FLversion", fl_app_name); |
fl_snprintf(disp_cls,sizeof(disp_cls), "%s.FLversion", fl_app_name); |
810 |
|
|
811 |
if (XrmGetResource(cmddb, disp_name, disp_cls, &type, &xval)) |
if (XrmGetResource(cmddb, disp_name, disp_cls, &type, &xval)) |
812 |
fl_print_version(0); |
fl_print_version(0); |
813 |
|
|
814 |
/* get the display name first before doing anything */ |
/* get the display name first before doing anything */ |
815 |
snprintf(disp_name,sizeof(disp_name), "%s.display",fl_ori_app_name); |
fl_snprintf(disp_name,sizeof(disp_name), "%s.display",fl_ori_app_name); |
816 |
snprintf(disp_cls ,sizeof(disp_cls ), "%s.Display",fl_app_class); |
fl_snprintf(disp_cls ,sizeof(disp_cls ), "%s.Display",fl_app_class); |
817 |
|
|
818 |
buf[0] = '\0'; |
buf[0] = '\0'; |
819 |
if (XrmGetResource(cmddb, disp_name, disp_cls, &type, &xval)) |
if (XrmGetResource(cmddb, disp_name, disp_cls, &type, &xval)) |
838 |
|
|
839 |
/* get debug level settings since all error reporting will be controled |
/* get debug level settings since all error reporting will be controled |
840 |
by it */ |
by it */ |
841 |
snprintf(disp_name,sizeof(disp_name),"%s.debug",fl_app_name); |
fl_snprintf(disp_name,sizeof(disp_name),"%s.debug",fl_app_name); |
842 |
snprintf(disp_cls, sizeof(disp_cls ),"%s.Debug",fl_app_class); |
fl_snprintf(disp_cls, sizeof(disp_cls ),"%s.Debug",fl_app_class); |
843 |
if (XrmGetResource(cmddb, disp_name, disp_cls, &type, &xval)) |
if (XrmGetResource(cmddb, disp_name, disp_cls, &type, &xval)) |
844 |
fl_set_debug_level(atoi(xval.addr)); |
fl_set_debug_level(atoi(xval.addr)); |
845 |
|
|
846 |
/* check if -name is present */ |
/* check if -name is present */ |
847 |
snprintf(disp_name,sizeof(disp_name),"%s.name",fl_app_name); |
fl_snprintf(disp_name,sizeof(disp_name),"%s.name",fl_app_name); |
848 |
snprintf(disp_cls, sizeof(disp_cls ),"%s.Name",fl_app_class); |
fl_snprintf(disp_cls, sizeof(disp_cls ),"%s.Name",fl_app_class); |
849 |
M_warn(0, "trying %s", disp_name); |
M_warn(0, "trying %s", disp_name); |
850 |
if (XrmGetResource(cmddb, disp_name, disp_cls, &type, &xval)) |
if (XrmGetResource(cmddb, disp_name, disp_cls, &type, &xval)) |
851 |
{ |
{ |