summaryrefslogtreecommitdiff
path: root/elpa/xelb-0.20/xcb-sync.el
diff options
context:
space:
mode:
Diffstat (limited to 'elpa/xelb-0.20/xcb-sync.el')
-rw-r--r--elpa/xelb-0.20/xcb-sync.el340
1 files changed, 340 insertions, 0 deletions
diff --git a/elpa/xelb-0.20/xcb-sync.el b/elpa/xelb-0.20/xcb-sync.el
new file mode 100644
index 0000000..698ee59
--- /dev/null
+++ b/elpa/xelb-0.20/xcb-sync.el
@@ -0,0 +1,340 @@
+;;; xcb-sync.el --- X11 Sync extension -*- lexical-binding: t -*-
+
+;; Copyright (C) 2015-2024 Free Software Foundation, Inc.
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; This file was generated by 'xelb-gen' from 'sync.xml',
+;; which you can retrieve from <git://anongit.freedesktop.org/xcb/proto>.
+
+;;; Code:
+
+(require 'xcb-types)
+
+(defconst xcb:sync:-extension-xname "SYNC")
+(defconst xcb:sync:-extension-name "Sync")
+(defconst xcb:sync:-major-version 3)
+(defconst xcb:sync:-minor-version 1)
+
+(require 'xcb-xproto)
+
+(xcb:deftypealias 'xcb:sync:ALARM 'xcb:-u4)
+
+(defconst xcb:sync:ALARMSTATE:Active 0)
+(defconst xcb:sync:ALARMSTATE:Inactive 1)
+(defconst xcb:sync:ALARMSTATE:Destroyed 2)
+
+(xcb:deftypealias 'xcb:sync:COUNTER 'xcb:-u4)
+
+(xcb:deftypealias 'xcb:sync:FENCE 'xcb:-u4)
+
+(defconst xcb:sync:TESTTYPE:PositiveTransition 0)
+(defconst xcb:sync:TESTTYPE:NegativeTransition 1)
+(defconst xcb:sync:TESTTYPE:PositiveComparison 2)
+(defconst xcb:sync:TESTTYPE:NegativeComparison 3)
+
+(defconst xcb:sync:VALUETYPE:Absolute 0)
+(defconst xcb:sync:VALUETYPE:Relative 1)
+
+(defconst xcb:sync:CA:Counter 1)
+(defconst xcb:sync:CA:ValueType 2)
+(defconst xcb:sync:CA:Value 4)
+(defconst xcb:sync:CA:TestType 8)
+(defconst xcb:sync:CA:Delta 16)
+(defconst xcb:sync:CA:Events 32)
+
+(defclass xcb:sync:INT64
+ (xcb:-struct)
+ ((hi :initarg :hi :type xcb:INT32)
+ (lo :initarg :lo :type xcb:CARD32)))
+
+(defclass xcb:sync:SYSTEMCOUNTER
+ (xcb:-struct)
+ ((counter :initarg :counter :type xcb:sync:COUNTER)
+ (resolution :initarg :resolution :type xcb:sync:INT64)
+ (name-len :initarg :name-len :type xcb:CARD16)
+ (name~ :initform
+ '(name name type xcb:char size
+ (xcb:-fieldref 'name-len))
+ :type xcb:-list)
+ (name :initarg :name :type xcb:-ignore)
+ (pad~0 :initform 4 :type xcb:-pad-align)))
+
+(defclass xcb:sync:TRIGGER
+ (xcb:-struct)
+ ((counter :initarg :counter :type xcb:sync:COUNTER)
+ (wait-type :initarg :wait-type :type xcb:CARD32)
+ (wait-value :initarg :wait-value :type xcb:sync:INT64)
+ (test-type :initarg :test-type :type xcb:CARD32)))
+
+(defclass xcb:sync:WAITCONDITION
+ (xcb:-struct)
+ ((trigger :initarg :trigger :type xcb:sync:TRIGGER)
+ (event-threshold :initarg :event-threshold :type xcb:sync:INT64)))
+
+(defclass xcb:sync:Counter
+ (xcb:-error)
+ ((~code :initform 0)
+ (bad-counter :initarg :bad-counter :type xcb:CARD32)
+ (minor-opcode :initarg :minor-opcode :type xcb:CARD16)
+ (major-opcode :initarg :major-opcode :type xcb:CARD8)))
+
+(defclass xcb:sync:Alarm
+ (xcb:-error)
+ ((~code :initform 1)
+ (bad-alarm :initarg :bad-alarm :type xcb:CARD32)
+ (minor-opcode :initarg :minor-opcode :type xcb:CARD16)
+ (major-opcode :initarg :major-opcode :type xcb:CARD8)))
+
+(defclass xcb:sync:Initialize
+ (xcb:-request)
+ ((~opcode :initform 0 :type xcb:-u1)
+ (desired-major-version :initarg :desired-major-version :type xcb:CARD8)
+ (desired-minor-version :initarg :desired-minor-version :type xcb:CARD8)))
+(defclass xcb:sync:Initialize~reply
+ (xcb:-reply)
+ ((pad~0 :initform 1 :type xcb:-pad)
+ (~sequence :type xcb:CARD16)
+ (length :type xcb:CARD32)
+ (major-version :initarg :major-version :type xcb:CARD8)
+ (minor-version :initarg :minor-version :type xcb:CARD8)
+ (pad~1 :initform 22 :type xcb:-pad)))
+
+(defclass xcb:sync:ListSystemCounters
+ (xcb:-request)
+ ((~opcode :initform 1 :type xcb:-u1)))
+(defclass xcb:sync:ListSystemCounters~reply
+ (xcb:-reply)
+ ((pad~0 :initform 1 :type xcb:-pad)
+ (~sequence :type xcb:CARD16)
+ (length :type xcb:CARD32)
+ (counters-len :initarg :counters-len :type xcb:CARD32)
+ (pad~1 :initform 20 :type xcb:-pad)
+ (counters~ :initform
+ '(name counters type xcb:sync:SYSTEMCOUNTER size
+ (xcb:-fieldref 'counters-len))
+ :type xcb:-list)
+ (counters :initarg :counters :type xcb:-ignore)))
+
+(defclass xcb:sync:CreateCounter
+ (xcb:-request)
+ ((~opcode :initform 2 :type xcb:-u1)
+ (id :initarg :id :type xcb:sync:COUNTER)
+ (initial-value :initarg :initial-value :type xcb:sync:INT64)))
+
+(defclass xcb:sync:DestroyCounter
+ (xcb:-request)
+ ((~opcode :initform 6 :type xcb:-u1)
+ (counter :initarg :counter :type xcb:sync:COUNTER)))
+
+(defclass xcb:sync:QueryCounter
+ (xcb:-request)
+ ((~opcode :initform 5 :type xcb:-u1)
+ (counter :initarg :counter :type xcb:sync:COUNTER)))
+(defclass xcb:sync:QueryCounter~reply
+ (xcb:-reply)
+ ((pad~0 :initform 1 :type xcb:-pad)
+ (~sequence :type xcb:CARD16)
+ (length :type xcb:CARD32)
+ (counter-value :initarg :counter-value :type xcb:sync:INT64)))
+
+(defclass xcb:sync:Await
+ (xcb:-request)
+ ((~opcode :initform 7 :type xcb:-u1)
+ (wait-list~ :initform
+ '(name wait-list type xcb:sync:WAITCONDITION size nil)
+ :type xcb:-list)
+ (wait-list :initarg :wait-list :type xcb:-ignore)))
+
+(defclass xcb:sync:ChangeCounter
+ (xcb:-request)
+ ((~opcode :initform 4 :type xcb:-u1)
+ (counter :initarg :counter :type xcb:sync:COUNTER)
+ (amount :initarg :amount :type xcb:sync:INT64)))
+
+(defclass xcb:sync:SetCounter
+ (xcb:-request)
+ ((~opcode :initform 3 :type xcb:-u1)
+ (counter :initarg :counter :type xcb:sync:COUNTER)
+ (value :initarg :value :type xcb:sync:INT64)))
+
+(defclass xcb:sync:CreateAlarm
+ (xcb:-request)
+ ((~opcode :initform 8 :type xcb:-u1)
+ (id :initarg :id :type xcb:sync:ALARM)
+ (value-mask :initarg :value-mask :type xcb:CARD32)
+ (value-list :initform
+ '(expression
+ (xcb:-fieldref 'value-mask)
+ cases
+ ((1 counter)
+ (2 valueType)
+ (4 value)
+ (8 testType)
+ (16 delta)
+ (32 events)))
+ :type xcb:-switch)
+ (counter :initarg :counter :type xcb:sync:COUNTER)
+ (valueType :initarg :valueType :type xcb:CARD32)
+ (value :initarg :value :type xcb:sync:INT64)
+ (testType :initarg :testType :type xcb:CARD32)
+ (delta :initarg :delta :type xcb:sync:INT64)
+ (events :initarg :events :type xcb:CARD32)))
+
+(defclass xcb:sync:ChangeAlarm
+ (xcb:-request)
+ ((~opcode :initform 9 :type xcb:-u1)
+ (id :initarg :id :type xcb:sync:ALARM)
+ (value-mask :initarg :value-mask :type xcb:CARD32)
+ (value-list :initform
+ '(expression
+ (xcb:-fieldref 'value-mask)
+ cases
+ ((1 counter)
+ (2 valueType)
+ (4 value)
+ (8 testType)
+ (16 delta)
+ (32 events)))
+ :type xcb:-switch)
+ (counter :initarg :counter :type xcb:sync:COUNTER)
+ (valueType :initarg :valueType :type xcb:CARD32)
+ (value :initarg :value :type xcb:sync:INT64)
+ (testType :initarg :testType :type xcb:CARD32)
+ (delta :initarg :delta :type xcb:sync:INT64)
+ (events :initarg :events :type xcb:CARD32)))
+
+(defclass xcb:sync:DestroyAlarm
+ (xcb:-request)
+ ((~opcode :initform 11 :type xcb:-u1)
+ (alarm :initarg :alarm :type xcb:sync:ALARM)))
+
+(defclass xcb:sync:QueryAlarm
+ (xcb:-request)
+ ((~opcode :initform 10 :type xcb:-u1)
+ (alarm :initarg :alarm :type xcb:sync:ALARM)))
+(defclass xcb:sync:QueryAlarm~reply
+ (xcb:-reply)
+ ((pad~0 :initform 1 :type xcb:-pad)
+ (~sequence :type xcb:CARD16)
+ (length :type xcb:CARD32)
+ (trigger :initarg :trigger :type xcb:sync:TRIGGER)
+ (delta :initarg :delta :type xcb:sync:INT64)
+ (events :initarg :events :type xcb:BOOL)
+ (state :initarg :state :type xcb:CARD8)
+ (pad~1 :initform 2 :type xcb:-pad)))
+
+(defclass xcb:sync:SetPriority
+ (xcb:-request)
+ ((~opcode :initform 12 :type xcb:-u1)
+ (id :initarg :id :type xcb:CARD32)
+ (priority :initarg :priority :type xcb:INT32)))
+
+(defclass xcb:sync:GetPriority
+ (xcb:-request)
+ ((~opcode :initform 13 :type xcb:-u1)
+ (id :initarg :id :type xcb:CARD32)))
+(defclass xcb:sync:GetPriority~reply
+ (xcb:-reply)
+ ((pad~0 :initform 1 :type xcb:-pad)
+ (~sequence :type xcb:CARD16)
+ (length :type xcb:CARD32)
+ (priority :initarg :priority :type xcb:INT32)))
+
+(defclass xcb:sync:CreateFence
+ (xcb:-request)
+ ((~opcode :initform 14 :type xcb:-u1)
+ (drawable :initarg :drawable :type xcb:DRAWABLE)
+ (fence :initarg :fence :type xcb:sync:FENCE)
+ (initially-triggered :initarg :initially-triggered :type xcb:BOOL)))
+
+(defclass xcb:sync:TriggerFence
+ (xcb:-request)
+ ((~opcode :initform 15 :type xcb:-u1)
+ (fence :initarg :fence :type xcb:sync:FENCE)))
+
+(defclass xcb:sync:ResetFence
+ (xcb:-request)
+ ((~opcode :initform 16 :type xcb:-u1)
+ (fence :initarg :fence :type xcb:sync:FENCE)))
+
+(defclass xcb:sync:DestroyFence
+ (xcb:-request)
+ ((~opcode :initform 17 :type xcb:-u1)
+ (fence :initarg :fence :type xcb:sync:FENCE)))
+
+(defclass xcb:sync:QueryFence
+ (xcb:-request)
+ ((~opcode :initform 18 :type xcb:-u1)
+ (fence :initarg :fence :type xcb:sync:FENCE)))
+(defclass xcb:sync:QueryFence~reply
+ (xcb:-reply)
+ ((pad~0 :initform 1 :type xcb:-pad)
+ (~sequence :type xcb:CARD16)
+ (length :type xcb:CARD32)
+ (triggered :initarg :triggered :type xcb:BOOL)
+ (pad~1 :initform 23 :type xcb:-pad)))
+
+(defclass xcb:sync:AwaitFence
+ (xcb:-request)
+ ((~opcode :initform 19 :type xcb:-u1)
+ (fence-list~ :initform
+ '(name fence-list type xcb:sync:FENCE size nil)
+ :type xcb:-list)
+ (fence-list :initarg :fence-list :type xcb:-ignore)))
+
+(defclass xcb:sync:CounterNotify
+ (xcb:-event)
+ ((~code :initform 0)
+ (kind :initarg :kind :type xcb:CARD8)
+ (~sequence :type xcb:CARD16)
+ (counter :initarg :counter :type xcb:sync:COUNTER)
+ (wait-value :initarg :wait-value :type xcb:sync:INT64)
+ (counter-value :initarg :counter-value :type xcb:sync:INT64)
+ (timestamp :initarg :timestamp :type xcb:TIMESTAMP)
+ (count :initarg :count :type xcb:CARD16)
+ (destroyed :initarg :destroyed :type xcb:BOOL)
+ (pad~0 :initform 1 :type xcb:-pad)))
+
+(defclass xcb:sync:AlarmNotify
+ (xcb:-event)
+ ((~code :initform 1)
+ (kind :initarg :kind :type xcb:CARD8)
+ (~sequence :type xcb:CARD16)
+ (alarm :initarg :alarm :type xcb:sync:ALARM)
+ (counter-value :initarg :counter-value :type xcb:sync:INT64)
+ (alarm-value :initarg :alarm-value :type xcb:sync:INT64)
+ (timestamp :initarg :timestamp :type xcb:TIMESTAMP)
+ (state :initarg :state :type xcb:CARD8)
+ (pad~0 :initform 3 :type xcb:-pad)))
+
+(defconst xcb:sync:error-number-class-alist
+ '((0 . xcb:sync:Counter)
+ (1 . xcb:sync:Alarm))
+ "(error-number . error-class) alist.")
+
+(defconst xcb:sync:event-number-class-alist
+ '((0 . xcb:sync:CounterNotify)
+ (1 . xcb:sync:AlarmNotify))
+ "(event-number . event-class) alist.")
+
+
+
+(provide 'xcb-sync)
+
+;;; xcb-sync.el ends here
generated by cgit v1.2.3 (git 2.39.1) at 2025-04-20 06:22:36 +0000