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

1.1       root        1: #include "copyright.h"
                      2: 
                      3: /* $Header: XSetFPath.c,v 11.10 87/09/11 08:06:49 toddb Exp $ */
                      4: /* Copyright    Massachusetts Institute of Technology    1986  */
                      5: 
                      6: #include "Xlibint.h"
                      7: 
                      8: XSetFontPath (dpy, directories, ndirs)
                      9: register Display *dpy;
                     10: char **directories;
                     11: int ndirs;
                     12: {
                     13:        register int n = 0;
                     14:        register int i;
                     15:        register int nbytes;
                     16:        char *p;
                     17:        register xSetFontPathReq *req;
                     18: 
                     19:         LockDisplay(dpy);
                     20:        GetReq (SetFontPath, req);
                     21:        req->nFonts = ndirs;
                     22:        for (i = 0; i < ndirs; i++) {
                     23:                n += strlen (directories[i]) + 1;
                     24:        }
                     25:        nbytes = (n + 3) & ~3;
                     26:        BufAlloc (char *, p, nbytes);
                     27:        /*
                     28:         * pack into counted strings.
                     29:         */
                     30:        for (i = 0; i < ndirs; i++) {
                     31:                register int length = strlen (directories[i]);
                     32:                *p = length;
                     33:                bcopy (directories[i], p + 1, length);
                     34:                p += length + 1;
                     35:        }
                     36:        req->length += nbytes >> 2;
                     37:         UnlockDisplay(dpy);
                     38:        SyncHandle();
                     39: }
                     40:                      

unix.superglobalmegacorp.com

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