/[xforms]/xforms/lib/flresource.c
ViewVC logotype

Diff of /xforms/lib/flresource.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by leeming, Tue Apr 15 19:14:16 2003 UTC revision 1.5 by leeming, Thu Apr 17 09:04:57 2003 UTC
# Line 379  handle_applresdir(const char *rstr, cons Line 379  handle_applresdir(const char *rstr, cons
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          {          {
# Line 420  init_resource_database(const char *appcl Line 420  init_resource_database(const char *appcl
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      {      {
# Line 428  init_resource_database(const char *appcl Line 428  init_resource_database(const char *appcl
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      {      {
# Line 437  init_resource_database(const char *appcl Line 437  init_resource_database(const char *appcl
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      {      {
# Line 455  init_resource_database(const char *appcl Line 455  init_resource_database(const char *appcl
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      {      {
# Line 483  init_resource_database(const char *appcl Line 483  init_resource_database(const char *appcl
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              {              {
# Line 510  init_resource_database(const char *appcl Line 510  init_resource_database(const char *appcl
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);
# Line 561  fl_get_resource(const char *rname,     /* re Line 561  fl_get_resource(const char *rname,     /* re
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;
# Line 615  void Line 615  void
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    
# Line 632  fl_init_resources(void) Line 632  fl_init_resources(void)
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    
# Line 805  fl_initialize(int *na, char *arg[], cons Line 805  fl_initialize(int *na, char *arg[], cons
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))
# Line 838  fl_initialize(int *na, char *arg[], cons Line 838  fl_initialize(int *na, char *arg[], cons
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      {      {

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26