Bug#1017294: marked as done (xelb: FTBFS: make[1]: *** [Makefile:15: xcb-xinput.el] Error 255)
Your message dated Tue, 16 Aug 2022 23:28:51 +0000
with message-id <E1oO5zP-005Kc9-5N@fasolo.debian.org>
and subject line Bug#1017294: fixed in xelb 0.18-3
has caused the Debian Bug report #1017294,
regarding xelb: FTBFS: make[1]: *** [Makefile:15: xcb-xinput.el] Error 255
to be marked as done.
This means that you claim that the problem has been dealt with.
If this is not the case it is now your responsibility to reopen the
Bug report if necessary, and/or fix the problem forthwith.
(NB: If you are a system administrator and have no idea what this
message is talking about, this may indicate a serious mail system
misconfiguration somewhere. Please contact owner@bugs.debian.org
immediately.)
--
1017294: https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=1017294
Debian Bug Tracking System
Contact owner@bugs.debian.org with problems
--- Begin Message ---
Source: xelb
Version: 0.18-2
Severity: serious
Justification: FTBFS
Tags: bookworm sid ftbfs
User: lucas@debian.org
Usertags: ftbfs-20220813 ftbfs-bookworm
Hi,
During a rebuild of all packages in sid, your package failed to build
on amd64.
Relevant part (hopefully):
> make[1]: Entering directory '/<<PKGBUILDDIR>>'
>
> Generating xcb-xproto.el...
> Using vacuous schema
>
> Generating xcb-bigreq.el...
> Generating xcb-render.el...
> Generating xcb-shape.el...
> Generating xcb-dpms.el...
> Generating xcb-dri2.el...
> Generating xcb-dri3.el...
> Generating xcb-ge.el...
> Generating xcb-glx.el...
> Using vacuous schema
>
> Generating xcb-sync.el...
> Using vacuous schema
>
> Using vacuous schema
>
> Generating xcb-record.el...
> Generating xcb-res.el...
> Using vacuous schema
>
> Generating xcb-screensaver.el...
> Using vacuous schema
>
> Using vacuous schema
>
> Generating xcb-shm.el...
> Generating xcb-xc_misc.el...
> Using vacuous schema
>
> Generating xcb-xevie.el...
> Using vacuous schema
>
> Generating xcb-xf86dri.el...
> Using vacuous schema
>
> Generating xcb-xf86vidmode.el...
> Using vacuous schema
>
> Using vacuous schema
>
> Generating xcb-xinerama.el...
> Generating xcb-xkb.el...
> Using vacuous schema
>
> Generating xcb-xprint.el...
> Using vacuous schema
>
> Generating xcb-xselinux.el...
> Using vacuous schema
>
> Generating xcb-xtest.el...
> Using vacuous schema
>
> Generating xcb-xv.el...
> Using vacuous schema
>
> Generating xcb-xfixes.el...
> Using vacuous schema
>
> Using vacuous schema
>
> Generating xcb-randr.el...
> Using vacuous schema
>
> Using vacuous schema
>
> Using vacuous schema
>
> Generating xcb-xvmc.el...
> Using vacuous schema
>
> Using vacuous schema
>
> Using vacuous schema
>
> Generating xcb-composite.el...
> Generating xcb-damage.el...
> Generating xcb-xinput.el...
> Using vacuous schema
>
> Generating xcb-present.el...
> Using vacuous schema
>
> Using vacuous schema
>
> Using vacuous schema
>
> Using vacuous schema
>
> Debugger entered--Lisp error: (error "Unsupported structure content: <length>")
> signal(error ("Unsupported structure content: <length>"))
> error("Unsupported structure content: <%s>" length)
> (let ((x val)) (error "Unsupported structure content: <%s>" x))
> (cond ((eq val 'pad) (xelb-parse-pad node)) ((eq val 'required_start_align) (xelb-parse-required_start_align node)) ((eq val 'field) (xelb-parse-field node)) ((eq val 'fd) (xelb-parse-fd node)) ((eq val 'list) (xelb-parse-list node)) ((eq val 'exprfield) (xelb-parse-exprfield node)) ((eq val 'switch) (xelb-parse-switch node)) ((memq val '(doc comment)) nil) (t (let ((x val)) (error "Unsupported structure content: <%s>" x))))
> (let* ((val (xelb-node-name node))) (cond ((eq val 'pad) (xelb-parse-pad node)) ((eq val 'required_start_align) (xelb-parse-required_start_align node)) ((eq val 'field) (xelb-parse-field node)) ((eq val 'fd) (xelb-parse-fd node)) ((eq val 'list) (xelb-parse-list node)) ((eq val 'exprfield) (xelb-parse-exprfield node)) ((eq val 'switch) (xelb-parse-switch node)) ((memq val '(doc comment)) nil) (t (let ((x val)) (error "Unsupported structure content: <%s>" x)))))
> xelb-parse-structure-content((length nil (op ((op . "*")) (fieldref nil "len") (value nil "4"))))
> mapcar(xelb-parse-structure-content ((length nil (op ((op . "*")) (fieldref nil "len") (value nil "4"))) (field ((type . "CARD16") (name . "type") (enum . "DeviceClassType"))) (field ((type . "CARD16") (name . "len"))) (field ((type . "DeviceId") (name . "sourceid"))) (switch ((name . "data")) (fieldref nil "type") (required_start_align ((align . "4") (offset . "2"))) (case ((name . "key")) (enumref ((ref . "DeviceClassType")) "Key") (required_start_align ((align . "4") (offset . "2"))) (field ((type . "CARD16") (name . "num_keys"))) (list ((type . "CARD32") (name . "keys")) (fieldref nil "num_keys"))) (case ((name . "button")) (enumref ((ref . "DeviceClassType")) "Button") (required_start_align ((align . "4") (offset . "2"))) (field ((type . "CARD16") (name . "num_buttons"))) (list ((type . "CARD32") (name . "state")) (op ((op . "/")) (op (...) (fieldref nil "num_buttons") (value nil "31")) (value nil "32"))) (list ((type . "ATOM") (name . "labels")) (fieldref nil "num_buttons"))) (case ((name . "valuator")) (enumref ((ref . "DeviceClassType")) "Valuator") (required_start_align ((align . "4") (offset . "2"))) (field ((type . "CARD16") (name . "number"))) (field ((type . "ATOM") (name . "label"))) (field ((type . "FP3232") (name . "min"))) (field ((type . "FP3232") (name . "max"))) (field ((type . "FP3232") (name . "value"))) (field ((type . "CARD32") (name . "resolution"))) (field ((type . "CARD8") (name . "mode") (enum . "ValuatorMode"))) (pad ((bytes . "3")))) (case ((name . "scroll")) (enumref ((ref . "DeviceClassType")) "Scroll") (required_start_align ((align . "4") (offset . "2"))) (field ((type . "CARD16") (name . "number"))) (field ((type . "CARD16") (name . "scroll_type") (enum . "ScrollType"))) (pad ((bytes . "2"))) (field ((type . "CARD32") (name . "flags") (mask . "ScrollFlags"))) (field ((type . "FP3232") (name . "increment")))) (case ((name . "touch")) (enumref ((ref . "DeviceClassType")) "Touch") (field ((type . "CARD8") (name . "mode") (enum . "TouchMode"))) (field ((type . "CARD8") (name . "num_touches")))) (case ((name . "gesture")) (enumref ((ref . "DeviceClassType")) "Gesture") (field ((type . "CARD8") (name . "num_touches"))) (pad ((bytes . "1")))))))
> (apply #'nconc (mapcar #'xelb-parse-structure-content contents))
> (list 'defclass name '(xcb:-struct) (apply #'nconc (mapcar #'xelb-parse-structure-content contents)))
> (list (list 'defclass name '(xcb:-struct) (apply #'nconc (mapcar #'xelb-parse-structure-content contents))))
> (let ((name (intern (concat xelb-prefix (xelb-node-attr node 'name)))) (contents (xelb-node-subnodes node t))) (list (list 'defclass name '(xcb:-struct) (apply #'nconc (mapcar #'xelb-parse-structure-content contents)))))
> xelb-parse-struct((struct ((name . "DeviceClass")) (length nil (op ((op . "*")) (fieldref nil "len") (value nil "4"))) (field ((type . "CARD16") (name . "type") (enum . "DeviceClassType"))) (field ((type . "CARD16") (name . "len"))) (field ((type . "DeviceId") (name . "sourceid"))) (switch ((name . "data")) (fieldref nil "type") (required_start_align ((align . "4") (offset . "2"))) (case ((name . "key")) (enumref ((ref . "DeviceClassType")) "Key") (required_start_align ((align . "4") (offset . "2"))) (field ((type . "CARD16") (name . "num_keys"))) (list ((type . "CARD32") (name . "keys")) (fieldref nil "num_keys"))) (case ((name . "button")) (enumref ((ref . "DeviceClassType")) "Button") (required_start_align ((align . "4") (offset . "2"))) (field ((type . "CARD16") (name . "num_buttons"))) (list ((type . "CARD32") (name . "state")) (op ((op . "/")) (op (...) (fieldref nil "num_buttons") (value nil "31")) (value nil "32"))) (list ((type . "ATOM") (name . "labels")) (fieldref nil "num_buttons"))) (case ((name . "valuator")) (enumref ((ref . "DeviceClassType")) "Valuator") (required_start_align ((align . "4") (offset . "2"))) (field ((type . "CARD16") (name . "number"))) (field ((type . "ATOM") (name . "label"))) (field ((type . "FP3232") (name . "min"))) (field ((type . "FP3232") (name . "max"))) (field ((type . "FP3232") (name . "value"))) (field ((type . "CARD32") (name . "resolution"))) (field ((type . "CARD8") (name . "mode") (enum . "ValuatorMode"))) (pad ((bytes . "3")))) (case ((name . "scroll")) (enumref ((ref . "DeviceClassType")) "Scroll") (required_start_align ((align . "4") (offset . "2"))) (field ((type . "CARD16") (name . "number"))) (field ((type . "CARD16") (name . "scroll_type") (enum . "ScrollType"))) (pad ((bytes . "2"))) (field ((type . "CARD32") (name . "flags") (mask . "ScrollFlags"))) (field ((type . "FP3232") (name . "increment")))) (case ((name . "touch")) (enumref ((ref . "DeviceClassType")) "Touch") (field ((type . "CARD8") (name . "mode") (enum . "TouchMode"))) (field ((type . "CARD8") (name . "num_touches")))) (case ((name . "gesture")) (enumref ((ref . "DeviceClassType")) "Gesture") (field ((type . "CARD8") (name . "num_touches"))) (pad ((bytes . "1")))))))
> (cond ((eq val 'import) (xelb-parse-import node)) ((eq val 'struct) (xelb-parse-struct node)) ((eq val 'union) (xelb-parse-union node)) ((memq val '(xidunion xidtype)) (xelb-parse-xidtype node)) ((eq val 'enum) (xelb-parse-enum node)) ((eq val 'typedef) (xelb-parse-typedef node)) ((eq val 'request) (xelb-parse-request node)) ((eq val 'event) (xelb-parse-event node)) ((eq val 'error) (xelb-parse-error node)) ((eq val 'eventcopy) (xelb-parse-eventcopy node)) ((eq val 'errorcopy) (xelb-parse-errorcopy node)) ((eq val 'eventstruct) (xelb-parse-eventstruct node)) ((memq val '(doc comment)) nil) (t (let ((x val)) (error "Unsupported top-level element: <%s>" x))))
> (let* ((val (xelb-node-name node))) (cond ((eq val 'import) (xelb-parse-import node)) ((eq val 'struct) (xelb-parse-struct node)) ((eq val 'union) (xelb-parse-union node)) ((memq val '(xidunion xidtype)) (xelb-parse-xidtype node)) ((eq val 'enum) (xelb-parse-enum node)) ((eq val 'typedef) (xelb-parse-typedef node)) ((eq val 'request) (xelb-parse-request node)) ((eq val 'event) (xelb-parse-event node)) ((eq val 'error) (xelb-parse-error node)) ((eq val 'eventcopy) (xelb-parse-eventcopy node)) ((eq val 'errorcopy) (xelb-parse-errorcopy node)) ((eq val 'eventstruct) (xelb-parse-eventstruct node)) ((memq val '(doc comment)) nil) (t (let ((x val)) (error "Unsupported top-level element: <%s>" x)))))
> xelb-parse-top-level-element((struct ((name . "DeviceClass")) (length nil (op ((op . "*")) (fieldref nil "len") (value nil "4"))) (field ((type . "CARD16") (name . "type") (enum . "DeviceClassType"))) (field ((type . "CARD16") (name . "len"))) (field ((type . "DeviceId") (name . "sourceid"))) (switch ((name . "data")) (fieldref nil "type") (required_start_align ((align . "4") (offset . "2"))) (case ((name . "key")) (enumref ((ref . "DeviceClassType")) "Key") (required_start_align ((align . "4") (offset . "2"))) (field ((type . "CARD16") (name . "num_keys"))) (list ((type . "CARD32") (name . "keys")) (fieldref nil "num_keys"))) (case ((name . "button")) (enumref ((ref . "DeviceClassType")) "Button") (required_start_align ((align . "4") (offset . "2"))) (field ((type . "CARD16") (name . "num_buttons"))) (list ((type . "CARD32") (name . "state")) (op ((op . "/")) (op (...) (fieldref nil "num_buttons") (value nil "31")) (value nil "32"))) (list ((type . "ATOM") (name . "labels")) (fieldref nil "num_buttons"))) (case ((name . "valuator")) (enumref ((ref . "DeviceClassType")) "Valuator") (required_start_align ((align . "4") (offset . "2"))) (field ((type . "CARD16") (name . "number"))) (field ((type . "ATOM") (name . "label"))) (field ((type . "FP3232") (name . "min"))) (field ((type . "FP3232") (name . "max"))) (field ((type . "FP3232") (name . "value"))) (field ((type . "CARD32") (name . "resolution"))) (field ((type . "CARD8") (name . "mode") (enum . "ValuatorMode"))) (pad ((bytes . "3")))) (case ((name . "scroll")) (enumref ((ref . "DeviceClassType")) "Scroll") (required_start_align ((align . "4") (offset . "2"))) (field ((type . "CARD16") (name . "number"))) (field ((type . "CARD16") (name . "scroll_type") (enum . "ScrollType"))) (pad ((bytes . "2"))) (field ((type . "CARD32") (name . "flags") (mask . "ScrollFlags"))) (field ((type . "FP3232") (name . "increment")))) (case ((name . "touch")) (enumref ((ref . "DeviceClassType")) "Touch") (field ((type . "CARD8") (name . "mode") (enum . "TouchMode"))) (field ((type . "CARD8") (name . "num_touches")))) (case ((name . "gesture")) (enumref ((ref . "DeviceClassType")) "Gesture") (field ((type . "CARD8") (name . "num_touches"))) (pad ((bytes . "1")))))))
> (let ((result (xelb-parse-top-level-element i))) (if result (progn (let ((--dolist-tail-- result)) (while --dolist-tail-- (let ((j ...)) (eval j) (pp j) (setq --dolist-tail-- (cdr --dolist-tail--))))) (princ "\n"))))
> (let ((i (car --dolist-tail--))) (let ((result (xelb-parse-top-level-element i))) (if result (progn (let ((--dolist-tail-- result)) (while --dolist-tail-- (let (...) (eval j) (pp j) (setq --dolist-tail-- ...)))) (princ "\n")))) (setq --dolist-tail-- (cdr --dolist-tail--)))
> (while --dolist-tail-- (let ((i (car --dolist-tail--))) (let ((result (xelb-parse-top-level-element i))) (if result (progn (let ((--dolist-tail-- result)) (while --dolist-tail-- (let ... ... ... ...))) (princ "\n")))) (setq --dolist-tail-- (cdr --dolist-tail--))))
> (let ((--dolist-tail-- (xelb-node-subnodes result))) (while --dolist-tail-- (let ((i (car --dolist-tail--))) (let ((result (xelb-parse-top-level-element i))) (if result (progn (let (...) (while --dolist-tail-- ...)) (princ "\n")))) (setq --dolist-tail-- (cdr --dolist-tail--)))))
> (progn (insert-file-contents file) (setq result (libxml-parse-xml-region (point-min) (point-max))) (if (eq 'xcb (xelb-node-name result)) nil (setq result (xelb-node-subnode result))) (progn (or (eq 'xcb (xelb-node-name result)) (cl--assertion-failed '(eq 'xcb (xelb-node-name result)))) nil) (setq header (xelb-node-attr result 'header)) (if (string= header "xproto") nil (setq xelb-prefix (concat xelb-prefix header ":"))) (princ (format ";;; xcb-%s.el --- X11 %s -*- lexical-binding: t -..." header (let ((extension-name (xelb-node-attr result 'extension-name))) (if extension-name (concat extension-name " extension") "core protocol")) (file-name-nondirectory file))) (let ((extension-xname (xelb-node-attr result 'extension-xname)) (extension-name (xelb-node-attr result 'extension-name)) (major-version (xelb-node-attr result 'major-version)) (minor-version (xelb-node-attr result 'minor-version))) (if extension-xname (progn (pp (list 'defconst (intern (concat xelb-prefix "-extension-xname")) extension-xname)))) (if extension-name (progn (pp (list 'defconst (intern (concat xelb-prefix "-extension-name")) extension-name)))) (if major-version (progn (pp (list 'defconst (intern (concat xelb-prefix "-major-version")) (string-to-number major-version))))) (if minor-version (progn (pp (list 'defconst (intern (concat xelb-prefix "-minor-version")) (string-to-number minor-version))))) (if (or extension-xname extension-name major-version minor-version) (progn (princ "\n")))) (let ((--dolist-tail-- (xelb-node-subnodes result))) (while --dolist-tail-- (let ((i (car --dolist-tail--))) (let ((result (xelb-parse-top-level-element i))) (if result (progn (let ... ...) (princ "\n")))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (if xelb-error-alist (progn (pp (cons 'defconst (cons (intern (concat xelb-prefix "error-number-class-alist")) (cons (list ... xelb-error-alist) '...)))) (princ "\n"))) (if xelb-event-alist (progn (pp (cons 'defconst (cons (intern (concat xelb-prefix "event-number-class-alist")) (cons (list ... xelb-event-alist) '...)))) (princ "\n"))) (if xelb-xge-alist (progn (pp (cons 'defconst (cons (intern (concat xelb-prefix "xge-number-class-alist")) (cons (list ... xelb-xge-alist) '...)))) (princ "\n"))) (princ (format "\f\n\n(provide 'xcb-%s)\n\n;;; xcb-%s.el ends here\n" header header)))
> (unwind-protect (progn (insert-file-contents file) (setq result (libxml-parse-xml-region (point-min) (point-max))) (if (eq 'xcb (xelb-node-name result)) nil (setq result (xelb-node-subnode result))) (progn (or (eq 'xcb (xelb-node-name result)) (cl--assertion-failed '(eq 'xcb (xelb-node-name result)))) nil) (setq header (xelb-node-attr result 'header)) (if (string= header "xproto") nil (setq xelb-prefix (concat xelb-prefix header ":"))) (princ (format ";;; xcb-%s.el --- X11 %s -*- lexical-binding: t -..." header (let ((extension-name (xelb-node-attr result ...))) (if extension-name (concat extension-name " extension") "core protocol")) (file-name-nondirectory file))) (let ((extension-xname (xelb-node-attr result 'extension-xname)) (extension-name (xelb-node-attr result 'extension-name)) (major-version (xelb-node-attr result 'major-version)) (minor-version (xelb-node-attr result 'minor-version))) (if extension-xname (progn (pp (list 'defconst (intern ...) extension-xname)))) (if extension-name (progn (pp (list 'defconst (intern ...) extension-name)))) (if major-version (progn (pp (list 'defconst (intern ...) (string-to-number major-version))))) (if minor-version (progn (pp (list 'defconst (intern ...) (string-to-number minor-version))))) (if (or extension-xname extension-name major-version minor-version) (progn (princ "\n")))) (let ((--dolist-tail-- (xelb-node-subnodes result))) (while --dolist-tail-- (let ((i (car --dolist-tail--))) (let ((result ...)) (if result (progn ... ...))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (if xelb-error-alist (progn (pp (cons 'defconst (cons (intern ...) (cons ... ...)))) (princ "\n"))) (if xelb-event-alist (progn (pp (cons 'defconst (cons (intern ...) (cons ... ...)))) (princ "\n"))) (if xelb-xge-alist (progn (pp (cons 'defconst (cons (intern ...) (cons ... ...)))) (princ "\n"))) (princ (format "\f\n\n(provide 'xcb-%s)\n\n;;; xcb-%s.el ends here\n" header header))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
> (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents file) (setq result (libxml-parse-xml-region (point-min) (point-max))) (if (eq 'xcb (xelb-node-name result)) nil (setq result (xelb-node-subnode result))) (progn (or (eq 'xcb (xelb-node-name result)) (cl--assertion-failed '(eq ... ...))) nil) (setq header (xelb-node-attr result 'header)) (if (string= header "xproto") nil (setq xelb-prefix (concat xelb-prefix header ":"))) (princ (format ";;; xcb-%s.el --- X11 %s -*- lexical-binding: t -..." header (let ((extension-name ...)) (if extension-name (concat extension-name " extension") "core protocol")) (file-name-nondirectory file))) (let ((extension-xname (xelb-node-attr result 'extension-xname)) (extension-name (xelb-node-attr result 'extension-name)) (major-version (xelb-node-attr result 'major-version)) (minor-version (xelb-node-attr result 'minor-version))) (if extension-xname (progn (pp (list ... ... extension-xname)))) (if extension-name (progn (pp (list ... ... extension-name)))) (if major-version (progn (pp (list ... ... ...)))) (if minor-version (progn (pp (list ... ... ...)))) (if (or extension-xname extension-name major-version minor-version) (progn (princ "\n")))) (let ((--dolist-tail-- (xelb-node-subnodes result))) (while --dolist-tail-- (let ((i ...)) (let (...) (if result ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (if xelb-error-alist (progn (pp (cons 'defconst (cons ... ...))) (princ "\n"))) (if xelb-event-alist (progn (pp (cons 'defconst (cons ... ...))) (princ "\n"))) (if xelb-xge-alist (progn (pp (cons 'defconst (cons ... ...))) (princ "\n"))) (princ (format "\f\n\n(provide 'xcb-%s)\n\n;;; xcb-%s.el ends here\n" header header))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))
> (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents file) (setq result (libxml-parse-xml-region (point-min) (point-max))) (if (eq 'xcb (xelb-node-name result)) nil (setq result (xelb-node-subnode result))) (progn (or (eq 'xcb (xelb-node-name result)) (cl--assertion-failed '...)) nil) (setq header (xelb-node-attr result 'header)) (if (string= header "xproto") nil (setq xelb-prefix (concat xelb-prefix header ":"))) (princ (format ";;; xcb-%s.el --- X11 %s -*- lexical-binding: t -..." header (let (...) (if extension-name ... "core protocol")) (file-name-nondirectory file))) (let ((extension-xname (xelb-node-attr result ...)) (extension-name (xelb-node-attr result ...)) (major-version (xelb-node-attr result ...)) (minor-version (xelb-node-attr result ...))) (if extension-xname (progn (pp ...))) (if extension-name (progn (pp ...))) (if major-version (progn (pp ...))) (if minor-version (progn (pp ...))) (if (or extension-xname extension-name major-version minor-version) (progn (princ "\n")))) (let ((--dolist-tail-- (xelb-node-subnodes result))) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...)))) (if xelb-error-alist (progn (pp (cons ... ...)) (princ "\n"))) (if xelb-event-alist (progn (pp (cons ... ...)) (princ "\n"))) (if xelb-xge-alist (progn (pp (cons ... ...)) (princ "\n"))) (princ (format "\f\n\n(provide 'xcb-%s)\n\n;;; xcb-%s.el ends here\n" header header))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))
> (let ((pp-escape-newlines nil) result header) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents file) (setq result (libxml-parse-xml-region (point-min) (point-max))) (if (eq 'xcb (xelb-node-name result)) nil (setq result (xelb-node-subnode result))) (progn (or (eq ... ...) (cl--assertion-failed ...)) nil) (setq header (xelb-node-attr result 'header)) (if (string= header "xproto") nil (setq xelb-prefix (concat xelb-prefix header ":"))) (princ (format ";;; xcb-%s.el --- X11 %s -*- lexical-binding: t -..." header (let ... ...) (file-name-nondirectory file))) (let ((extension-xname ...) (extension-name ...) (major-version ...) (minor-version ...)) (if extension-xname (progn ...)) (if extension-name (progn ...)) (if major-version (progn ...)) (if minor-version (progn ...)) (if (or extension-xname extension-name major-version minor-version) (progn ...))) (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ...))) (if xelb-error-alist (progn (pp ...) (princ "\n"))) (if xelb-event-alist (progn (pp ...) (princ "\n"))) (if xelb-xge-alist (progn (pp ...) (princ "\n"))) (princ (format "\f\n\n(provide 'xcb-%s)\n\n;;; xcb-%s.el ends here\n" header header))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))
> xelb-parse("/usr/share/xcb/xinput.xml")
> (if (not argv) (error "Usage: el_client.el <protocol.xml> [additional_loa...") (add-to-list 'load-path default-directory) (let ((--dolist-tail-- (cdr argv))) (while --dolist-tail-- (let ((i (car --dolist-tail--))) (add-to-list 'load-path i) (setq --dolist-tail-- (cdr --dolist-tail--))))) (require 'xcb-types) (xelb-parse (car argv)))
> eval-buffer(#<buffer *load*> nil "/<<PKGBUILDDIR>>/el_client.el" nil t) ; Reading at buffer position 29855
> load-with-code-conversion("/<<PKGBUILDDIR>>/el_client.el" "/<<PKGBUILDDIR>>/el_client.el" nil t)
> load("/<<PKGBUILDDIR>>/el_client.el" nil t t)
> command-line-1(("-scriptload" "./el_client.el" "/usr/share/xcb/xinput.xml"))
> command-line()
> normal-top-level()
>
> make[1]: *** [Makefile:15: xcb-xinput.el] Error 255
The full build log is available from:
http://qa-logs.debian.net/2022/08/13/xelb_0.18-2_unstable.log
All bugs filed during this archive rebuild are listed at:
https://bugs.debian.org/cgi-bin/pkgreport.cgi?tag=ftbfs-20220813;users=lucas@debian.org
or:
https://udd.debian.org/bugs/?release=na&merged=ign&fnewerval=7&flastmodval=7&fusertag=only&fusertagtag=ftbfs-20220813&fusertaguser=lucas@debian.org&allbugs=1&cseverity=1&ctags=1&caffected=1#results
A list of current common problems and possible solutions is available at
http://wiki.debian.org/qa.debian.org/FTBFS . You're welcome to contribute!
If you reassign this bug to another package, please marking it as 'affects'-ing
this package. See https://www.debian.org/Bugs/server-control#affects
If you fail to reproduce this, please provide a build log and diff it with mine
so that we can identify if something relevant changed in the meantime.
--- End Message ---
--- Begin Message ---
Source: xelb
Source-Version: 0.18-3
Done: Martin <debacle@debian.org>
We believe that the bug you reported is fixed in the latest version of
xelb, which is due to be installed in the Debian FTP archive.
A summary of the changes between this version and the previous one is
attached.
Thank you for reporting the bug, which will now be closed. If you
have further comments please address them to 1017294@bugs.debian.org,
and the maintainer will reopen the bug report if appropriate.
Debian distribution maintenance software
pp.
Martin <debacle@debian.org> (supplier of updated xelb package)
(This message was generated automatically at their request; if you
believe that there is a problem with it please contact the archive
administrators by mailing ftpmaster@ftp-master.debian.org)
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA512
Format: 1.8
Date: Sun, 14 Aug 2022 09:27:17 +0000
Source: xelb
Architecture: source
Version: 0.18-3
Distribution: unstable
Urgency: medium
Maintainer: Debian Emacsen team <debian-emacsen@lists.debian.org>
Changed-By: Martin <debacle@debian.org>
Closes: 1017294
Changes:
xelb (0.18-3) unstable; urgency=medium
.
* workaround: ignore "length" element (Closes: #1017294)
Checksums-Sha1:
ccd536272e1520a73ea8018f6752a952c9d9c41b 1870 xelb_0.18-3.dsc
0b4958093c31715fd9b894fea6a99d48397892fd 2220 xelb_0.18-3.debian.tar.xz
d92d1fa389fa39b87ede9564f4e9ebe632e2c166 8088 xelb_0.18-3_amd64.buildinfo
Checksums-Sha256:
fcf0e7581dc1f2b45b14cf67d0772d5cd91b65fd8a507fdc0707559862491f3a 1870 xelb_0.18-3.dsc
ff2b6a9ade9f018104aaea76976759a77b1d8a820783846be6692a34927bd082 2220 xelb_0.18-3.debian.tar.xz
d95db8cd5ead5b5193c7364d1cea4d95b190792cc87b4f635b94ba7305773e05 8088 xelb_0.18-3_amd64.buildinfo
Files:
70fc8806fb7ec2bd1d4696416a37b2ff 1870 editors optional xelb_0.18-3.dsc
8de1e5f57dca3405586107ef426ee92e 2220 editors optional xelb_0.18-3.debian.tar.xz
e75f2e7e263066b7e9d9ca2ba520b0ed 8088 editors optional xelb_0.18-3_amd64.buildinfo
-----BEGIN PGP SIGNATURE-----
iQIzBAEBCgAdFiEEftHeo0XZoKEY1KdA4+Chwoa5Y+oFAmL8GnEACgkQ4+Chwoa5
Y+rx8RAAozZBsE6E+eJtFZZakLLSIZxk26pzlcCdINL/nW4kQKRFZE2IasV0Og3X
JO434z56K76bXjUOjoqKXdEOTGH5iX1Ld0NfYJG23NFGkDwzFl3UtwgzN4UyuHQX
1YLsdIQ1vSoL7xaiZ8g3ws10wwruIEJh0akA9j0dkPswY8Jqk0yLwjxVIMM3se+/
YDm9GKZ64euAofp8vO0M25KQwk0ZCqeRNXbyMTrWjRHXrWt8HpEu2+DXD1dFcKgh
UWUCXkA/9aXS8hFhScT0r4cWXRH4LZvpUjhI4H2DBd72COO0dmjX/3cuoIId7E7k
0J3Gd5rfYN292EjBN243wdJmZIerO1UlNx6buAHFwDrvI2H9JNijC6UxN3G79HLs
rIXX7tT36Xbun4cusLoMkXj2VL+wPSwT9rVo34meIHoDAUPoKMdXQR1PESNUZHid
wk+Axy4DGI0N+Sh3BBMMT+dca53kw1WQyDjBhdTO7CCzbzD4ud9EKCvM8MBfC9Ka
sFt24LDJ8YESrbbMqDdRC/EBxYfdMBQSfNwlcaVqfuv46/MsV1aHOVScc96M0pI6
8fT+DS58TXR4MjkjyiGfatesqlfYZunH0MeMzJprltsHwZMKAngZnUWmHzBmR4T8
CMTsKdUBv/WY1rO28aXUmxGTwVe1HG2cTR0xOK1bDbrQd9jWJ3E=
=WHhL
-----END PGP SIGNATURE-----
--- End Message ---
Reply to: