1/* drmstat.c -- DRM device status and testing program
2 * Created: Tue Jan  5 08:19:24 1999 by faith@precisioninsight.com
3 *
4 * Copyright 1999 Precision Insight, Inc., Cedar Park, Texas.
5 * Copyright 2000 VA Linux Systems, Inc., Sunnyvale, California.
6 * All Rights Reserved.
7 *
8 * Permission is hereby granted, free of charge, to any person obtaining a
9 * copy of this software and associated documentation files (the "Software"),
10 * to deal in the Software without restriction, including without limitation
11 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
12 * and/or sell copies of the Software, and to permit persons to whom the
13 * Software is furnished to do so, subject to the following conditions:
14 *
15 * The above copyright notice and this permission notice (including the next
16 * paragraph) shall be included in all copies or substantial portions of the
17 * Software.
18 *
19 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
20 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
21 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
22 * PRECISION INSIGHT AND/OR ITS SUPPLIERS BE LIABLE FOR ANY CLAIM, DAMAGES OR
23 * OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
24 * ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
25 * DEALINGS IN THE SOFTWARE.
26 *
27 * Authors: Rickard E. (Rik) Faith <faith@valinux.com>
28 *
29 */
30
31#include <stdio.h>
32#include <stdlib.h>
33#include <unistd.h>
34#include <sys/types.h>
35#include <sys/time.h>
36#include <sys/mman.h>
37#include <getopt.h>
38#include <strings.h>
39#include <errno.h>
40#include <signal.h>
41#include <fcntl.h>
42#include "xf86drm.h"
43
44int sigio_fd;
45
46static double usec(struct timeval *end, struct timeval *start)
47{
48    double e = end->tv_sec   * 1000000 + end->tv_usec;
49    double s = start->tv_sec * 1000000 + start->tv_usec;
50
51    return e - s;
52}
53
54static void getversion(int fd)
55{
56    drmVersionPtr version;
57
58    version = drmGetVersion(fd);
59    if (version) {
60	printf( "Name: %s\n", version->name ? version->name : "?" );
61	printf( "    Version: %d.%d.%d\n",
62		version->version_major,
63		version->version_minor,
64		version->version_patchlevel );
65	printf( "    Date: %s\n", version->date ? version->date : "?" );
66	printf( "    Desc: %s\n", version->desc ? version->desc : "?" );
67	drmFreeVersion(version);
68    } else {
69	printf( "No driver available\n" );
70    }
71}
72
73void handler(int fd, void *oldctx, void *newctx)
74{
75    printf("Got fd %d\n", fd);
76}
77
78void process_sigio(char *device)
79{
80    int              fd;
81
82    if ((fd = open(device, 0)) < 0) {
83	drmError(-errno, __FUNCTION__);
84	exit(1);
85    }
86
87    sigio_fd = fd;
88    /*  drmInstallSIGIOHandler(fd, handler); */
89    for (;;) sleep(60);
90}
91
92int main(int argc, char **argv)
93{
94    int            c;
95    int            r  = 0;
96    int            fd = -1;
97    drm_handle_t      handle;
98    void           *address;
99    char           *pt;
100    unsigned long  count;
101    unsigned long  offset;
102    unsigned long  size;
103    drm_context_t  context;
104    int            loops;
105    char           buf[1024];
106    int            i;
107    drmBufInfoPtr  info;
108    drmBufMapPtr   bufs;
109    drmLockPtr     lock;
110    int            secs;
111
112    while ((c = getopt(argc, argv,
113		       "lc:vo:O:f:s:w:W:b:r:R:P:L:C:XS:B:F:")) != EOF)
114	switch (c) {
115	case 'F':
116	    count  = strtoul(optarg, NULL, 0);
117	    if (!fork()) {
118		dup(fd);
119		sleep(count);
120	    }
121	    close(fd);
122	    break;
123	case 'v': getversion(fd);                                        break;
124	case 'X':
125	    if ((r = drmCreateContext(fd, &context))) {
126		drmError(r, argv[0]);
127		return 1;
128	    }
129	    printf( "Got %d\n", context);
130	    break;
131	case 'S':
132	    process_sigio(optarg);
133	    break;
134	case 'C':
135	    if ((r = drmSwitchToContext(fd, strtoul(optarg, NULL, 0)))) {
136		drmError(r, argv[0]);
137		return 1;
138	    }
139	    break;
140	case 'c':
141	    if ((r = drmSetBusid(fd,optarg))) {
142		drmError(r, argv[0]);
143		return 1;
144	    }
145	    break;
146	case 'o':
147	    if ((fd = drmOpen(optarg, NULL)) < 0) {
148		drmError(fd, argv[0]);
149		return 1;
150	    }
151	    break;
152	case 'O':
153	    if ((fd = drmOpen(NULL, optarg)) < 0) {
154		drmError(fd, argv[0]);
155		return 1;
156	    }
157	    break;
158	case 'B':		/* Test buffer allocation */
159	    count  = strtoul(optarg, &pt, 0);
160	    size   = strtoul(pt+1, &pt, 0);
161	    secs   = strtoul(pt+1, NULL, 0);
162	    {
163		drmDMAReq      dma;
164		int            *indices, *sizes;
165
166		indices = alloca(sizeof(*indices) * count);
167		sizes   = alloca(sizeof(*sizes)   * count);
168		dma.context         = context;
169		dma.send_count      = 0;
170		dma.request_count   = count;
171		dma.request_size    = size;
172		dma.request_list    = indices;
173		dma.request_sizes   = sizes;
174		dma.flags           = DRM_DMA_WAIT;
175		if ((r = drmDMA(fd, &dma))) {
176		    drmError(r, argv[0]);
177		    return 1;
178		}
179		for (i = 0; i < dma.granted_count; i++) {
180		    printf("%5d: index = %d, size = %d\n",
181			   i, dma.request_list[i], dma.request_sizes[i]);
182		}
183		sleep(secs);
184		drmFreeBufs(fd, dma.granted_count, indices);
185	    }
186	    break;
187	case 'b':
188	    count   = strtoul(optarg, &pt, 0);
189	    size    = strtoul(pt+1, NULL, 0);
190	    if ((r = drmAddBufs(fd, count, size, 0, 65536)) < 0) {
191		drmError(r, argv[0]);
192		return 1;
193	    }
194	    if (!(info = drmGetBufInfo(fd))) {
195		drmError(0, argv[0]);
196		return 1;
197	    }
198	    for (i = 0; i < info->count; i++) {
199		printf("%5d buffers of size %6d (low = %d, high = %d)\n",
200		       info->list[i].count,
201		       info->list[i].size,
202		       info->list[i].low_mark,
203		       info->list[i].high_mark);
204	    }
205	    if ((r = drmMarkBufs(fd, 0.50, 0.80))) {
206		drmError(r, argv[0]);
207		return 1;
208	    }
209	    if (!(info = drmGetBufInfo(fd))) {
210		drmError(0, argv[0]);
211		return 1;
212	    }
213	    for (i = 0; i < info->count; i++) {
214		printf("%5d buffers of size %6d (low = %d, high = %d)\n",
215		       info->list[i].count,
216		       info->list[i].size,
217		       info->list[i].low_mark,
218		       info->list[i].high_mark);
219	    }
220	    printf("===== /proc/dri/0/mem =====\n");
221	    sprintf(buf, "cat /proc/dri/0/mem");
222	    system(buf);
223#if 1
224	    if (!(bufs = drmMapBufs(fd))) {
225		drmError(0, argv[0]);
226		return 1;
227	    }
228	    printf("===============================\n");
229	    printf( "%d bufs\n", bufs->count);
230	    for (i = 0; i < bufs->count; i++) {
231		printf( "  %4d: %8d bytes at %p\n",
232			i,
233			bufs->list[i].total,
234			bufs->list[i].address);
235	    }
236	    printf("===== /proc/dri/0/vma =====\n");
237	    sprintf(buf, "cat /proc/dri/0/vma");
238	    system(buf);
239#endif
240	    break;
241	case 'f':
242	    offset  = strtoul(optarg, &pt, 0);
243	    size    = strtoul(pt+1, NULL, 0);
244	    handle  = 0;
245	    if ((r = drmAddMap(fd, offset, size,
246			       DRM_FRAME_BUFFER, 0, &handle))) {
247		drmError(r, argv[0]);
248		return 1;
249	    }
250	    printf("0x%08lx:0x%04lx added\n", offset, size);
251	    printf("===== /proc/dri/0/mem =====\n");
252	    sprintf(buf, "cat /proc/dri/0/mem");
253	    system(buf);
254	    break;
255	case 'r':
256	case 'R':
257	    offset  = strtoul(optarg, &pt, 0);
258	    size    = strtoul(pt+1, NULL, 0);
259	    handle  = 0;
260	    if ((r = drmAddMap(fd, offset, size,
261			       DRM_REGISTERS,
262			       c == 'R' ? DRM_READ_ONLY : 0,
263			       &handle))) {
264		drmError(r, argv[0]);
265		return 1;
266	    }
267	    printf("0x%08lx:0x%04lx added\n", offset, size);
268	    printf("===== /proc/dri/0/mem =====\n");
269	    sprintf(buf, "cat /proc/dri/0/mem");
270	    system(buf);
271	    break;
272	case 's':
273	    size = strtoul(optarg, &pt, 0);
274	    handle = 0;
275	    if ((r = drmAddMap(fd, 0, size,
276			       DRM_SHM, DRM_CONTAINS_LOCK,
277			       &handle))) {
278		drmError(r, argv[0]);
279		return 1;
280	    }
281	    printf("0x%04lx byte shm added at 0x%08lx\n", size, handle);
282	    sprintf(buf, "cat /proc/dri/0/vm");
283	    system(buf);
284	    break;
285	case 'P':
286	    offset  = strtoul(optarg, &pt, 0);
287	    size    = strtoul(pt+1, NULL, 0);
288	    address = NULL;
289	    if ((r = drmMap(fd, offset, size, &address))) {
290		drmError(r, argv[0]);
291		return 1;
292	    }
293	    printf("0x%08lx:0x%04lx mapped at %p for pid %d\n",
294		   offset, size, address, getpid());
295	    printf("===== /proc/dri/0/vma =====\n");
296	    sprintf(buf, "cat /proc/dri/0/vma");
297	    system(buf);
298	    mprotect((void *)offset, size, PROT_READ);
299	    printf("===== /proc/dri/0/vma =====\n");
300	    sprintf(buf, "cat /proc/dri/0/vma");
301	    system(buf);
302	    break;
303	case 'w':
304	case 'W':
305	    offset  = strtoul(optarg, &pt, 0);
306	    size    = strtoul(pt+1, NULL, 0);
307	    address = NULL;
308	    if ((r = drmMap(fd, offset, size, &address))) {
309		drmError(r, argv[0]);
310		return 1;
311	    }
312	    printf("0x%08lx:0x%04lx mapped at %p for pid %d\n",
313		   offset, size, address, getpid());
314	    printf("===== /proc/%d/maps =====\n", getpid());
315	    sprintf(buf, "cat /proc/%d/maps", getpid());
316	    system(buf);
317	    printf("===== /proc/dri/0/mem =====\n");
318	    sprintf(buf, "cat /proc/dri/0/mem");
319	    system(buf);
320	    printf("===== /proc/dri/0/vma =====\n");
321	    sprintf(buf, "cat /proc/dri/0/vma");
322	    system(buf);
323	    printf("===== READING =====\n");
324	    for (i = 0; i < 0x10; i++)
325		printf("%02x ", (unsigned int)((unsigned char *)address)[i]);
326	    printf("\n");
327	    if (c == 'w') {
328		printf("===== WRITING =====\n");
329		for (i = 0; i < size; i+=2) {
330		    ((char *)address)[i]   = i & 0xff;
331		    ((char *)address)[i+1] = i & 0xff;
332		}
333	    }
334	    printf("===== READING =====\n");
335	    for (i = 0; i < 0x10; i++)
336		printf("%02x ", (unsigned int)((unsigned char *)address)[i]);
337	    printf("\n");
338	    printf("===== /proc/dri/0/vma =====\n");
339	    sprintf(buf, "cat /proc/dri/0/vma");
340	    system(buf);
341	    break;
342	case 'L':
343	    context = strtoul(optarg, &pt, 0);
344	    offset  = strtoul(pt+1, &pt, 0);
345	    size    = strtoul(pt+1, &pt, 0);
346	    loops   = strtoul(pt+1, NULL, 0);
347	    address = NULL;
348	    if ((r = drmMap(fd, offset, size, &address))) {
349		drmError(r, argv[0]);
350		return 1;
351	    }
352	    lock       = address;
353#if 1
354	    {
355		int            counter = 0;
356		struct timeval loop_start, loop_end;
357		struct timeval lock_start, lock_end;
358		double         wt;
359#define HISTOSIZE 9
360		int            histo[HISTOSIZE];
361		int            output = 0;
362		int            fast   = 0;
363
364		if (loops < 0) {
365		    loops = -loops;
366		    ++output;
367		}
368
369		for (i = 0; i < HISTOSIZE; i++) histo[i] = 0;
370
371		gettimeofday(&loop_start, NULL);
372		for (i = 0; i < loops; i++) {
373		    gettimeofday(&lock_start, NULL);
374		    DRM_LIGHT_LOCK_COUNT(fd,lock,context,fast);
375		    gettimeofday(&lock_end, NULL);
376		    DRM_UNLOCK(fd,lock,context);
377		    ++counter;
378		    wt = usec(&lock_end, &lock_start);
379		    if      (wt <=      2.5) ++histo[8];
380		    if      (wt <       5.0) ++histo[0];
381		    else if (wt <      50.0) ++histo[1];
382		    else if (wt <     500.0) ++histo[2];
383		    else if (wt <    5000.0) ++histo[3];
384		    else if (wt <   50000.0) ++histo[4];
385		    else if (wt <  500000.0) ++histo[5];
386		    else if (wt < 5000000.0) ++histo[6];
387		    else                     ++histo[7];
388		    if (output) printf( "%.2f uSec, %d fast\n", wt, fast);
389		}
390		gettimeofday(&loop_end, NULL);
391		printf( "Average wait time = %.2f usec, %d fast\n",
392			usec(&loop_end, &loop_start) /  counter, fast);
393		printf( "%9d <=     2.5 uS\n", histo[8]);
394		printf( "%9d <        5 uS\n", histo[0]);
395		printf( "%9d <       50 uS\n", histo[1]);
396		printf( "%9d <      500 uS\n", histo[2]);
397		printf( "%9d <     5000 uS\n", histo[3]);
398		printf( "%9d <    50000 uS\n", histo[4]);
399		printf( "%9d <   500000 uS\n", histo[5]);
400		printf( "%9d <  5000000 uS\n", histo[6]);
401		printf( "%9d >= 5000000 uS\n", histo[7]);
402	    }
403#else
404	    printf( "before lock: 0x%08x\n", lock->lock);
405	    printf( "lock: 0x%08x\n", lock->lock);
406	    sleep(5);
407	    printf( "unlock: 0x%08x\n", lock->lock);
408#endif
409	    break;
410	default:
411	    fprintf( stderr, "Usage: drmstat [options]\n" );
412	    return 1;
413	}
414
415    return r;
416}
417
418void
419xf86VDrvMsgVerb(int scrnIndex, int type, int verb, const char *format,
420                va_list args)
421{
422	vfprintf(stderr, format, args);
423}
424
425int xf86ConfigDRI[10];
426