WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/url
Viewing File: /usr/share/emacs/24.3/lisp/url/url-queue.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:51:04 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/url/url-queue.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.

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


(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)
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-queue-url compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-queue-url (or (and (memq (aref cl-x 0) cl-struct-url-queue-tags)) (error "%s accessing a non-%s" 'url-queue-url 'url-queue)) (aref cl-x 1)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-queue.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-queue-url #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-url-queue-tags 0 error "%s accessing a non-%s" url-queue-url url-queue 1] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-queue-callback compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-queue-callback (or (and (memq (aref cl-x 0) cl-struct-url-queue-tags)) (error "%s accessing a non-%s" 'url-queue-callback 'url-queue)) (aref cl-x 2)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-queue.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-queue-callback #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-url-queue-tags 0 error "%s accessing a non-%s" url-queue-callback url-queue 2] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-queue-cbargs compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-queue-cbargs (or (and (memq (aref cl-x 0) cl-struct-url-queue-tags)) (error "%s accessing a non-%s" 'url-queue-cbargs 'url-queue)) (aref cl-x 3)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-queue.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-queue-cbargs #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-url-queue-tags 0 error "%s accessing a non-%s" url-queue-cbargs url-queue 3] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-queue-silentp compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-queue-silentp (or (and (memq (aref cl-x 0) cl-struct-url-queue-tags)) (error "%s accessing a non-%s" 'url-queue-silentp 'url-queue)) (aref cl-x 4)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-queue.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-queue-silentp #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-url-queue-tags 0 error "%s accessing a non-%s" url-queue-silentp url-queue 4] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-queue-buffer compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-queue-buffer (or (and (memq (aref cl-x 0) cl-struct-url-queue-tags)) (error "%s accessing a non-%s" 'url-queue-buffer 'url-queue)) (aref cl-x 5)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-queue.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-queue-buffer #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-url-queue-tags 0 error "%s accessing a non-%s" url-queue-buffer url-queue 5] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-queue-start-time compiler-macro #[(_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 (or (and (memq (aref cl-x 0) cl-struct-url-queue-tags)) (error "%s accessing a non-%s" 'url-queue-start-time 'url-queue)) (aref cl-x 6)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-queue.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-queue-start-time #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-url-queue-tags 0 error "%s accessing a non-%s" url-queue-start-time url-queue 6] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-queue-pre-triggered compiler-macro #[(_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 (or (and (memq (aref cl-x 0) cl-struct-url-queue-tags)) (error "%s accessing a non-%s" 'url-queue-pre-triggered 'url-queue)) (aref cl-x 7)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-queue.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-queue-pre-triggered #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-url-queue-tags 0 error "%s accessing a non-%s" url-queue-pre-triggered url-queue 7] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-queue-inhibit-cookiesp compiler-macro #[(_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 (or (and (memq (aref cl-x 0) cl-struct-url-queue-tags)) (error "%s accessing a non-%s" 'url-queue-inhibit-cookiesp 'url-queue)) (aref cl-x 8)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-queue.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-queue-inhibit-cookiesp #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-url-queue-tags 0 error "%s accessing a non-%s" url-queue-inhibit-cookiesp url-queue 8] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-queue-p compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-queue-p (and (vectorp cl-x) (>= (length cl-x) 9) (memq (aref cl-x 0) cl-struct-url-queue-tags) t)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-queue.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-queue-p #[(cl-x) "\302!\205G\303Y\205\304H	>\205\305\207" [cl-x cl-struct-url-queue-tags vectorp 9 0 t] 2])
(defalias 'copy-url-queue #[(x) "\301!\207" [x copy-sequence] 2])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put make-url-queue compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@\312>A@\313>A@\314>A@\315>A@\203f@\316>\203MAA\211\2028\317>A@\203\\\320\211\2028\321\322@\"\210\2026)\323\324\325\320\320	\n\f
&
.\207" [#1# url callback cbargs silentp buffer :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 (vector 'cl-struct-url-queue url callback cbargs silentp buffer start-time pre-triggered inhibit-cookiesp)) start-time pre-triggered inhibit-cookiesp #:--cl-keys-- cl-whole] 15 "\n\n(fn CL-WHOLE &cl-quote &key URL CALLBACK CBARGS SILENTP BUFFER START-TIME PRE-TRIGGERED INHIBIT-COOKIESP)"] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-queue.el" compiler-macro-file purecopy file-name-nondirectory] 6)
#@90 

(fn &key URL CALLBACK CBARGS SILENTP BUFFER START-TIME PRE-TRIGGERED INHIBIT-COOKIESP)
(defalias 'make-url-queue #[(&rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@\312>A@\313>A@\314>A@\315>A@\203f@\316>\203MAA\211\2028\317>A@\203\\\320\211\2028\321\322@\"\210\2026)\323\324	\n\f
&	.\207" [#1# url callback cbargs silentp buffer :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 (#$ . 8354)])
(byte-code "\301C\302\303\304\305#\210\302\303\306\307#\210\302\303\310\311#\210\302\303\312\313#\210\302\314\315\313#\210\302\316\315\313#\210\302\317\315\320#\210\302\321\315\313#\210\302\322\315\313#\210\302\323\315\313#\210\302\324\315\313#\210\302\325\315\313#\210\302\326\315\313#\210\302\327\315\313#\210\302\330\315\313#\207" [cl-struct-url-queue-tags cl-struct-url-queue put url-queue cl-struct-slots ((cl-tag-slot) (url) (callback) (cbargs) (silentp) (buffer) (start-time) (pre-triggered) (inhibit-cookiesp)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t make-url-queue side-effect-free copy-url-queue url-queue-p error-free url-queue-inhibit-cookiesp url-queue-pre-triggered url-queue-start-time url-queue-buffer url-queue-silentp url-queue-cbargs url-queue-callback url-queue-url] 4)
#@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 (#$ . 10007)])
(defalias 'url-queue-setup-runners #[nil "\306\307\n\307\211\203J\f@\211\306H
>\204\310\311\312\302#\210\313H\2047\306H
>\2041\310\311\314\302#\210\315H\203=	T\202C\204C\fA\211\204\f*\205r	W\205r\306H
>\204d\310\311\314\302#\210\211\315\316I\210)\317\320\307\321#*\207" [waiting running url-queue entry --dolist-tail-- cl-struct-url-queue-tags 0 nil error "%s accessing a non-%s" url-queue-start-time 6 url-queue-pre-triggered 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\2039\f@\211\307H
>\204 \311\312\313\302#\210\314H\203,	T\2022\2042\fA\211\204*\205`	W\205`\307H
>\204S\311\312\313\302#\210\211\314\315 I\210)\316!*\207" [waiting running url-queue entry --dolist-tail-- cl-struct-url-queue-tags url-queue-prune-old-entries 0 nil error "%s accessing a non-%s" url-queue-start-time 6 float-time url-queue-start-retrieve url-queue-parallel-processes #1=#:v] 5])
(defalias 'url-queue-callback-function #[(status job) "\305	\"\n@\306=\203*\n\211A@)\211A@)\307=\203*\310\311\312\n\211A@)\233\313\"!\210\314 \210\315\316H\f>\204<\317\320\321\301#\210\322H\n\316H\f>\204N\317\320\323\301#\210\312HB\"\207" [job url-queue status x 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 error "%s accessing a non-%s" url-queue-callback 2 url-queue-cbargs] 8])
(defalias 'url-queue-remove-jobs-from-host #[(host) "\306	\306\211\203E@\307\n\310H\f>\204\311\312\313\301#\210\n\314H!\211\310H>\2040\311\312\315\316#\210
\317H)\232\203>\nBA\211\204\n*\306\211\205b@\320\n!\210\321\n	\"A\211\204N\306+\207" [jobs url-queue job --dolist-tail-- cl-struct-url-queue-tags cl-x nil url-generic-parse-url 0 error "%s accessing a non-%s" url-queue-url 1 url-host url 4 url-queue-kill-job delq cl-struct-url-tags host] 6])
(defalias 'url-queue-start-retrieve #[(job) "\303H	>\204\304\305\306\307#\210\211\310\311\312\313\217I)\207" [job cl-struct-url-queue-tags #1=#:v 0 error #2="%s accessing a non-%s" url-queue-buffer url-queue 5 nil (byte-code "\302\303H	>\204\304\305\306\307#\210\310H\311C\303H	>\204#\304\305\312\307#\210\313H\303H	>\2044\304\305\314\307#\210\315H%\207" [job cl-struct-url-queue-tags url-retrieve 0 error #2# url-queue-url url-queue 1 url-queue-callback-function url-queue-silentp 4 url-queue-inhibit-cookiesp 8] 9) ((error))] 6])
(defalias 'url-queue-prune-old-entries #[nil "\306	\306\211\203E@\211\307H\f>\204\310\311\312\301#\210\n\313H\203>\314 \n\307H\f>\2041\310\311\312\301#\210\n\313HZ
V\203>\nBA\211\204\n*\306\211\205b@\315\n!\210\316\n	\"A\211\204N\306+\207" [dead-jobs url-queue job --dolist-tail-- cl-struct-url-queue-tags url-queue-timeout nil 0 error "%s accessing a non-%s" url-queue-start-time 6 float-time url-queue-kill-job delq] 6])
(defalias 'url-queue-kill-job #[(job) "\303\304H	>\204\305\306\307\310#\210\311H!\203>\312\313\304H	>\204'\305\306\307\310#\210\311H!\211\203=\314\n\315\"\210\312\316\317\217\210\202)r\303\304H	>\204N\305\306\307\310#\210\311H!\203\320\304H	>\204d\305\306\307\310#\210\311H!\203\304H	>\204y\305\306\307\310#\210\311H\202\202\321\322!q\210\323\304H	>\204\223\305\306\324\310#\210\325H\326\305\327\330ED\304H	>\204\252\305\306\331\310#\210\332HB\")\207" [job cl-struct-url-queue-tags process bufferp 0 error "%s accessing a non-%s" url-queue-buffer url-queue 5 nil get-buffer-process set-process-sentinel ignore (delete-process process) ((error)) buffer-live-p generate-new-buffer " *temp*" apply url-queue-callback 2 :error url-queue-timeout "Queue timeout exceeded" url-queue-cbargs 3] 7])
(provide 'url-queue)
F1l3 Manager
