wip finding window

[ypp-sc-tools.db-test.git] / pctb / pages.c

diff --git a/pctb/pages.c b/pctb/pages.c
index 2f4f6695484033aac96a6f09e8800c1616a109d4..b9e1ac1649dc2c5aa8a57997e58cabba430b54f1 100644 (file)
--- a/pctb/pages.c
+++ b/pctb/pages.c
@@ -11,6 +11,8 @@
 CanonImage *page_images[MAX_PAGES];
 int npages;
 
+char *ocean, *pirate;
+
 static XWindowAttributes attr;
 static Window id;
 static Display *disp;
@@ -298,7 +300,109 @@ void set_yppclient_window(unsigned long wul) {
   id= wul;
 }
 
+DEBUG_DEFINE_SOME_DEBUGF(findypp,debugfind)
+
 void find_yppclient_window(void) {
+  Window root, gotroot, gotparent;
+  int screen, r;
+  int nfound=0;
+  
   if (id) return;
-  eassert(!"finding client window NYI");
+  
+  static const char prefix[]= "Puzzle Pirates - ";
+  static const char onthe[]= " on the ";
+  static const char suffix[]= " ocean";
+#define S(x) (sizeof((x))-1)
+
+  Atom wm_name= XInternAtom(disp,"WM_NAME",True);
+  eassert(wm_name != None);
+
+  for (screen=0; screen<ScreenCount(disp); screen++) {
+    debugfind("FINDYPP screen %d\n", screen);
+    root= RootWindow(disp,screen);
+    unsigned int nchildren1;
+    Window *children1=0;
+
+    r= XQueryTree(disp,root,
+                 &gotroot,&gotparent,
+                 &children1,&nchildren1);
+    eassert(r);
+    debugfind("FINDYPP screen %d nchildren1=%d\n", screen, nchildren1);
+
+    int i;
+    for (i=0; i<nchildren1; i++) {
+      Window w1= children1[i];
+      unsigned int nchildren2;
+      Window *children2=0;
+
+      r= XQueryTree(disp,w1,
+                   &gotroot,&gotparent,
+                   &children2,&nchildren2);
+      eassert(r);
+      debugfind("FINDYPP screen %d c1[%2d]=0x%08lx nchildren2=%d\n",
+               screen, i, (unsigned long)w1, nchildren2);
+
+      int j;
+      for (j=-1; j<(int)nchildren2; j++) {
+       Window w2= j<0 ? w1 : children2[j];
+       debugfind("FINDYPP screen %d c1[%2d]=0x%08lx c2[%2d]=0x%08lx",
+                 screen, i, (unsigned long)w1, j, (unsigned long)w2);
+
+       int gotfmt;
+       Atom gottype;
+       unsigned long len, gotbytesafter;
+       char *title;
+       unsigned char *gottitle=0;
+       r= XGetWindowProperty(disp,w2, wm_name,0,512, False,
+                             AnyPropertyType,&gottype, &gotfmt, &len,
+                             &gotbytesafter, &gottitle);
+       eassert(!r);
+       title= (char*)gottitle;
+
+       if (DEBUGP(findypp)) {
+         debugfind(" gf=%d len=%lu gba=%lu \"", gotfmt,len,gotbytesafter);
+         char *p;
+         for (p=title; p < title+len; p++) {
+           char c= *p;
+           if (c>=' ' && c<=126) fputc(c,debug);
+           else fprintf(debug,"\\x%02x",c & 0xff);
+         }
+         fputs("\": ",debug);
+       }
+
+#define REQUIRE(pred)                                                     \
+        if (!(pred)) { debugfind(" failed test  %s\n", #pred); continue; } \
+        else
+
+       REQUIRE( gottype!=None );
+       REQUIRE( len );
+       REQUIRE( gotfmt==8 );
+
+       REQUIRE( len >= S(prefix) + 1 + S(onthe) + 1 + S(suffix) );
+
+       char *spc1= strchr(  title        + S(prefix), ' ');  REQUIRE(spc1);
+       char *spc2= strrchr((title + len) - S(suffix), ' ');  REQUIRE(spc2);
+
+       REQUIRE( (title + len) - spc1  >= S(onthe)  + S(suffix) );
+       REQUIRE(  spc2         - title >= S(prefix) + S(onthe) );
+
+       REQUIRE( !memcmp(title,                   prefix, S(prefix)) );
+       REQUIRE( !memcmp(title + len - S(suffix), suffix, S(suffix))  );
+       REQUIRE( !memcmp(spc1,                    onthe,  S(onthe))  );
+
+#define ASSIGN(what, start, end) do {                                  \
+       r= asprintf(&what, "%.*s", end - start, start);  eassert(r>0);  \
+     }while(0)
+       ASSIGN(ocean,  title + S(prefix),  spc1);
+       ASSIGN(pirate, spc1 + S(onthe),   (title + len) - S(suffix));
+
+       debugfind(" YES!\n");
+       id= w2;
+       nfound++;
+      }
+      if (children2) XFree(children2);
+    }
+    if (children1) XFree(children1);
+  }
+  eassert(nfound==1);
 }