WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/net
Viewing File: /usr/share/emacs/24.3/lisp/net/soap-inspect.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:55:33 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/net/soap-inspect.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'soap-client)
#@248 Provide a sample value for TYPE, a WSDL type.
A sample value is a LISP value which soap-client.el will accept
for encoding it using TYPE when making SOAP requests.

This is a generic function, depending on TYPE a specific function
will be called.
(defalias 'soap-sample-value #[(type) "\302H\303N\211\203	!\202\304\305\302H\")\207" [type sample-value 0 soap-sample-value error "Cannot provide sample value for type %s"] 5 (#$ . 583)])
#@154 Provide a sample value for TYPE which is a basic type.
This is a specific function which should not be called directly,
use `soap-sample-value' instead.
(defalias 'soap-sample-value-for-basic-type #[(type) "\302\303H	>\204\304\305\306\307#\210\310H\311\"\203\312\207\302\303H	>\204(\304\305\306\307#\210\310H\313\"\2032\314\207\315\303H	>\204A\304\305\306\307#\210\310H\316\"\203M\317\320!\207\321\322\303H	>\204]\304\305\306\307#\210\310H\"\207" [type cl-struct-soap-basic-type-tags eql 0 error "%s accessing a non-%s" soap-basic-type-kind soap-basic-type 3 string "a string value" boolean t memql (long int) random 4200 format "%s"] 6 (#$ . 1033)])
#@155 Provide a sample value for TYPE which is a simple type.
This is a specific function which should not be called directly,
use `soap-sample-value' instead.
(defalias 'soap-sample-value-for-simple-type #[(type) "\303H	>\204\304\305\306\307#\210\310H\211G\311V\203\"\n\312\nG!\234\202%\313!)\207" [type cl-struct-soap-simple-type-tags enumeration 0 error "%s accessing a non-%s" soap-simple-type-enumeration soap-simple-type 4 1 random soap-sample-value-for-basic-type] 5 (#$ . 1708)])
#@245 Provide a sample value for TYPE which is a sequence type.
Values for sequence types are ALISTS of (slot-name . VALUE) for
each sequence element.

This is a specific function which should not be called directly,
use `soap-sample-value' instead.
(defalias 'soap-sample-value-for-seqence-type #[(type) "\306	\307H\n>\204\310\311\312\313#\210	\314H\306\211\203L\f@\211\307H
>\204+\310\311\315\316#\210\317H\320\307H
>\204=\310\311\321\316#\210\322H!BB\fA\211\204*	\307H\n>\204[\310\311\323\313#\210	\324H\203x\325\320	\307H\n>\204q\310\311\323\313#\210	\324H!\")\207" [sample-value type cl-struct-soap-sequence-type-tags element --dolist-tail-- cl-struct-soap-sequence-element-tags nil 0 error "%s accessing a non-%s" soap-sequence-type-elements soap-sequence-type 4 soap-sequence-element-name soap-sequence-element 1 soap-sample-value soap-sequence-element-type 2 soap-sequence-type-parent 3 append] 7 (#$ . 2205)])
#@238 Provide a sample value for TYPE which is an array type.
Values for array types are LISP vectors of values which are
array's element type.

This is a specific function which should not be called directly,
use `soap-sample-value' instead.
(defalias 'soap-sample-value-for-array-type #[(type) "\305H	>\204\306\307\310\311#\210\312H\313\n!\313\n!\314\f\315#+\207" [type cl-struct-soap-array-type-tags element-type sample1 sample2 0 error "%s accessing a non-%s" soap-array-type-element-type soap-array-type 3 soap-sample-value vector &etc] 4 (#$ . 3148)])
#@142 Provide a sample value for a WSDL MESSAGE.
This is a specific function which should not be called directly,
use `soap-sample-value' instead.
(defalias 'soap-sample-value-for-message #[(message) "\305	\306H\n>\204\307\310\311\312#\210	\313H\305\211\203.\f@\211@\314A!BB\fA\211\204*\237)\207" [sample-value message cl-struct-soap-message-tags part --dolist-tail-- nil 0 error "%s accessing a non-%s" soap-message-parts soap-message 3 soap-sample-value] 5 (#$ . 3715)])
(byte-code "\300\301\302\303\211\211$\304H\305\306#\210\300\301\307\303\211\211\211%\304H\305\310#\210\300\301\311\303\211\211\211%\304H\305\312#\210\300\301\313\303\211\211$\304H\305\314#\210\300\301\315\303\211\211$\304H\305\316#\207" [put vector cl-struct-soap-basic-type nil 0 soap-sample-value soap-sample-value-for-basic-type cl-struct-soap-simple-type soap-sample-value-for-simple-type cl-struct-soap-sequence-type soap-sample-value-for-seqence-type cl-struct-soap-array-type soap-sample-value-for-array-type cl-struct-soap-message soap-sample-value-for-message] 7)
#@104 A stack of previously inspected items in the *soap-inspect* buffer.
Used to implement the BACK button.
(defvar soap-inspect-previous-items nil (#$ . 4776))
#@64 The current item being inspected in the *soap-inspect* buffer.
(defvar soap-inspect-current-item nil (#$ . 4938))
(byte-code "\300\301!\210\300\302!\207" [make-variable-buffer-local soap-inspect-previous-items soap-inspect-current-item] 2)
#@216 Inspect a SOAP ELEMENT in the *soap-inspect* buffer.
The buffer is populated with information about ELEMENT with links
to its sub elements.  If ELEMENT is the WSDL document itself, the
entire WSDL can be inspected.
(defalias 'soap-inspect #[(element) "\306H\307N\211\204\310\311!\210r\312\313!q\210\314\211\315 \210\f\203#\f
B	!\210
\203;\316c\210\317\320\321\322\323%\210\324c\210eb\210\325p!+\207" [element inspect buffer-read-only inhibit-read-only soap-inspect-current-item soap-inspect-previous-items 0 soap-inspect error "Soap-inspect: no inspector for element" get-buffer-create "*soap-inspect*" t erase-buffer "\n\n" insert-text-button "[back]" type soap-client-describe-back-link item "\n" pop-to-buffer] 7 (#$ . 5185)])
(byte-code "\300\301\302\303\304\305\306\307\310\311\312\307&\210\300\313\302\303\304\314\306\307\310\315\312\307&\207" [define-button-type soap-client-describe-link face italic help-echo "mouse-2, RET: describe item" follow-link t action #[(button) "\302\301\"\303	!)\207" [button item button-get soap-inspect] 3] skip soap-client-describe-back-link "mouse-2, RET: browse the previous item" #[(button) "\211A@\211\205\303\304	!)\207" [soap-inspect-previous-items item soap-inspect-current-item nil soap-inspect] 3]] 12)
#@50 Insert a button to inspect ELEMENT when pressed.
(defalias 'soap-insert-describe-button #[(element) "\301\302!\303\304\305%\207" [element insert-text-button soap-element-fq-name type soap-client-describe-link item] 6 (#$ . 6465)])
#@62 Insert information about BASIC-TYPE into the current buffer.
(defalias 'soap-inspect-basic-type #[(basic-type) "\301\302!\261\210\303c\210\304\305!p\"\207" [basic-type "Basic type: " soap-element-fq-name "\nSample value\n" pp soap-sample-value] 3 (#$ . 6704)])
#@62 Insert information about SIMPLE-TYPE into the current buffer
(defalias 'soap-inspect-simple-type #[(simple-type) "\306\307!\310\261\210\311\312\313H	>\204\314\315\316\317#\210\320H!\310\261\210\313H\n>\204.\314\315\321\322#\210\323H\211G\324V\205V\325c\210\326\211\205U
@\327\f\330\261\210
A\211\204D\326*)\207" [simple-type cl-struct-soap-basic-type-tags cl-struct-soap-simple-type-tags enumeration e --dolist-tail-- "Simple type: " soap-element-fq-name "\n" "Base: " symbol-name 0 error "%s accessing a non-%s" soap-basic-type-kind soap-basic-type 3 soap-simple-type-enumeration soap-simple-type 4 1 "Valid values: " nil "\"" "\" "] 7 (#$ . 6974)])
#@60 Insert information about SEQUENCE into the current buffer.
(defalias 'soap-inspect-sequence-type #[(sequence) "\305\306!\307\261\210\310H	>\204\311\312\313\314#\210\315H\2036\316c\210\317\310H	>\204.\311\312\313\314#\210\315H!\210\307c\210\320c\210\310H	>\204G\311\312\321\314#\210\322H\323\211\203\270@\324\325\n\310H\f>\204d\311\312\326\327#\210\n\330H!\324\261\210\317\n\310H\f>\204{\311\312\331\327#\210\n\332H!\210\n\310H\f>\204\216\311\312\333\327#\210\n\322H\203\227\334c\210\n\310H\f>\204\245\311\312\335\327#\210\n\315H\203\256\336c\210\307c\210A\211\204Q*\337c\210\340\341!p\"\207" [sequence cl-struct-soap-sequence-type-tags element --dolist-tail-- cl-struct-soap-sequence-element-tags "Sequence type: " soap-element-fq-name "\n" 0 error "%s accessing a non-%s" soap-sequence-type-parent soap-sequence-type 3 "Parent: " soap-insert-describe-button "Elements: \n" soap-sequence-type-elements 4 nil "	" symbol-name soap-sequence-element-name soap-sequence-element 1 soap-sequence-element-type 2 soap-sequence-element-multiple\? " multiple" soap-sequence-element-nillable\? " optional" "Sample value:\n" pp soap-sample-value] 7 (#$ . 7651)])
#@61 Insert information about the ARRAY into the current buffer.
(defalias 'soap-inspect-array-type #[(array) "\302\303!\304\261\210\305c\210\306\307H	>\204\310\311\312\313#\210\314H!\210\315c\210\316\317!p\"\207" [array cl-struct-soap-array-type-tags "Array name: " soap-element-fq-name "\n" "Element type: " soap-insert-describe-button 0 error "%s accessing a non-%s" soap-array-type-element-type soap-array-type 3 "\nSample value:\n" pp soap-sample-value] 5 (#$ . 8836)])
#@59 Insert information about MESSAGE into the current buffer.
(defalias 'soap-inspect-message #[(message) "\304\305!\306\261\210\307c\210\310H	>\204\311\312\313\314#\210\315H\316\211\205?@\317\320\n@!\321\261\210\322\nA!\210\306c\210A\211\204#\316*\207" [message cl-struct-soap-message-tags part --dolist-tail-- "Message name: " soap-element-fq-name "\n" "Parts:\n" 0 error "%s accessing a non-%s" soap-message-parts soap-message 3 nil "	" symbol-name " type: " soap-insert-describe-button] 5 (#$ . 9319)])
#@61 Insert information about OPERATION into the current buffer.
(defalias 'soap-inspect-operation #[(operation) "\306\307!\310\261\210\311H	>\204\312\313\314\315#\210\316H\317\320\n@!\321\261\210\322\nA!\210\323c\210)\311H	>\204:\312\313\324\315#\210\325H\326\320@!\321\261\210\322A!\210\323c\210)\327c\210\330\311H	>\204b\312\313\314\315#\210\316HA!\331\332\333\311H\f>\204x\312\313\334\335#\210\336HF#\337
\340\341#\"\"$\342$p\"+\207" [operation cl-struct-soap-operation-tags input output cl-struct-soap-element-tags funcall "Operation name: " soap-element-fq-name "\n" 0 error "%s accessing a non-%s" soap-operation-input soap-operation 4 "	Input: " symbol-name " (" soap-insert-describe-button ")\n" soap-operation-output 5 "	Output: " "\n\nSample invocation:\n" soap-sample-value soap-invoke *WSDL* "SomeService" soap-element-name soap-element 1 append mapcar cdr pp sample-message-value sample-invocation] 8 (#$ . 9843)])
#@61 Insert information about PORT-TYPE into the current buffer.
(defalias 'soap-inspect-port-type #[(port-type) "\303\304!\305\261\210\306c\210\307\310\311H	>\204\312\313\314\315#\210\316H\311H\n>\204+\312\313\317\320#\210\311H	>\2049\312\313\314\315#\210\316H\321H\"\210\322\207" [port-type cl-struct-soap-port-type-tags cl-struct-soap-namespace-tags "Port-type name: " soap-element-fq-name "\n" "Operations:\n" maphash #[(#1=#:--cl-var-- o) "\301c\210\302@!\207" [o "	" soap-insert-describe-button] 2] 0 error "%s accessing a non-%s" soap-port-type-operations soap-port-type 3 soap-namespace-elements soap-namespace 2 nil] 6 (#$ . 10799)])
#@59 Insert information about BINDING into the current buffer.
(defalias 'soap-inspect-binding #[(binding) "\306\307!\310\261\210\310c\210\311c\210\312H	>\204\313\314\315\316#\210\317H\320\321\322\n\"\210\237)\320\323\f\324\"\211&\320\211'(&:\203b&@'(\203T('G]\202W'G(&A\211&\202=(+\f\320)\211*\205*@)\325)\n\"\211+\312H,>\204\213\313\314\326\327#\210+\330H-+\312H,>\204\241\313\314\331\327#\210+\332H.-\204\257\333-\334c\210\335+\312H,>\204\303\313\314\336\327#\210+\337H!\210.\204\325-\333\232\204\366\340
)GZ\341\"c\210\342c\210-c\210.\203\363\343\344.!\261\210\345c\210\310c\210+*A\211*\204p\320-\207" [binding cl-struct-soap-binding-tags ophash #1=#:--cl-var-- operations op-name-width "Binding: " soap-element-fq-name "\n" "Bound operations:\n" 0 error "%s accessing a non-%s" soap-binding-operations soap-binding 4 nil maphash #[(o #2=#:--cl-var--) "	B\211\207" [o #1#] 2] sort string< gethash soap-bound-operation-soap-action soap-bound-operation 2 soap-bound-operation-use 3 "" "	" soap-insert-describe-button soap-bound-operation-operation 1 make-string 32 " (" " " symbol-name ")" #3=#:--cl-var-- o #4=#:--cl-var-- op --dolist-tail-- bound-op cl-struct-soap-bound-operation-tags soap-action use] 6 (#$ . 11454)])
#@56 Insert information about PORT into the current buffer.
(defalias 'soap-inspect-port #[(port) "\303\304H	>\204\305\306\307\310#\210\311H\312\313\304H\n>\204\"\305\306\314\315#\210\316H\312\317\261\210\320\304H\n>\2049\305\306\321\315#\210\322H!\207" [port cl-struct-soap-element-tags cl-struct-soap-port-tags "Port name:   " 0 error "%s accessing a non-%s" soap-element-name soap-element 1 "\n" "Service URL: " soap-port-service-url soap-port 3 "Binding:     " soap-insert-describe-button soap-port-binding 4] 8 (#$ . 12749)])
#@56 Insert information about WSDL into the current buffer.
(defalias 'soap-inspect-wsdl #[(wsdl) "\305\306H	>\204\307\310\311\312#\210\313H\314\261\210\315c\210\306H	>\204'\307\310\316\312#\210\317H\320\211\203B@\321c\210\322\n!\210A\211\2041*\323c\210\306H	>\204T\307\310\324\312#\210\325H\320\211\205s@\326\f@\327\fA\314\261\210A\211\204^\320*\207" [wsdl cl-struct-soap-wsdl-tags p --dolist-tail-- a "WSDL Origin: " 0 error "%s accessing a non-%s" soap-wsdl-origin soap-wsdl 1 "\n" "Ports:" soap-wsdl-ports 2 nil "\n--------------------\n" soap-inspect-port "\n--------------------\nNamespace alias table:\n" soap-wsdl-alias-table 3 "	" " => "] 6 (#$ . 13292)])
(byte-code "\300\301\302\303\211\211$\304H\305\306#\210\300\301\307\303\211\211\211%\304H\305\310#\210\300\301\311\303\211\211\211%\304H\305\312#\210\300\301\313\303\211\211$\304H\305\314#\210\300\301\315\303\211\211$\304H\305\316#\210\300\301\317\303\211\211\211\211\211&\304H\305\320#\210\300\301\321\303\211\211$\304H\305\322#\210\300\323 \304H\305\324#\210\300\301\325\303\211\211\211%\304H\305\326#\210\300\301\327\303\211\211\211%\304H\305\330#\210\331\305!\207" [put vector cl-struct-soap-basic-type nil 0 soap-inspect soap-inspect-basic-type cl-struct-soap-simple-type soap-inspect-simple-type cl-struct-soap-sequence-type soap-inspect-sequence-type cl-struct-soap-array-type soap-inspect-array-type cl-struct-soap-message soap-inspect-message cl-struct-soap-operation soap-inspect-operation cl-struct-soap-port-type soap-inspect-port-type make-soap-binding soap-inspect-binding cl-struct-soap-port soap-inspect-port cl-struct-soap-wsdl soap-inspect-wsdl provide] 9)
F1l3 Manager
