Fix `xcb:unmarshal' for <switch>

* el_client.el (xelb-parse-list): Place list placeholder after the
real one so that to be correctly referred by <switch>.
(xelb-parse-switch): Never flatten the condition list for <case>.

* xcb-types.el (xcb:unmarshal of xcb:-struct): Stop after processing
<switch>.

* xcb-types.el (xcb:--struct): New common super class for all classes
in XELB.  Currently it's used to override `slot-unbound'.
(xcb:-struct):
* xcb-ewmh.el (xcb:ewmh:-_NET_DESKTOP_GEOMETRY)
(xcb:ewmh:-_NET_DESKTOP_LAYOUT, xcb:ewmh:-_NET_WM_STRUT)
(xcb:ewmh:-_NET_WM_STRUT_PARTIAL, xcb:ewmh:-_NET_WM_ICON_GEOMETRY)
(xcb:ewmh:-_NET_FRAME_EXTENTS, xcb:ewmh:-_NET_WM_SYNC_REQUEST_COUNTER)
(xcb:ewmh:-_NET_WM_FULLSCREEN_MONITORS):
* xcb-icccm.el (xcb:icccm:--ClientMessage, xcb:icccm:-WM_SIZE_HINTS)
(xcb:icccm:-WM_HINTS, xcb:icccm:-WM_STATE, xcb:icccm:-WM_ICON_SIZE):
* xcb-keysyms.el (xcb:keysyms:-device):
* xcb.el (xcb:connection, xcb:auth-info): Use it.

Author: ch11ng

el_client.el

@@ -563,10 +563,10 @@ The `combine-adjacent' attribute is simply ignored."
          (name-alt (intern (concat (xelb-node-attr-escape node 'name) "~")))
          (type (xelb-node-type node))
          (size (xelb-parse-expression (xelb-node-subnode node))))
-    `((,name :initarg ,(intern (concat ":" (symbol-name name)))
-             :type xcb:-ignore)
-      (,name-alt :initform '(name ,name type ,type size ,size)
-                 :type xcb:-list))))
+    `((,name-alt :initform '(name ,name type ,type size ,size)
+                 :type xcb:-list)
+      (,name :initarg ,(intern (concat ":" (symbol-name name)))
+             :type xcb:-ignore))))
 
 ;; The car of result is the field declaration, and the cadr is the expression
 ;; to be evaluated.
@@ -621,10 +621,7 @@ The `combine-adjacent' attribute is simply ignored."
                              (setq fields (nconc fields tmp))
                              (setq name-list
                                    (nconc name-list (list (caar tmp)))))))
-                        (if (eq case-name 'case)
-                            (when (= 1 (length condition))
-                              ;; Flatten 1-element list.
-                              (setq condition (car condition)))
+                        (when (eq case-name 'bitcase)
                           (setq condition (if (= 1 (length condition))
                                               ;; Flatten 1-element list.
                                               (car condition)

xcb-dri2.el

@@ -91,12 +91,11 @@
    (driver-name-length :initarg :driver-name-length :type xcb:CARD32)
    (device-name-length :initarg :device-name-length :type xcb:CARD32)
    (pad~1 :initform 16 :type xcb:-pad)
-   (driver-name :initarg :driver-name :type xcb:-ignore)
    (driver-name~ :initform
 		 '(name driver-name type xcb:char size
 			(xcb:-fieldref 'driver-name-length))
 		 :type xcb:-list)
-   (alignment-pad :initarg :alignment-pad :type xcb:-ignore)
+   (driver-name :initarg :driver-name :type xcb:-ignore)
    (alignment-pad~ :initform
 		   '(name alignment-pad type xcb:void size
 			  (-
@@ -107,11 +106,12 @@
 			    (lognot 3))
 			   (xcb:-fieldref 'driver-name-length)))
 		   :type xcb:-list)
-   (device-name :initarg :device-name :type xcb:-ignore)
+   (alignment-pad :initarg :alignment-pad :type xcb:-ignore)
    (device-name~ :initform
 		 '(name device-name type xcb:char size
 			(xcb:-fieldref 'device-name-length))
-		 :type xcb:-list)))
+		 :type xcb:-list)
+   (device-name :initarg :device-name :type xcb:-ignore)))
 
 (defclass xcb:dri2:Authenticate
   (xcb:-request)
@@ -140,10 +140,10 @@
   ((~opcode :initform 5 :type xcb:-u1)
    (drawable :initarg :drawable :type xcb:DRAWABLE)
    (count :initarg :count :type xcb:CARD32)
-   (attachments :initarg :attachments :type xcb:-ignore)
    (attachments~ :initform
 		 '(name attachments type xcb:CARD32 size nil)
-		 :type xcb:-list)))
+		 :type xcb:-list)
+   (attachments :initarg :attachments :type xcb:-ignore)))
 (defclass xcb:dri2:GetBuffers~reply
   (xcb:-reply)
   ((pad~0 :initform 1 :type xcb:-pad)
@@ -153,11 +153,11 @@
    (height :initarg :height :type xcb:CARD32)
    (count :initarg :count :type xcb:CARD32)
    (pad~1 :initform 12 :type xcb:-pad)
-   (buffers :initarg :buffers :type xcb:-ignore)
    (buffers~ :initform
 	     '(name buffers type xcb:dri2:DRI2Buffer size
 		    (xcb:-fieldref 'count))
-	     :type xcb:-list)))
+	     :type xcb:-list)
+   (buffers :initarg :buffers :type xcb:-ignore)))
 
 (defclass xcb:dri2:CopyRegion
   (xcb:-request)
@@ -177,10 +177,10 @@
   ((~opcode :initform 7 :type xcb:-u1)
    (drawable :initarg :drawable :type xcb:DRAWABLE)
    (count :initarg :count :type xcb:CARD32)
-   (attachments :initarg :attachments :type xcb:-ignore)
    (attachments~ :initform
 		 '(name attachments type xcb:dri2:AttachFormat size nil)
-		 :type xcb:-list)))
+		 :type xcb:-list)
+   (attachments :initarg :attachments :type xcb:-ignore)))
 (defclass xcb:dri2:GetBuffersWithFormat~reply
   (xcb:-reply)
   ((pad~0 :initform 1 :type xcb:-pad)
@@ -190,11 +190,11 @@
    (height :initarg :height :type xcb:CARD32)
    (count :initarg :count :type xcb:CARD32)
    (pad~1 :initform 12 :type xcb:-pad)
-   (buffers :initarg :buffers :type xcb:-ignore)
    (buffers~ :initform
 	     '(name buffers type xcb:dri2:DRI2Buffer size
 		    (xcb:-fieldref 'count))
-	     :type xcb:-list)))
+	     :type xcb:-list)
+   (buffers :initarg :buffers :type xcb:-ignore)))
 
 (defclass xcb:dri2:SwapBuffers
   (xcb:-request)

xcb-dri3.el

@@ -128,16 +128,16 @@
    (num-window-modifiers :initarg :num-window-modifiers :type xcb:CARD32)
    (num-screen-modifiers :initarg :num-screen-modifiers :type xcb:CARD32)
    (pad~2 :initform 16 :type xcb:-pad)
-   (window-modifiers :initarg :window-modifiers :type xcb:-ignore)
    (window-modifiers~ :initform
 		      '(name window-modifiers type xcb:CARD64 size
 			     (xcb:-fieldref 'num-window-modifiers))
 		      :type xcb:-list)
-   (screen-modifiers :initarg :screen-modifiers :type xcb:-ignore)
+   (window-modifiers :initarg :window-modifiers :type xcb:-ignore)
    (screen-modifiers~ :initform
 		      '(name screen-modifiers type xcb:CARD64 size
 			     (xcb:-fieldref 'num-screen-modifiers))
-		      :type xcb:-list)))
+		      :type xcb:-list)
+   (screen-modifiers :initarg :screen-modifiers :type xcb:-ignore)))
 
 (defclass xcb:dri3:PixmapFromBuffers
   (xcb:-request)
@@ -161,11 +161,11 @@
    (bpp :initarg :bpp :type xcb:CARD8)
    (pad~2 :initform 2 :type xcb:-pad)
    (modifier :initarg :modifier :type xcb:CARD64)
-   (buffers :initarg :buffers :type xcb:-ignore)
    (buffers~ :initform
 	     '(name buffers type xcb:fd size
 		    (xcb:-fieldref 'num-buffers))
-	     :type xcb:-list)))
+	     :type xcb:-list)
+   (buffers :initarg :buffers :type xcb:-ignore)))
 
 (defclass xcb:dri3:BuffersFromPixmap
   (xcb:-request)
@@ -184,21 +184,21 @@
    (depth :initarg :depth :type xcb:CARD8)
    (bpp :initarg :bpp :type xcb:CARD8)
    (pad~2 :initform 6 :type xcb:-pad)
-   (strides :initarg :strides :type xcb:-ignore)
    (strides~ :initform
 	     '(name strides type xcb:CARD32 size
 		    (xcb:-fieldref 'nfd))
 	     :type xcb:-list)
-   (offsets :initarg :offsets :type xcb:-ignore)
+   (strides :initarg :strides :type xcb:-ignore)
    (offsets~ :initform
 	     '(name offsets type xcb:CARD32 size
 		    (xcb:-fieldref 'nfd))
 	     :type xcb:-list)
-   (buffers :initarg :buffers :type xcb:-ignore)
+   (offsets :initarg :offsets :type xcb:-ignore)
    (buffers~ :initform
 	     '(name buffers type xcb:fd size
 		    (xcb:-fieldref 'nfd))
-	     :type xcb:-list)))
+	     :type xcb:-list)
+   (buffers :initarg :buffers :type xcb:-ignore)))
 
 
 

xcb-ewmh.el

@@ -224,7 +224,7 @@ EWMH")
    (type :initform xcb:Atom:CARDINAL)))
 
 ;; _NET_DESKTOP_GEOMETRY
-(defclass xcb:ewmh:-_NET_DESKTOP_GEOMETRY ()
+(defclass xcb:ewmh:-_NET_DESKTOP_GEOMETRY (xcb:--struct)
   ((width :initarg :width :type xcb:-ignore)
    (height :initarg :height :type xcb:-ignore)))
 ;;
@@ -340,7 +340,7 @@ EWMH")
 (defconst xcb:ewmh:_NET_WM_BOTTOMRIGHT 2)
 (defconst xcb:ewmh:_NET_WM_BOTTOMLEFT 3)
 ;;
-(defclass xcb:ewmh:-_NET_DESKTOP_LAYOUT ()
+(defclass xcb:ewmh:-_NET_DESKTOP_LAYOUT (xcb:--struct)
   ((orientation :initarg :orientation :type xcb:-ignore)
    (columns :initarg :columns :type xcb:-ignore)
    (rows :initarg :rows :type xcb:-ignore)
@@ -517,7 +517,7 @@ EWMH")
    (type :initform xcb:Atom:ATOM)))
 
 ;; _NET_WM_STRUT
-(defclass xcb:ewmh:-_NET_WM_STRUT ()
+(defclass xcb:ewmh:-_NET_WM_STRUT (xcb:--struct)
   ((left :initarg :left :type xcb:-ignore)
    (right :initarg :right :type xcb:-ignore)
    (top :initarg :top :type xcb:-ignore)
@@ -536,7 +536,7 @@ EWMH")
    (type :initform xcb:Atom:CARDINAL)))
 
 ;; _NET_WM_STRUT_PARTIAL
-(defclass xcb:ewmh:-_NET_WM_STRUT_PARTIAL ()
+(defclass xcb:ewmh:-_NET_WM_STRUT_PARTIAL (xcb:--struct)
   ((left :initarg :left :type xcb:-ignore)
    (right :initarg :right :type xcb:-ignore)
    (top :initarg :top :type xcb:-ignore)
@@ -563,7 +563,7 @@ EWMH")
    (type :initform xcb:Atom:CARDINAL)))
 
 ;; _NET_WM_ICON_GEOMETRY
-(defclass xcb:ewmh:-_NET_WM_ICON_GEOMETRY ()
+(defclass xcb:ewmh:-_NET_WM_ICON_GEOMETRY (xcb:--struct)
   ((x :initarg :x :type xcb:-ignore)
    (y :initarg :y :type xcb:-ignore)
    (width :initarg :width :type xcb:-ignore)
@@ -636,7 +636,7 @@ EWMH")
    (type :initform xcb:Atom:CARDINAL)))
 
 ;; _NET_FRAME_EXTENTS
-(defclass xcb:ewmh:-_NET_FRAME_EXTENTS ()
+(defclass xcb:ewmh:-_NET_FRAME_EXTENTS (xcb:--struct)
   ((left :initarg :left :type xcb:-ignore)
    (right :initarg :right :type xcb:-ignore)
    (top :initarg :top :type xcb:-ignore)
@@ -696,7 +696,7 @@ EWMH")
    (high :initarg :high :type xcb:CARD32)))
 
 ;; _NET_WM_SYNC_REQUEST_COUNTER
-(defclass xcb:ewmh:-_NET_WM_SYNC_REQUEST_COUNTER ()
+(defclass xcb:ewmh:-_NET_WM_SYNC_REQUEST_COUNTER (xcb:--struct)
   ((low :initarg :low :type xcb:-ignore)
    (high :initarg :hight :type xcb:-ignore)))
 ;;
@@ -715,7 +715,7 @@ EWMH")
    (type :initform xcb:Atom:CARDINAL)))
 
 ;; _NET_WM_FULLSCREEN_MONITORS
-(defclass xcb:ewmh:-_NET_WM_FULLSCREEN_MONITORS ()
+(defclass xcb:ewmh:-_NET_WM_FULLSCREEN_MONITORS (xcb:--struct)
   ((top :initarg :top :type xcb:-ignore)
    (bottom :initarg :bottom :type xcb:-ignore)
    (left :initarg :left :type xcb:-ignore)