Return to XGetDflt.c CVS log

Up to [Research Unix] / researchv9 / X11 / src / X.V11R1 / lib / Xrm

Annotation of researchv9/X11/src/X.V11R1/lib/Xrm/XGetDflt.c, revision 1.1.1.1

1.1       root        1: #include <copyright.h>
                      2: 
                      3: /* $Header: XGetDflt.c,v 1.1 87/08/22 10:24:06 ham Exp $ */
                      4: /* Copyright (c) 1985, Massachusetts Institute of Technology */
                      5: 
                      6: /*
                      7:  * This routine returns options out of the X user preferences file
                      8:  * found in the RESOURCE_MANAGER property, possibly modified by the 
                      9:  * .Xdefaults in the user's home
                     10:  * directory.  It either returns a pointer to
                     11:  * the option or returns NULL if option not set.  It is patterned after
                     12:  * Andrew's file format (why be different for the sake of being different?).
                     13:  * Andrew's code was NOT examined before writing this routine.
                     14:  * It parses lines of the format "progname.option:value" and returns a pointer
                     15:  * to value.
                     16:  */
                     17: 
                     18: #include <stdio.h>
                     19: #include <strings.h>
                     20: #include <ctype.h>
                     21: #include "Xlibint.h"
                     22: #include "Xresource.h"
                     23: #include "Quarks.h"
                     24: 
                     25: #define XOPTIONFILE "/.Xdefaults"      /* name in home directory of options
                     26:                                           file. */
                     27: 
                     28: static XrmResourceDataBase InitDefaults (dpy)
                     29:     Display *dpy;                      /* display for defaults.... */
                     30: {
                     31:     XrmResourceDataBase userdb = NULL;
                     32:     XrmResourceDataBase xdb = NULL;
                     33:     char fname[BUFSIZ];             /* longer than any conceivable size */
                     34:     char *getenv();
                     35:     char *home = getenv("HOME");
                     36: 
                     37:     /*
                     38:      * attempt to generate user's file name
                     39:      */
                     40:     fname[0] = '\0';
                     41:     if (home != NULL) {
                     42:        strcpy (fname, home);
                     43:        strcat (fname, XOPTIONFILE);
                     44:        }
                     45:     XrmInitialize();
                     46: 
                     47:     if (fname[0] != '\0') userdb =  XrmGetDataBase(fname);
                     48:     xdb = XrmLoadDataBase(dpy->xdefaults);
                     49:     XrmMergeDataBases(userdb, &xdb);
                     50:     return xdb;
                     51: }
                     52: 
                     53: char *XGetDefault(dpy, prog, name)
                     54:        Display *dpy;                   /* display for defaults.... */
                     55:        register char *name;            /* name of option program wants */
                     56:        char *prog;                     /* name of program for option   */
                     57: 
                     58: {                                      /* to get, for example, "font"  */
                     59:        char temp[BUFSIZ];
                     60:        XrmName namelist[5];
                     61:        XrmClass classlist[5];
                     62:        XrmValue result;
                     63: 
                     64:        /*
                     65:         * see if database has ever been initialized.  Lookups can be done
                     66:         * without locks held.
                     67:         */
                     68:        LockDisplay(dpy);
                     69:        if (dpy->db == NULL) {
                     70:                dpy->db = InitDefaults(dpy);
                     71:                }
                     72:        UnlockDisplay(dpy);
                     73:        sprintf(temp, "%s.%s", prog, name);
                     74:        XrmStringToNameList(temp, namelist);
                     75:        XrmStringToClassList("Program.Name", classlist);
                     76: 
                     77:        XrmGetResource(DefaultScreen(dpy), dpy->db, 
                     78:                namelist, classlist, XrmQString, &result);
                     79:        return (result.addr);
                     80: }
                     81: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.