From 4da3ad1f569832845b58c3ce35149633a2bb665c Mon Sep 17 00:00:00 2001
From: Uko Kokņevičs
Date: Thu, 9 Oct 2025 21:58:43 +0300
Subject: Initial commit

---
 src/tg-types/update.lisp | 47 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)
 create mode 100644 src/tg-types/update.lisp

(limited to 'src/tg-types/update.lisp')

diff --git a/src/tg-types/update.lisp b/src/tg-types/update.lisp
new file mode 100644
index 0000000..9043d54
--- /dev/null
+++ b/src/tg-types/update.lisp
@@ -0,0 +1,47 @@
+;; SPDX-License-Identifier: EUPL-1.2
+;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
+(defpackage :ukkoclot/tg-types/update
+  (:use :c2cl :ukkoclot/tg-types/macros
+   :ukkoclot/tg-types/callback-query
+   :ukkoclot/tg-types/message)
+  (:export
+   update update-p
+
+   hash->update make-update parse-update-array
+
+   update-update-id update-message update-edited-message update-channel-post update-edited-channel-post
+   ;; update-business-connection
+   update-business-message update-edited-business-message
+   ;; update-deleted-business-messages update-message-reaction update-message-reaction-count update-inline-query
+   ;; update-chosen-inline-result
+   update-callback-query
+   ;; update-shipping-query update-pre-checkout-query update-poll update-poll-answer update-my-chat-member
+   ;; update-chat-member update-chat-join-request update-chat-boost update-removed-chat-boost
+   ))
+(in-package :ukkoclot/tg-types/update)
+
+(define-tg-type update
+  (update-id integer)
+  (message (or message null) nil :parser hash->message)
+  (edited-message (or message null) nil :parser hash->message)
+  (channel-post (or message null) nil :parser hash->message)
+  (edited-channel-post (or message null) nil :parser hash->message)
+  ;; (business-connection (or business-connection null) nil)
+  (business-message (or message null) nil :parser hash->message)
+  (edited-business-message (or message null) nil :parser hash->message)
+  ;; (deleted-business-messages (or business-messages-deleted null) nil)
+  ;; (message-reaction (or message-reaction-updated null) nil)
+  ;; (message-reaction-count (or message-reaction-count-updated null) nil)
+  ;; (inline-query (or inline-query null) nil)
+  ;; (chosen-inline-result (or chosen-inline-result null) nil)
+  (callback-query (or callback-query null) nil :parser hash->callback-query)
+  ;; (shipping-query (or shipping-query null) nil)
+  ;; (pre-checkout-query (or pre-checkout-query null) nil)
+  ;; (poll (or poll null) nil)
+  ;; (poll-answer (or poll-answer null) nil)
+  ;; (my-chat-member (or chat-member-updated null) nil)
+  ;; (chat-member (or chat-member-updated null) nil)
+  ;; (chat-join-request (or chat-join-request null) nil)
+  ;; (chat-boost (or chat-boost-updated null) nil)
+  ;; (removed-chat-boost (or chat-boost-removed) nil)
+  )
-- 
cgit v1.2.3