#include "copyright.h"

/* $XConsortium: XGetProp.c,v 11.15 88/09/06 16:07:05 jim Exp $ */
/* Copyright    Massachusetts Institute of Technology    1986	*/

#define NEED_REPLIES
#include "Xlibint.h"

int
XGetWindowProperty(dpy, w, property, offset, length, delete, 
	req_type, actual_type, actual_format, nitems, bytesafter, prop)
    register Display *dpy;
    Window w;
    Atom property;
    Bool delete;
    Atom req_type;
    Atom *actual_type;
    int *actual_format;  /* 8, 16, or 32 */
    long offset, length;
    unsigned long *nitems;  /* # of 8-, 16-, or 32-bit entities */
    unsigned long *bytesafter;
    unsigned char **prop;
    {
    xGetPropertyReply reply;
    register xGetPropertyReq *req;
    LockDisplay(dpy);
    GetReq (GetProperty, req);
    req->window = w;
    req->property = property;
    req->type = req_type;
    req->delete = delete;
    req->longOffset = offset;
    req->longLength = length;
    
    if (!_XReply (dpy, (xReply *) &reply, 0, xFalse)) {
	UnlockDisplay(dpy);
	return (1);
	}	
    *actual_type = reply.propertyType;
    *actual_format = reply.format;
    *nitems = reply.nItems;
    *bytesafter = reply.bytesAfter;

    *prop = NULL;
    if (*actual_type != None) switch (reply.format) {
      long nbytes, netbytes;
      /* 
       * One extra byte is malloced than is needed to contain the property
       * data, but this last byte is null terminated and convenient for 
       * returing string properties, so the client doesn't then have to 
       * recopy the string to make it null terminated. 
       */
      case 8:
        nbytes = (*nitems);
	*prop = (unsigned char *) Xmalloc ((unsigned)nbytes + 1);
        netbytes = (*nitems);
        _XReadPad (dpy, (char *) *prop, netbytes);
	(*prop)[nbytes] = '\0';
        break;

      case 16:
        nbytes = (*nitems) * sizeof (short);
        *prop = (unsigned char *) Xmalloc ((unsigned)nbytes + 1);
        netbytes = (*nitems) * 2;
        _XRead16Pad (dpy, (short *) *prop, netbytes);
	(*prop)[nbytes] = '\0';
        break;

      case 32:
        nbytes = (*nitems) * sizeof (long);
        *prop = (unsigned char *) Xmalloc ((unsigned)nbytes + 1);
        netbytes = (*nitems) * 4;
        _XRead32 (dpy, (long *) *prop, netbytes);
	(*prop)[nbytes] = '\0';
        break;

      default:
	/*
	 * This part of the code should never be reached.  If it is, the server
	 * send back a property with an invalid format.  This is a
	 * BadImplementation error. 
	 */

        {
	    xError error;

	    error.sequenceNumber = dpy->request;
  	    error.type = X_Error;
	    error.majorCode = X_GetProperty;
	    error.minorCode = 0;
	    error.errorCode = BadImplementation;
	
	    _XError(dpy, &error);
	}
	break;
      }
    UnlockDisplay(dpy);
    SyncHandle();
    return(Success);

    }