You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
26189 lines
1.2 MiB
26189 lines
1.2 MiB
;;;; AUTOGENERATED from protobuf definitions |
|
;;;; Compiler used: https://github.com/brown/protobuf |
|
|
|
(cl:in-package :whatscl/protobuf) |
|
(cl:declaim #.com.google.base:*optimize-default*) |
|
|
|
(cl:deftype ad-reply-info-ad-reply-info-mediatype () '(cl:member 0 1 2)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'ad-reply-info-ad-reply-info-mediatype)) |
|
|
|
(cl:defconstant +ad-reply-info-ad-reply-info-mediatype-none+ 0) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+ad-reply-info-ad-reply-info-mediatype-none+)) |
|
(cl:defconstant +ad-reply-info-ad-reply-info-mediatype-image+ 1) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+ad-reply-info-ad-reply-info-mediatype-image+)) |
|
(cl:defconstant +ad-reply-info-ad-reply-info-mediatype-video+ 2) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+ad-reply-info-ad-reply-info-mediatype-video+)) |
|
|
|
(cl:defconstant +minimum-ad-reply-info-ad-reply-info-mediatype+ +ad-reply-info-ad-reply-info-mediatype-none+) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+minimum-ad-reply-info-ad-reply-info-mediatype+)) |
|
(cl:defconstant +maximum-ad-reply-info-ad-reply-info-mediatype+ +ad-reply-info-ad-reply-info-mediatype-video+) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+maximum-ad-reply-info-ad-reply-info-mediatype+)) |
|
|
|
(cl:deftype extended-text-message-extended-text-message-fonttype () '(cl:member 0 1 2 3 4 5)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'extended-text-message-extended-text-message-fonttype)) |
|
|
|
(cl:defconstant +extended-text-message-extended-text-message-fonttype-sans-serif+ 0) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+extended-text-message-extended-text-message-fonttype-sans-serif+)) |
|
(cl:defconstant +extended-text-message-extended-text-message-fonttype-serif+ 1) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+extended-text-message-extended-text-message-fonttype-serif+)) |
|
(cl:defconstant +extended-text-message-extended-text-message-fonttype-norican-regular+ 2) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+extended-text-message-extended-text-message-fonttype-norican-regular+)) |
|
(cl:defconstant +extended-text-message-extended-text-message-fonttype-bryndan-write+ 3) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+extended-text-message-extended-text-message-fonttype-bryndan-write+)) |
|
(cl:defconstant +extended-text-message-extended-text-message-fonttype-bebasneue-regular+ 4) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+extended-text-message-extended-text-message-fonttype-bebasneue-regular+)) |
|
(cl:defconstant +extended-text-message-extended-text-message-fonttype-oswald-heavy+ 5) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+extended-text-message-extended-text-message-fonttype-oswald-heavy+)) |
|
|
|
(cl:defconstant +minimum-extended-text-message-extended-text-message-fonttype+ +extended-text-message-extended-text-message-fonttype-sans-serif+) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+minimum-extended-text-message-extended-text-message-fonttype+)) |
|
(cl:defconstant +maximum-extended-text-message-extended-text-message-fonttype+ +extended-text-message-extended-text-message-fonttype-oswald-heavy+) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+maximum-extended-text-message-extended-text-message-fonttype+)) |
|
|
|
(cl:deftype extended-text-message-extended-text-message-previewtype () '(cl:member 0 1)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'extended-text-message-extended-text-message-previewtype)) |
|
|
|
(cl:defconstant +extended-text-message-extended-text-message-previewtype-none+ 0) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+extended-text-message-extended-text-message-previewtype-none+)) |
|
(cl:defconstant +extended-text-message-extended-text-message-previewtype-video+ 1) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+extended-text-message-extended-text-message-previewtype-video+)) |
|
|
|
(cl:defconstant +minimum-extended-text-message-extended-text-message-previewtype+ +extended-text-message-extended-text-message-previewtype-none+) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+minimum-extended-text-message-extended-text-message-previewtype+)) |
|
(cl:defconstant +maximum-extended-text-message-extended-text-message-previewtype+ +extended-text-message-extended-text-message-previewtype-video+) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+maximum-extended-text-message-extended-text-message-previewtype+)) |
|
|
|
(cl:deftype video-message-video-message-attribution () '(cl:member 0 1 2)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'video-message-video-message-attribution)) |
|
|
|
(cl:defconstant +video-message-video-message-attribution-none+ 0) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+video-message-video-message-attribution-none+)) |
|
(cl:defconstant +video-message-video-message-attribution-giphy+ 1) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+video-message-video-message-attribution-giphy+)) |
|
(cl:defconstant +video-message-video-message-attribution-tenor+ 2) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+video-message-video-message-attribution-tenor+)) |
|
|
|
(cl:defconstant +minimum-video-message-video-message-attribution+ +video-message-video-message-attribution-none+) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+minimum-video-message-video-message-attribution+)) |
|
(cl:defconstant +maximum-video-message-video-message-attribution+ +video-message-video-message-attribution-tenor+) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+maximum-video-message-video-message-attribution+)) |
|
|
|
(cl:deftype protocol-message-protocol-message-type () '(cl:member 0 3 4 5)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'protocol-message-protocol-message-type)) |
|
|
|
(cl:defconstant +protocol-message-protocol-message-type-revoke+ 0) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+protocol-message-protocol-message-type-revoke+)) |
|
(cl:defconstant +protocol-message-protocol-message-type-ephemeral-setting+ 3) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+protocol-message-protocol-message-type-ephemeral-setting+)) |
|
(cl:defconstant +protocol-message-protocol-message-type-ephemeral-sync-response+ 4) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+protocol-message-protocol-message-type-ephemeral-sync-response+)) |
|
(cl:defconstant +protocol-message-protocol-message-type-history-sync-notification+ 5) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+protocol-message-protocol-message-type-history-sync-notification+)) |
|
|
|
(cl:defconstant +minimum-protocol-message-protocol-message-type+ +protocol-message-protocol-message-type-revoke+) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+minimum-protocol-message-protocol-message-type+)) |
|
(cl:defconstant +maximum-protocol-message-protocol-message-type+ +protocol-message-protocol-message-type-history-sync-notification+) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+maximum-protocol-message-protocol-message-type+)) |
|
|
|
(cl:deftype history-sync-notification-history-sync-notification-historysynctype () '(cl:member 0 1 2 3)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'history-sync-notification-history-sync-notification-historysynctype)) |
|
|
|
(cl:defconstant +history-sync-notification-history-sync-notification-historysynctype-initial-bootstrap+ 0) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+history-sync-notification-history-sync-notification-historysynctype-initial-bootstrap+)) |
|
(cl:defconstant +history-sync-notification-history-sync-notification-historysynctype-initial-status-v3+ 1) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+history-sync-notification-history-sync-notification-historysynctype-initial-status-v3+)) |
|
(cl:defconstant +history-sync-notification-history-sync-notification-historysynctype-full+ 2) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+history-sync-notification-history-sync-notification-historysynctype-full+)) |
|
(cl:defconstant +history-sync-notification-history-sync-notification-historysynctype-recent+ 3) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+history-sync-notification-history-sync-notification-historysynctype-recent+)) |
|
|
|
(cl:defconstant +minimum-history-sync-notification-history-sync-notification-historysynctype+ +history-sync-notification-history-sync-notification-historysynctype-initial-bootstrap+) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+minimum-history-sync-notification-history-sync-notification-historysynctype+)) |
|
(cl:defconstant +maximum-history-sync-notification-history-sync-notification-historysynctype+ +history-sync-notification-history-sync-notification-historysynctype-recent+) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+maximum-history-sync-notification-history-sync-notification-historysynctype+)) |
|
|
|
(cl:deftype hsm-date-time-component-hsm-date-time-component-dayofweektype () '(cl:member 1 2 3 4 5 6 7)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'hsm-date-time-component-hsm-date-time-component-dayofweektype)) |
|
|
|
(cl:defconstant +hsm-date-time-component-hsm-date-time-component-dayofweektype-monday+ 1) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+hsm-date-time-component-hsm-date-time-component-dayofweektype-monday+)) |
|
(cl:defconstant +hsm-date-time-component-hsm-date-time-component-dayofweektype-tuesday+ 2) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+hsm-date-time-component-hsm-date-time-component-dayofweektype-tuesday+)) |
|
(cl:defconstant +hsm-date-time-component-hsm-date-time-component-dayofweektype-wednesday+ 3) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+hsm-date-time-component-hsm-date-time-component-dayofweektype-wednesday+)) |
|
(cl:defconstant +hsm-date-time-component-hsm-date-time-component-dayofweektype-thursday+ 4) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+hsm-date-time-component-hsm-date-time-component-dayofweektype-thursday+)) |
|
(cl:defconstant +hsm-date-time-component-hsm-date-time-component-dayofweektype-friday+ 5) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+hsm-date-time-component-hsm-date-time-component-dayofweektype-friday+)) |
|
(cl:defconstant +hsm-date-time-component-hsm-date-time-component-dayofweektype-saturday+ 6) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+hsm-date-time-component-hsm-date-time-component-dayofweektype-saturday+)) |
|
(cl:defconstant +hsm-date-time-component-hsm-date-time-component-dayofweektype-sunday+ 7) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+hsm-date-time-component-hsm-date-time-component-dayofweektype-sunday+)) |
|
|
|
(cl:defconstant +minimum-hsm-date-time-component-hsm-date-time-component-dayofweektype+ +hsm-date-time-component-hsm-date-time-component-dayofweektype-monday+) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+minimum-hsm-date-time-component-hsm-date-time-component-dayofweektype+)) |
|
(cl:defconstant +maximum-hsm-date-time-component-hsm-date-time-component-dayofweektype+ +hsm-date-time-component-hsm-date-time-component-dayofweektype-sunday+) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+maximum-hsm-date-time-component-hsm-date-time-component-dayofweektype+)) |
|
|
|
(cl:deftype hsm-date-time-component-hsm-date-time-component-calendartype () '(cl:member 1 2)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'hsm-date-time-component-hsm-date-time-component-calendartype)) |
|
|
|
(cl:defconstant +hsm-date-time-component-hsm-date-time-component-calendartype-gregorian+ 1) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+hsm-date-time-component-hsm-date-time-component-calendartype-gregorian+)) |
|
(cl:defconstant +hsm-date-time-component-hsm-date-time-component-calendartype-solar-hijri+ 2) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+hsm-date-time-component-hsm-date-time-component-calendartype-solar-hijri+)) |
|
|
|
(cl:defconstant +minimum-hsm-date-time-component-hsm-date-time-component-calendartype+ +hsm-date-time-component-hsm-date-time-component-calendartype-gregorian+) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+minimum-hsm-date-time-component-hsm-date-time-component-calendartype+)) |
|
(cl:defconstant +maximum-hsm-date-time-component-hsm-date-time-component-calendartype+ +hsm-date-time-component-hsm-date-time-component-calendartype-solar-hijri+) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+maximum-hsm-date-time-component-hsm-date-time-component-calendartype+)) |
|
|
|
(cl:deftype web-features-web-features-flag () '(cl:member 0 1 2 3)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'web-features-web-features-flag)) |
|
|
|
(cl:defconstant +web-features-web-features-flag-not-started+ 0) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-features-web-features-flag-not-started+)) |
|
(cl:defconstant +web-features-web-features-flag-force-upgrade+ 1) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-features-web-features-flag-force-upgrade+)) |
|
(cl:defconstant +web-features-web-features-flag-development+ 2) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-features-web-features-flag-development+)) |
|
(cl:defconstant +web-features-web-features-flag-production+ 3) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-features-web-features-flag-production+)) |
|
|
|
(cl:defconstant +minimum-web-features-web-features-flag+ +web-features-web-features-flag-not-started+) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+minimum-web-features-web-features-flag+)) |
|
(cl:defconstant +maximum-web-features-web-features-flag+ +web-features-web-features-flag-production+) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+maximum-web-features-web-features-flag+)) |
|
|
|
(cl:deftype payment-info-payment-info-currency () '(cl:member 0 1)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'payment-info-payment-info-currency)) |
|
|
|
(cl:defconstant +payment-info-payment-info-currency-unknown-currency+ 0) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-currency-unknown-currency+)) |
|
(cl:defconstant +payment-info-payment-info-currency-inr+ 1) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-currency-inr+)) |
|
|
|
(cl:defconstant +minimum-payment-info-payment-info-currency+ +payment-info-payment-info-currency-unknown-currency+) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+minimum-payment-info-payment-info-currency+)) |
|
(cl:defconstant +maximum-payment-info-payment-info-currency+ +payment-info-payment-info-currency-inr+) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+maximum-payment-info-payment-info-currency+)) |
|
|
|
(cl:deftype payment-info-payment-info-status () '(cl:member 0 1 2 3 4 5 6 7 8 9 10 11)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'payment-info-payment-info-status)) |
|
|
|
(cl:defconstant +payment-info-payment-info-status-unknown-status+ 0) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-status-unknown-status+)) |
|
(cl:defconstant +payment-info-payment-info-status-processing+ 1) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-status-processing+)) |
|
(cl:defconstant +payment-info-payment-info-status-sent+ 2) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-status-sent+)) |
|
(cl:defconstant +payment-info-payment-info-status-need-to-accept+ 3) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-status-need-to-accept+)) |
|
(cl:defconstant +payment-info-payment-info-status-complete+ 4) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-status-complete+)) |
|
(cl:defconstant +payment-info-payment-info-status-could-not-complete+ 5) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-status-could-not-complete+)) |
|
(cl:defconstant +payment-info-payment-info-status-refunded+ 6) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-status-refunded+)) |
|
(cl:defconstant +payment-info-payment-info-status-expired+ 7) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-status-expired+)) |
|
(cl:defconstant +payment-info-payment-info-status-rejected+ 8) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-status-rejected+)) |
|
(cl:defconstant +payment-info-payment-info-status-cancelled+ 9) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-status-cancelled+)) |
|
(cl:defconstant +payment-info-payment-info-status-waiting-for-payer+ 10) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-status-waiting-for-payer+)) |
|
(cl:defconstant +payment-info-payment-info-status-waiting+ 11) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-status-waiting+)) |
|
|
|
(cl:defconstant +minimum-payment-info-payment-info-status+ +payment-info-payment-info-status-unknown-status+) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+minimum-payment-info-payment-info-status+)) |
|
(cl:defconstant +maximum-payment-info-payment-info-status+ +payment-info-payment-info-status-waiting+) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+maximum-payment-info-payment-info-status+)) |
|
|
|
(cl:deftype payment-info-payment-info-txnstatus () '(cl:member 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'payment-info-payment-info-txnstatus)) |
|
|
|
(cl:defconstant +payment-info-payment-info-txnstatus-unknown+ 0) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-txnstatus-unknown+)) |
|
(cl:defconstant +payment-info-payment-info-txnstatus-pending-setup+ 1) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-txnstatus-pending-setup+)) |
|
(cl:defconstant +payment-info-payment-info-txnstatus-pending-receiver-setup+ 2) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-txnstatus-pending-receiver-setup+)) |
|
(cl:defconstant +payment-info-payment-info-txnstatus-init+ 3) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-txnstatus-init+)) |
|
(cl:defconstant +payment-info-payment-info-txnstatus-success+ 4) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-txnstatus-success+)) |
|
(cl:defconstant +payment-info-payment-info-txnstatus-completed+ 5) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-txnstatus-completed+)) |
|
(cl:defconstant +payment-info-payment-info-txnstatus-failed+ 6) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-txnstatus-failed+)) |
|
(cl:defconstant +payment-info-payment-info-txnstatus-failed-risk+ 7) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-txnstatus-failed-risk+)) |
|
(cl:defconstant +payment-info-payment-info-txnstatus-failed-processing+ 8) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-txnstatus-failed-processing+)) |
|
(cl:defconstant +payment-info-payment-info-txnstatus-failed-receiver-processing+ 9) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-txnstatus-failed-receiver-processing+)) |
|
(cl:defconstant +payment-info-payment-info-txnstatus-failed-da+ 10) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-txnstatus-failed-da+)) |
|
(cl:defconstant +payment-info-payment-info-txnstatus-failed-da-final+ 11) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-txnstatus-failed-da-final+)) |
|
(cl:defconstant +payment-info-payment-info-txnstatus-refunded-txn+ 12) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-txnstatus-refunded-txn+)) |
|
(cl:defconstant +payment-info-payment-info-txnstatus-refund-failed+ 13) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-txnstatus-refund-failed+)) |
|
(cl:defconstant +payment-info-payment-info-txnstatus-refund-failed-processing+ 14) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-txnstatus-refund-failed-processing+)) |
|
(cl:defconstant +payment-info-payment-info-txnstatus-refund-failed-da+ 15) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-txnstatus-refund-failed-da+)) |
|
(cl:defconstant +payment-info-payment-info-txnstatus-expired-txn+ 16) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-txnstatus-expired-txn+)) |
|
(cl:defconstant +payment-info-payment-info-txnstatus-auth-canceled+ 17) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-txnstatus-auth-canceled+)) |
|
(cl:defconstant +payment-info-payment-info-txnstatus-auth-cancel-failed-processing+ 18) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-txnstatus-auth-cancel-failed-processing+)) |
|
(cl:defconstant +payment-info-payment-info-txnstatus-auth-cancel-failed+ 19) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-txnstatus-auth-cancel-failed+)) |
|
(cl:defconstant +payment-info-payment-info-txnstatus-collect-init+ 20) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-txnstatus-collect-init+)) |
|
(cl:defconstant +payment-info-payment-info-txnstatus-collect-success+ 21) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-txnstatus-collect-success+)) |
|
(cl:defconstant +payment-info-payment-info-txnstatus-collect-failed+ 22) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-txnstatus-collect-failed+)) |
|
(cl:defconstant +payment-info-payment-info-txnstatus-collect-failed-risk+ 23) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-txnstatus-collect-failed-risk+)) |
|
(cl:defconstant +payment-info-payment-info-txnstatus-collect-rejected+ 24) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-txnstatus-collect-rejected+)) |
|
(cl:defconstant +payment-info-payment-info-txnstatus-collect-expired+ 25) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-txnstatus-collect-expired+)) |
|
(cl:defconstant +payment-info-payment-info-txnstatus-collect-canceled+ 26) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-txnstatus-collect-canceled+)) |
|
(cl:defconstant +payment-info-payment-info-txnstatus-collect-cancelling+ 27) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+payment-info-payment-info-txnstatus-collect-cancelling+)) |
|
|
|
(cl:defconstant +minimum-payment-info-payment-info-txnstatus+ +payment-info-payment-info-txnstatus-unknown+) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+minimum-payment-info-payment-info-txnstatus+)) |
|
(cl:defconstant +maximum-payment-info-payment-info-txnstatus+ +payment-info-payment-info-txnstatus-collect-cancelling+) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+maximum-payment-info-payment-info-txnstatus+)) |
|
|
|
(cl:deftype web-message-info-web-message-info-status () '(cl:member 0 1 2 3 4 5)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'web-message-info-web-message-info-status)) |
|
|
|
(cl:defconstant +web-message-info-web-message-info-status-error+ 0) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-status-error+)) |
|
(cl:defconstant +web-message-info-web-message-info-status-pending+ 1) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-status-pending+)) |
|
(cl:defconstant +web-message-info-web-message-info-status-server-ack+ 2) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-status-server-ack+)) |
|
(cl:defconstant +web-message-info-web-message-info-status-delivery-ack+ 3) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-status-delivery-ack+)) |
|
(cl:defconstant +web-message-info-web-message-info-status-read+ 4) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-status-read+)) |
|
(cl:defconstant +web-message-info-web-message-info-status-played+ 5) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-status-played+)) |
|
|
|
(cl:defconstant +minimum-web-message-info-web-message-info-status+ +web-message-info-web-message-info-status-error+) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+minimum-web-message-info-web-message-info-status+)) |
|
(cl:defconstant +maximum-web-message-info-web-message-info-status+ +web-message-info-web-message-info-status-played+) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+maximum-web-message-info-web-message-info-status+)) |
|
|
|
(cl:deftype web-message-info-web-message-info-stubtype () '(cl:member 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'web-message-info-web-message-info-stubtype)) |
|
|
|
(cl:defconstant +web-message-info-web-message-info-stubtype-unknown+ 0) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-unknown+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-revoke+ 1) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-revoke+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-ciphertext+ 2) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-ciphertext+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-futureproof+ 3) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-futureproof+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-non-verified-transition+ 4) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-non-verified-transition+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-unverified-transition+ 5) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-unverified-transition+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-verified-transition+ 6) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-verified-transition+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-verified-low-unknown+ 7) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-verified-low-unknown+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-verified-high+ 8) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-verified-high+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-verified-initial-unknown+ 9) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-verified-initial-unknown+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-verified-initial-low+ 10) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-verified-initial-low+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-verified-initial-high+ 11) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-verified-initial-high+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-verified-transition-any-to-none+ 12) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-verified-transition-any-to-none+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-verified-transition-any-to-high+ 13) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-verified-transition-any-to-high+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-verified-transition-high-to-low+ 14) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-verified-transition-high-to-low+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-verified-transition-high-to-unknown+ 15) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-verified-transition-high-to-unknown+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-verified-transition-unknown-to-low+ 16) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-verified-transition-unknown-to-low+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-verified-transition-low-to-unknown+ 17) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-verified-transition-low-to-unknown+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-verified-transition-none-to-low+ 18) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-verified-transition-none-to-low+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-verified-transition-none-to-unknown+ 19) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-verified-transition-none-to-unknown+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-group-create+ 20) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-group-create+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-group-change-subject+ 21) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-group-change-subject+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-group-change-icon+ 22) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-group-change-icon+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-group-change-invite-link+ 23) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-group-change-invite-link+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-group-change-description+ 24) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-group-change-description+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-group-change-restrict+ 25) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-group-change-restrict+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-group-change-announce+ 26) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-group-change-announce+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-group-participant-add+ 27) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-group-participant-add+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-group-participant-remove+ 28) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-group-participant-remove+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-group-participant-promote+ 29) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-group-participant-promote+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-group-participant-demote+ 30) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-group-participant-demote+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-group-participant-invite+ 31) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-group-participant-invite+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-group-participant-leave+ 32) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-group-participant-leave+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-group-participant-change-number+ 33) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-group-participant-change-number+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-broadcast-create+ 34) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-broadcast-create+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-broadcast-add+ 35) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-broadcast-add+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-broadcast-remove+ 36) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-broadcast-remove+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-generic-notification+ 37) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-generic-notification+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-e2e-identity-changed+ 38) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-e2e-identity-changed+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-e2e-encrypted+ 39) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-e2e-encrypted+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-call-missed-voice+ 40) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-call-missed-voice+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-call-missed-video+ 41) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-call-missed-video+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-individual-change-number+ 42) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-individual-change-number+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-group-delete+ 43) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-group-delete+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-group-announce-mode-message-bounce+ 44) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-group-announce-mode-message-bounce+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-call-missed-group-voice+ 45) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-call-missed-group-voice+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-call-missed-group-video+ 46) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-call-missed-group-video+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-payment-ciphertext+ 47) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-payment-ciphertext+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-payment-futureproof+ 48) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-payment-futureproof+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-payment-transaction-status-update-failed+ 49) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-payment-transaction-status-update-failed+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-payment-transaction-status-update-refunded+ 50) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-payment-transaction-status-update-refunded+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-payment-transaction-status-update-refund-failed+ 51) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-payment-transaction-status-update-refund-failed+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-payment-transaction-status-receiver-pending-setup+ 52) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-payment-transaction-status-receiver-pending-setup+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-payment-transaction-status-receiver-success-after-hiccup+ 53) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-payment-transaction-status-receiver-success-after-hiccup+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-payment-action-account-setup-reminder+ 54) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-payment-action-account-setup-reminder+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-payment-action-send-payment-reminder+ 55) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-payment-action-send-payment-reminder+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-payment-action-send-payment-invitation+ 56) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-payment-action-send-payment-invitation+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-payment-action-request-declined+ 57) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-payment-action-request-declined+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-payment-action-request-expired+ 58) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-payment-action-request-expired+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-payment-action-request-cancelled+ 59) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-payment-action-request-cancelled+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-biz-verified-transition-top-to-bottom+ 60) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-biz-verified-transition-top-to-bottom+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-biz-verified-transition-bottom-to-top+ 61) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-biz-verified-transition-bottom-to-top+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-biz-intro-top+ 62) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-biz-intro-top+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-biz-intro-bottom+ 63) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-biz-intro-bottom+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-biz-name-change+ 64) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-biz-name-change+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-biz-move-to-consumer-app+ 65) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-biz-move-to-consumer-app+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-biz-two-tier-migration-top+ 66) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-biz-two-tier-migration-top+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-biz-two-tier-migration-bottom+ 67) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-biz-two-tier-migration-bottom+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-oversized+ 68) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-oversized+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-group-change-no-frequently-forwarded+ 69) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-group-change-no-frequently-forwarded+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-group-v4-add-invite-sent+ 70) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-group-v4-add-invite-sent+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-group-participant-add-request-join+ 71) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-group-participant-add-request-join+)) |
|
(cl:defconstant +web-message-info-web-message-info-stubtype-change-ephemeral-setting+ 72) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+web-message-info-web-message-info-stubtype-change-ephemeral-setting+)) |
|
|
|
(cl:defconstant +minimum-web-message-info-web-message-info-stubtype+ +web-message-info-web-message-info-stubtype-unknown+) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+minimum-web-message-info-web-message-info-stubtype+)) |
|
(cl:defconstant +maximum-web-message-info-web-message-info-stubtype+ +web-message-info-web-message-info-stubtype-change-ephemeral-setting+) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export '+maximum-web-message-info-web-message-info-stubtype+)) |
|
|
|
(cl:defclass hydrated-quick-reply-button (pb:protocol-buffer) |
|
( |
|
(display-text |
|
:accessor display-text |
|
:initform (pb:string-field "") |
|
:type pb::%sf%) |
|
(id |
|
:accessor id |
|
:initform (pb:string-field "") |
|
:type pb::%sf%) |
|
(%has-bits% |
|
:accessor %has-bits% |
|
:initform 0 |
|
:type (cl:unsigned-byte 2)) |
|
(pb::%cached-size% |
|
:initform 0 |
|
:type (cl:integer 0 #.(cl:1- cl:array-dimension-limit))) |
|
)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'hydrated-quick-reply-button)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'display-text)) |
|
|
|
|
|
(cl:defmethod (cl:setf display-text) :after (x (self hydrated-quick-reply-button)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-display-text) |
|
(cl:defgeneric has-display-text (proto))) |
|
(cl:defmethod has-display-text ((self hydrated-quick-reply-button)) |
|
(cl:logbitp 0 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-display-text)) |
|
|
|
(cl:unless (cl:fboundp 'clear-display-text) |
|
(cl:defgeneric clear-display-text (proto))) |
|
(cl:defmethod clear-display-text ((self hydrated-quick-reply-button)) |
|
(cl:setf (cl:slot-value self 'display-text) (pb:string-field "")) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-display-text)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'id)) |
|
|
|
|
|
(cl:defmethod (cl:setf id) :after (x (self hydrated-quick-reply-button)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-id) |
|
(cl:defgeneric has-id (proto))) |
|
(cl:defmethod has-id ((self hydrated-quick-reply-button)) |
|
(cl:logbitp 1 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-id)) |
|
|
|
(cl:unless (cl:fboundp 'clear-id) |
|
(cl:defgeneric clear-id (proto))) |
|
(cl:defmethod clear-id ((self hydrated-quick-reply-button)) |
|
(cl:setf (cl:slot-value self 'id) (pb:string-field "")) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-id)) |
|
|
|
|
|
(cl:defmethod cl:print-object ((self hydrated-quick-reply-button) stream) |
|
(cl:pprint-logical-block (stream cl:nil) |
|
(cl:print-unreadable-object (self stream :type cl:t :identity cl:t) |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:format stream " ~_display-text: ~s" (display-text self))) |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:format stream " ~_id: ~s" (id self))) |
|
)) |
|
(cl:values)) |
|
|
|
(cl:defmethod pb:clear ((self hydrated-quick-reply-button)) |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'display-text) (pb:string-field ""))) |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'id) (pb:string-field ""))) |
|
(cl:setf (cl:slot-value self '%has-bits%) 0) |
|
(cl:values)) |
|
|
|
(cl:defmethod pb:is-initialized ((self hydrated-quick-reply-button)) |
|
cl:t) |
|
|
|
(cl:defmethod pb:octet-size ((self hydrated-quick-reply-button)) |
|
(cl:let ((size 0)) |
|
;; optional string displayText = 1[json_name = "displayText"]; |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:incf size 1) |
|
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'display-text)))) |
|
(cl:+ s (varint:length-uint32 s))))) |
|
;; optional string id = 2[json_name = "id"]; |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:incf size 1) |
|
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'id)))) |
|
(cl:+ s (varint:length-uint32 s))))) |
|
(cl:setf (cl:slot-value self 'pb::%cached-size%) size) |
|
size)) |
|
|
|
(cl:defmethod pb:serialize ((self hydrated-quick-reply-button) buffer index limit) |
|
(cl:declare (cl:type com.google.base:octet-vector buffer) |
|
(cl:type com.google.base:vector-index index limit) |
|
(cl:ignorable buffer limit)) |
|
;; optional string displayText = 1[json_name = "displayText"]; |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit 10)) |
|
(cl:setf index (wire-format:write-octets-carefully buffer index limit (cl:slot-value (cl:slot-value self 'display-text) 'pb::%octets%)))) |
|
;; optional string id = 2[json_name = "id"]; |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit 18)) |
|
(cl:setf index (wire-format:write-octets-carefully buffer index limit (cl:slot-value (cl:slot-value self 'id) 'pb::%octets%)))) |
|
index) |
|
|
|
(cl:defmethod pb:merge-from-array ((self hydrated-quick-reply-button) buffer start limit) |
|
(cl:declare (cl:type com.google.base:octet-vector buffer) |
|
(cl:type com.google.base:vector-index start limit)) |
|
(cl:do ((index start index)) |
|
((cl:>= index limit) index) |
|
(cl:declare (cl:type com.google.base:vector-index index)) |
|
(cl:multiple-value-bind (field-number wire-type new-index) |
|
(wire-format:parse-tag buffer index limit) |
|
(cl:setf index new-index) |
|
(cl:case field-number |
|
;; optional string displayText = 1[json_name = "displayText"]; |
|
((1) |
|
(cl:cond |
|
((cl:= wire-type wire-format:+length-delimited+) |
|
(cl:multiple-value-bind (value new-index) |
|
(wire-format:read-octets-carefully buffer index limit) |
|
(cl:setf (cl:slot-value self 'display-text) (pb:string-field value)) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1) |
|
(cl:setf index new-index))) |
|
(cl:t (cl:error 'wire-format:alignment)))) |
|
;; optional string id = 2[json_name = "id"]; |
|
((2) |
|
(cl:cond |
|
((cl:= wire-type wire-format:+length-delimited+) |
|
(cl:multiple-value-bind (value new-index) |
|
(wire-format:read-octets-carefully buffer index limit) |
|
(cl:setf (cl:slot-value self 'id) (pb:string-field value)) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1) |
|
(cl:setf index new-index))) |
|
(cl:t (cl:error 'wire-format:alignment)))) |
|
(cl:t |
|
(cl:when (cl:= wire-type wire-format:+end-group+) |
|
(cl:return-from pb:merge-from-array index)) |
|
(cl:setf index (wire-format:skip-field field-number wire-type buffer index limit))))))) |
|
|
|
(cl:defmethod pb:merge-from-message ((self hydrated-quick-reply-button) (from hydrated-quick-reply-button)) |
|
(cl:when (cl:logbitp 0 (cl:slot-value from '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'display-text) (cl:slot-value from 'display-text)) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1)) |
|
(cl:when (cl:logbitp 1 (cl:slot-value from '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'id) (cl:slot-value from 'id)) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1)) |
|
) |
|
|
|
|
|
(cl:defclass hydrated-url-button (pb:protocol-buffer) |
|
( |
|
(display-text |
|
:accessor display-text |
|
:initform (pb:string-field "") |
|
:type pb::%sf%) |
|
(url |
|
:accessor url |
|
:initform (pb:string-field "") |
|
:type pb::%sf%) |
|
(%has-bits% |
|
:accessor %has-bits% |
|
:initform 0 |
|
:type (cl:unsigned-byte 2)) |
|
(pb::%cached-size% |
|
:initform 0 |
|
:type (cl:integer 0 #.(cl:1- cl:array-dimension-limit))) |
|
)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'hydrated-url-button)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'display-text)) |
|
|
|
|
|
(cl:defmethod (cl:setf display-text) :after (x (self hydrated-url-button)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-display-text) |
|
(cl:defgeneric has-display-text (proto))) |
|
(cl:defmethod has-display-text ((self hydrated-url-button)) |
|
(cl:logbitp 0 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-display-text)) |
|
|
|
(cl:unless (cl:fboundp 'clear-display-text) |
|
(cl:defgeneric clear-display-text (proto))) |
|
(cl:defmethod clear-display-text ((self hydrated-url-button)) |
|
(cl:setf (cl:slot-value self 'display-text) (pb:string-field "")) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-display-text)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'url)) |
|
|
|
|
|
(cl:defmethod (cl:setf url) :after (x (self hydrated-url-button)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-url) |
|
(cl:defgeneric has-url (proto))) |
|
(cl:defmethod has-url ((self hydrated-url-button)) |
|
(cl:logbitp 1 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-url)) |
|
|
|
(cl:unless (cl:fboundp 'clear-url) |
|
(cl:defgeneric clear-url (proto))) |
|
(cl:defmethod clear-url ((self hydrated-url-button)) |
|
(cl:setf (cl:slot-value self 'url) (pb:string-field "")) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-url)) |
|
|
|
|
|
(cl:defmethod cl:print-object ((self hydrated-url-button) stream) |
|
(cl:pprint-logical-block (stream cl:nil) |
|
(cl:print-unreadable-object (self stream :type cl:t :identity cl:t) |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:format stream " ~_display-text: ~s" (display-text self))) |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:format stream " ~_url: ~s" (url self))) |
|
)) |
|
(cl:values)) |
|
|
|
(cl:defmethod pb:clear ((self hydrated-url-button)) |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'display-text) (pb:string-field ""))) |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'url) (pb:string-field ""))) |
|
(cl:setf (cl:slot-value self '%has-bits%) 0) |
|
(cl:values)) |
|
|
|
(cl:defmethod pb:is-initialized ((self hydrated-url-button)) |
|
cl:t) |
|
|
|
(cl:defmethod pb:octet-size ((self hydrated-url-button)) |
|
(cl:let ((size 0)) |
|
;; optional string displayText = 1[json_name = "displayText"]; |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:incf size 1) |
|
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'display-text)))) |
|
(cl:+ s (varint:length-uint32 s))))) |
|
;; optional string url = 2[json_name = "url"]; |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:incf size 1) |
|
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'url)))) |
|
(cl:+ s (varint:length-uint32 s))))) |
|
(cl:setf (cl:slot-value self 'pb::%cached-size%) size) |
|
size)) |
|
|
|
(cl:defmethod pb:serialize ((self hydrated-url-button) buffer index limit) |
|
(cl:declare (cl:type com.google.base:octet-vector buffer) |
|
(cl:type com.google.base:vector-index index limit) |
|
(cl:ignorable buffer limit)) |
|
;; optional string displayText = 1[json_name = "displayText"]; |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit 10)) |
|
(cl:setf index (wire-format:write-octets-carefully buffer index limit (cl:slot-value (cl:slot-value self 'display-text) 'pb::%octets%)))) |
|
;; optional string url = 2[json_name = "url"]; |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit 18)) |
|
(cl:setf index (wire-format:write-octets-carefully buffer index limit (cl:slot-value (cl:slot-value self 'url) 'pb::%octets%)))) |
|
index) |
|
|
|
(cl:defmethod pb:merge-from-array ((self hydrated-url-button) buffer start limit) |
|
(cl:declare (cl:type com.google.base:octet-vector buffer) |
|
(cl:type com.google.base:vector-index start limit)) |
|
(cl:do ((index start index)) |
|
((cl:>= index limit) index) |
|
(cl:declare (cl:type com.google.base:vector-index index)) |
|
(cl:multiple-value-bind (field-number wire-type new-index) |
|
(wire-format:parse-tag buffer index limit) |
|
(cl:setf index new-index) |
|
(cl:case field-number |
|
;; optional string displayText = 1[json_name = "displayText"]; |
|
((1) |
|
(cl:cond |
|
((cl:= wire-type wire-format:+length-delimited+) |
|
(cl:multiple-value-bind (value new-index) |
|
(wire-format:read-octets-carefully buffer index limit) |
|
(cl:setf (cl:slot-value self 'display-text) (pb:string-field value)) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1) |
|
(cl:setf index new-index))) |
|
(cl:t (cl:error 'wire-format:alignment)))) |
|
;; optional string url = 2[json_name = "url"]; |
|
((2) |
|
(cl:cond |
|
((cl:= wire-type wire-format:+length-delimited+) |
|
(cl:multiple-value-bind (value new-index) |
|
(wire-format:read-octets-carefully buffer index limit) |
|
(cl:setf (cl:slot-value self 'url) (pb:string-field value)) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1) |
|
(cl:setf index new-index))) |
|
(cl:t (cl:error 'wire-format:alignment)))) |
|
(cl:t |
|
(cl:when (cl:= wire-type wire-format:+end-group+) |
|
(cl:return-from pb:merge-from-array index)) |
|
(cl:setf index (wire-format:skip-field field-number wire-type buffer index limit))))))) |
|
|
|
(cl:defmethod pb:merge-from-message ((self hydrated-url-button) (from hydrated-url-button)) |
|
(cl:when (cl:logbitp 0 (cl:slot-value from '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'display-text) (cl:slot-value from 'display-text)) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1)) |
|
(cl:when (cl:logbitp 1 (cl:slot-value from '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'url) (cl:slot-value from 'url)) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1)) |
|
) |
|
|
|
|
|
(cl:defclass hydrated-call-button (pb:protocol-buffer) |
|
( |
|
(display-text |
|
:accessor display-text |
|
:initform (pb:string-field "") |
|
:type pb::%sf%) |
|
(phone-number |
|
:accessor phone-number |
|
:initform (pb:string-field "") |
|
:type pb::%sf%) |
|
(%has-bits% |
|
:accessor %has-bits% |
|
:initform 0 |
|
:type (cl:unsigned-byte 2)) |
|
(pb::%cached-size% |
|
:initform 0 |
|
:type (cl:integer 0 #.(cl:1- cl:array-dimension-limit))) |
|
)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'hydrated-call-button)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'display-text)) |
|
|
|
|
|
(cl:defmethod (cl:setf display-text) :after (x (self hydrated-call-button)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-display-text) |
|
(cl:defgeneric has-display-text (proto))) |
|
(cl:defmethod has-display-text ((self hydrated-call-button)) |
|
(cl:logbitp 0 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-display-text)) |
|
|
|
(cl:unless (cl:fboundp 'clear-display-text) |
|
(cl:defgeneric clear-display-text (proto))) |
|
(cl:defmethod clear-display-text ((self hydrated-call-button)) |
|
(cl:setf (cl:slot-value self 'display-text) (pb:string-field "")) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-display-text)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'phone-number)) |
|
|
|
|
|
(cl:defmethod (cl:setf phone-number) :after (x (self hydrated-call-button)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-phone-number) |
|
(cl:defgeneric has-phone-number (proto))) |
|
(cl:defmethod has-phone-number ((self hydrated-call-button)) |
|
(cl:logbitp 1 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-phone-number)) |
|
|
|
(cl:unless (cl:fboundp 'clear-phone-number) |
|
(cl:defgeneric clear-phone-number (proto))) |
|
(cl:defmethod clear-phone-number ((self hydrated-call-button)) |
|
(cl:setf (cl:slot-value self 'phone-number) (pb:string-field "")) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-phone-number)) |
|
|
|
|
|
(cl:defmethod cl:print-object ((self hydrated-call-button) stream) |
|
(cl:pprint-logical-block (stream cl:nil) |
|
(cl:print-unreadable-object (self stream :type cl:t :identity cl:t) |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:format stream " ~_display-text: ~s" (display-text self))) |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:format stream " ~_phone-number: ~s" (phone-number self))) |
|
)) |
|
(cl:values)) |
|
|
|
(cl:defmethod pb:clear ((self hydrated-call-button)) |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'display-text) (pb:string-field ""))) |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'phone-number) (pb:string-field ""))) |
|
(cl:setf (cl:slot-value self '%has-bits%) 0) |
|
(cl:values)) |
|
|
|
(cl:defmethod pb:is-initialized ((self hydrated-call-button)) |
|
cl:t) |
|
|
|
(cl:defmethod pb:octet-size ((self hydrated-call-button)) |
|
(cl:let ((size 0)) |
|
;; optional string displayText = 1[json_name = "displayText"]; |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:incf size 1) |
|
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'display-text)))) |
|
(cl:+ s (varint:length-uint32 s))))) |
|
;; optional string phoneNumber = 2[json_name = "phoneNumber"]; |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:incf size 1) |
|
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'phone-number)))) |
|
(cl:+ s (varint:length-uint32 s))))) |
|
(cl:setf (cl:slot-value self 'pb::%cached-size%) size) |
|
size)) |
|
|
|
(cl:defmethod pb:serialize ((self hydrated-call-button) buffer index limit) |
|
(cl:declare (cl:type com.google.base:octet-vector buffer) |
|
(cl:type com.google.base:vector-index index limit) |
|
(cl:ignorable buffer limit)) |
|
;; optional string displayText = 1[json_name = "displayText"]; |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit 10)) |
|
(cl:setf index (wire-format:write-octets-carefully buffer index limit (cl:slot-value (cl:slot-value self 'display-text) 'pb::%octets%)))) |
|
;; optional string phoneNumber = 2[json_name = "phoneNumber"]; |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit 18)) |
|
(cl:setf index (wire-format:write-octets-carefully buffer index limit (cl:slot-value (cl:slot-value self 'phone-number) 'pb::%octets%)))) |
|
index) |
|
|
|
(cl:defmethod pb:merge-from-array ((self hydrated-call-button) buffer start limit) |
|
(cl:declare (cl:type com.google.base:octet-vector buffer) |
|
(cl:type com.google.base:vector-index start limit)) |
|
(cl:do ((index start index)) |
|
((cl:>= index limit) index) |
|
(cl:declare (cl:type com.google.base:vector-index index)) |
|
(cl:multiple-value-bind (field-number wire-type new-index) |
|
(wire-format:parse-tag buffer index limit) |
|
(cl:setf index new-index) |
|
(cl:case field-number |
|
;; optional string displayText = 1[json_name = "displayText"]; |
|
((1) |
|
(cl:cond |
|
((cl:= wire-type wire-format:+length-delimited+) |
|
(cl:multiple-value-bind (value new-index) |
|
(wire-format:read-octets-carefully buffer index limit) |
|
(cl:setf (cl:slot-value self 'display-text) (pb:string-field value)) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1) |
|
(cl:setf index new-index))) |
|
(cl:t (cl:error 'wire-format:alignment)))) |
|
;; optional string phoneNumber = 2[json_name = "phoneNumber"]; |
|
((2) |
|
(cl:cond |
|
((cl:= wire-type wire-format:+length-delimited+) |
|
(cl:multiple-value-bind (value new-index) |
|
(wire-format:read-octets-carefully buffer index limit) |
|
(cl:setf (cl:slot-value self 'phone-number) (pb:string-field value)) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1) |
|
(cl:setf index new-index))) |
|
(cl:t (cl:error 'wire-format:alignment)))) |
|
(cl:t |
|
(cl:when (cl:= wire-type wire-format:+end-group+) |
|
(cl:return-from pb:merge-from-array index)) |
|
(cl:setf index (wire-format:skip-field field-number wire-type buffer index limit))))))) |
|
|
|
(cl:defmethod pb:merge-from-message ((self hydrated-call-button) (from hydrated-call-button)) |
|
(cl:when (cl:logbitp 0 (cl:slot-value from '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'display-text) (cl:slot-value from 'display-text)) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1)) |
|
(cl:when (cl:logbitp 1 (cl:slot-value from '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'phone-number) (cl:slot-value from 'phone-number)) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1)) |
|
) |
|
|
|
|
|
(cl:defclass hydrated-template-button (pb:protocol-buffer) |
|
( |
|
(index |
|
:accessor index |
|
:initform 0 |
|
:type (cl:unsigned-byte 32)) |
|
(quick-reply-button |
|
:writer (cl:setf quick-reply-button) |
|
:initform cl:nil |
|
:type (cl:or cl:null whatscl/protobuf::hydrated-quick-reply-button)) |
|
(url-button |
|
:writer (cl:setf url-button) |
|
:initform cl:nil |
|
:type (cl:or cl:null whatscl/protobuf::hydrated-url-button)) |
|
(call-button |
|
:writer (cl:setf call-button) |
|
:initform cl:nil |
|
:type (cl:or cl:null whatscl/protobuf::hydrated-call-button)) |
|
(%has-bits% |
|
:accessor %has-bits% |
|
:initform 0 |
|
:type (cl:unsigned-byte 4)) |
|
(pb::%cached-size% |
|
:initform 0 |
|
:type (cl:integer 0 #.(cl:1- cl:array-dimension-limit))) |
|
)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'hydrated-template-button)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'index)) |
|
|
|
|
|
(cl:defmethod (cl:setf index) :after (x (self hydrated-template-button)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-index) |
|
(cl:defgeneric has-index (proto))) |
|
(cl:defmethod has-index ((self hydrated-template-button)) |
|
(cl:logbitp 0 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-index)) |
|
|
|
(cl:unless (cl:fboundp 'clear-index) |
|
(cl:defgeneric clear-index (proto))) |
|
(cl:defmethod clear-index ((self hydrated-template-button)) |
|
(cl:setf (cl:slot-value self 'index) 0) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-index)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'quick-reply-button)) |
|
|
|
(cl:unless (cl:fboundp 'quick-reply-button) |
|
(cl:defgeneric quick-reply-button (proto))) |
|
(cl:defmethod quick-reply-button ((self hydrated-template-button)) |
|
(cl:let ((result (cl:slot-value self 'quick-reply-button))) |
|
(cl:when (cl:null result) |
|
(cl:setf result (cl:make-instance 'whatscl/protobuf::hydrated-quick-reply-button)) |
|
(cl:setf (cl:slot-value self 'quick-reply-button) result)) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1) |
|
result)) |
|
|
|
(cl:defmethod (cl:setf quick-reply-button) :after (x (self hydrated-template-button)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-quick-reply-button) |
|
(cl:defgeneric has-quick-reply-button (proto))) |
|
(cl:defmethod has-quick-reply-button ((self hydrated-template-button)) |
|
(cl:logbitp 1 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-quick-reply-button)) |
|
|
|
(cl:unless (cl:fboundp 'clear-quick-reply-button) |
|
(cl:defgeneric clear-quick-reply-button (proto))) |
|
(cl:defmethod clear-quick-reply-button ((self hydrated-template-button)) |
|
(cl:setf (cl:slot-value self 'quick-reply-button) cl:nil) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-quick-reply-button)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'url-button)) |
|
|
|
(cl:unless (cl:fboundp 'url-button) |
|
(cl:defgeneric url-button (proto))) |
|
(cl:defmethod url-button ((self hydrated-template-button)) |
|
(cl:let ((result (cl:slot-value self 'url-button))) |
|
(cl:when (cl:null result) |
|
(cl:setf result (cl:make-instance 'whatscl/protobuf::hydrated-url-button)) |
|
(cl:setf (cl:slot-value self 'url-button) result)) |
|
(cl:setf (cl:ldb (cl:byte 1 2) (cl:slot-value self '%has-bits%)) 1) |
|
result)) |
|
|
|
(cl:defmethod (cl:setf url-button) :after (x (self hydrated-template-button)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 2) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-url-button) |
|
(cl:defgeneric has-url-button (proto))) |
|
(cl:defmethod has-url-button ((self hydrated-template-button)) |
|
(cl:logbitp 2 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-url-button)) |
|
|
|
(cl:unless (cl:fboundp 'clear-url-button) |
|
(cl:defgeneric clear-url-button (proto))) |
|
(cl:defmethod clear-url-button ((self hydrated-template-button)) |
|
(cl:setf (cl:slot-value self 'url-button) cl:nil) |
|
(cl:setf (cl:ldb (cl:byte 1 2) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-url-button)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'call-button)) |
|
|
|
(cl:unless (cl:fboundp 'call-button) |
|
(cl:defgeneric call-button (proto))) |
|
(cl:defmethod call-button ((self hydrated-template-button)) |
|
(cl:let ((result (cl:slot-value self 'call-button))) |
|
(cl:when (cl:null result) |
|
(cl:setf result (cl:make-instance 'whatscl/protobuf::hydrated-call-button)) |
|
(cl:setf (cl:slot-value self 'call-button) result)) |
|
(cl:setf (cl:ldb (cl:byte 1 3) (cl:slot-value self '%has-bits%)) 1) |
|
result)) |
|
|
|
(cl:defmethod (cl:setf call-button) :after (x (self hydrated-template-button)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 3) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-call-button) |
|
(cl:defgeneric has-call-button (proto))) |
|
(cl:defmethod has-call-button ((self hydrated-template-button)) |
|
(cl:logbitp 3 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-call-button)) |
|
|
|
(cl:unless (cl:fboundp 'clear-call-button) |
|
(cl:defgeneric clear-call-button (proto))) |
|
(cl:defmethod clear-call-button ((self hydrated-template-button)) |
|
(cl:setf (cl:slot-value self 'call-button) cl:nil) |
|
(cl:setf (cl:ldb (cl:byte 1 3) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-call-button)) |
|
|
|
|
|
(cl:defmethod cl:print-object ((self hydrated-template-button) stream) |
|
(cl:pprint-logical-block (stream cl:nil) |
|
(cl:print-unreadable-object (self stream :type cl:t :identity cl:t) |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:format stream " ~_index: ~s" (index self))) |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:format stream " ~_quick-reply-button: ~s" (quick-reply-button self))) |
|
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%)) |
|
(cl:format stream " ~_url-button: ~s" (url-button self))) |
|
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%)) |
|
(cl:format stream " ~_call-button: ~s" (call-button self))) |
|
)) |
|
(cl:values)) |
|
|
|
(cl:defmethod pb:clear ((self hydrated-template-button)) |
|
(cl:setf (cl:slot-value self 'index) 0) |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'quick-reply-button) cl:nil)) |
|
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'url-button) cl:nil)) |
|
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'call-button) cl:nil)) |
|
(cl:setf (cl:slot-value self '%has-bits%) 0) |
|
(cl:values)) |
|
|
|
(cl:defmethod pb:is-initialized ((self hydrated-template-button)) |
|
cl:t) |
|
|
|
(cl:defmethod pb:octet-size ((self hydrated-template-button)) |
|
(cl:let ((size 0)) |
|
;; optional uint32 index = 4[json_name = "index"]; |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:incf size |
|
(cl:+ 1 (varint:length-uint32 (cl:slot-value self 'index))))) |
|
;; .proto.HydratedQuickReplyButton quickReplyButton = 1[json_name = "quickReplyButton"]; |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:let ((s (pb:octet-size (cl:slot-value self 'quick-reply-button)))) |
|
(cl:incf size (cl:+ 1 s (varint:length-uint32 s))))) |
|
;; .proto.HydratedURLButton urlButton = 2[json_name = "urlButton"]; |
|
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%)) |
|
(cl:let ((s (pb:octet-size (cl:slot-value self 'url-button)))) |
|
(cl:incf size (cl:+ 1 s (varint:length-uint32 s))))) |
|
;; .proto.HydratedCallButton callButton = 3[json_name = "callButton"]; |
|
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%)) |
|
(cl:let ((s (pb:octet-size (cl:slot-value self 'call-button)))) |
|
(cl:incf size (cl:+ 1 s (varint:length-uint32 s))))) |
|
(cl:setf (cl:slot-value self 'pb::%cached-size%) size) |
|
size)) |
|
|
|
(cl:defmethod pb:serialize ((self hydrated-template-button) buffer index limit) |
|
(cl:declare (cl:type com.google.base:octet-vector buffer) |
|
(cl:type com.google.base:vector-index index limit) |
|
(cl:ignorable buffer limit)) |
|
;; .proto.HydratedQuickReplyButton quickReplyButton = 1[json_name = "quickReplyButton"]; |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit 10)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit (cl:slot-value (cl:slot-value self 'quick-reply-button) 'pb::%cached-size%))) |
|
(cl:setf index (pb:serialize (cl:slot-value self 'quick-reply-button) buffer index limit))) |
|
;; .proto.HydratedURLButton urlButton = 2[json_name = "urlButton"]; |
|
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit 18)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit (cl:slot-value (cl:slot-value self 'url-button) 'pb::%cached-size%))) |
|
(cl:setf index (pb:serialize (cl:slot-value self 'url-button) buffer index limit))) |
|
;; .proto.HydratedCallButton callButton = 3[json_name = "callButton"]; |
|
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit 26)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit (cl:slot-value (cl:slot-value self 'call-button) 'pb::%cached-size%))) |
|
(cl:setf index (pb:serialize (cl:slot-value self 'call-button) buffer index limit))) |
|
;; optional uint32 index = 4[json_name = "index"]; |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit 32)) |
|
(cl:setf index |
|
(varint:encode-uint32-carefully buffer index limit (cl:slot-value self 'index)))) |
|
index) |
|
|
|
(cl:defmethod pb:merge-from-array ((self hydrated-template-button) buffer start limit) |
|
(cl:declare (cl:type com.google.base:octet-vector buffer) |
|
(cl:type com.google.base:vector-index start limit)) |
|
(cl:do ((index start index)) |
|
((cl:>= index limit) index) |
|
(cl:declare (cl:type com.google.base:vector-index index)) |
|
(cl:multiple-value-bind (field-number wire-type new-index) |
|
(wire-format:parse-tag buffer index limit) |
|
(cl:setf index new-index) |
|
(cl:case field-number |
|
;; .proto.HydratedQuickReplyButton quickReplyButton = 1[json_name = "quickReplyButton"]; |
|
((1) |
|
(cl:cond |
|
((cl:= wire-type wire-format:+length-delimited+) |
|
(cl:multiple-value-bind (length new-index) |
|
(varint:parse-uint31-carefully buffer index limit) |
|
(cl:when (cl:> (cl:+ new-index length) limit) |
|
(cl:error 'wire-format:data-exhausted)) |
|
(cl:let ((message (cl:slot-value self 'quick-reply-button))) |
|
(cl:when (cl:null message) |
|
(cl:setf message (cl:make-instance 'whatscl/protobuf::hydrated-quick-reply-button)) |
|
(cl:setf (cl:slot-value self 'quick-reply-button) message) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1)) |
|
(cl:setf index (pb:merge-from-array message buffer new-index (cl:+ new-index length))) |
|
(cl:when (cl:/= index (cl:+ new-index length)) |
|
(cl:error 'wire-format:alignment))))) |
|
(cl:t (cl:error 'wire-format:alignment)))) |
|
;; .proto.HydratedURLButton urlButton = 2[json_name = "urlButton"]; |
|
((2) |
|
(cl:cond |
|
((cl:= wire-type wire-format:+length-delimited+) |
|
(cl:multiple-value-bind (length new-index) |
|
(varint:parse-uint31-carefully buffer index limit) |
|
(cl:when (cl:> (cl:+ new-index length) limit) |
|
(cl:error 'wire-format:data-exhausted)) |
|
(cl:let ((message (cl:slot-value self 'url-button))) |
|
(cl:when (cl:null message) |
|
(cl:setf message (cl:make-instance 'whatscl/protobuf::hydrated-url-button)) |
|
(cl:setf (cl:slot-value self 'url-button) message) |
|
(cl:setf (cl:ldb (cl:byte 1 2) (cl:slot-value self '%has-bits%)) 1)) |
|
(cl:setf index (pb:merge-from-array message buffer new-index (cl:+ new-index length))) |
|
(cl:when (cl:/= index (cl:+ new-index length)) |
|
(cl:error 'wire-format:alignment))))) |
|
(cl:t (cl:error 'wire-format:alignment)))) |
|
;; .proto.HydratedCallButton callButton = 3[json_name = "callButton"]; |
|
((3) |
|
(cl:cond |
|
((cl:= wire-type wire-format:+length-delimited+) |
|
(cl:multiple-value-bind (length new-index) |
|
(varint:parse-uint31-carefully buffer index limit) |
|
(cl:when (cl:> (cl:+ new-index length) limit) |
|
(cl:error 'wire-format:data-exhausted)) |
|
(cl:let ((message (cl:slot-value self 'call-button))) |
|
(cl:when (cl:null message) |
|
(cl:setf message (cl:make-instance 'whatscl/protobuf::hydrated-call-button)) |
|
(cl:setf (cl:slot-value self 'call-button) message) |
|
(cl:setf (cl:ldb (cl:byte 1 3) (cl:slot-value self '%has-bits%)) 1)) |
|
(cl:setf index (pb:merge-from-array message buffer new-index (cl:+ new-index length))) |
|
(cl:when (cl:/= index (cl:+ new-index length)) |
|
(cl:error 'wire-format:alignment))))) |
|
(cl:t (cl:error 'wire-format:alignment)))) |
|
;; optional uint32 index = 4[json_name = "index"]; |
|
((4) |
|
(cl:cond |
|
((cl:= wire-type wire-format:+varint+) |
|
(cl:multiple-value-bind (value new-index) |
|
(cl:multiple-value-bind (x new-index) |
|
(varint:parse-uint64-carefully buffer index limit) |
|
(cl:values (cl:ldb (cl:byte 32 0) x) new-index)) |
|
(cl:setf (cl:slot-value self 'index) value) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1) |
|
(cl:setf index new-index))) |
|
(cl:t (cl:error 'wire-format:alignment)))) |
|
(cl:t |
|
(cl:when (cl:= wire-type wire-format:+end-group+) |
|
(cl:return-from pb:merge-from-array index)) |
|
(cl:setf index (wire-format:skip-field field-number wire-type buffer index limit))))))) |
|
|
|
(cl:defmethod pb:merge-from-message ((self hydrated-template-button) (from hydrated-template-button)) |
|
(cl:when (cl:logbitp 0 (cl:slot-value from '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'index) (cl:slot-value from 'index)) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1)) |
|
(cl:when (cl:logbitp 1 (cl:slot-value from '%has-bits%)) |
|
(cl:let ((message (cl:slot-value self 'quick-reply-button))) |
|
(cl:when (cl:null message) |
|
(cl:setf message (cl:make-instance 'whatscl/protobuf::hydrated-quick-reply-button)) |
|
(cl:setf (cl:slot-value self 'quick-reply-button) message) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1)) |
|
(pb:merge-from-message message (cl:slot-value from 'quick-reply-button)))) |
|
(cl:when (cl:logbitp 2 (cl:slot-value from '%has-bits%)) |
|
(cl:let ((message (cl:slot-value self 'url-button))) |
|
(cl:when (cl:null message) |
|
(cl:setf message (cl:make-instance 'whatscl/protobuf::hydrated-url-button)) |
|
(cl:setf (cl:slot-value self 'url-button) message) |
|
(cl:setf (cl:ldb (cl:byte 1 2) (cl:slot-value self '%has-bits%)) 1)) |
|
(pb:merge-from-message message (cl:slot-value from 'url-button)))) |
|
(cl:when (cl:logbitp 3 (cl:slot-value from '%has-bits%)) |
|
(cl:let ((message (cl:slot-value self 'call-button))) |
|
(cl:when (cl:null message) |
|
(cl:setf message (cl:make-instance 'whatscl/protobuf::hydrated-call-button)) |
|
(cl:setf (cl:slot-value self 'call-button) message) |
|
(cl:setf (cl:ldb (cl:byte 1 3) (cl:slot-value self '%has-bits%)) 1)) |
|
(pb:merge-from-message message (cl:slot-value from 'call-button)))) |
|
) |
|
|
|
|
|
(cl:defclass quick-reply-button (pb:protocol-buffer) |
|
( |
|
(display-text |
|
:writer (cl:setf display-text) |
|
:initform cl:nil |
|
:type (cl:or cl:null whatscl/protobuf::highly-structured-message)) |
|
(id |
|
:accessor id |
|
:initform (pb:string-field "") |
|
:type pb::%sf%) |
|
(%has-bits% |
|
:accessor %has-bits% |
|
:initform 0 |
|
:type (cl:unsigned-byte 2)) |
|
(pb::%cached-size% |
|
:initform 0 |
|
:type (cl:integer 0 #.(cl:1- cl:array-dimension-limit))) |
|
)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'quick-reply-button)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'display-text)) |
|
|
|
(cl:unless (cl:fboundp 'display-text) |
|
(cl:defgeneric display-text (proto))) |
|
(cl:defmethod display-text ((self quick-reply-button)) |
|
(cl:let ((result (cl:slot-value self 'display-text))) |
|
(cl:when (cl:null result) |
|
(cl:setf result (cl:make-instance 'whatscl/protobuf::highly-structured-message)) |
|
(cl:setf (cl:slot-value self 'display-text) result)) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1) |
|
result)) |
|
|
|
(cl:defmethod (cl:setf display-text) :after (x (self quick-reply-button)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-display-text) |
|
(cl:defgeneric has-display-text (proto))) |
|
(cl:defmethod has-display-text ((self quick-reply-button)) |
|
(cl:logbitp 0 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-display-text)) |
|
|
|
(cl:unless (cl:fboundp 'clear-display-text) |
|
(cl:defgeneric clear-display-text (proto))) |
|
(cl:defmethod clear-display-text ((self quick-reply-button)) |
|
(cl:setf (cl:slot-value self 'display-text) cl:nil) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-display-text)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'id)) |
|
|
|
|
|
(cl:defmethod (cl:setf id) :after (x (self quick-reply-button)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-id) |
|
(cl:defgeneric has-id (proto))) |
|
(cl:defmethod has-id ((self quick-reply-button)) |
|
(cl:logbitp 1 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-id)) |
|
|
|
(cl:unless (cl:fboundp 'clear-id) |
|
(cl:defgeneric clear-id (proto))) |
|
(cl:defmethod clear-id ((self quick-reply-button)) |
|
(cl:setf (cl:slot-value self 'id) (pb:string-field "")) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-id)) |
|
|
|
|
|
(cl:defmethod cl:print-object ((self quick-reply-button) stream) |
|
(cl:pprint-logical-block (stream cl:nil) |
|
(cl:print-unreadable-object (self stream :type cl:t :identity cl:t) |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:format stream " ~_display-text: ~s" (display-text self))) |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:format stream " ~_id: ~s" (id self))) |
|
)) |
|
(cl:values)) |
|
|
|
(cl:defmethod pb:clear ((self quick-reply-button)) |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'display-text) cl:nil)) |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'id) (pb:string-field ""))) |
|
(cl:setf (cl:slot-value self '%has-bits%) 0) |
|
(cl:values)) |
|
|
|
(cl:defmethod pb:is-initialized ((self quick-reply-button)) |
|
cl:t) |
|
|
|
(cl:defmethod pb:octet-size ((self quick-reply-button)) |
|
(cl:let ((size 0)) |
|
;; optional .proto.HighlyStructuredMessage displayText = 1[json_name = "displayText"]; |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:let ((s (pb:octet-size (cl:slot-value self 'display-text)))) |
|
(cl:incf size (cl:+ 1 s (varint:length-uint32 s))))) |
|
;; optional string id = 2[json_name = "id"]; |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:incf size 1) |
|
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'id)))) |
|
(cl:+ s (varint:length-uint32 s))))) |
|
(cl:setf (cl:slot-value self 'pb::%cached-size%) size) |
|
size)) |
|
|
|
(cl:defmethod pb:serialize ((self quick-reply-button) buffer index limit) |
|
(cl:declare (cl:type com.google.base:octet-vector buffer) |
|
(cl:type com.google.base:vector-index index limit) |
|
(cl:ignorable buffer limit)) |
|
;; optional .proto.HighlyStructuredMessage displayText = 1[json_name = "displayText"]; |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit 10)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit (cl:slot-value (cl:slot-value self 'display-text) 'pb::%cached-size%))) |
|
(cl:setf index (pb:serialize (cl:slot-value self 'display-text) buffer index limit))) |
|
;; optional string id = 2[json_name = "id"]; |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit 18)) |
|
(cl:setf index (wire-format:write-octets-carefully buffer index limit (cl:slot-value (cl:slot-value self 'id) 'pb::%octets%)))) |
|
index) |
|
|
|
(cl:defmethod pb:merge-from-array ((self quick-reply-button) buffer start limit) |
|
(cl:declare (cl:type com.google.base:octet-vector buffer) |
|
(cl:type com.google.base:vector-index start limit)) |
|
(cl:do ((index start index)) |
|
((cl:>= index limit) index) |
|
(cl:declare (cl:type com.google.base:vector-index index)) |
|
(cl:multiple-value-bind (field-number wire-type new-index) |
|
(wire-format:parse-tag buffer index limit) |
|
(cl:setf index new-index) |
|
(cl:case field-number |
|
;; optional .proto.HighlyStructuredMessage displayText = 1[json_name = "displayText"]; |
|
((1) |
|
(cl:cond |
|
((cl:= wire-type wire-format:+length-delimited+) |
|
(cl:multiple-value-bind (length new-index) |
|
(varint:parse-uint31-carefully buffer index limit) |
|
(cl:when (cl:> (cl:+ new-index length) limit) |
|
(cl:error 'wire-format:data-exhausted)) |
|
(cl:let ((message (cl:slot-value self 'display-text))) |
|
(cl:when (cl:null message) |
|
(cl:setf message (cl:make-instance 'whatscl/protobuf::highly-structured-message)) |
|
(cl:setf (cl:slot-value self 'display-text) message) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1)) |
|
(cl:setf index (pb:merge-from-array message buffer new-index (cl:+ new-index length))) |
|
(cl:when (cl:/= index (cl:+ new-index length)) |
|
(cl:error 'wire-format:alignment))))) |
|
(cl:t (cl:error 'wire-format:alignment)))) |
|
;; optional string id = 2[json_name = "id"]; |
|
((2) |
|
(cl:cond |
|
((cl:= wire-type wire-format:+length-delimited+) |
|
(cl:multiple-value-bind (value new-index) |
|
(wire-format:read-octets-carefully buffer index limit) |
|
(cl:setf (cl:slot-value self 'id) (pb:string-field value)) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1) |
|
(cl:setf index new-index))) |
|
(cl:t (cl:error 'wire-format:alignment)))) |
|
(cl:t |
|
(cl:when (cl:= wire-type wire-format:+end-group+) |
|
(cl:return-from pb:merge-from-array index)) |
|
(cl:setf index (wire-format:skip-field field-number wire-type buffer index limit))))))) |
|
|
|
(cl:defmethod pb:merge-from-message ((self quick-reply-button) (from quick-reply-button)) |
|
(cl:when (cl:logbitp 0 (cl:slot-value from '%has-bits%)) |
|
(cl:let ((message (cl:slot-value self 'display-text))) |
|
(cl:when (cl:null message) |
|
(cl:setf message (cl:make-instance 'whatscl/protobuf::highly-structured-message)) |
|
(cl:setf (cl:slot-value self 'display-text) message) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1)) |
|
(pb:merge-from-message message (cl:slot-value from 'display-text)))) |
|
(cl:when (cl:logbitp 1 (cl:slot-value from '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'id) (cl:slot-value from 'id)) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1)) |
|
) |
|
|
|
|
|
(cl:defclass url-button (pb:protocol-buffer) |
|
( |
|
(display-text |
|
:writer (cl:setf display-text) |
|
:initform cl:nil |
|
:type (cl:or cl:null whatscl/protobuf::highly-structured-message)) |
|
(url |
|
:writer (cl:setf url) |
|
:initform cl:nil |
|
:type (cl:or cl:null whatscl/protobuf::highly-structured-message)) |
|
(%has-bits% |
|
:accessor %has-bits% |
|
:initform 0 |
|
:type (cl:unsigned-byte 2)) |
|
(pb::%cached-size% |
|
:initform 0 |
|
:type (cl:integer 0 #.(cl:1- cl:array-dimension-limit))) |
|
)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'url-button)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'display-text)) |
|
|
|
(cl:unless (cl:fboundp 'display-text) |
|
(cl:defgeneric display-text (proto))) |
|
(cl:defmethod display-text ((self url-button)) |
|
(cl:let ((result (cl:slot-value self 'display-text))) |
|
(cl:when (cl:null result) |
|
(cl:setf result (cl:make-instance 'whatscl/protobuf::highly-structured-message)) |
|
(cl:setf (cl:slot-value self 'display-text) result)) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1) |
|
result)) |
|
|
|
(cl:defmethod (cl:setf display-text) :after (x (self url-button)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-display-text) |
|
(cl:defgeneric has-display-text (proto))) |
|
(cl:defmethod has-display-text ((self url-button)) |
|
(cl:logbitp 0 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-display-text)) |
|
|
|
(cl:unless (cl:fboundp 'clear-display-text) |
|
(cl:defgeneric clear-display-text (proto))) |
|
(cl:defmethod clear-display-text ((self url-button)) |
|
(cl:setf (cl:slot-value self 'display-text) cl:nil) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-display-text)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'url)) |
|
|
|
(cl:unless (cl:fboundp 'url) |
|
(cl:defgeneric url (proto))) |
|
(cl:defmethod url ((self url-button)) |
|
(cl:let ((result (cl:slot-value self 'url))) |
|
(cl:when (cl:null result) |
|
(cl:setf result (cl:make-instance 'whatscl/protobuf::highly-structured-message)) |
|
(cl:setf (cl:slot-value self 'url) result)) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1) |
|
result)) |
|
|
|
(cl:defmethod (cl:setf url) :after (x (self url-button)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-url) |
|
(cl:defgeneric has-url (proto))) |
|
(cl:defmethod has-url ((self url-button)) |
|
(cl:logbitp 1 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-url)) |
|
|
|
(cl:unless (cl:fboundp 'clear-url) |
|
(cl:defgeneric clear-url (proto))) |
|
(cl:defmethod clear-url ((self url-button)) |
|
(cl:setf (cl:slot-value self 'url) cl:nil) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-url)) |
|
|
|
|
|
(cl:defmethod cl:print-object ((self url-button) stream) |
|
(cl:pprint-logical-block (stream cl:nil) |
|
(cl:print-unreadable-object (self stream :type cl:t :identity cl:t) |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:format stream " ~_display-text: ~s" (display-text self))) |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:format stream " ~_url: ~s" (url self))) |
|
)) |
|
(cl:values)) |
|
|
|
(cl:defmethod pb:clear ((self url-button)) |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'display-text) cl:nil)) |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'url) cl:nil)) |
|
(cl:setf (cl:slot-value self '%has-bits%) 0) |
|
(cl:values)) |
|
|
|
(cl:defmethod pb:is-initialized ((self url-button)) |
|
cl:t) |
|
|
|
(cl:defmethod pb:octet-size ((self url-button)) |
|
(cl:let ((size 0)) |
|
;; optional .proto.HighlyStructuredMessage displayText = 1[json_name = "displayText"]; |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:let ((s (pb:octet-size (cl:slot-value self 'display-text)))) |
|
(cl:incf size (cl:+ 1 s (varint:length-uint32 s))))) |
|
;; optional .proto.HighlyStructuredMessage url = 2[json_name = "url"]; |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:let ((s (pb:octet-size (cl:slot-value self 'url)))) |
|
(cl:incf size (cl:+ 1 s (varint:length-uint32 s))))) |
|
(cl:setf (cl:slot-value self 'pb::%cached-size%) size) |
|
size)) |
|
|
|
(cl:defmethod pb:serialize ((self url-button) buffer index limit) |
|
(cl:declare (cl:type com.google.base:octet-vector buffer) |
|
(cl:type com.google.base:vector-index index limit) |
|
(cl:ignorable buffer limit)) |
|
;; optional .proto.HighlyStructuredMessage displayText = 1[json_name = "displayText"]; |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit 10)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit (cl:slot-value (cl:slot-value self 'display-text) 'pb::%cached-size%))) |
|
(cl:setf index (pb:serialize (cl:slot-value self 'display-text) buffer index limit))) |
|
;; optional .proto.HighlyStructuredMessage url = 2[json_name = "url"]; |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit 18)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit (cl:slot-value (cl:slot-value self 'url) 'pb::%cached-size%))) |
|
(cl:setf index (pb:serialize (cl:slot-value self 'url) buffer index limit))) |
|
index) |
|
|
|
(cl:defmethod pb:merge-from-array ((self url-button) buffer start limit) |
|
(cl:declare (cl:type com.google.base:octet-vector buffer) |
|
(cl:type com.google.base:vector-index start limit)) |
|
(cl:do ((index start index)) |
|
((cl:>= index limit) index) |
|
(cl:declare (cl:type com.google.base:vector-index index)) |
|
(cl:multiple-value-bind (field-number wire-type new-index) |
|
(wire-format:parse-tag buffer index limit) |
|
(cl:setf index new-index) |
|
(cl:case field-number |
|
;; optional .proto.HighlyStructuredMessage displayText = 1[json_name = "displayText"]; |
|
((1) |
|
(cl:cond |
|
((cl:= wire-type wire-format:+length-delimited+) |
|
(cl:multiple-value-bind (length new-index) |
|
(varint:parse-uint31-carefully buffer index limit) |
|
(cl:when (cl:> (cl:+ new-index length) limit) |
|
(cl:error 'wire-format:data-exhausted)) |
|
(cl:let ((message (cl:slot-value self 'display-text))) |
|
(cl:when (cl:null message) |
|
(cl:setf message (cl:make-instance 'whatscl/protobuf::highly-structured-message)) |
|
(cl:setf (cl:slot-value self 'display-text) message) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1)) |
|
(cl:setf index (pb:merge-from-array message buffer new-index (cl:+ new-index length))) |
|
(cl:when (cl:/= index (cl:+ new-index length)) |
|
(cl:error 'wire-format:alignment))))) |
|
(cl:t (cl:error 'wire-format:alignment)))) |
|
;; optional .proto.HighlyStructuredMessage url = 2[json_name = "url"]; |
|
((2) |
|
(cl:cond |
|
((cl:= wire-type wire-format:+length-delimited+) |
|
(cl:multiple-value-bind (length new-index) |
|
(varint:parse-uint31-carefully buffer index limit) |
|
(cl:when (cl:> (cl:+ new-index length) limit) |
|
(cl:error 'wire-format:data-exhausted)) |
|
(cl:let ((message (cl:slot-value self 'url))) |
|
(cl:when (cl:null message) |
|
(cl:setf message (cl:make-instance 'whatscl/protobuf::highly-structured-message)) |
|
(cl:setf (cl:slot-value self 'url) message) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1)) |
|
(cl:setf index (pb:merge-from-array message buffer new-index (cl:+ new-index length))) |
|
(cl:when (cl:/= index (cl:+ new-index length)) |
|
(cl:error 'wire-format:alignment))))) |
|
(cl:t (cl:error 'wire-format:alignment)))) |
|
(cl:t |
|
(cl:when (cl:= wire-type wire-format:+end-group+) |
|
(cl:return-from pb:merge-from-array index)) |
|
(cl:setf index (wire-format:skip-field field-number wire-type buffer index limit))))))) |
|
|
|
(cl:defmethod pb:merge-from-message ((self url-button) (from url-button)) |
|
(cl:when (cl:logbitp 0 (cl:slot-value from '%has-bits%)) |
|
(cl:let ((message (cl:slot-value self 'display-text))) |
|
(cl:when (cl:null message) |
|
(cl:setf message (cl:make-instance 'whatscl/protobuf::highly-structured-message)) |
|
(cl:setf (cl:slot-value self 'display-text) message) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1)) |
|
(pb:merge-from-message message (cl:slot-value from 'display-text)))) |
|
(cl:when (cl:logbitp 1 (cl:slot-value from '%has-bits%)) |
|
(cl:let ((message (cl:slot-value self 'url))) |
|
(cl:when (cl:null message) |
|
(cl:setf message (cl:make-instance 'whatscl/protobuf::highly-structured-message)) |
|
(cl:setf (cl:slot-value self 'url) message) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1)) |
|
(pb:merge-from-message message (cl:slot-value from 'url)))) |
|
) |
|
|
|
|
|
(cl:defclass call-button (pb:protocol-buffer) |
|
( |
|
(display-text |
|
:writer (cl:setf display-text) |
|
:initform cl:nil |
|
:type (cl:or cl:null whatscl/protobuf::highly-structured-message)) |
|
(phone-number |
|
:writer (cl:setf phone-number) |
|
:initform cl:nil |
|
:type (cl:or cl:null whatscl/protobuf::highly-structured-message)) |
|
(%has-bits% |
|
:accessor %has-bits% |
|
:initform 0 |
|
:type (cl:unsigned-byte 2)) |
|
(pb::%cached-size% |
|
:initform 0 |
|
:type (cl:integer 0 #.(cl:1- cl:array-dimension-limit))) |
|
)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'call-button)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'display-text)) |
|
|
|
(cl:unless (cl:fboundp 'display-text) |
|
(cl:defgeneric display-text (proto))) |
|
(cl:defmethod display-text ((self call-button)) |
|
(cl:let ((result (cl:slot-value self 'display-text))) |
|
(cl:when (cl:null result) |
|
(cl:setf result (cl:make-instance 'whatscl/protobuf::highly-structured-message)) |
|
(cl:setf (cl:slot-value self 'display-text) result)) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1) |
|
result)) |
|
|
|
(cl:defmethod (cl:setf display-text) :after (x (self call-button)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-display-text) |
|
(cl:defgeneric has-display-text (proto))) |
|
(cl:defmethod has-display-text ((self call-button)) |
|
(cl:logbitp 0 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-display-text)) |
|
|
|
(cl:unless (cl:fboundp 'clear-display-text) |
|
(cl:defgeneric clear-display-text (proto))) |
|
(cl:defmethod clear-display-text ((self call-button)) |
|
(cl:setf (cl:slot-value self 'display-text) cl:nil) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-display-text)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'phone-number)) |
|
|
|
(cl:unless (cl:fboundp 'phone-number) |
|
(cl:defgeneric phone-number (proto))) |
|
(cl:defmethod phone-number ((self call-button)) |
|
(cl:let ((result (cl:slot-value self 'phone-number))) |
|
(cl:when (cl:null result) |
|
(cl:setf result (cl:make-instance 'whatscl/protobuf::highly-structured-message)) |
|
(cl:setf (cl:slot-value self 'phone-number) result)) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1) |
|
result)) |
|
|
|
(cl:defmethod (cl:setf phone-number) :after (x (self call-button)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-phone-number) |
|
(cl:defgeneric has-phone-number (proto))) |
|
(cl:defmethod has-phone-number ((self call-button)) |
|
(cl:logbitp 1 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-phone-number)) |
|
|
|
(cl:unless (cl:fboundp 'clear-phone-number) |
|
(cl:defgeneric clear-phone-number (proto))) |
|
(cl:defmethod clear-phone-number ((self call-button)) |
|
(cl:setf (cl:slot-value self 'phone-number) cl:nil) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-phone-number)) |
|
|
|
|
|
(cl:defmethod cl:print-object ((self call-button) stream) |
|
(cl:pprint-logical-block (stream cl:nil) |
|
(cl:print-unreadable-object (self stream :type cl:t :identity cl:t) |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:format stream " ~_display-text: ~s" (display-text self))) |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:format stream " ~_phone-number: ~s" (phone-number self))) |
|
)) |
|
(cl:values)) |
|
|
|
(cl:defmethod pb:clear ((self call-button)) |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'display-text) cl:nil)) |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'phone-number) cl:nil)) |
|
(cl:setf (cl:slot-value self '%has-bits%) 0) |
|
(cl:values)) |
|
|
|
(cl:defmethod pb:is-initialized ((self call-button)) |
|
cl:t) |
|
|
|
(cl:defmethod pb:octet-size ((self call-button)) |
|
(cl:let ((size 0)) |
|
;; optional .proto.HighlyStructuredMessage displayText = 1[json_name = "displayText"]; |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:let ((s (pb:octet-size (cl:slot-value self 'display-text)))) |
|
(cl:incf size (cl:+ 1 s (varint:length-uint32 s))))) |
|
;; optional .proto.HighlyStructuredMessage phoneNumber = 2[json_name = "phoneNumber"]; |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:let ((s (pb:octet-size (cl:slot-value self 'phone-number)))) |
|
(cl:incf size (cl:+ 1 s (varint:length-uint32 s))))) |
|
(cl:setf (cl:slot-value self 'pb::%cached-size%) size) |
|
size)) |
|
|
|
(cl:defmethod pb:serialize ((self call-button) buffer index limit) |
|
(cl:declare (cl:type com.google.base:octet-vector buffer) |
|
(cl:type com.google.base:vector-index index limit) |
|
(cl:ignorable buffer limit)) |
|
;; optional .proto.HighlyStructuredMessage displayText = 1[json_name = "displayText"]; |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit 10)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit (cl:slot-value (cl:slot-value self 'display-text) 'pb::%cached-size%))) |
|
(cl:setf index (pb:serialize (cl:slot-value self 'display-text) buffer index limit))) |
|
;; optional .proto.HighlyStructuredMessage phoneNumber = 2[json_name = "phoneNumber"]; |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit 18)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit (cl:slot-value (cl:slot-value self 'phone-number) 'pb::%cached-size%))) |
|
(cl:setf index (pb:serialize (cl:slot-value self 'phone-number) buffer index limit))) |
|
index) |
|
|
|
(cl:defmethod pb:merge-from-array ((self call-button) buffer start limit) |
|
(cl:declare (cl:type com.google.base:octet-vector buffer) |
|
(cl:type com.google.base:vector-index start limit)) |
|
(cl:do ((index start index)) |
|
((cl:>= index limit) index) |
|
(cl:declare (cl:type com.google.base:vector-index index)) |
|
(cl:multiple-value-bind (field-number wire-type new-index) |
|
(wire-format:parse-tag buffer index limit) |
|
(cl:setf index new-index) |
|
(cl:case field-number |
|
;; optional .proto.HighlyStructuredMessage displayText = 1[json_name = "displayText"]; |
|
((1) |
|
(cl:cond |
|
((cl:= wire-type wire-format:+length-delimited+) |
|
(cl:multiple-value-bind (length new-index) |
|
(varint:parse-uint31-carefully buffer index limit) |
|
(cl:when (cl:> (cl:+ new-index length) limit) |
|
(cl:error 'wire-format:data-exhausted)) |
|
(cl:let ((message (cl:slot-value self 'display-text))) |
|
(cl:when (cl:null message) |
|
(cl:setf message (cl:make-instance 'whatscl/protobuf::highly-structured-message)) |
|
(cl:setf (cl:slot-value self 'display-text) message) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1)) |
|
(cl:setf index (pb:merge-from-array message buffer new-index (cl:+ new-index length))) |
|
(cl:when (cl:/= index (cl:+ new-index length)) |
|
(cl:error 'wire-format:alignment))))) |
|
(cl:t (cl:error 'wire-format:alignment)))) |
|
;; optional .proto.HighlyStructuredMessage phoneNumber = 2[json_name = "phoneNumber"]; |
|
((2) |
|
(cl:cond |
|
((cl:= wire-type wire-format:+length-delimited+) |
|
(cl:multiple-value-bind (length new-index) |
|
(varint:parse-uint31-carefully buffer index limit) |
|
(cl:when (cl:> (cl:+ new-index length) limit) |
|
(cl:error 'wire-format:data-exhausted)) |
|
(cl:let ((message (cl:slot-value self 'phone-number))) |
|
(cl:when (cl:null message) |
|
(cl:setf message (cl:make-instance 'whatscl/protobuf::highly-structured-message)) |
|
(cl:setf (cl:slot-value self 'phone-number) message) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1)) |
|
(cl:setf index (pb:merge-from-array message buffer new-index (cl:+ new-index length))) |
|
(cl:when (cl:/= index (cl:+ new-index length)) |
|
(cl:error 'wire-format:alignment))))) |
|
(cl:t (cl:error 'wire-format:alignment)))) |
|
(cl:t |
|
(cl:when (cl:= wire-type wire-format:+end-group+) |
|
(cl:return-from pb:merge-from-array index)) |
|
(cl:setf index (wire-format:skip-field field-number wire-type buffer index limit))))))) |
|
|
|
(cl:defmethod pb:merge-from-message ((self call-button) (from call-button)) |
|
(cl:when (cl:logbitp 0 (cl:slot-value from '%has-bits%)) |
|
(cl:let ((message (cl:slot-value self 'display-text))) |
|
(cl:when (cl:null message) |
|
(cl:setf message (cl:make-instance 'whatscl/protobuf::highly-structured-message)) |
|
(cl:setf (cl:slot-value self 'display-text) message) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1)) |
|
(pb:merge-from-message message (cl:slot-value from 'display-text)))) |
|
(cl:when (cl:logbitp 1 (cl:slot-value from '%has-bits%)) |
|
(cl:let ((message (cl:slot-value self 'phone-number))) |
|
(cl:when (cl:null message) |
|
(cl:setf message (cl:make-instance 'whatscl/protobuf::highly-structured-message)) |
|
(cl:setf (cl:slot-value self 'phone-number) message) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1)) |
|
(pb:merge-from-message message (cl:slot-value from 'phone-number)))) |
|
) |
|
|
|
|
|
(cl:defclass template-button (pb:protocol-buffer) |
|
( |
|
(index |
|
:accessor index |
|
:initform 0 |
|
:type (cl:unsigned-byte 32)) |
|
(quick-reply-button |
|
:writer (cl:setf quick-reply-button) |
|
:initform cl:nil |
|
:type (cl:or cl:null whatscl/protobuf::quick-reply-button)) |
|
(url-button |
|
:writer (cl:setf url-button) |
|
:initform cl:nil |
|
:type (cl:or cl:null whatscl/protobuf::url-button)) |
|
(call-button |
|
:writer (cl:setf call-button) |
|
:initform cl:nil |
|
:type (cl:or cl:null whatscl/protobuf::call-button)) |
|
(%has-bits% |
|
:accessor %has-bits% |
|
:initform 0 |
|
:type (cl:unsigned-byte 4)) |
|
(pb::%cached-size% |
|
:initform 0 |
|
:type (cl:integer 0 #.(cl:1- cl:array-dimension-limit))) |
|
)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'template-button)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'index)) |
|
|
|
|
|
(cl:defmethod (cl:setf index) :after (x (self template-button)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-index) |
|
(cl:defgeneric has-index (proto))) |
|
(cl:defmethod has-index ((self template-button)) |
|
(cl:logbitp 0 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-index)) |
|
|
|
(cl:unless (cl:fboundp 'clear-index) |
|
(cl:defgeneric clear-index (proto))) |
|
(cl:defmethod clear-index ((self template-button)) |
|
(cl:setf (cl:slot-value self 'index) 0) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-index)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'quick-reply-button)) |
|
|
|
(cl:unless (cl:fboundp 'quick-reply-button) |
|
(cl:defgeneric quick-reply-button (proto))) |
|
(cl:defmethod quick-reply-button ((self template-button)) |
|
(cl:let ((result (cl:slot-value self 'quick-reply-button))) |
|
(cl:when (cl:null result) |
|
(cl:setf result (cl:make-instance 'whatscl/protobuf::quick-reply-button)) |
|
(cl:setf (cl:slot-value self 'quick-reply-button) result)) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1) |
|
result)) |
|
|
|
(cl:defmethod (cl:setf quick-reply-button) :after (x (self template-button)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-quick-reply-button) |
|
(cl:defgeneric has-quick-reply-button (proto))) |
|
(cl:defmethod has-quick-reply-button ((self template-button)) |
|
(cl:logbitp 1 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-quick-reply-button)) |
|
|
|
(cl:unless (cl:fboundp 'clear-quick-reply-button) |
|
(cl:defgeneric clear-quick-reply-button (proto))) |
|
(cl:defmethod clear-quick-reply-button ((self template-button)) |
|
(cl:setf (cl:slot-value self 'quick-reply-button) cl:nil) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-quick-reply-button)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'url-button)) |
|
|
|
(cl:unless (cl:fboundp 'url-button) |
|
(cl:defgeneric url-button (proto))) |
|
(cl:defmethod url-button ((self template-button)) |
|
(cl:let ((result (cl:slot-value self 'url-button))) |
|
(cl:when (cl:null result) |
|
(cl:setf result (cl:make-instance 'whatscl/protobuf::url-button)) |
|
(cl:setf (cl:slot-value self 'url-button) result)) |
|
(cl:setf (cl:ldb (cl:byte 1 2) (cl:slot-value self '%has-bits%)) 1) |
|
result)) |
|
|
|
(cl:defmethod (cl:setf url-button) :after (x (self template-button)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 2) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-url-button) |
|
(cl:defgeneric has-url-button (proto))) |
|
(cl:defmethod has-url-button ((self template-button)) |
|
(cl:logbitp 2 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-url-button)) |
|
|
|
(cl:unless (cl:fboundp 'clear-url-button) |
|
(cl:defgeneric clear-url-button (proto))) |
|
(cl:defmethod clear-url-button ((self template-button)) |
|
(cl:setf (cl:slot-value self 'url-button) cl:nil) |
|
(cl:setf (cl:ldb (cl:byte 1 2) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-url-button)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'call-button)) |
|
|
|
(cl:unless (cl:fboundp 'call-button) |
|
(cl:defgeneric call-button (proto))) |
|
(cl:defmethod call-button ((self template-button)) |
|
(cl:let ((result (cl:slot-value self 'call-button))) |
|
(cl:when (cl:null result) |
|
(cl:setf result (cl:make-instance 'whatscl/protobuf::call-button)) |
|
(cl:setf (cl:slot-value self 'call-button) result)) |
|
(cl:setf (cl:ldb (cl:byte 1 3) (cl:slot-value self '%has-bits%)) 1) |
|
result)) |
|
|
|
(cl:defmethod (cl:setf call-button) :after (x (self template-button)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 3) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-call-button) |
|
(cl:defgeneric has-call-button (proto))) |
|
(cl:defmethod has-call-button ((self template-button)) |
|
(cl:logbitp 3 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-call-button)) |
|
|
|
(cl:unless (cl:fboundp 'clear-call-button) |
|
(cl:defgeneric clear-call-button (proto))) |
|
(cl:defmethod clear-call-button ((self template-button)) |
|
(cl:setf (cl:slot-value self 'call-button) cl:nil) |
|
(cl:setf (cl:ldb (cl:byte 1 3) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-call-button)) |
|
|
|
|
|
(cl:defmethod cl:print-object ((self template-button) stream) |
|
(cl:pprint-logical-block (stream cl:nil) |
|
(cl:print-unreadable-object (self stream :type cl:t :identity cl:t) |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:format stream " ~_index: ~s" (index self))) |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:format stream " ~_quick-reply-button: ~s" (quick-reply-button self))) |
|
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%)) |
|
(cl:format stream " ~_url-button: ~s" (url-button self))) |
|
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%)) |
|
(cl:format stream " ~_call-button: ~s" (call-button self))) |
|
)) |
|
(cl:values)) |
|
|
|
(cl:defmethod pb:clear ((self template-button)) |
|
(cl:setf (cl:slot-value self 'index) 0) |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'quick-reply-button) cl:nil)) |
|
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'url-button) cl:nil)) |
|
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'call-button) cl:nil)) |
|
(cl:setf (cl:slot-value self '%has-bits%) 0) |
|
(cl:values)) |
|
|
|
(cl:defmethod pb:is-initialized ((self template-button)) |
|
cl:t) |
|
|
|
(cl:defmethod pb:octet-size ((self template-button)) |
|
(cl:let ((size 0)) |
|
;; optional uint32 index = 4[json_name = "index"]; |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:incf size |
|
(cl:+ 1 (varint:length-uint32 (cl:slot-value self 'index))))) |
|
;; .proto.QuickReplyButton quickReplyButton = 1[json_name = "quickReplyButton"]; |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:let ((s (pb:octet-size (cl:slot-value self 'quick-reply-button)))) |
|
(cl:incf size (cl:+ 1 s (varint:length-uint32 s))))) |
|
;; .proto.URLButton urlButton = 2[json_name = "urlButton"]; |
|
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%)) |
|
(cl:let ((s (pb:octet-size (cl:slot-value self 'url-button)))) |
|
(cl:incf size (cl:+ 1 s (varint:length-uint32 s))))) |
|
;; .proto.CallButton callButton = 3[json_name = "callButton"]; |
|
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%)) |
|
(cl:let ((s (pb:octet-size (cl:slot-value self 'call-button)))) |
|
(cl:incf size (cl:+ 1 s (varint:length-uint32 s))))) |
|
(cl:setf (cl:slot-value self 'pb::%cached-size%) size) |
|
size)) |
|
|
|
(cl:defmethod pb:serialize ((self template-button) buffer index limit) |
|
(cl:declare (cl:type com.google.base:octet-vector buffer) |
|
(cl:type com.google.base:vector-index index limit) |
|
(cl:ignorable buffer limit)) |
|
;; .proto.QuickReplyButton quickReplyButton = 1[json_name = "quickReplyButton"]; |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit 10)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit (cl:slot-value (cl:slot-value self 'quick-reply-button) 'pb::%cached-size%))) |
|
(cl:setf index (pb:serialize (cl:slot-value self 'quick-reply-button) buffer index limit))) |
|
;; .proto.URLButton urlButton = 2[json_name = "urlButton"]; |
|
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit 18)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit (cl:slot-value (cl:slot-value self 'url-button) 'pb::%cached-size%))) |
|
(cl:setf index (pb:serialize (cl:slot-value self 'url-button) buffer index limit))) |
|
;; .proto.CallButton callButton = 3[json_name = "callButton"]; |
|
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit 26)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit (cl:slot-value (cl:slot-value self 'call-button) 'pb::%cached-size%))) |
|
(cl:setf index (pb:serialize (cl:slot-value self 'call-button) buffer index limit))) |
|
;; optional uint32 index = 4[json_name = "index"]; |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit 32)) |
|
(cl:setf index |
|
(varint:encode-uint32-carefully buffer index limit (cl:slot-value self 'index)))) |
|
index) |
|
|
|
(cl:defmethod pb:merge-from-array ((self template-button) buffer start limit) |
|
(cl:declare (cl:type com.google.base:octet-vector buffer) |
|
(cl:type com.google.base:vector-index start limit)) |
|
(cl:do ((index start index)) |
|
((cl:>= index limit) index) |
|
(cl:declare (cl:type com.google.base:vector-index index)) |
|
(cl:multiple-value-bind (field-number wire-type new-index) |
|
(wire-format:parse-tag buffer index limit) |
|
(cl:setf index new-index) |
|
(cl:case field-number |
|
;; .proto.QuickReplyButton quickReplyButton = 1[json_name = "quickReplyButton"]; |
|
((1) |
|
(cl:cond |
|
((cl:= wire-type wire-format:+length-delimited+) |
|
(cl:multiple-value-bind (length new-index) |
|
(varint:parse-uint31-carefully buffer index limit) |
|
(cl:when (cl:> (cl:+ new-index length) limit) |
|
(cl:error 'wire-format:data-exhausted)) |
|
(cl:let ((message (cl:slot-value self 'quick-reply-button))) |
|
(cl:when (cl:null message) |
|
(cl:setf message (cl:make-instance 'whatscl/protobuf::quick-reply-button)) |
|
(cl:setf (cl:slot-value self 'quick-reply-button) message) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1)) |
|
(cl:setf index (pb:merge-from-array message buffer new-index (cl:+ new-index length))) |
|
(cl:when (cl:/= index (cl:+ new-index length)) |
|
(cl:error 'wire-format:alignment))))) |
|
(cl:t (cl:error 'wire-format:alignment)))) |
|
;; .proto.URLButton urlButton = 2[json_name = "urlButton"]; |
|
((2) |
|
(cl:cond |
|
((cl:= wire-type wire-format:+length-delimited+) |
|
(cl:multiple-value-bind (length new-index) |
|
(varint:parse-uint31-carefully buffer index limit) |
|
(cl:when (cl:> (cl:+ new-index length) limit) |
|
(cl:error 'wire-format:data-exhausted)) |
|
(cl:let ((message (cl:slot-value self 'url-button))) |
|
(cl:when (cl:null message) |
|
(cl:setf message (cl:make-instance 'whatscl/protobuf::url-button)) |
|
(cl:setf (cl:slot-value self 'url-button) message) |
|
(cl:setf (cl:ldb (cl:byte 1 2) (cl:slot-value self '%has-bits%)) 1)) |
|
(cl:setf index (pb:merge-from-array message buffer new-index (cl:+ new-index length))) |
|
(cl:when (cl:/= index (cl:+ new-index length)) |
|
(cl:error 'wire-format:alignment))))) |
|
(cl:t (cl:error 'wire-format:alignment)))) |
|
;; .proto.CallButton callButton = 3[json_name = "callButton"]; |
|
((3) |
|
(cl:cond |
|
((cl:= wire-type wire-format:+length-delimited+) |
|
(cl:multiple-value-bind (length new-index) |
|
(varint:parse-uint31-carefully buffer index limit) |
|
(cl:when (cl:> (cl:+ new-index length) limit) |
|
(cl:error 'wire-format:data-exhausted)) |
|
(cl:let ((message (cl:slot-value self 'call-button))) |
|
(cl:when (cl:null message) |
|
(cl:setf message (cl:make-instance 'whatscl/protobuf::call-button)) |
|
(cl:setf (cl:slot-value self 'call-button) message) |
|
(cl:setf (cl:ldb (cl:byte 1 3) (cl:slot-value self '%has-bits%)) 1)) |
|
(cl:setf index (pb:merge-from-array message buffer new-index (cl:+ new-index length))) |
|
(cl:when (cl:/= index (cl:+ new-index length)) |
|
(cl:error 'wire-format:alignment))))) |
|
(cl:t (cl:error 'wire-format:alignment)))) |
|
;; optional uint32 index = 4[json_name = "index"]; |
|
((4) |
|
(cl:cond |
|
((cl:= wire-type wire-format:+varint+) |
|
(cl:multiple-value-bind (value new-index) |
|
(cl:multiple-value-bind (x new-index) |
|
(varint:parse-uint64-carefully buffer index limit) |
|
(cl:values (cl:ldb (cl:byte 32 0) x) new-index)) |
|
(cl:setf (cl:slot-value self 'index) value) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1) |
|
(cl:setf index new-index))) |
|
(cl:t (cl:error 'wire-format:alignment)))) |
|
(cl:t |
|
(cl:when (cl:= wire-type wire-format:+end-group+) |
|
(cl:return-from pb:merge-from-array index)) |
|
(cl:setf index (wire-format:skip-field field-number wire-type buffer index limit))))))) |
|
|
|
(cl:defmethod pb:merge-from-message ((self template-button) (from template-button)) |
|
(cl:when (cl:logbitp 0 (cl:slot-value from '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'index) (cl:slot-value from 'index)) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1)) |
|
(cl:when (cl:logbitp 1 (cl:slot-value from '%has-bits%)) |
|
(cl:let ((message (cl:slot-value self 'quick-reply-button))) |
|
(cl:when (cl:null message) |
|
(cl:setf message (cl:make-instance 'whatscl/protobuf::quick-reply-button)) |
|
(cl:setf (cl:slot-value self 'quick-reply-button) message) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1)) |
|
(pb:merge-from-message message (cl:slot-value from 'quick-reply-button)))) |
|
(cl:when (cl:logbitp 2 (cl:slot-value from '%has-bits%)) |
|
(cl:let ((message (cl:slot-value self 'url-button))) |
|
(cl:when (cl:null message) |
|
(cl:setf message (cl:make-instance 'whatscl/protobuf::url-button)) |
|
(cl:setf (cl:slot-value self 'url-button) message) |
|
(cl:setf (cl:ldb (cl:byte 1 2) (cl:slot-value self '%has-bits%)) 1)) |
|
(pb:merge-from-message message (cl:slot-value from 'url-button)))) |
|
(cl:when (cl:logbitp 3 (cl:slot-value from '%has-bits%)) |
|
(cl:let ((message (cl:slot-value self 'call-button))) |
|
(cl:when (cl:null message) |
|
(cl:setf message (cl:make-instance 'whatscl/protobuf::call-button)) |
|
(cl:setf (cl:slot-value self 'call-button) message) |
|
(cl:setf (cl:ldb (cl:byte 1 3) (cl:slot-value self '%has-bits%)) 1)) |
|
(pb:merge-from-message message (cl:slot-value from 'call-button)))) |
|
) |
|
|
|
|
|
(cl:defclass location (pb:protocol-buffer) |
|
( |
|
(degrees-latitude |
|
:accessor degrees-latitude |
|
:initform 0d0 |
|
:type cl:double-float) |
|
(degrees-longitude |
|
:accessor degrees-longitude |
|
:initform 0d0 |
|
:type cl:double-float) |
|
(name |
|
:accessor name |
|
:initform (pb:string-field "") |
|
:type pb::%sf%) |
|
(%has-bits% |
|
:accessor %has-bits% |
|
:initform 0 |
|
:type (cl:unsigned-byte 3)) |
|
(pb::%cached-size% |
|
:initform 0 |
|
:type (cl:integer 0 #.(cl:1- cl:array-dimension-limit))) |
|
)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'location)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'degrees-latitude)) |
|
|
|
|
|
(cl:defmethod (cl:setf degrees-latitude) :after (x (self location)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-degrees-latitude) |
|
(cl:defgeneric has-degrees-latitude (proto))) |
|
(cl:defmethod has-degrees-latitude ((self location)) |
|
(cl:logbitp 0 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-degrees-latitude)) |
|
|
|
(cl:unless (cl:fboundp 'clear-degrees-latitude) |
|
(cl:defgeneric clear-degrees-latitude (proto))) |
|
(cl:defmethod clear-degrees-latitude ((self location)) |
|
(cl:setf (cl:slot-value self 'degrees-latitude) 0d0) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-degrees-latitude)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'degrees-longitude)) |
|
|
|
|
|
(cl:defmethod (cl:setf degrees-longitude) :after (x (self location)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-degrees-longitude) |
|
(cl:defgeneric has-degrees-longitude (proto))) |
|
(cl:defmethod has-degrees-longitude ((self location)) |
|
(cl:logbitp 1 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-degrees-longitude)) |
|
|
|
(cl:unless (cl:fboundp 'clear-degrees-longitude) |
|
(cl:defgeneric clear-degrees-longitude (proto))) |
|
(cl:defmethod clear-degrees-longitude ((self location)) |
|
(cl:setf (cl:slot-value self 'degrees-longitude) 0d0) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-degrees-longitude)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'name)) |
|
|
|
|
|
(cl:defmethod (cl:setf name) :after (x (self location)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 2) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-name) |
|
(cl:defgeneric has-name (proto))) |
|
(cl:defmethod has-name ((self location)) |
|
(cl:logbitp 2 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-name)) |
|
|
|
(cl:unless (cl:fboundp 'clear-name) |
|
(cl:defgeneric clear-name (proto))) |
|
(cl:defmethod clear-name ((self location)) |
|
(cl:setf (cl:slot-value self 'name) (pb:string-field "")) |
|
(cl:setf (cl:ldb (cl:byte 1 2) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-name)) |
|
|
|
|
|
(cl:defmethod cl:print-object ((self location) stream) |
|
(cl:pprint-logical-block (stream cl:nil) |
|
(cl:print-unreadable-object (self stream :type cl:t :identity cl:t) |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:format stream " ~_degrees-latitude: ~s" (degrees-latitude self))) |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:format stream " ~_degrees-longitude: ~s" (degrees-longitude self))) |
|
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%)) |
|
(cl:format stream " ~_name: ~s" (name self))) |
|
)) |
|
(cl:values)) |
|
|
|
(cl:defmethod pb:clear ((self location)) |
|
(cl:setf (cl:slot-value self 'degrees-latitude) 0d0) |
|
(cl:setf (cl:slot-value self 'degrees-longitude) 0d0) |
|
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'name) (pb:string-field ""))) |
|
(cl:setf (cl:slot-value self '%has-bits%) 0) |
|
(cl:values)) |
|
|
|
(cl:defmethod pb:is-initialized ((self location)) |
|
cl:t) |
|
|
|
(cl:defmethod pb:octet-size ((self location)) |
|
(cl:let ((size 0)) |
|
;; optional double degreesLatitude = 1[json_name = "degreesLatitude"]; |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:incf size |
|
(cl:+ 1 8))) |
|
;; optional double degreesLongitude = 2[json_name = "degreesLongitude"]; |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:incf size |
|
(cl:+ 1 8))) |
|
;; optional string name = 3[json_name = "name"]; |
|
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%)) |
|
(cl:incf size 1) |
|
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'name)))) |
|
(cl:+ s (varint:length-uint32 s))))) |
|
(cl:setf (cl:slot-value self 'pb::%cached-size%) size) |
|
size)) |
|
|
|
(cl:defmethod pb:serialize ((self location) buffer index limit) |
|
(cl:declare (cl:type com.google.base:octet-vector buffer) |
|
(cl:type com.google.base:vector-index index limit) |
|
(cl:ignorable buffer limit)) |
|
;; optional double degreesLatitude = 1[json_name = "degreesLatitude"]; |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit 9)) |
|
(cl:setf index |
|
(wire-format:write-double-float-carefully buffer index limit (cl:slot-value self 'degrees-latitude)))) |
|
;; optional double degreesLongitude = 2[json_name = "degreesLongitude"]; |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit 17)) |
|
(cl:setf index |
|
(wire-format:write-double-float-carefully buffer index limit (cl:slot-value self 'degrees-longitude)))) |
|
;; optional string name = 3[json_name = "name"]; |
|
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit 26)) |
|
(cl:setf index (wire-format:write-octets-carefully buffer index limit (cl:slot-value (cl:slot-value self 'name) 'pb::%octets%)))) |
|
index) |
|
|
|
(cl:defmethod pb:merge-from-array ((self location) buffer start limit) |
|
(cl:declare (cl:type com.google.base:octet-vector buffer) |
|
(cl:type com.google.base:vector-index start limit)) |
|
(cl:do ((index start index)) |
|
((cl:>= index limit) index) |
|
(cl:declare (cl:type com.google.base:vector-index index)) |
|
(cl:multiple-value-bind (field-number wire-type new-index) |
|
(wire-format:parse-tag buffer index limit) |
|
(cl:setf index new-index) |
|
(cl:case field-number |
|
;; optional double degreesLatitude = 1[json_name = "degreesLatitude"]; |
|
((1) |
|
(cl:cond |
|
((cl:= wire-type wire-format:+fixed64+) |
|
(cl:multiple-value-bind (value new-index) |
|
(wire-format:read-double-float-carefully buffer index limit) |
|
(cl:setf (cl:slot-value self 'degrees-latitude) value) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1) |
|
(cl:setf index new-index))) |
|
(cl:t (cl:error 'wire-format:alignment)))) |
|
;; optional double degreesLongitude = 2[json_name = "degreesLongitude"]; |
|
((2) |
|
(cl:cond |
|
((cl:= wire-type wire-format:+fixed64+) |
|
(cl:multiple-value-bind (value new-index) |
|
(wire-format:read-double-float-carefully buffer index limit) |
|
(cl:setf (cl:slot-value self 'degrees-longitude) value) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1) |
|
(cl:setf index new-index))) |
|
(cl:t (cl:error 'wire-format:alignment)))) |
|
;; optional string name = 3[json_name = "name"]; |
|
((3) |
|
(cl:cond |
|
((cl:= wire-type wire-format:+length-delimited+) |
|
(cl:multiple-value-bind (value new-index) |
|
(wire-format:read-octets-carefully buffer index limit) |
|
(cl:setf (cl:slot-value self 'name) (pb:string-field value)) |
|
(cl:setf (cl:ldb (cl:byte 1 2) (cl:slot-value self '%has-bits%)) 1) |
|
(cl:setf index new-index))) |
|
(cl:t (cl:error 'wire-format:alignment)))) |
|
(cl:t |
|
(cl:when (cl:= wire-type wire-format:+end-group+) |
|
(cl:return-from pb:merge-from-array index)) |
|
(cl:setf index (wire-format:skip-field field-number wire-type buffer index limit))))))) |
|
|
|
(cl:defmethod pb:merge-from-message ((self location) (from location)) |
|
(cl:when (cl:logbitp 0 (cl:slot-value from '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'degrees-latitude) (cl:slot-value from 'degrees-latitude)) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1)) |
|
(cl:when (cl:logbitp 1 (cl:slot-value from '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'degrees-longitude) (cl:slot-value from 'degrees-longitude)) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1)) |
|
(cl:when (cl:logbitp 2 (cl:slot-value from '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'name) (cl:slot-value from 'name)) |
|
(cl:setf (cl:ldb (cl:byte 1 2) (cl:slot-value self '%has-bits%)) 1)) |
|
) |
|
|
|
|
|
(cl:defclass point (pb:protocol-buffer) |
|
( |
|
(xdeprecated |
|
:accessor xdeprecated |
|
:initform 0 |
|
:type (cl:signed-byte 32)) |
|
(ydeprecated |
|
:accessor ydeprecated |
|
:initform 0 |
|
:type (cl:signed-byte 32)) |
|
(x |
|
:accessor x |
|
:initform 0d0 |
|
:type cl:double-float) |
|
(y |
|
:accessor y |
|
:initform 0d0 |
|
:type cl:double-float) |
|
(%has-bits% |
|
:accessor %has-bits% |
|
:initform 0 |
|
:type (cl:unsigned-byte 4)) |
|
(pb::%cached-size% |
|
:initform 0 |
|
:type (cl:integer 0 #.(cl:1- cl:array-dimension-limit))) |
|
)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'point)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'xdeprecated)) |
|
|
|
|
|
(cl:defmethod (cl:setf xdeprecated) :after (x (self point)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-xdeprecated) |
|
(cl:defgeneric has-xdeprecated (proto))) |
|
(cl:defmethod has-xdeprecated ((self point)) |
|
(cl:logbitp 0 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-xdeprecated)) |
|
|
|
(cl:unless (cl:fboundp 'clear-xdeprecated) |
|
(cl:defgeneric clear-xdeprecated (proto))) |
|
(cl:defmethod clear-xdeprecated ((self point)) |
|
(cl:setf (cl:slot-value self 'xdeprecated) 0) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-xdeprecated)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'ydeprecated)) |
|
|
|
|
|
(cl:defmethod (cl:setf ydeprecated) :after (x (self point)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-ydeprecated) |
|
(cl:defgeneric has-ydeprecated (proto))) |
|
(cl:defmethod has-ydeprecated ((self point)) |
|
(cl:logbitp 1 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-ydeprecated)) |
|
|
|
(cl:unless (cl:fboundp 'clear-ydeprecated) |
|
(cl:defgeneric clear-ydeprecated (proto))) |
|
(cl:defmethod clear-ydeprecated ((self point)) |
|
(cl:setf (cl:slot-value self 'ydeprecated) 0) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-ydeprecated)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'x)) |
|
|
|
|
|
(cl:defmethod (cl:setf x) :after (x (self point)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 2) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-x) |
|
(cl:defgeneric has-x (proto))) |
|
(cl:defmethod has-x ((self point)) |
|
(cl:logbitp 2 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-x)) |
|
|
|
(cl:unless (cl:fboundp 'clear-x) |
|
(cl:defgeneric clear-x (proto))) |
|
(cl:defmethod clear-x ((self point)) |
|
(cl:setf (cl:slot-value self 'x) 0d0) |
|
(cl:setf (cl:ldb (cl:byte 1 2) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-x)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'y)) |
|
|
|
|
|
(cl:defmethod (cl:setf y) :after (x (self point)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 3) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-y) |
|
(cl:defgeneric has-y (proto))) |
|
(cl:defmethod has-y ((self point)) |
|
(cl:logbitp 3 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-y)) |
|
|
|
(cl:unless (cl:fboundp 'clear-y) |
|
(cl:defgeneric clear-y (proto))) |
|
(cl:defmethod clear-y ((self point)) |
|
(cl:setf (cl:slot-value self 'y) 0d0) |
|
(cl:setf (cl:ldb (cl:byte 1 3) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-y)) |
|
|
|
|
|
(cl:defmethod cl:print-object ((self point) stream) |
|
(cl:pprint-logical-block (stream cl:nil) |
|
(cl:print-unreadable-object (self stream :type cl:t :identity cl:t) |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:format stream " ~_xdeprecated: ~s" (xdeprecated self))) |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:format stream " ~_ydeprecated: ~s" (ydeprecated self))) |
|
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%)) |
|
(cl:format stream " ~_x: ~s" (x self))) |
|
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%)) |
|
(cl:format stream " ~_y: ~s" (y self))) |
|
)) |
|
(cl:values)) |
|
|
|
(cl:defmethod pb:clear ((self point)) |
|
(cl:setf (cl:slot-value self 'xdeprecated) 0) |
|
(cl:setf (cl:slot-value self 'ydeprecated) 0) |
|
(cl:setf (cl:slot-value self 'x) 0d0) |
|
(cl:setf (cl:slot-value self 'y) 0d0) |
|
(cl:setf (cl:slot-value self '%has-bits%) 0) |
|
(cl:values)) |
|
|
|
(cl:defmethod pb:is-initialized ((self point)) |
|
cl:t) |
|
|
|
(cl:defmethod pb:octet-size ((self point)) |
|
(cl:let ((size 0)) |
|
;; optional int32 xDeprecated = 1[json_name = "xDeprecated"]; |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:incf size |
|
(cl:+ 1 (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'xdeprecated)))))) |
|
;; optional int32 yDeprecated = 2[json_name = "yDeprecated"]; |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:incf size |
|
(cl:+ 1 (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'ydeprecated)))))) |
|
;; optional double x = 3[json_name = "x"]; |
|
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%)) |
|
(cl:incf size |
|
(cl:+ 1 8))) |
|
;; optional double y = 4[json_name = "y"]; |
|
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%)) |
|
(cl:incf size |
|
(cl:+ 1 8))) |
|
(cl:setf (cl:slot-value self 'pb::%cached-size%) size) |
|
size)) |
|
|
|
(cl:defmethod pb:serialize ((self point) buffer index limit) |
|
(cl:declare (cl:type com.google.base:octet-vector buffer) |
|
(cl:type com.google.base:vector-index index limit) |
|
(cl:ignorable buffer limit)) |
|
;; optional int32 xDeprecated = 1[json_name = "xDeprecated"]; |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit 8)) |
|
(cl:setf index |
|
(varint:encode-uint64-carefully buffer index limit (cl:ldb (cl:byte 64 0) (cl:slot-value self 'xdeprecated))))) |
|
;; optional int32 yDeprecated = 2[json_name = "yDeprecated"]; |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit 16)) |
|
(cl:setf index |
|
(varint:encode-uint64-carefully buffer index limit (cl:ldb (cl:byte 64 0) (cl:slot-value self 'ydeprecated))))) |
|
;; optional double x = 3[json_name = "x"]; |
|
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit 25)) |
|
(cl:setf index |
|
(wire-format:write-double-float-carefully buffer index limit (cl:slot-value self 'x)))) |
|
;; optional double y = 4[json_name = "y"]; |
|
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit 33)) |
|
(cl:setf index |
|
(wire-format:write-double-float-carefully buffer index limit (cl:slot-value self 'y)))) |
|
index) |
|
|
|
(cl:defmethod pb:merge-from-array ((self point) buffer start limit) |
|
(cl:declare (cl:type com.google.base:octet-vector buffer) |
|
(cl:type com.google.base:vector-index start limit)) |
|
(cl:do ((index start index)) |
|
((cl:>= index limit) index) |
|
(cl:declare (cl:type com.google.base:vector-index index)) |
|
(cl:multiple-value-bind (field-number wire-type new-index) |
|
(wire-format:parse-tag buffer index limit) |
|
(cl:setf index new-index) |
|
(cl:case field-number |
|
;; optional int32 xDeprecated = 1[json_name = "xDeprecated"]; |
|
((1) |
|
(cl:cond |
|
((cl:= wire-type wire-format:+varint+) |
|
(cl:multiple-value-bind (value new-index) |
|
(varint:parse-int32-carefully buffer index limit) |
|
(cl:setf (cl:slot-value self 'xdeprecated) value) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1) |
|
(cl:setf index new-index))) |
|
(cl:t (cl:error 'wire-format:alignment)))) |
|
;; optional int32 yDeprecated = 2[json_name = "yDeprecated"]; |
|
((2) |
|
(cl:cond |
|
((cl:= wire-type wire-format:+varint+) |
|
(cl:multiple-value-bind (value new-index) |
|
(varint:parse-int32-carefully buffer index limit) |
|
(cl:setf (cl:slot-value self 'ydeprecated) value) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1) |
|
(cl:setf index new-index))) |
|
(cl:t (cl:error 'wire-format:alignment)))) |
|
;; optional double x = 3[json_name = "x"]; |
|
((3) |
|
(cl:cond |
|
((cl:= wire-type wire-format:+fixed64+) |
|
(cl:multiple-value-bind (value new-index) |
|
(wire-format:read-double-float-carefully buffer index limit) |
|
(cl:setf (cl:slot-value self 'x) value) |
|
(cl:setf (cl:ldb (cl:byte 1 2) (cl:slot-value self '%has-bits%)) 1) |
|
(cl:setf index new-index))) |
|
(cl:t (cl:error 'wire-format:alignment)))) |
|
;; optional double y = 4[json_name = "y"]; |
|
((4) |
|
(cl:cond |
|
((cl:= wire-type wire-format:+fixed64+) |
|
(cl:multiple-value-bind (value new-index) |
|
(wire-format:read-double-float-carefully buffer index limit) |
|
(cl:setf (cl:slot-value self 'y) value) |
|
(cl:setf (cl:ldb (cl:byte 1 3) (cl:slot-value self '%has-bits%)) 1) |
|
(cl:setf index new-index))) |
|
(cl:t (cl:error 'wire-format:alignment)))) |
|
(cl:t |
|
(cl:when (cl:= wire-type wire-format:+end-group+) |
|
(cl:return-from pb:merge-from-array index)) |
|
(cl:setf index (wire-format:skip-field field-number wire-type buffer index limit))))))) |
|
|
|
(cl:defmethod pb:merge-from-message ((self point) (from point)) |
|
(cl:when (cl:logbitp 0 (cl:slot-value from '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'xdeprecated) (cl:slot-value from 'xdeprecated)) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1)) |
|
(cl:when (cl:logbitp 1 (cl:slot-value from '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'ydeprecated) (cl:slot-value from 'ydeprecated)) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1)) |
|
(cl:when (cl:logbitp 2 (cl:slot-value from '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'x) (cl:slot-value from 'x)) |
|
(cl:setf (cl:ldb (cl:byte 1 2) (cl:slot-value self '%has-bits%)) 1)) |
|
(cl:when (cl:logbitp 3 (cl:slot-value from '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'y) (cl:slot-value from 'y)) |
|
(cl:setf (cl:ldb (cl:byte 1 3) (cl:slot-value self '%has-bits%)) 1)) |
|
) |
|
|
|
|
|
(cl:defclass interactive-annotation (pb:protocol-buffer) |
|
( |
|
(polygon-vertices |
|
:accessor polygon-vertices |
|
:initform (cl:make-array |
|
0 |
|
:element-type 'whatscl/protobuf::point |
|
:fill-pointer 0 :adjustable cl:t) |
|
:type (cl:vector whatscl/protobuf::point)) |
|
(location |
|
:writer (cl:setf location) |
|
:initform cl:nil |
|
:type (cl:or cl:null whatscl/protobuf::location)) |
|
(%has-bits% |
|
:accessor %has-bits% |
|
:initform 0 |
|
:type (cl:unsigned-byte 2)) |
|
(pb::%cached-size% |
|
:initform 0 |
|
:type (cl:integer 0 #.(cl:1- cl:array-dimension-limit))) |
|
)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'interactive-annotation)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'polygon-vertices)) |
|
|
|
(cl:unless (cl:fboundp 'clear-polygon-vertices) |
|
(cl:defgeneric clear-polygon-vertices (proto))) |
|
(cl:defmethod clear-polygon-vertices ((self interactive-annotation)) |
|
(cl:setf (cl:slot-value self 'polygon-vertices) |
|
(cl:make-array 0 :element-type 'whatscl/protobuf::point |
|
:fill-pointer 0 :adjustable cl:t)) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-polygon-vertices)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'location)) |
|
|
|
(cl:unless (cl:fboundp 'location) |
|
(cl:defgeneric location (proto))) |
|
(cl:defmethod location ((self interactive-annotation)) |
|
(cl:let ((result (cl:slot-value self 'location))) |
|
(cl:when (cl:null result) |
|
(cl:setf result (cl:make-instance 'whatscl/protobuf::location)) |
|
(cl:setf (cl:slot-value self 'location) result)) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1) |
|
result)) |
|
|
|
(cl:defmethod (cl:setf location) :after (x (self interactive-annotation)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-location) |
|
(cl:defgeneric has-location (proto))) |
|
(cl:defmethod has-location ((self interactive-annotation)) |
|
(cl:logbitp 1 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-location)) |
|
|
|
(cl:unless (cl:fboundp 'clear-location) |
|
(cl:defgeneric clear-location (proto))) |
|
(cl:defmethod clear-location ((self interactive-annotation)) |
|
(cl:setf (cl:slot-value self 'location) cl:nil) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-location)) |
|
|
|
|
|
(cl:defmethod cl:print-object ((self interactive-annotation) stream) |
|
(cl:pprint-logical-block (stream cl:nil) |
|
(cl:print-unreadable-object (self stream :type cl:t :identity cl:t) |
|
(cl:format stream " ~_polygon-vertices: ~s" (polygon-vertices self)) |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:format stream " ~_location: ~s" (location self))) |
|
)) |
|
(cl:values)) |
|
|
|
(cl:defmethod pb:clear ((self interactive-annotation)) |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'location) cl:nil)) |
|
(cl:setf (cl:slot-value self 'polygon-vertices) |
|
(cl:make-array 0 :element-type 'whatscl/protobuf::point |
|
:fill-pointer 0 :adjustable cl:t)) |
|
(cl:setf (cl:slot-value self '%has-bits%) 0) |
|
(cl:values)) |
|
|
|
(cl:defmethod pb:is-initialized ((self interactive-annotation)) |
|
cl:t) |
|
|
|
(cl:defmethod pb:octet-size ((self interactive-annotation)) |
|
(cl:let ((size 0)) |
|
;; .proto.Location location = 2[json_name = "location"]; |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:let ((s (pb:octet-size (cl:slot-value self 'location)))) |
|
(cl:incf size (cl:+ 1 s (varint:length-uint32 s))))) |
|
;; repeated .proto.Point polygonVertices = 1[json_name = "polygonVertices"]; |
|
(cl:let* ((v (cl:slot-value self 'polygon-vertices)) |
|
(length (cl:length v))) |
|
(cl:incf size (cl:* 1 length)) |
|
(cl:dotimes (i length) |
|
(cl:let ((s (pb:octet-size (cl:aref v i)))) |
|
(cl:incf size (cl:+ s (varint:length-uint32 s)))))) |
|
(cl:setf (cl:slot-value self 'pb::%cached-size%) size) |
|
size)) |
|
|
|
(cl:defmethod pb:serialize ((self interactive-annotation) buffer index limit) |
|
(cl:declare (cl:type com.google.base:octet-vector buffer) |
|
(cl:type com.google.base:vector-index index limit) |
|
(cl:ignorable buffer limit)) |
|
;; repeated .proto.Point polygonVertices = 1[json_name = "polygonVertices"]; |
|
(cl:let* ((v (cl:slot-value self 'polygon-vertices)) |
|
(length (cl:length v))) |
|
(cl:loop for i from 0 below length do |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit 10)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit (cl:slot-value (cl:aref v i) 'pb::%cached-size%))) |
|
(cl:setf index (pb:serialize (cl:aref v i) buffer index limit)))) |
|
;; .proto.Location location = 2[json_name = "location"]; |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit 18)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit (cl:slot-value (cl:slot-value self 'location) 'pb::%cached-size%))) |
|
(cl:setf index (pb:serialize (cl:slot-value self 'location) buffer index limit))) |
|
index) |
|
|
|
(cl:defmethod pb:merge-from-array ((self interactive-annotation) buffer start limit) |
|
(cl:declare (cl:type com.google.base:octet-vector buffer) |
|
(cl:type com.google.base:vector-index start limit)) |
|
(cl:do ((index start index)) |
|
((cl:>= index limit) index) |
|
(cl:declare (cl:type com.google.base:vector-index index)) |
|
(cl:multiple-value-bind (field-number wire-type new-index) |
|
(wire-format:parse-tag buffer index limit) |
|
(cl:setf index new-index) |
|
(cl:case field-number |
|
;; repeated .proto.Point polygonVertices = 1[json_name = "polygonVertices"]; |
|
((1) |
|
(cl:cond |
|
((cl:= wire-type wire-format:+length-delimited+) |
|
(cl:multiple-value-bind (length new-index) |
|
(varint:parse-uint31-carefully buffer index limit) |
|
(cl:when (cl:> (cl:+ new-index length) limit) |
|
(cl:error 'wire-format:data-exhausted)) |
|
(cl:let ((message (cl:make-instance 'whatscl/protobuf::point))) |
|
(cl:setf index (pb:merge-from-array message buffer new-index (cl:+ new-index length))) |
|
(cl:when (cl:/= index (cl:+ new-index length)) |
|
(cl:error 'wire-format:alignment)) |
|
(cl:vector-push-extend message (cl:slot-value self 'polygon-vertices))))) |
|
(cl:t (cl:error 'wire-format:alignment)))) |
|
;; .proto.Location location = 2[json_name = "location"]; |
|
((2) |
|
(cl:cond |
|
((cl:= wire-type wire-format:+length-delimited+) |
|
(cl:multiple-value-bind (length new-index) |
|
(varint:parse-uint31-carefully buffer index limit) |
|
(cl:when (cl:> (cl:+ new-index length) limit) |
|
(cl:error 'wire-format:data-exhausted)) |
|
(cl:let ((message (cl:slot-value self 'location))) |
|
(cl:when (cl:null message) |
|
(cl:setf message (cl:make-instance 'whatscl/protobuf::location)) |
|
(cl:setf (cl:slot-value self 'location) message) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1)) |
|
(cl:setf index (pb:merge-from-array message buffer new-index (cl:+ new-index length))) |
|
(cl:when (cl:/= index (cl:+ new-index length)) |
|
(cl:error 'wire-format:alignment))))) |
|
(cl:t (cl:error 'wire-format:alignment)))) |
|
(cl:t |
|
(cl:when (cl:= wire-type wire-format:+end-group+) |
|
(cl:return-from pb:merge-from-array index)) |
|
(cl:setf index (wire-format:skip-field field-number wire-type buffer index limit))))))) |
|
|
|
(cl:defmethod pb:merge-from-message ((self interactive-annotation) (from interactive-annotation)) |
|
(cl:let* ((v (cl:slot-value self 'polygon-vertices)) |
|
(vf (cl:slot-value from 'polygon-vertices)) |
|
(length (cl:length vf))) |
|
(cl:loop for i from 0 below length do |
|
(cl:vector-push-extend (cl:aref vf i) v))) |
|
(cl:when (cl:logbitp 1 (cl:slot-value from '%has-bits%)) |
|
(cl:let ((message (cl:slot-value self 'location))) |
|
(cl:when (cl:null message) |
|
(cl:setf message (cl:make-instance 'whatscl/protobuf::location)) |
|
(cl:setf (cl:slot-value self 'location) message) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1)) |
|
(pb:merge-from-message message (cl:slot-value from 'location)))) |
|
) |
|
|
|
|
|
(cl:defclass ad-reply-info (pb:protocol-buffer) |
|
( |
|
(advertiser-name |
|
:accessor advertiser-name |
|
:initform (pb:string-field "") |
|
:type pb::%sf%) |
|
(media-type |
|
:accessor media-type |
|
:initform whatscl/protobuf::+ad-reply-info-ad-reply-info-mediatype-none+ |
|
:type whatscl/protobuf::ad-reply-info-ad-reply-info-mediatype) |
|
(jpeg-thumbnail |
|
:accessor jpeg-thumbnail |
|
:initform (cl:make-array 0 :element-type '(cl:unsigned-byte 8)) |
|
:type (cl:simple-array (cl:unsigned-byte 8) (cl:*))) |
|
(caption |
|
:accessor caption |
|
:initform (pb:string-field "") |
|
:type pb::%sf%) |
|
(%has-bits% |
|
:accessor %has-bits% |
|
:initform 0 |
|
:type (cl:unsigned-byte 4)) |
|
(pb::%cached-size% |
|
:initform 0 |
|
:type (cl:integer 0 #.(cl:1- cl:array-dimension-limit))) |
|
)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'ad-reply-info)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'advertiser-name)) |
|
|
|
|
|
(cl:defmethod (cl:setf advertiser-name) :after (x (self ad-reply-info)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-advertiser-name) |
|
(cl:defgeneric has-advertiser-name (proto))) |
|
(cl:defmethod has-advertiser-name ((self ad-reply-info)) |
|
(cl:logbitp 0 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-advertiser-name)) |
|
|
|
(cl:unless (cl:fboundp 'clear-advertiser-name) |
|
(cl:defgeneric clear-advertiser-name (proto))) |
|
(cl:defmethod clear-advertiser-name ((self ad-reply-info)) |
|
(cl:setf (cl:slot-value self 'advertiser-name) (pb:string-field "")) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-advertiser-name)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'media-type)) |
|
|
|
|
|
(cl:defmethod (cl:setf media-type) :after (x (self ad-reply-info)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-media-type) |
|
(cl:defgeneric has-media-type (proto))) |
|
(cl:defmethod has-media-type ((self ad-reply-info)) |
|
(cl:logbitp 1 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-media-type)) |
|
|
|
(cl:unless (cl:fboundp 'clear-media-type) |
|
(cl:defgeneric clear-media-type (proto))) |
|
(cl:defmethod clear-media-type ((self ad-reply-info)) |
|
(cl:setf (cl:slot-value self 'media-type) whatscl/protobuf::+ad-reply-info-ad-reply-info-mediatype-none+) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-media-type)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'jpeg-thumbnail)) |
|
|
|
|
|
(cl:defmethod (cl:setf jpeg-thumbnail) :after (x (self ad-reply-info)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 2) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-jpeg-thumbnail) |
|
(cl:defgeneric has-jpeg-thumbnail (proto))) |
|
(cl:defmethod has-jpeg-thumbnail ((self ad-reply-info)) |
|
(cl:logbitp 2 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-jpeg-thumbnail)) |
|
|
|
(cl:unless (cl:fboundp 'clear-jpeg-thumbnail) |
|
(cl:defgeneric clear-jpeg-thumbnail (proto))) |
|
(cl:defmethod clear-jpeg-thumbnail ((self ad-reply-info)) |
|
(cl:setf (cl:slot-value self 'jpeg-thumbnail) (cl:make-array 0 :element-type '(cl:unsigned-byte 8))) |
|
(cl:setf (cl:ldb (cl:byte 1 2) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-jpeg-thumbnail)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'caption)) |
|
|
|
|
|
(cl:defmethod (cl:setf caption) :after (x (self ad-reply-info)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 3) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-caption) |
|
(cl:defgeneric has-caption (proto))) |
|
(cl:defmethod has-caption ((self ad-reply-info)) |
|
(cl:logbitp 3 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-caption)) |
|
|
|
(cl:unless (cl:fboundp 'clear-caption) |
|
(cl:defgeneric clear-caption (proto))) |
|
(cl:defmethod clear-caption ((self ad-reply-info)) |
|
(cl:setf (cl:slot-value self 'caption) (pb:string-field "")) |
|
(cl:setf (cl:ldb (cl:byte 1 3) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-caption)) |
|
|
|
|
|
(cl:defmethod cl:print-object ((self ad-reply-info) stream) |
|
(cl:pprint-logical-block (stream cl:nil) |
|
(cl:print-unreadable-object (self stream :type cl:t :identity cl:t) |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:format stream " ~_advertiser-name: ~s" (advertiser-name self))) |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:format stream " ~_media-type: ~s" (media-type self))) |
|
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%)) |
|
(cl:format stream " ~_jpeg-thumbnail: ~s" (jpeg-thumbnail self))) |
|
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%)) |
|
(cl:format stream " ~_caption: ~s" (caption self))) |
|
)) |
|
(cl:values)) |
|
|
|
(cl:defmethod pb:clear ((self ad-reply-info)) |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'advertiser-name) (pb:string-field ""))) |
|
(cl:setf (cl:slot-value self 'media-type) whatscl/protobuf::+ad-reply-info-ad-reply-info-mediatype-none+) |
|
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'jpeg-thumbnail) (cl:make-array 0 :element-type '(cl:unsigned-byte 8)))) |
|
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'caption) (pb:string-field ""))) |
|
(cl:setf (cl:slot-value self '%has-bits%) 0) |
|
(cl:values)) |
|
|
|
(cl:defmethod pb:is-initialized ((self ad-reply-info)) |
|
cl:t) |
|
|
|
(cl:defmethod pb:octet-size ((self ad-reply-info)) |
|
(cl:let ((size 0)) |
|
;; optional string advertiserName = 1[json_name = "advertiserName"]; |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:incf size 1) |
|
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'advertiser-name)))) |
|
(cl:+ s (varint:length-uint32 s))))) |
|
;; optional .proto.AdReplyInfo.AD_REPLY_INFO_MEDIATYPE mediaType = 2[json_name = "mediaType"]; |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:incf size 1) |
|
(cl:incf size (varint:length-uint64 (cl:ldb (cl:byte 64 0) (cl:slot-value self 'media-type))))) |
|
;; optional bytes jpegThumbnail = 16[json_name = "jpegThumbnail"]; |
|
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%)) |
|
(cl:incf size 2) |
|
(cl:incf size (cl:let ((s (cl:length (cl:slot-value self 'jpeg-thumbnail)))) |
|
(cl:+ s (varint:length-uint32 s))))) |
|
;; optional string caption = 17[json_name = "caption"]; |
|
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%)) |
|
(cl:incf size 2) |
|
(cl:incf size (cl:let ((s (pb::%utf8-string-length% (cl:slot-value self 'caption)))) |
|
(cl:+ s (varint:length-uint32 s))))) |
|
(cl:setf (cl:slot-value self 'pb::%cached-size%) size) |
|
size)) |
|
|
|
(cl:defmethod pb:serialize ((self ad-reply-info) buffer index limit) |
|
(cl:declare (cl:type com.google.base:octet-vector buffer) |
|
(cl:type com.google.base:vector-index index limit) |
|
(cl:ignorable buffer limit)) |
|
;; optional string advertiserName = 1[json_name = "advertiserName"]; |
|
(cl:when (cl:logbitp 0 (cl:slot-value self '%has-bits%)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit 10)) |
|
(cl:setf index (wire-format:write-octets-carefully buffer index limit (cl:slot-value (cl:slot-value self 'advertiser-name) 'pb::%octets%)))) |
|
;; optional .proto.AdReplyInfo.AD_REPLY_INFO_MEDIATYPE mediaType = 2[json_name = "mediaType"]; |
|
(cl:when (cl:logbitp 1 (cl:slot-value self '%has-bits%)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit 16)) |
|
(cl:setf index |
|
(varint:encode-uint64-carefully buffer index limit |
|
(cl:ldb (cl:byte 64 0) (cl:slot-value self 'media-type))))) |
|
;; optional bytes jpegThumbnail = 16[json_name = "jpegThumbnail"]; |
|
(cl:when (cl:logbitp 2 (cl:slot-value self '%has-bits%)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit 130)) |
|
(cl:setf index (wire-format:write-octets-carefully buffer index limit (cl:slot-value self 'jpeg-thumbnail)))) |
|
;; optional string caption = 17[json_name = "caption"]; |
|
(cl:when (cl:logbitp 3 (cl:slot-value self '%has-bits%)) |
|
(cl:setf index (varint:encode-uint32-carefully buffer index limit 138)) |
|
(cl:setf index (wire-format:write-octets-carefully buffer index limit (cl:slot-value (cl:slot-value self 'caption) 'pb::%octets%)))) |
|
index) |
|
|
|
(cl:defmethod pb:merge-from-array ((self ad-reply-info) buffer start limit) |
|
(cl:declare (cl:type com.google.base:octet-vector buffer) |
|
(cl:type com.google.base:vector-index start limit)) |
|
(cl:do ((index start index)) |
|
((cl:>= index limit) index) |
|
(cl:declare (cl:type com.google.base:vector-index index)) |
|
(cl:multiple-value-bind (field-number wire-type new-index) |
|
(wire-format:parse-tag buffer index limit) |
|
(cl:setf index new-index) |
|
(cl:case field-number |
|
;; optional string advertiserName = 1[json_name = "advertiserName"]; |
|
((1) |
|
(cl:cond |
|
((cl:= wire-type wire-format:+length-delimited+) |
|
(cl:multiple-value-bind (value new-index) |
|
(wire-format:read-octets-carefully buffer index limit) |
|
(cl:setf (cl:slot-value self 'advertiser-name) (pb:string-field value)) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1) |
|
(cl:setf index new-index))) |
|
(cl:t (cl:error 'wire-format:alignment)))) |
|
;; optional .proto.AdReplyInfo.AD_REPLY_INFO_MEDIATYPE mediaType = 2[json_name = "mediaType"]; |
|
((2) |
|
(cl:cond |
|
((cl:= wire-type wire-format:+varint+) |
|
(cl:multiple-value-bind (value new-index) |
|
(varint:parse-int32-carefully buffer index limit) |
|
;; XXXX: When invalid, add to unknown fields. |
|
(cl:when (cl:typep value 'whatscl/protobuf::ad-reply-info-ad-reply-info-mediatype) |
|
(cl:setf (cl:slot-value self 'media-type) value) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1)) |
|
(cl:setf index new-index))) |
|
(cl:t (cl:error 'wire-format:alignment)))) |
|
;; optional bytes jpegThumbnail = 16[json_name = "jpegThumbnail"]; |
|
((16) |
|
(cl:cond |
|
((cl:= wire-type wire-format:+length-delimited+) |
|
(cl:multiple-value-bind (value new-index) |
|
(wire-format:read-octets-carefully buffer index limit) |
|
(cl:setf (cl:slot-value self 'jpeg-thumbnail) value) |
|
(cl:setf (cl:ldb (cl:byte 1 2) (cl:slot-value self '%has-bits%)) 1) |
|
(cl:setf index new-index))) |
|
(cl:t (cl:error 'wire-format:alignment)))) |
|
;; optional string caption = 17[json_name = "caption"]; |
|
((17) |
|
(cl:cond |
|
((cl:= wire-type wire-format:+length-delimited+) |
|
(cl:multiple-value-bind (value new-index) |
|
(wire-format:read-octets-carefully buffer index limit) |
|
(cl:setf (cl:slot-value self 'caption) (pb:string-field value)) |
|
(cl:setf (cl:ldb (cl:byte 1 3) (cl:slot-value self '%has-bits%)) 1) |
|
(cl:setf index new-index))) |
|
(cl:t (cl:error 'wire-format:alignment)))) |
|
(cl:t |
|
(cl:when (cl:= wire-type wire-format:+end-group+) |
|
(cl:return-from pb:merge-from-array index)) |
|
(cl:setf index (wire-format:skip-field field-number wire-type buffer index limit))))))) |
|
|
|
(cl:defmethod pb:merge-from-message ((self ad-reply-info) (from ad-reply-info)) |
|
(cl:when (cl:logbitp 0 (cl:slot-value from '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'advertiser-name) (cl:slot-value from 'advertiser-name)) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1)) |
|
(cl:when (cl:logbitp 1 (cl:slot-value from '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'media-type) (cl:slot-value from 'media-type)) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1)) |
|
(cl:when (cl:logbitp 2 (cl:slot-value from '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'jpeg-thumbnail) (cl:slot-value from 'jpeg-thumbnail)) |
|
(cl:setf (cl:ldb (cl:byte 1 2) (cl:slot-value self '%has-bits%)) 1)) |
|
(cl:when (cl:logbitp 3 (cl:slot-value from '%has-bits%)) |
|
(cl:setf (cl:slot-value self 'caption) (cl:slot-value from 'caption)) |
|
(cl:setf (cl:ldb (cl:byte 1 3) (cl:slot-value self '%has-bits%)) 1)) |
|
) |
|
|
|
|
|
(cl:defclass context-info (pb:protocol-buffer) |
|
( |
|
(stanza-id |
|
:accessor stanza-id |
|
:initform (pb:string-field "") |
|
:type pb::%sf%) |
|
(participant |
|
:accessor participant |
|
:initform (pb:string-field "") |
|
:type pb::%sf%) |
|
(quoted-message |
|
:writer (cl:setf quoted-message) |
|
:initform cl:nil |
|
:type (cl:or cl:null whatscl/protobuf::message)) |
|
(remote-jid |
|
:accessor remote-jid |
|
:initform (pb:string-field "") |
|
:type pb::%sf%) |
|
(mentioned-jid |
|
:accessor mentioned-jid |
|
:initform (cl:make-array |
|
0 |
|
:element-type 'pb::%sf% |
|
:fill-pointer 0 :adjustable cl:t) |
|
:type (cl:vector pb::%sf%)) |
|
(conversion-source |
|
:accessor conversion-source |
|
:initform (pb:string-field "") |
|
:type pb::%sf%) |
|
(conversion-data |
|
:accessor conversion-data |
|
:initform (cl:make-array 0 :element-type '(cl:unsigned-byte 8)) |
|
:type (cl:simple-array (cl:unsigned-byte 8) (cl:*))) |
|
(conversion-delay-seconds |
|
:accessor conversion-delay-seconds |
|
:initform 0 |
|
:type (cl:unsigned-byte 32)) |
|
(forwarding-score |
|
:accessor forwarding-score |
|
:initform 0 |
|
:type (cl:unsigned-byte 32)) |
|
(is-forwarded |
|
:accessor is-forwarded |
|
:initform cl:nil |
|
:type cl:boolean) |
|
(quoted-ad |
|
:writer (cl:setf quoted-ad) |
|
:initform cl:nil |
|
:type (cl:or cl:null whatscl/protobuf::ad-reply-info)) |
|
(placeholder-key |
|
:writer (cl:setf placeholder-key) |
|
:initform cl:nil |
|
:type (cl:or cl:null whatscl/protobuf::message-key)) |
|
(expiration |
|
:accessor expiration |
|
:initform 0 |
|
:type (cl:unsigned-byte 32)) |
|
(ephemeral-setting-timestamp |
|
:accessor ephemeral-setting-timestamp |
|
:initform 0 |
|
:type (cl:signed-byte 64)) |
|
(%has-bits% |
|
:accessor %has-bits% |
|
:initform 0 |
|
:type (cl:unsigned-byte 14)) |
|
(pb::%cached-size% |
|
:initform 0 |
|
:type (cl:integer 0 #.(cl:1- cl:array-dimension-limit))) |
|
)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'context-info)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'stanza-id)) |
|
|
|
|
|
(cl:defmethod (cl:setf stanza-id) :after (x (self context-info)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-stanza-id) |
|
(cl:defgeneric has-stanza-id (proto))) |
|
(cl:defmethod has-stanza-id ((self context-info)) |
|
(cl:logbitp 0 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-stanza-id)) |
|
|
|
(cl:unless (cl:fboundp 'clear-stanza-id) |
|
(cl:defgeneric clear-stanza-id (proto))) |
|
(cl:defmethod clear-stanza-id ((self context-info)) |
|
(cl:setf (cl:slot-value self 'stanza-id) (pb:string-field "")) |
|
(cl:setf (cl:ldb (cl:byte 1 0) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-stanza-id)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'participant)) |
|
|
|
|
|
(cl:defmethod (cl:setf participant) :after (x (self context-info)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-participant) |
|
(cl:defgeneric has-participant (proto))) |
|
(cl:defmethod has-participant ((self context-info)) |
|
(cl:logbitp 1 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-participant)) |
|
|
|
(cl:unless (cl:fboundp 'clear-participant) |
|
(cl:defgeneric clear-participant (proto))) |
|
(cl:defmethod clear-participant ((self context-info)) |
|
(cl:setf (cl:slot-value self 'participant) (pb:string-field "")) |
|
(cl:setf (cl:ldb (cl:byte 1 1) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-participant)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'quoted-message)) |
|
|
|
(cl:unless (cl:fboundp 'quoted-message) |
|
(cl:defgeneric quoted-message (proto))) |
|
(cl:defmethod quoted-message ((self context-info)) |
|
(cl:let ((result (cl:slot-value self 'quoted-message))) |
|
(cl:when (cl:null result) |
|
(cl:setf result (cl:make-instance 'whatscl/protobuf::message)) |
|
(cl:setf (cl:slot-value self 'quoted-message) result)) |
|
(cl:setf (cl:ldb (cl:byte 1 2) (cl:slot-value self '%has-bits%)) 1) |
|
result)) |
|
|
|
(cl:defmethod (cl:setf quoted-message) :after (x (self context-info)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 2) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-quoted-message) |
|
(cl:defgeneric has-quoted-message (proto))) |
|
(cl:defmethod has-quoted-message ((self context-info)) |
|
(cl:logbitp 2 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-quoted-message)) |
|
|
|
(cl:unless (cl:fboundp 'clear-quoted-message) |
|
(cl:defgeneric clear-quoted-message (proto))) |
|
(cl:defmethod clear-quoted-message ((self context-info)) |
|
(cl:setf (cl:slot-value self 'quoted-message) cl:nil) |
|
(cl:setf (cl:ldb (cl:byte 1 2) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-quoted-message)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'remote-jid)) |
|
|
|
|
|
(cl:defmethod (cl:setf remote-jid) :after (x (self context-info)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 3) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-remote-jid) |
|
(cl:defgeneric has-remote-jid (proto))) |
|
(cl:defmethod has-remote-jid ((self context-info)) |
|
(cl:logbitp 3 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-remote-jid)) |
|
|
|
(cl:unless (cl:fboundp 'clear-remote-jid) |
|
(cl:defgeneric clear-remote-jid (proto))) |
|
(cl:defmethod clear-remote-jid ((self context-info)) |
|
(cl:setf (cl:slot-value self 'remote-jid) (pb:string-field "")) |
|
(cl:setf (cl:ldb (cl:byte 1 3) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-remote-jid)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'mentioned-jid)) |
|
|
|
(cl:unless (cl:fboundp 'clear-mentioned-jid) |
|
(cl:defgeneric clear-mentioned-jid (proto))) |
|
(cl:defmethod clear-mentioned-jid ((self context-info)) |
|
(cl:setf (cl:slot-value self 'mentioned-jid) |
|
(cl:make-array |
|
0 |
|
:element-type 'pb::%sf% |
|
:fill-pointer 0 :adjustable cl:t)) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-mentioned-jid)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'conversion-source)) |
|
|
|
|
|
(cl:defmethod (cl:setf conversion-source) :after (x (self context-info)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 5) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-conversion-source) |
|
(cl:defgeneric has-conversion-source (proto))) |
|
(cl:defmethod has-conversion-source ((self context-info)) |
|
(cl:logbitp 5 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-conversion-source)) |
|
|
|
(cl:unless (cl:fboundp 'clear-conversion-source) |
|
(cl:defgeneric clear-conversion-source (proto))) |
|
(cl:defmethod clear-conversion-source ((self context-info)) |
|
(cl:setf (cl:slot-value self 'conversion-source) (pb:string-field "")) |
|
(cl:setf (cl:ldb (cl:byte 1 5) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-conversion-source)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'conversion-data)) |
|
|
|
|
|
(cl:defmethod (cl:setf conversion-data) :after (x (self context-info)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 6) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-conversion-data) |
|
(cl:defgeneric has-conversion-data (proto))) |
|
(cl:defmethod has-conversion-data ((self context-info)) |
|
(cl:logbitp 6 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-conversion-data)) |
|
|
|
(cl:unless (cl:fboundp 'clear-conversion-data) |
|
(cl:defgeneric clear-conversion-data (proto))) |
|
(cl:defmethod clear-conversion-data ((self context-info)) |
|
(cl:setf (cl:slot-value self 'conversion-data) (cl:make-array 0 :element-type '(cl:unsigned-byte 8))) |
|
(cl:setf (cl:ldb (cl:byte 1 6) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-conversion-data)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'conversion-delay-seconds)) |
|
|
|
|
|
(cl:defmethod (cl:setf conversion-delay-seconds) :after (x (self context-info)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 7) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-conversion-delay-seconds) |
|
(cl:defgeneric has-conversion-delay-seconds (proto))) |
|
(cl:defmethod has-conversion-delay-seconds ((self context-info)) |
|
(cl:logbitp 7 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-conversion-delay-seconds)) |
|
|
|
(cl:unless (cl:fboundp 'clear-conversion-delay-seconds) |
|
(cl:defgeneric clear-conversion-delay-seconds (proto))) |
|
(cl:defmethod clear-conversion-delay-seconds ((self context-info)) |
|
(cl:setf (cl:slot-value self 'conversion-delay-seconds) 0) |
|
(cl:setf (cl:ldb (cl:byte 1 7) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-conversion-delay-seconds)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'forwarding-score)) |
|
|
|
|
|
(cl:defmethod (cl:setf forwarding-score) :after (x (self context-info)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 8) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-forwarding-score) |
|
(cl:defgeneric has-forwarding-score (proto))) |
|
(cl:defmethod has-forwarding-score ((self context-info)) |
|
(cl:logbitp 8 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-forwarding-score)) |
|
|
|
(cl:unless (cl:fboundp 'clear-forwarding-score) |
|
(cl:defgeneric clear-forwarding-score (proto))) |
|
(cl:defmethod clear-forwarding-score ((self context-info)) |
|
(cl:setf (cl:slot-value self 'forwarding-score) 0) |
|
(cl:setf (cl:ldb (cl:byte 1 8) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-forwarding-score)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'is-forwarded)) |
|
|
|
|
|
(cl:defmethod (cl:setf is-forwarded) :after (x (self context-info)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 9) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-is-forwarded) |
|
(cl:defgeneric has-is-forwarded (proto))) |
|
(cl:defmethod has-is-forwarded ((self context-info)) |
|
(cl:logbitp 9 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-is-forwarded)) |
|
|
|
(cl:unless (cl:fboundp 'clear-is-forwarded) |
|
(cl:defgeneric clear-is-forwarded (proto))) |
|
(cl:defmethod clear-is-forwarded ((self context-info)) |
|
(cl:setf (cl:slot-value self 'is-forwarded) cl:nil) |
|
(cl:setf (cl:ldb (cl:byte 1 9) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-is-forwarded)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'quoted-ad)) |
|
|
|
(cl:unless (cl:fboundp 'quoted-ad) |
|
(cl:defgeneric quoted-ad (proto))) |
|
(cl:defmethod quoted-ad ((self context-info)) |
|
(cl:let ((result (cl:slot-value self 'quoted-ad))) |
|
(cl:when (cl:null result) |
|
(cl:setf result (cl:make-instance 'whatscl/protobuf::ad-reply-info)) |
|
(cl:setf (cl:slot-value self 'quoted-ad) result)) |
|
(cl:setf (cl:ldb (cl:byte 1 10) (cl:slot-value self '%has-bits%)) 1) |
|
result)) |
|
|
|
(cl:defmethod (cl:setf quoted-ad) :after (x (self context-info)) |
|
(cl:declare (cl:ignore x)) |
|
(cl:setf (cl:ldb (cl:byte 1 10) (cl:slot-value self '%has-bits%)) 1)) |
|
|
|
(cl:unless (cl:fboundp 'has-quoted-ad) |
|
(cl:defgeneric has-quoted-ad (proto))) |
|
(cl:defmethod has-quoted-ad ((self context-info)) |
|
(cl:logbitp 10 (cl:slot-value self '%has-bits%))) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'has-quoted-ad)) |
|
|
|
(cl:unless (cl:fboundp 'clear-quoted-ad) |
|
(cl:defgeneric clear-quoted-ad (proto))) |
|
(cl:defmethod clear-quoted-ad ((self context-info)) |
|
(cl:setf (cl:slot-value self 'quoted-ad) cl:nil) |
|
(cl:setf (cl:ldb (cl:byte 1 10) (cl:slot-value self '%has-bits%)) 0) |
|
(cl:values)) |
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'clear-quoted-ad)) |
|
|
|
(cl:eval-when (:load-toplevel :compile-toplevel :execute) |
|
(cl:export 'placeholder-key)) |
|
|
|
(cl:unless (cl:fboundp 'placeholder-key) |
|
(cl:defgeneric placeholder-key (proto))) |
|
(cl:defmethod placeholder-key ((self context-info)) |
|
(cl:let ((result (cl:slot-value self 'placeholder-key))) |
|
(cl:when (cl:null result) |
|
(cl:setf result (cl:make-instance 'whatscl/protobuf::message-key)) |
|
(cl:setf (cl:slot-value self 'placeholder-key) result)) |
|
(cl:setf (cl:ldb (cl:byte 1 11) (cl:slot-value self '%has-bits%)) 1) |