5 #include <mono/io-layer/io-layer.h>
7 /* We're digging into handle internals here... */
8 #include <mono/io-layer/handles-private.h>
9 #include <mono/io-layer/wapi-private.h>
11 #define HDRSIZE sizeof(struct _WapiScratchHeader)
13 static guchar *printable (guchar *data, guint32 datalen)
15 static guchar buf[32];
22 for(i=0; i<datalen; i++) {
23 if(g_ascii_isprint (data[i])) {
34 int main (int argc, char **argv)
37 struct _WapiScratchHeader *hdr;
39 _wapi_shared_data=_wapi_shm_attach (FALSE);
41 hdr=(struct _WapiScratchHeader *)&_wapi_shared_data->scratch_base[0];
42 if(hdr->flags==0 && hdr->length==0) {
43 g_print ("Scratch space unused\n");
47 while(idx < _WAPI_SHM_SCRATCH_SIZE) {
48 hdr=(struct _WapiScratchHeader *)&_wapi_shared_data->scratch_base[idx];
49 if(hdr->flags & WAPI_SHM_SCRATCH_FREE) {
50 g_print ("Free block at %6d (index %6d), length %6d\n",
51 idx, idx+HDRSIZE, hdr->length);
53 guchar *data=&_wapi_shared_data->scratch_base[idx+HDRSIZE];
55 g_print ("Used block at %6d (index %6d), length %6d, [%s]\n",
56 idx, idx+HDRSIZE, hdr->length,
57 printable (data, hdr->length));
60 idx+=(hdr->length+HDRSIZE);