-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathresources.lisp
15832 lines (14458 loc) · 970 KB
/
resources.lisp
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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
(in-package :cube)
(defclass binding (resource)
((api-version :initform "v1" :allocation :class)
(kind :initform "Binding" :allocation :class)
(metadata :initarg :metadata :initform nil :accessor
binding-metadata :type (or object-meta null) :documentation
"Standard object's metadata. More info: https://git.k8s.io/community/contributors/devel/api-conventions.md#metadata")
(target :initarg :target :initform nil :accessor binding-target
:type object-reference :documentation
"The target object that you want to bind to the standard object."))
(:documentation
"Binding ties one object to another; for example, a pod is bound to a node by a scheduler. Deprecated in 1.7, please use the bindings subresource of pods instead."))
(defmethod json:encode-json ((binding binding) &optional stream)
(json:with-object (stream)
(when (slot-boundp binding 'kind)
(funcall (json:stream-object-member-encoder stream) "kind"
(slot-value binding 'kind)))
(when (slot-boundp binding 'api-version)
(funcall (json:stream-object-member-encoder stream) "apiVersion"
(slot-value binding 'api-version)))
(when (slot-boundp binding 'metadata)
(funcall (json:stream-object-member-encoder stream) "metadata"
(slot-value binding 'metadata)))
(when (slot-boundp binding 'target)
(funcall (json:stream-object-member-encoder stream) "target"
(slot-value binding 'target)))))
(defmethod unmarshal (alist (object binding))
(when-let ((value (cdr (assoc :kind alist))))
(setf (slot-value object 'kind) (decode-object "string" value)))
(when-let ((value (cdr (assoc :api-version alist))))
(setf (slot-value object 'api-version) (decode-object "string" value)))
(when-let ((value (cdr (assoc :metadata alist))))
(setf (slot-value object 'metadata) (decode-object "ObjectMeta" value)))
(when-let ((value (cdr (assoc :target alist))))
(setf (slot-value object 'target) (decode-object "ObjectReference" value))))
(defclass object-meta (resource)
((name :initarg :name :initform nil :accessor object-meta-name :type
(or string null) :documentation
"Name must be unique within a namespace. Is required when creating resources, although some resources may allow a client to request the generation of an appropriate name automatically. Name is primarily intended for creation idempotence and configuration definition. Cannot be updated. More info: http://kubernetes.io/docs/user-guide/identifiers#names")
(generate-name :initarg :generate-name :initform nil :accessor
object-meta-generate-name :type (or string null) :documentation
"GenerateName is an optional prefix, used by the server, to generate a unique name ONLY IF the Name field has not been provided. If this field is used, the name returned to the client will be different than the name passed. This value will also be combined with a unique suffix. The provided value has the same validation rules as the Name field, and may be truncated by the length of the suffix required to make the value unique on the server.
If this field is specified and the generated name exists, the server will NOT return a 409 - instead, it will either return 201 Created or 500 with Reason ServerTimeout indicating a unique name could not be found in the time allotted, and the client should retry (optionally after the time indicated in the Retry-After header).
Applied only if Name is not specified. More info: https://git.k8s.io/community/contributors/devel/api-conventions.md#idempotency")
(namespace :initarg :namespace :initform nil :accessor
object-meta-namespace :type (or string null) :documentation
"Namespace defines the space within each name must be unique. An empty namespace is equivalent to the \"default\" namespace, but \"default\" is the canonical representation. Not all objects are required to be scoped to a namespace - the value of this field for those objects will be empty.
Must be a DNS_LABEL. Cannot be updated. More info: http://kubernetes.io/docs/user-guide/namespaces")
(self-link :initarg :self-link :initform nil :accessor
object-meta-self-link :type (or string null) :documentation
"SelfLink is a URL representing this object. Populated by the system. Read-only.")
(uid :initarg :uid :initform nil :accessor object-meta-uid :type
(or string null) :documentation
"UID is the unique in time and space value for this object. It is typically generated by the server on successful creation of a resource and is not allowed to change on PUT operations.
Populated by the system. Read-only. More info: http://kubernetes.io/docs/user-guide/identifiers#uids")
(resource-version :initarg :resource-version :initform nil :accessor
object-meta-resource-version :type (or string null) :documentation
"An opaque value that represents the internal version of this object that can be used by clients to determine when objects have changed. May be used for optimistic concurrency, change detection, and the watch operation on a resource or set of resources. Clients must treat these values as opaque and passed unmodified back to the server. They may only be valid for a particular resource or set of resources.
Populated by the system. Read-only. Value must be treated as opaque by clients and . More info: https://git.k8s.io/community/contributors/devel/api-conventions.md#concurrency-control-and-consistency")
(generation :initarg :generation :initform nil :accessor
object-meta-generation :type (or integer null) :documentation
"A sequence number representing a specific generation of the desired state. Populated by the system. Read-only.")
(creation-timestamp :initarg :creation-timestamp :initform nil
:accessor object-meta-creation-timestamp :type (or string null)
:documentation
"CreationTimestamp is a timestamp representing the server time when this object was created. It is not guaranteed to be set in happens-before order across separate operations. Clients may not set this value. It is represented in RFC3339 form and is in UTC.
Populated by the system. Read-only. Null for lists. More info: https://git.k8s.io/community/contributors/devel/api-conventions.md#metadata")
(deletion-timestamp :initarg :deletion-timestamp :initform nil
:accessor object-meta-deletion-timestamp :type (or string null)
:documentation
"DeletionTimestamp is RFC 3339 date and time at which this resource will be deleted. This field is set by the server when a graceful deletion is requested by the user, and is not directly settable by a client. The resource is expected to be deleted (no longer visible from resource lists, and not reachable by name) after the time in this field, once the finalizers list is empty. As long as the finalizers list contains items, deletion is blocked. Once the deletionTimestamp is set, this value may not be unset or be set further into the future, although it may be shortened or the resource may be deleted prior to this time. For example, a user may request that a pod is deleted in 30 seconds. The Kubelet will react by sending a graceful termination signal to the containers in the pod. After that 30 seconds, the Kubelet will send a hard termination signal (SIGKILL) to the container and after cleanup, remove the pod from the API. In the presence of network partitions, this object may still exist after this timestamp, until an administrator or automated process can determine the resource is fully terminated. If not set, graceful deletion of the object has not been requested.
Populated by the system when a graceful deletion is requested. Read-only. More info: https://git.k8s.io/community/contributors/devel/api-conventions.md#metadata")
(deletion-grace-period-seconds :initarg
:deletion-grace-period-seconds :initform nil :accessor
object-meta-deletion-grace-period-seconds :type (or integer null)
:documentation
"Number of seconds allowed for this object to gracefully terminate before it will be removed from the system. Only set when deletionTimestamp is also set. May only be shortened. Read-only.")
(labels :initarg
:labels
:initform
nil
:accessor
object-meta-labels
:type
list
:documentation
"Map of string keys and values that can be used to organize and categorize (scope and select) objects. May match selectors of replication controllers and services. More info: http://kubernetes.io/docs/user-guide/labels")
(annotations :initarg :annotations :initform nil :accessor
object-meta-annotations :type list :documentation
"Annotations is an unstructured key value map stored with a resource that may be set by external tools to store and retrieve arbitrary metadata. They are not queryable and should be preserved when modifying objects. More info: http://kubernetes.io/docs/user-guide/annotations")
(owner-references :initarg :owner-references :initform nil :accessor
object-meta-owner-references :type list :documentation
"List of objects depended by this object. If ALL objects in the list have been deleted, this object will be garbage collected. If this object is managed by a controller, then an entry in this list will point to this controller, with the controller field set to true. There cannot be more than one managing controller.")
(initializers :initarg :initializers :initform nil :accessor
object-meta-initializers :type (or initializers null)
:documentation
"An initializer is a controller which enforces some system invariant at object creation time. This field is a list of initializers that have not yet acted on this object. If nil or empty, this object has been completely initialized. Otherwise, the object is considered uninitialized and is hidden (in list/watch and get calls) from clients that haven't explicitly asked to observe uninitialized objects.
When an object is created, the system will populate this list with the current set of initializers. Only privileged users may set or modify this list. Once it is empty, it may not be modified further by any user.")
(finalizers :initarg :finalizers :initform nil :accessor
object-meta-finalizers :type list :documentation
"Must be empty before the object is deleted from the registry. Each entry is an identifier for the responsible component that will remove the entry from the list. If the deletionTimestamp of the object is non-nil, entries in this list can only be removed.")
(cluster-name :initarg :cluster-name :initform nil :accessor
object-meta-cluster-name :type (or string null) :documentation
"The name of the cluster which the object belongs to. This is used to distinguish resources with same name and namespace in different clusters. This field is not set anywhere right now and apiserver is going to ignore it if set in create or update request."))
(:documentation
"ObjectMeta is metadata that all persisted resources must have, which includes all objects users must create."))
(defmethod json:encode-json ((object-meta object-meta) &optional stream)
(json:with-object (stream)
(when (slot-boundp object-meta 'name)
(funcall (json:stream-object-member-encoder stream) "name"
(slot-value object-meta 'name)))
(when (slot-boundp object-meta 'generate-name)
(funcall (json:stream-object-member-encoder stream) "generateName"
(slot-value object-meta 'generate-name)))
(when (slot-boundp object-meta 'namespace)
(funcall (json:stream-object-member-encoder stream) "namespace"
(slot-value object-meta 'namespace)))
(when (slot-boundp object-meta 'self-link)
(funcall (json:stream-object-member-encoder stream) "selfLink"
(slot-value object-meta 'self-link)))
(when (slot-boundp object-meta 'uid)
(funcall (json:stream-object-member-encoder stream) "uid"
(slot-value object-meta 'uid)))
(when (slot-boundp object-meta 'resource-version)
(funcall (json:stream-object-member-encoder stream) "resourceVersion"
(slot-value object-meta 'resource-version)))
(when (slot-boundp object-meta 'generation)
(funcall (json:stream-object-member-encoder stream) "generation"
(slot-value object-meta 'generation)))
(when (slot-boundp object-meta 'creation-timestamp)
(funcall (json:stream-object-member-encoder stream) "creationTimestamp"
(slot-value object-meta 'creation-timestamp)))
(when (slot-boundp object-meta 'deletion-timestamp)
(funcall (json:stream-object-member-encoder stream) "deletionTimestamp"
(slot-value object-meta 'deletion-timestamp)))
(when (slot-boundp object-meta 'deletion-grace-period-seconds)
(funcall (json:stream-object-member-encoder stream)
"deletionGracePeriodSeconds"
(slot-value object-meta 'deletion-grace-period-seconds)))
(when (slot-boundp object-meta 'labels)
(funcall (json:stream-object-member-encoder stream) "labels"
(slot-value object-meta 'labels)))
(when (slot-boundp object-meta 'annotations)
(funcall (json:stream-object-member-encoder stream) "annotations"
(slot-value object-meta 'annotations)))
(when (slot-boundp object-meta 'owner-references)
(funcall (json:stream-object-member-encoder stream) "ownerReferences"
(slot-value object-meta 'owner-references)))
(when (slot-boundp object-meta 'initializers)
(funcall (json:stream-object-member-encoder stream) "initializers"
(slot-value object-meta 'initializers)))
(when (slot-boundp object-meta 'finalizers)
(funcall (json:stream-object-member-encoder stream) "finalizers"
(slot-value object-meta 'finalizers)))
(when (slot-boundp object-meta 'cluster-name)
(funcall (json:stream-object-member-encoder stream) "clusterName"
(slot-value object-meta 'cluster-name)))))
(defmethod unmarshal (alist (object object-meta))
(when-let ((value (cdr (assoc :name alist))))
(setf (slot-value object 'name) (decode-object "string" value)))
(when-let ((value (cdr (assoc :generate-name alist))))
(setf (slot-value object 'generate-name) (decode-object "string" value)))
(when-let ((value (cdr (assoc :namespace alist))))
(setf (slot-value object 'namespace) (decode-object "string" value)))
(when-let ((value (cdr (assoc :self-link alist))))
(setf (slot-value object 'self-link) (decode-object "string" value)))
(when-let ((value (cdr (assoc :uid alist))))
(setf (slot-value object 'uid) (decode-object "string" value)))
(when-let ((value (cdr (assoc :resource-version alist))))
(setf (slot-value object 'resource-version) (decode-object "string" value)))
(when-let ((value (cdr (assoc :generation alist))))
(setf (slot-value object 'generation)
(decode-object (cons "integer" "int64") value)))
(when-let ((value (cdr (assoc :creation-timestamp alist))))
(setf (slot-value object 'creation-timestamp)
(decode-object "string" value)))
(when-let ((value (cdr (assoc :deletion-timestamp alist))))
(setf (slot-value object 'deletion-timestamp)
(decode-object "string" value)))
(when-let ((value (cdr (assoc :deletion-grace-period-seconds alist))))
(setf (slot-value object 'deletion-grace-period-seconds)
(decode-object (cons "integer" "int64") value)))
(when-let ((value (cdr (assoc :labels alist))))
(setf (slot-value object 'labels) (decode-object "object" value)))
(when-let ((value (cdr (assoc :annotations alist))))
(setf (slot-value object 'annotations) (decode-object "object" value)))
(when-let ((value (cdr (assoc :owner-references alist))))
(setf (slot-value object 'owner-references)
(decode-object (cons "array" "OwnerReference") value)))
(when-let ((value (cdr (assoc :initializers alist))))
(setf (slot-value object 'initializers)
(decode-object "Initializers" value)))
(when-let ((value (cdr (assoc :finalizers alist))))
(setf (slot-value object 'finalizers)
(decode-object (cons "array" "string") value)))
(when-let ((value (cdr (assoc :cluster-name alist))))
(setf (slot-value object 'cluster-name) (decode-object "string" value))))
(defclass owner-reference (resource)
((api-version :initform "v1" :allocation :class)
(kind :initform "OwnerReference" :allocation :class)
(name :initarg :name :initform nil :accessor owner-reference-name
:type string :documentation
"Name of the referent. More info: http://kubernetes.io/docs/user-guide/identifiers#names")
(uid :initarg :uid :initform nil :accessor owner-reference-uid :type
string :documentation
"UID of the referent. More info: http://kubernetes.io/docs/user-guide/identifiers#uids")
(controller :initarg :controller :initform nil :accessor
owner-reference-controller :type (or boolean null) :documentation
"If true, this reference points to the managing controller.")
(block-owner-deletion :initarg :block-owner-deletion :initform nil
:accessor owner-reference-block-owner-deletion :type
(or boolean null) :documentation
"If true, AND if the owner has the \"foregroundDeletion\" finalizer, then the owner cannot be deleted from the key-value store until this reference is removed. Defaults to false. To set this field, a user needs \"delete\" permission of the owner, otherwise 422 (Unprocessable Entity) will be returned."))
(:documentation
"OwnerReference contains enough information to let you identify an owning object. Currently, an owning object must be in the same namespace, so there is no namespace field."))
(defmethod json:encode-json
((owner-reference owner-reference) &optional stream)
(json:with-object (stream)
(when (slot-boundp owner-reference 'api-version)
(funcall (json:stream-object-member-encoder stream) "apiVersion"
(slot-value owner-reference 'api-version)))
(when (slot-boundp owner-reference 'kind)
(funcall (json:stream-object-member-encoder stream) "kind"
(slot-value owner-reference 'kind)))
(when (slot-boundp owner-reference 'name)
(funcall (json:stream-object-member-encoder stream) "name"
(slot-value owner-reference 'name)))
(when (slot-boundp owner-reference 'uid)
(funcall (json:stream-object-member-encoder stream) "uid"
(slot-value owner-reference 'uid)))
(when (slot-boundp owner-reference 'controller)
(funcall (json:stream-object-member-encoder stream) "controller"
(slot-value owner-reference 'controller)))
(when (slot-boundp owner-reference 'block-owner-deletion)
(funcall (json:stream-object-member-encoder stream) "blockOwnerDeletion"
(slot-value owner-reference 'block-owner-deletion)))))
(defmethod unmarshal (alist (object owner-reference))
(when-let ((value (cdr (assoc :api-version alist))))
(setf (slot-value object 'api-version) (decode-object "string" value)))
(when-let ((value (cdr (assoc :kind alist))))
(setf (slot-value object 'kind) (decode-object "string" value)))
(when-let ((value (cdr (assoc :name alist))))
(setf (slot-value object 'name) (decode-object "string" value)))
(when-let ((value (cdr (assoc :uid alist))))
(setf (slot-value object 'uid) (decode-object "string" value)))
(when-let ((value (cdr (assoc :controller alist))))
(setf (slot-value object 'controller) (decode-object "boolean" value)))
(when-let ((value (cdr (assoc :block-owner-deletion alist))))
(setf (slot-value object 'block-owner-deletion)
(decode-object "boolean" value))))
(defclass initializers (resource)
((pending :initarg :pending :initform nil :accessor
initializers-pending :type list :documentation
"Pending is a list of initializers that must execute in order before this object is visible. When the last pending initializer is removed, and no failing result is set, the initializers struct will be set to nil and the object is considered as initialized and visible to all clients.")
(result :initarg :result :initform nil :accessor initializers-result
:type (or status null) :documentation
"If result is set with the Failure field, the object will be persisted to storage and then deleted, ensuring that other clients can observe the deletion."))
(:documentation
"Initializers tracks the progress of initialization."))
(defmethod json:encode-json ((initializers initializers) &optional stream)
(json:with-object (stream)
(when (slot-boundp initializers 'pending)
(funcall (json:stream-object-member-encoder stream) "pending"
(slot-value initializers 'pending)))
(when (slot-boundp initializers 'result)
(funcall (json:stream-object-member-encoder stream) "result"
(slot-value initializers 'result)))))
(defmethod unmarshal (alist (object initializers))
(when-let ((value (cdr (assoc :pending alist))))
(setf (slot-value object 'pending)
(decode-object (cons "array" "Initializer") value)))
(when-let ((value (cdr (assoc :result alist))))
(setf (slot-value object 'result) (decode-object "Status" value))))
(defclass initializer (resource)
((name :initarg :name :initform nil :accessor initializer-name :type
string :documentation
"name of the process that is responsible for initializing this object."))
(:documentation
"Initializer is information about an initializer that has not yet completed."))
(defmethod json:encode-json ((initializer initializer) &optional stream)
(json:with-object (stream)
(when (slot-boundp initializer 'name)
(funcall (json:stream-object-member-encoder stream) "name"
(slot-value initializer 'name)))))
(defmethod unmarshal (alist (object initializer))
(when-let ((value (cdr (assoc :name alist))))
(setf (slot-value object 'name) (decode-object "string" value))))
(defclass status (resource)
((api-version :initform "v1" :allocation :class)
(kind :initform "Status" :allocation :class)
(metadata :initarg :metadata :initform nil :accessor status-metadata
:type (or list-meta null) :documentation
"Standard list metadata. More info: https://git.k8s.io/community/contributors/devel/api-conventions.md#types-kinds")
(status :initarg :status :initform nil :accessor status-status :type
(or string null) :documentation
"Status of the operation. One of: \"Success\" or \"Failure\". More info: https://git.k8s.io/community/contributors/devel/api-conventions.md#spec-and-status")
(message :initarg :message :initform nil :accessor status-message
:type (or string null) :documentation
"A human-readable description of the status of this operation.")
(reason :initarg :reason :initform nil :accessor status-reason :type
(or string null) :documentation
"A machine-readable description of why this operation is in the \"Failure\" status. If this value is empty there is no information available. A Reason clarifies an HTTP status code but does not override it.")
(details :initarg :details :initform nil :accessor status-details
:type (or status-details null) :documentation
"Extended data associated with the reason. Each reason may define its own extended details. This field is optional and the data returned is not guaranteed to conform to any schema except that defined by the reason type.")
(code :initarg :code :initform nil :accessor status-code :type
(or integer null) :documentation
"Suggested HTTP return code for this status, 0 if not set."))
(:documentation
"Status is a return value for calls that don't return other objects."))
(defmethod json:encode-json ((status status) &optional stream)
(json:with-object (stream)
(when (slot-boundp status 'kind)
(funcall (json:stream-object-member-encoder stream) "kind"
(slot-value status 'kind)))
(when (slot-boundp status 'api-version)
(funcall (json:stream-object-member-encoder stream) "apiVersion"
(slot-value status 'api-version)))
(when (slot-boundp status 'metadata)
(funcall (json:stream-object-member-encoder stream) "metadata"
(slot-value status 'metadata)))
(when (slot-boundp status 'status)
(funcall (json:stream-object-member-encoder stream) "status"
(slot-value status 'status)))
(when (slot-boundp status 'message)
(funcall (json:stream-object-member-encoder stream) "message"
(slot-value status 'message)))
(when (slot-boundp status 'reason)
(funcall (json:stream-object-member-encoder stream) "reason"
(slot-value status 'reason)))
(when (slot-boundp status 'details)
(funcall (json:stream-object-member-encoder stream) "details"
(slot-value status 'details)))
(when (slot-boundp status 'code)
(funcall (json:stream-object-member-encoder stream) "code"
(slot-value status 'code)))))
(defmethod unmarshal (alist (object status))
(when-let ((value (cdr (assoc :kind alist))))
(setf (slot-value object 'kind) (decode-object "string" value)))
(when-let ((value (cdr (assoc :api-version alist))))
(setf (slot-value object 'api-version) (decode-object "string" value)))
(when-let ((value (cdr (assoc :metadata alist))))
(setf (slot-value object 'metadata) (decode-object "ListMeta" value)))
(when-let ((value (cdr (assoc :status alist))))
(setf (slot-value object 'status) (decode-object "string" value)))
(when-let ((value (cdr (assoc :message alist))))
(setf (slot-value object 'message) (decode-object "string" value)))
(when-let ((value (cdr (assoc :reason alist))))
(setf (slot-value object 'reason) (decode-object "string" value)))
(when-let ((value (cdr (assoc :details alist))))
(setf (slot-value object 'details) (decode-object "StatusDetails" value)))
(when-let ((value (cdr (assoc :code alist))))
(setf (slot-value object 'code)
(decode-object (cons "integer" "int32") value))))
(defclass list-meta (resource)
((self-link :initarg :self-link :initform nil :accessor
list-meta-self-link :type (or string null) :documentation
"selfLink is a URL representing this object. Populated by the system. Read-only.")
(resource-version :initarg :resource-version :initform nil :accessor
list-meta-resource-version :type (or string null) :documentation
"String that identifies the server's internal version of this object that can be used by clients to determine when objects have changed. Value must be treated as opaque by clients and passed unmodified back to the server. Populated by the system. Read-only. More info: https://git.k8s.io/community/contributors/devel/api-conventions.md#concurrency-control-and-consistency")
(continue :initarg :continue :initform nil :accessor
list-meta-continue :type (or string null) :documentation
"continue may be set if the user set a limit on the number of items returned, and indicates that the server has more data available. The value is opaque and may be used to issue another request to the endpoint that served this list to retrieve the next set of available objects. Continuing a list may not be possible if the server configuration has changed or more than a few minutes have passed. The resourceVersion field returned when using this continue value will be identical to the value in the first response."))
(:documentation
"ListMeta describes metadata that synthetic resources must have, including lists and various status objects. A resource may have only one of {ObjectMeta, ListMeta}."))
(defmethod json:encode-json ((list-meta list-meta) &optional stream)
(json:with-object (stream)
(when (slot-boundp list-meta 'self-link)
(funcall (json:stream-object-member-encoder stream) "selfLink"
(slot-value list-meta 'self-link)))
(when (slot-boundp list-meta 'resource-version)
(funcall (json:stream-object-member-encoder stream) "resourceVersion"
(slot-value list-meta 'resource-version)))
(when (slot-boundp list-meta 'continue)
(funcall (json:stream-object-member-encoder stream) "continue"
(slot-value list-meta 'continue)))))
(defmethod unmarshal (alist (object list-meta))
(when-let ((value (cdr (assoc :self-link alist))))
(setf (slot-value object 'self-link) (decode-object "string" value)))
(when-let ((value (cdr (assoc :resource-version alist))))
(setf (slot-value object 'resource-version) (decode-object "string" value)))
(when-let ((value (cdr (assoc :continue alist))))
(setf (slot-value object 'continue) (decode-object "string" value))))
(defclass status-details (resource)
((kind :initform "StatusDetails" :allocation :class)
(name :initarg :name :initform nil :accessor status-details-name
:type (or string null) :documentation
"The name attribute of the resource associated with the status StatusReason (when there is a single name which can be described).")
(group :initarg :group :initform nil :accessor status-details-group
:type (or string null) :documentation
"The group attribute of the resource associated with the status StatusReason.")
(uid :initarg :uid :initform nil :accessor status-details-uid :type
(or string null) :documentation
"UID of the resource. (when there is a single resource which can be described). More info: http://kubernetes.io/docs/user-guide/identifiers#uids")
(causes :initarg :causes :initform nil :accessor
status-details-causes :type list :documentation
"The Causes array includes more details associated with the StatusReason failure. Not all StatusReasons may provide detailed causes.")
(retry-after-seconds :initarg :retry-after-seconds :initform nil
:accessor status-details-retry-after-seconds :type
(or integer null) :documentation
"If specified, the time in seconds before the operation should be retried. Some errors may indicate the client must take an alternate action - for those errors this field may indicate how long to wait before taking the alternate action."))
(:documentation
"StatusDetails is a set of additional properties that MAY be set by the server to provide additional information about a response. The Reason field of a Status object defines what attributes will be set. Clients must ignore fields that do not match the defined type of each attribute, and should assume that any attribute may be empty, invalid, or under defined."))
(defmethod json:encode-json ((status-details status-details) &optional stream)
(json:with-object (stream)
(when (slot-boundp status-details 'name)
(funcall (json:stream-object-member-encoder stream) "name"
(slot-value status-details 'name)))
(when (slot-boundp status-details 'group)
(funcall (json:stream-object-member-encoder stream) "group"
(slot-value status-details 'group)))
(when (slot-boundp status-details 'kind)
(funcall (json:stream-object-member-encoder stream) "kind"
(slot-value status-details 'kind)))
(when (slot-boundp status-details 'uid)
(funcall (json:stream-object-member-encoder stream) "uid"
(slot-value status-details 'uid)))
(when (slot-boundp status-details 'causes)
(funcall (json:stream-object-member-encoder stream) "causes"
(slot-value status-details 'causes)))
(when (slot-boundp status-details 'retry-after-seconds)
(funcall (json:stream-object-member-encoder stream) "retryAfterSeconds"
(slot-value status-details 'retry-after-seconds)))))
(defmethod unmarshal (alist (object status-details))
(when-let ((value (cdr (assoc :name alist))))
(setf (slot-value object 'name) (decode-object "string" value)))
(when-let ((value (cdr (assoc :group alist))))
(setf (slot-value object 'group) (decode-object "string" value)))
(when-let ((value (cdr (assoc :kind alist))))
(setf (slot-value object 'kind) (decode-object "string" value)))
(when-let ((value (cdr (assoc :uid alist))))
(setf (slot-value object 'uid) (decode-object "string" value)))
(when-let ((value (cdr (assoc :causes alist))))
(setf (slot-value object 'causes)
(decode-object (cons "array" "StatusCause") value)))
(when-let ((value (cdr (assoc :retry-after-seconds alist))))
(setf (slot-value object 'retry-after-seconds)
(decode-object (cons "integer" "int32") value))))
(defclass status-cause (resource)
((reason :initarg :reason :initform nil :accessor status-cause-reason
:type (or string null) :documentation
"A machine-readable description of the cause of the error. If this value is empty there is no information available.")
(message :initarg :message :initform nil :accessor
status-cause-message :type (or string null) :documentation
"A human-readable description of the cause of the error. This field may be presented as-is to a reader.")
(field :initarg :field :initform nil :accessor status-cause-field
:type (or string null) :documentation
"The field of the resource that has caused this error, as named by its JSON serialization. May include dot and postfix notation for nested attributes. Arrays are zero-indexed. Fields may appear more than once in an array of causes due to fields having multiple errors. Optional.
Examples:
\"name\" - the field \"name\" on the current resource
\"items[0].name\" - the field \"name\" on the first array entry in \"items\""))
(:documentation
"StatusCause provides more information about an api.Status failure, including cases when multiple errors are encountered."))
(defmethod json:encode-json ((status-cause status-cause) &optional stream)
(json:with-object (stream)
(when (slot-boundp status-cause 'reason)
(funcall (json:stream-object-member-encoder stream) "reason"
(slot-value status-cause 'reason)))
(when (slot-boundp status-cause 'message)
(funcall (json:stream-object-member-encoder stream) "message"
(slot-value status-cause 'message)))
(when (slot-boundp status-cause 'field)
(funcall (json:stream-object-member-encoder stream) "field"
(slot-value status-cause 'field)))))
(defmethod unmarshal (alist (object status-cause))
(when-let ((value (cdr (assoc :reason alist))))
(setf (slot-value object 'reason) (decode-object "string" value)))
(when-let ((value (cdr (assoc :message alist))))
(setf (slot-value object 'message) (decode-object "string" value)))
(when-let ((value (cdr (assoc :field alist))))
(setf (slot-value object 'field) (decode-object "string" value))))
(defclass object-reference (resource)
((api-version :initform "v1" :allocation :class)
(kind :initform "ObjectReference" :allocation :class)
(namespace :initarg :namespace :initform nil :accessor
object-reference-namespace :type (or string null) :documentation
"Namespace of the referent. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/namespaces/")
(name :initarg :name :initform nil :accessor object-reference-name
:type (or string null) :documentation
"Name of the referent. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names/#names")
(uid :initarg :uid :initform nil :accessor object-reference-uid
:type (or string null) :documentation
"UID of the referent. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names/#uids")
(resource-version :initarg :resource-version :initform nil :accessor
object-reference-resource-version :type (or string null)
:documentation
"Specific resourceVersion to which this reference is made, if any. More info: https://git.k8s.io/community/contributors/devel/api-conventions.md#concurrency-control-and-consistency")
(field-path :initarg :field-path :initform nil :accessor
object-reference-field-path :type (or string null) :documentation
"If referring to a piece of an object instead of an entire object, this string should contain a valid JSON/Go field access statement, such as desiredState.manifest.containers[2]. For example, if the object reference is to a container within a pod, this would take on a value like: \"spec.containers{name}\" (where \"name\" refers to the name of the container that triggered the event) or if no container name is specified \"spec.containers[2]\" (container with index 2 in this pod). This syntax is chosen only to have some well-defined way of referencing a part of an object."))
(:documentation
"ObjectReference contains enough information to let you inspect or modify the referred object."))
(defmethod json:encode-json
((object-reference object-reference) &optional stream)
(json:with-object (stream)
(when (slot-boundp object-reference 'kind)
(funcall (json:stream-object-member-encoder stream) "kind"
(slot-value object-reference 'kind)))
(when (slot-boundp object-reference 'namespace)
(funcall (json:stream-object-member-encoder stream) "namespace"
(slot-value object-reference 'namespace)))
(when (slot-boundp object-reference 'name)
(funcall (json:stream-object-member-encoder stream) "name"
(slot-value object-reference 'name)))
(when (slot-boundp object-reference 'uid)
(funcall (json:stream-object-member-encoder stream) "uid"
(slot-value object-reference 'uid)))
(when (slot-boundp object-reference 'api-version)
(funcall (json:stream-object-member-encoder stream) "apiVersion"
(slot-value object-reference 'api-version)))
(when (slot-boundp object-reference 'resource-version)
(funcall (json:stream-object-member-encoder stream) "resourceVersion"
(slot-value object-reference 'resource-version)))
(when (slot-boundp object-reference 'field-path)
(funcall (json:stream-object-member-encoder stream) "fieldPath"
(slot-value object-reference 'field-path)))))
(defmethod unmarshal (alist (object object-reference))
(when-let ((value (cdr (assoc :kind alist))))
(setf (slot-value object 'kind) (decode-object "string" value)))
(when-let ((value (cdr (assoc :namespace alist))))
(setf (slot-value object 'namespace) (decode-object "string" value)))
(when-let ((value (cdr (assoc :name alist))))
(setf (slot-value object 'name) (decode-object "string" value)))
(when-let ((value (cdr (assoc :uid alist))))
(setf (slot-value object 'uid) (decode-object "string" value)))
(when-let ((value (cdr (assoc :api-version alist))))
(setf (slot-value object 'api-version) (decode-object "string" value)))
(when-let ((value (cdr (assoc :resource-version alist))))
(setf (slot-value object 'resource-version) (decode-object "string" value)))
(when-let ((value (cdr (assoc :field-path alist))))
(setf (slot-value object 'field-path) (decode-object "string" value))))
(defclass component-status-list (resource)
((api-version :initform "v1" :allocation :class)
(kind :initform "ComponentStatusList" :allocation :class)
(metadata :initarg :metadata :initform nil :accessor
component-status-list-metadata :type (or list-meta null)
:documentation
"Standard list metadata. More info: https://git.k8s.io/community/contributors/devel/api-conventions.md#types-kinds")
(items :initarg :items :initform nil :accessor
component-status-list-items :type list :documentation
"List of ComponentStatus objects."))
(:documentation
"Status of all the conditions for the component as a list of ComponentStatus objects."))
(defmethod json:encode-json
((component-status-list component-status-list) &optional stream)
(json:with-object (stream)
(when (slot-boundp component-status-list 'kind)
(funcall (json:stream-object-member-encoder stream) "kind"
(slot-value component-status-list 'kind)))
(when (slot-boundp component-status-list 'api-version)
(funcall (json:stream-object-member-encoder stream) "apiVersion"
(slot-value component-status-list 'api-version)))
(when (slot-boundp component-status-list 'metadata)
(funcall (json:stream-object-member-encoder stream) "metadata"
(slot-value component-status-list 'metadata)))
(when (slot-boundp component-status-list 'items)
(funcall (json:stream-object-member-encoder stream) "items"
(slot-value component-status-list 'items)))))
(defmethod unmarshal (alist (object component-status-list))
(when-let ((value (cdr (assoc :kind alist))))
(setf (slot-value object 'kind) (decode-object "string" value)))
(when-let ((value (cdr (assoc :api-version alist))))
(setf (slot-value object 'api-version) (decode-object "string" value)))
(when-let ((value (cdr (assoc :metadata alist))))
(setf (slot-value object 'metadata) (decode-object "ListMeta" value)))
(when-let ((value (cdr (assoc :items alist))))
(setf (slot-value object 'items)
(decode-object (cons "array" "ComponentStatus") value))))
(defclass component-status (resource)
((api-version :initform "v1" :allocation :class)
(kind :initform "ComponentStatus" :allocation :class)
(metadata :initarg :metadata :initform nil :accessor
component-status-metadata :type (or object-meta null)
:documentation
"Standard object's metadata. More info: https://git.k8s.io/community/contributors/devel/api-conventions.md#metadata")
(conditions :initarg :conditions :initform nil :accessor
component-status-conditions :type list :documentation
"List of component conditions observed"))
(:documentation
"ComponentStatus (and ComponentStatusList) holds the cluster validation info."))
(defmethod json:encode-json
((component-status component-status) &optional stream)
(json:with-object (stream)
(when (slot-boundp component-status 'kind)
(funcall (json:stream-object-member-encoder stream) "kind"
(slot-value component-status 'kind)))
(when (slot-boundp component-status 'api-version)
(funcall (json:stream-object-member-encoder stream) "apiVersion"
(slot-value component-status 'api-version)))
(when (slot-boundp component-status 'metadata)
(funcall (json:stream-object-member-encoder stream) "metadata"
(slot-value component-status 'metadata)))
(when (slot-boundp component-status 'conditions)
(funcall (json:stream-object-member-encoder stream) "conditions"
(slot-value component-status 'conditions)))))
(defmethod unmarshal (alist (object component-status))
(when-let ((value (cdr (assoc :kind alist))))
(setf (slot-value object 'kind) (decode-object "string" value)))
(when-let ((value (cdr (assoc :api-version alist))))
(setf (slot-value object 'api-version) (decode-object "string" value)))
(when-let ((value (cdr (assoc :metadata alist))))
(setf (slot-value object 'metadata) (decode-object "ObjectMeta" value)))
(when-let ((value (cdr (assoc :conditions alist))))
(setf (slot-value object 'conditions)
(decode-object (cons "array" "ComponentCondition") value))))
(defclass component-condition (resource)
((type :initarg :type :initform nil :accessor
component-condition-type :type string :documentation
"Type of condition for a component. Valid value: \"Healthy\"")
(status :initarg :status :initform nil :accessor
component-condition-status :type string :documentation
"Status of the condition for a component. Valid values for \"Healthy\": \"True\", \"False\", or \"Unknown\".")
(message :initarg :message :initform nil :accessor
component-condition-message :type (or string null) :documentation
"Message about the condition for a component. For example, information about a health check.")
(error :initarg :error :initform nil :accessor
component-condition-error :type (or string null)
:documentation
"Condition error code for a component. For example, a health check error code."))
(:documentation "Information about the condition of a component."))
(defmethod json:encode-json
((component-condition component-condition) &optional stream)
(json:with-object (stream)
(when (slot-boundp component-condition 'type)
(funcall (json:stream-object-member-encoder stream) "type"
(slot-value component-condition 'type)))
(when (slot-boundp component-condition 'status)
(funcall (json:stream-object-member-encoder stream) "status"
(slot-value component-condition 'status)))
(when (slot-boundp component-condition 'message)
(funcall (json:stream-object-member-encoder stream) "message"
(slot-value component-condition 'message)))
(when (slot-boundp component-condition 'error)
(funcall (json:stream-object-member-encoder stream) "error"
(slot-value component-condition 'error)))))
(defmethod unmarshal (alist (object component-condition))
(when-let ((value (cdr (assoc :type alist))))
(setf (slot-value object 'type) (decode-object "string" value)))
(when-let ((value (cdr (assoc :status alist))))
(setf (slot-value object 'status) (decode-object "string" value)))
(when-let ((value (cdr (assoc :message alist))))
(setf (slot-value object 'message) (decode-object "string" value)))
(when-let ((value (cdr (assoc :error alist))))
(setf (slot-value object 'error) (decode-object "string" value))))
(defclass config-map-list (resource)
((api-version :initform "v1" :allocation :class)
(kind :initform "ConfigMapList" :allocation :class)
(metadata :initarg :metadata :initform nil :accessor
config-map-list-metadata :type (or list-meta null) :documentation
"More info: https://git.k8s.io/community/contributors/devel/api-conventions.md#metadata")
(items :initarg :items :initform nil :accessor config-map-list-items
:type list :documentation "Items is the list of ConfigMaps."))
(:documentation
"ConfigMapList is a resource containing a list of ConfigMap objects."))
(defmethod json:encode-json
((config-map-list config-map-list) &optional stream)
(json:with-object (stream)
(when (slot-boundp config-map-list 'kind)
(funcall (json:stream-object-member-encoder stream) "kind"
(slot-value config-map-list 'kind)))
(when (slot-boundp config-map-list 'api-version)
(funcall (json:stream-object-member-encoder stream) "apiVersion"
(slot-value config-map-list 'api-version)))
(when (slot-boundp config-map-list 'metadata)
(funcall (json:stream-object-member-encoder stream) "metadata"
(slot-value config-map-list 'metadata)))
(when (slot-boundp config-map-list 'items)
(funcall (json:stream-object-member-encoder stream) "items"
(slot-value config-map-list 'items)))))
(defmethod unmarshal (alist (object config-map-list))
(when-let ((value (cdr (assoc :kind alist))))
(setf (slot-value object 'kind) (decode-object "string" value)))
(when-let ((value (cdr (assoc :api-version alist))))
(setf (slot-value object 'api-version) (decode-object "string" value)))
(when-let ((value (cdr (assoc :metadata alist))))
(setf (slot-value object 'metadata) (decode-object "ListMeta" value)))
(when-let ((value (cdr (assoc :items alist))))
(setf (slot-value object 'items)
(decode-object (cons "array" "ConfigMap") value))))
(defclass config-map (resource)
((api-version :initform "v1" :allocation :class)
(kind :initform "ConfigMap" :allocation :class)
(metadata :initarg :metadata :initform nil :accessor
config-map-metadata :type (or object-meta null) :documentation
"Standard object's metadata. More info: https://git.k8s.io/community/contributors/devel/api-conventions.md#metadata")
(data :initarg :data :initform nil :accessor config-map-data :type
list :documentation
"Data contains the configuration data. Each key must consist of alphanumeric characters, '-', '_' or '.'. Values with non-UTF-8 byte sequences must use the BinaryData field. The keys stored in Data must not overlap with the keys in the BinaryData field, this is enforced during validation process.")
(binary-data :initarg :binary-data :initform nil :accessor
config-map-binary-data :type list :documentation
"BinaryData contains the binary data. Each key must consist of alphanumeric characters, '-', '_' or '.'. BinaryData can contain byte sequences that are not in the UTF-8 range. The keys stored in BinaryData must not overlap with the ones in the Data field, this is enforced during validation process. Using this field will require 1.10+ apiserver and kubelet."))
(:documentation
"ConfigMap holds configuration data for pods to consume."))
(defmethod json:encode-json ((config-map config-map) &optional stream)
(json:with-object (stream)
(when (slot-boundp config-map 'kind)
(funcall (json:stream-object-member-encoder stream) "kind"
(slot-value config-map 'kind)))
(when (slot-boundp config-map 'api-version)
(funcall (json:stream-object-member-encoder stream) "apiVersion"
(slot-value config-map 'api-version)))
(when (slot-boundp config-map 'metadata)
(funcall (json:stream-object-member-encoder stream) "metadata"
(slot-value config-map 'metadata)))
(when (slot-boundp config-map 'data)
(funcall (json:stream-object-member-encoder stream) "data"
(slot-value config-map 'data)))
(when (slot-boundp config-map 'binary-data)
(funcall (json:stream-object-member-encoder stream) "binaryData"
(slot-value config-map 'binary-data)))))
(defmethod unmarshal (alist (object config-map))
(when-let ((value (cdr (assoc :kind alist))))
(setf (slot-value object 'kind) (decode-object "string" value)))
(when-let ((value (cdr (assoc :api-version alist))))
(setf (slot-value object 'api-version) (decode-object "string" value)))
(when-let ((value (cdr (assoc :metadata alist))))
(setf (slot-value object 'metadata) (decode-object "ObjectMeta" value)))
(when-let ((value (cdr (assoc :data alist))))
(setf (slot-value object 'data) (decode-object "object" value)))
(when-let ((value (cdr (assoc :binary-data alist))))
(setf (slot-value object 'binary-data) (decode-object "object" value))))
(defclass watch-event (resource)
((type :initarg :type :initform nil :accessor watch-event-type :type
string :documentation nil)
(object :initarg :object :initform nil :accessor watch-event-object
:type string :documentation nil)))
(defmethod json:encode-json ((watch-event watch-event) &optional stream)
(json:with-object (stream)
(when (slot-boundp watch-event 'type)
(funcall (json:stream-object-member-encoder stream) "type"
(slot-value watch-event 'type)))
(when (slot-boundp watch-event 'object)
(funcall (json:stream-object-member-encoder stream) "object"
(slot-value watch-event 'object)))))
(defmethod unmarshal (alist (object watch-event))
(when-let ((value (cdr (assoc :type alist))))
(setf (slot-value object 'type) (decode-object "string" value)))
(when-let ((value (cdr (assoc :object alist))))
(setf (slot-value object 'object) (decode-object "string" value))))
(defclass patch (resource) nil
(:documentation
"Patch is provided to give a concrete name and type to the Kubernetes PATCH request body."))
(defmethod json:encode-json ((patch patch) &optional stream)
(json:with-object (stream)))
(defmethod unmarshal (alist (object patch)))
(defclass delete-options (resource)
((api-version :initform "v1" :allocation :class)
(kind :initform "DeleteOptions" :allocation :class)
(grace-period-seconds :initarg :grace-period-seconds :initform nil
:accessor delete-options-grace-period-seconds :type
(or integer null) :documentation
"The duration in seconds before the object should be deleted. Value must be non-negative integer. The value zero indicates delete immediately. If this value is nil, the default grace period for the specified type will be used. Defaults to a per object value if not specified. zero means delete immediately.")
(preconditions :initarg :preconditions :initform nil :accessor
delete-options-preconditions :type (or preconditions null)
:documentation
"Must be fulfilled before a deletion is carried out. If not possible, a 409 Conflict status will be returned.")
(orphan-dependents :initarg :orphan-dependents :initform nil
:accessor delete-options-orphan-dependents :type (or boolean null)
:documentation
"Deprecated: please use the PropagationPolicy, this field will be deprecated in 1.7. Should the dependent objects be orphaned. If true/false, the \"orphan\" finalizer will be added to/removed from the object's finalizers list. Either this field or PropagationPolicy may be set, but not both.")
(propagation-policy :initarg :propagation-policy :initform nil
:accessor delete-options-propagation-policy :type
(or deletion-propagation null) :documentation
"Whether and how garbage collection will be performed. Either this field or OrphanDependents may be set, but not both. The default policy is decided by the existing finalizer set in the metadata.finalizers and the resource-specific default policy. Acceptable values are: 'Orphan' - orphan the dependents; 'Background' - allow the garbage collector to delete the dependents in the background; 'Foreground' - a cascading policy that deletes all dependents in the foreground."))
(:documentation
"DeleteOptions may be provided when deleting an API object."))
(defmethod json:encode-json ((delete-options delete-options) &optional stream)
(json:with-object (stream)
(when (slot-boundp delete-options 'kind)
(funcall (json:stream-object-member-encoder stream) "kind"
(slot-value delete-options 'kind)))
(when (slot-boundp delete-options 'api-version)
(funcall (json:stream-object-member-encoder stream) "apiVersion"
(slot-value delete-options 'api-version)))
(when (slot-boundp delete-options 'grace-period-seconds)
(funcall (json:stream-object-member-encoder stream) "gracePeriodSeconds"
(slot-value delete-options 'grace-period-seconds)))
(when (slot-boundp delete-options 'preconditions)
(funcall (json:stream-object-member-encoder stream) "preconditions"
(slot-value delete-options 'preconditions)))
(when (slot-boundp delete-options 'orphan-dependents)
(funcall (json:stream-object-member-encoder stream) "orphanDependents"
(slot-value delete-options 'orphan-dependents)))
(when (slot-boundp delete-options 'propagation-policy)
(funcall (json:stream-object-member-encoder stream) "propagationPolicy"
(slot-value delete-options 'propagation-policy)))))
(defmethod unmarshal (alist (object delete-options))
(when-let ((value (cdr (assoc :kind alist))))
(setf (slot-value object 'kind) (decode-object "string" value)))
(when-let ((value (cdr (assoc :api-version alist))))
(setf (slot-value object 'api-version) (decode-object "string" value)))
(when-let ((value (cdr (assoc :grace-period-seconds alist))))
(setf (slot-value object 'grace-period-seconds)
(decode-object (cons "integer" "int64") value)))
(when-let ((value (cdr (assoc :preconditions alist))))
(setf (slot-value object 'preconditions)
(decode-object "Preconditions" value)))
(when-let ((value (cdr (assoc :orphan-dependents alist))))
(setf (slot-value object 'orphan-dependents)
(decode-object "boolean" value)))
(when-let ((value (cdr (assoc :propagation-policy alist))))
(setf (slot-value object 'propagation-policy)
(decode-object "DeletionPropagation" value))))
(defclass preconditions (resource)
((uid :initarg :uid :initform nil :accessor preconditions-uid :type
(or uid null) :documentation "Specifies the target UID."))
(:documentation
"Preconditions must be fulfilled before an operation (update, delete, etc.) is carried out."))
(defmethod json:encode-json ((preconditions preconditions) &optional stream)
(json:with-object (stream)
(when (slot-boundp preconditions 'uid)
(funcall (json:stream-object-member-encoder stream) "uid"
(slot-value preconditions 'uid)))))
(defmethod unmarshal (alist (object preconditions))
(when-let ((value (cdr (assoc :uid alist))))
(setf (slot-value object 'uid) (decode-object "UID" value))))
(defclass uid (resource) nil)
(defmethod json:encode-json ((uid uid) &optional stream)
(json:with-object (stream)))
(defmethod unmarshal (alist (object uid)))
(defclass deletion-propagation (resource) nil)
(defmethod json:encode-json
((deletion-propagation deletion-propagation) &optional stream)
(json:with-object (stream)))
(defmethod unmarshal (alist (object deletion-propagation)))
(defclass endpoints-list (resource)
((api-version :initform "v1" :allocation :class)
(kind :initform "EndpointsList" :allocation :class)
(metadata :initarg :metadata :initform nil :accessor
endpoints-list-metadata :type (or list-meta null) :documentation
"Standard list metadata. More info: https://git.k8s.io/community/contributors/devel/api-conventions.md#types-kinds")
(items :initarg :items :initform nil :accessor endpoints-list-items
:type list :documentation "List of endpoints."))
(:documentation "EndpointsList is a list of endpoints."))
(defmethod json:encode-json ((endpoints-list endpoints-list) &optional stream)
(json:with-object (stream)
(when (slot-boundp endpoints-list 'kind)
(funcall (json:stream-object-member-encoder stream) "kind"
(slot-value endpoints-list 'kind)))
(when (slot-boundp endpoints-list 'api-version)
(funcall (json:stream-object-member-encoder stream) "apiVersion"
(slot-value endpoints-list 'api-version)))
(when (slot-boundp endpoints-list 'metadata)
(funcall (json:stream-object-member-encoder stream) "metadata"
(slot-value endpoints-list 'metadata)))
(when (slot-boundp endpoints-list 'items)
(funcall (json:stream-object-member-encoder stream) "items"
(slot-value endpoints-list 'items)))))
(defmethod unmarshal (alist (object endpoints-list))
(when-let ((value (cdr (assoc :kind alist))))
(setf (slot-value object 'kind) (decode-object "string" value)))
(when-let ((value (cdr (assoc :api-version alist))))
(setf (slot-value object 'api-version) (decode-object "string" value)))
(when-let ((value (cdr (assoc :metadata alist))))
(setf (slot-value object 'metadata) (decode-object "ListMeta" value)))
(when-let ((value (cdr (assoc :items alist))))
(setf (slot-value object 'items)
(decode-object (cons "array" "Endpoints") value))))
(defclass endpoints (resource)
((api-version :initform "v1" :allocation :class)
(kind :initform "Endpoints" :allocation :class)
(metadata :initarg :metadata :initform nil :accessor
endpoints-metadata :type (or object-meta null) :documentation
"Standard object's metadata. More info: https://git.k8s.io/community/contributors/devel/api-conventions.md#metadata")
(subsets :initarg :subsets :initform nil :accessor endpoints-subsets
:type list :documentation
"The set of all endpoints is the union of all subsets. Addresses are placed into subsets according to the IPs they share. A single address with multiple ports, some of which are ready and some of which are not (because they come from different containers) will result in the address being displayed in different subsets for the different ports. No address will appear in both Addresses and NotReadyAddresses in the same subset. Sets of addresses and ports that comprise a service."))
(:documentation
"Endpoints is a collection of endpoints that implement the actual service. Example:
Name: \"mysvc\",
Subsets: [
{
Addresses: [{\"ip\": \"10.10.1.1\"}, {\"ip\": \"10.10.2.2\"}],
Ports: [{\"name\": \"a\", \"port\": 8675}, {\"name\": \"b\", \"port\": 309}]
},
{
Addresses: [{\"ip\": \"10.10.3.3\"}],
Ports: [{\"name\": \"a\", \"port\": 93}, {\"name\": \"b\", \"port\": 76}]
},
]"))
(defmethod json:encode-json ((endpoints endpoints) &optional stream)
(json:with-object (stream)
(when (slot-boundp endpoints 'kind)
(funcall (json:stream-object-member-encoder stream) "kind"
(slot-value endpoints 'kind)))
(when (slot-boundp endpoints 'api-version)
(funcall (json:stream-object-member-encoder stream) "apiVersion"
(slot-value endpoints 'api-version)))
(when (slot-boundp endpoints 'metadata)
(funcall (json:stream-object-member-encoder stream) "metadata"
(slot-value endpoints 'metadata)))
(when (slot-boundp endpoints 'subsets)
(funcall (json:stream-object-member-encoder stream) "subsets"
(slot-value endpoints 'subsets)))))
(defmethod unmarshal (alist (object endpoints))
(when-let ((value (cdr (assoc :kind alist))))
(setf (slot-value object 'kind) (decode-object "string" value)))