Gecko [ goons4good.org ]

Name	Size	Permission	Date
url-about.elc	2.65 KB	-rw-r--r--	2023-06-07 04:11
url-auth.elc	10.36 KB	-rw-r--r--	2023-06-07 04:11
url-cache.elc	6.93 KB	-rw-r--r--	2023-06-07 04:11
url-cid.elc	1.39 KB	-rw-r--r--	2023-06-07 04:11
url-cookie.elc	17.15 KB	-rw-r--r--	2023-06-07 04:11
url-dav.elc	21.09 KB	-rw-r--r--	2023-06-07 04:11
url-dired.elc	2.48 KB	-rw-r--r--	2023-06-07 04:11
url-domsuf.elc	1.67 KB	-rw-r--r--	2023-06-07 04:11
url-expand.elc	4.66 KB	-rw-r--r--	2023-06-07 04:11
url-file.elc	7.54 KB	-rw-r--r--	2023-06-07 04:11
url-ftp.elc	920 B	-rw-r--r--	2023-06-07 04:11
url-future.elc	8.23 KB	-rw-r--r--	2023-06-07 04:11
url-gw.elc	6.49 KB	-rw-r--r--	2023-06-07 04:11
url-handlers.elc	18.13 KB	-rw-r--r--	2023-06-07 04:11
url-history.elc	5.07 KB	-rw-r--r--	2023-06-07 04:11
url-http.elc	35.74 KB	-rw-r--r--	2023-06-07 04:11
url-imap.elc	2.17 KB	-rw-r--r--	2023-06-07 04:11
url-irc.elc	2.73 KB	-rw-r--r--	2023-06-07 04:11
url-ldap.elc	6.27 KB	-rw-r--r--	2023-06-07 04:11
url-mailto.elc	3.13 KB	-rw-r--r--	2023-06-07 04:11
url-methods.elc	4.23 KB	-rw-r--r--	2023-06-07 04:11
url-misc.elc	3.34 KB	-rw-r--r--	2023-06-07 04:11
url-news.elc	7.38 KB	-rw-r--r--	2023-06-07 04:11
url-nfs.elc	4.4 KB	-rw-r--r--	2023-06-07 04:11
url-ns.elc	2.3 KB	-rw-r--r--	2023-06-07 04:11
url-parse.elc	17.43 KB	-rw-r--r--	2023-06-07 04:11
url-privacy.elc	1.64 KB	-rw-r--r--	2023-06-07 04:11
url-proxy.elc	1.93 KB	-rw-r--r--	2023-06-07 04:11
url-queue.elc	14.1 KB	-rw-r--r--	2023-06-07 04:11
url-util.elc	16.82 KB	-rw-r--r--	2023-06-07 04:11
url-vars.elc	12.92 KB	-rw-r--r--	2023-06-07 04:11
url.elc	8.87 KB	-rw-r--r--	2023-06-07 04:11

Rename

;ELC���
;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun  7 08:11:25 2023
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/url/url-cookie.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 "\301\302!\210\301\303!\210\301\304!\210\305\306\307\310\311\312\311\313\314\315&	\210\316\317\320\321#\210\322\316\317\323\324\325!!#\210)\307\207" [file require url-util url-parse url-domsuf custom-declare-group url-cookie nil "URL cookies." :prefix "url-" "url-cookie-" :group url put url-cookie-name compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-cookie-name (or (and (memq (aref cl-x 0) cl-struct-url-cookie-tags)) (error "%s accessing a non-%s" 'url-cookie-name 'url-cookie)) (aref cl-x 1)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-cookie.el" compiler-macro-file purecopy file-name-nondirectory] 10)
(defalias 'url-cookie-name #[(cl-x) "\302H	>\204�\303\304\305\306#\210\307H\207" [cl-x cl-struct-url-cookie-tags 0 error "%s accessing a non-%s" url-cookie-name url-cookie 1] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-cookie-value compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-cookie-value (or (and (memq (aref cl-x 0) cl-struct-url-cookie-tags)) (error "%s accessing a non-%s" 'url-cookie-value 'url-cookie)) (aref cl-x 2)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-cookie.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-cookie-value #[(cl-x) "\302H	>\204�\303\304\305\306#\210\307H\207" [cl-x cl-struct-url-cookie-tags 0 error "%s accessing a non-%s" url-cookie-value url-cookie 2] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-cookie-expires compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-cookie-expires (or (and (memq (aref cl-x 0) cl-struct-url-cookie-tags)) (error "%s accessing a non-%s" 'url-cookie-expires 'url-cookie)) (aref cl-x 3)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-cookie.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-cookie-expires #[(cl-x) "\302H	>\204�\303\304\305\306#\210\307H\207" [cl-x cl-struct-url-cookie-tags 0 error "%s accessing a non-%s" url-cookie-expires url-cookie 3] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-cookie-localpart compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-cookie-localpart (or (and (memq (aref cl-x 0) cl-struct-url-cookie-tags)) (error "%s accessing a non-%s" 'url-cookie-localpart 'url-cookie)) (aref cl-x 4)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-cookie.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-cookie-localpart #[(cl-x) "\302H	>\204�\303\304\305\306#\210\307H\207" [cl-x cl-struct-url-cookie-tags 0 error "%s accessing a non-%s" url-cookie-localpart url-cookie 4] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-cookie-domain compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-cookie-domain (or (and (memq (aref cl-x 0) cl-struct-url-cookie-tags)) (error "%s accessing a non-%s" 'url-cookie-domain 'url-cookie)) (aref cl-x 5)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-cookie.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-cookie-domain #[(cl-x) "\302H	>\204�\303\304\305\306#\210\307H\207" [cl-x cl-struct-url-cookie-tags 0 error "%s accessing a non-%s" url-cookie-domain url-cookie 5] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-cookie-secure compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-cookie-secure (or (and (memq (aref cl-x 0) cl-struct-url-cookie-tags)) (error "%s accessing a non-%s" 'url-cookie-secure 'url-cookie)) (aref cl-x 6)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-cookie.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-cookie-secure #[(cl-x) "\302H	>\204�\303\304\305\306#\210\307H\207" [cl-x cl-struct-url-cookie-tags 0 error "%s accessing a non-%s" url-cookie-secure url-cookie 6] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-cookie-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-cookie-p (and (vectorp cl-x) (>= (length cl-x) 7) (memq (aref cl-x 0) cl-struct-url-cookie-tags) t)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-cookie.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-cookie-p #[(cl-x) "\302!\205�G\303Y\205�\304H	>\205�\305\207" [cl-x cl-struct-url-cookie-tags vectorp 7 0 t] 2])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-cookie-create compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@\312>A@\313>A@\203X�@\314>\203?�AA\211\202*�\315>A@\203N�\316\211\202*�\317\320@\"\210\202(�)\321\322\323\316\316	\n\f
&.\207" [#1# name value expires localpart domain :name :value :expires :localpart :domain :secure (:name :value :expires :localpart :domain :secure :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :value :expires :localpart :domain :secure)" cl--defsubst-expand (name value expires localpart domain secure) (cl-block url-cookie-create (vector 'url-cookie name value expires localpart domain secure)) secure #:--cl-keys-- cl-whole] 13 "\n\n(fn CL-WHOLE &cl-quote &key NAME VALUE EXPIRES LOCALPART DOMAIN SECURE)"] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-cookie.el" compiler-macro-file purecopy file-name-nondirectory] 6)
#@56

(fn &key NAME VALUE EXPIRES LOCALPART DOMAIN SECURE)
(defalias 'url-cookie-create #[(&rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@\312>A@\313>A@\203X�@\314>\203?�AA\211\202*�\315>A@\203N�\316\211\202*�\317\320@\"\210\202(�)\321\322	\n\f
&.\207" [#1# name value expires localpart domain :name :value :expires :localpart :domain :secure (:name :value :expires :localpart :domain :secure :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :value :expires :localpart :domain :secure)" vector url-cookie secure #2=#:--cl-keys--] 9 (#$ . 6445)])
(byte-code "\301C\302\301\303\304#\210\302\301\305\306#\210\302\301\307\310#\210\302\301\311\310#\210\302\312\313\314#\210\302\315\313\316#\210\302\317\313\314#\210\302\320\313\314#\210\302\321\313\314#\210\302\322\313\314#\210\302\323\313\314#\210\302\324\313\314#\207" [cl-struct-url-cookie-tags url-cookie put cl-struct-slots ((cl-tag-slot) (name) (value) (expires) (localpart) (domain) (secure)) cl-struct-type (vector t) cl-struct-include nil cl-struct-print url-cookie-create side-effect-free t url-cookie-p error-free url-cookie-secure url-cookie-domain url-cookie-localpart url-cookie-expires url-cookie-value url-cookie-name] 4)
#@27 Where cookies are stored.
(defvar url-cookie-storage nil (#$ . 7709))
#@34 Where secure cookies are stored.
(defvar url-cookie-secure-storage nil (#$ . 7785))
(byte-code "\300\301\302\303\304\305\306\307\306\310&	\210\300\311\302\312\304\313\306\310&\210\300\314\302\315\304\313\306\310&\207" [custom-declare-variable url-cookie-file nil "File where cookies are stored on disk." :type (choice (const :tag "Default" :value nil) file) :group url-file url-cookie url-cookie-confirmation "If non-nil, confirmation by the user is required to accept HTTP cookies." boolean url-cookie-multiple-line "If nil, HTTP requests put all cookies for the server on one line.\nSome web servers, such as http://www.hotmail.com/, only accept cookies\nwhen they are on one line.  This is broken behavior, but just try\ntelling Microsoft that."] 10)
#@69 Whether the cookies list has changed since the last save operation.
(defvar url-cookies-changed-since-last-save nil (#$ . 8547))
#@40 Load FNAME, default `url-cookie-file'.
(defalias 'url-cookie-parse-file #[(&optional fname) "\302\206�	\303\211#\207" [fname url-cookie-file load t] 4 (#$ . 8682)])
(defalias 'url-cookie-clean-up #[(&optional secure) "\203�\306\202	�\307\310\211\211J\310\211\203\201�
@\310\fA\310\211\203m�
@\311!\203f�G\312Y\203f�\313H>\203f�\314!\204f�\313H>\204Z�\315\316\317\320#\210\321H\203f�	B
A\211\204&�*	\203z�\f	\241\210\f\nB
A\211\204�*\nL+\207" [secure new-cookies new var cur --dolist-tail-- url-cookie-secure-storage url-cookie-storage nil vectorp 7 0 url-cookie-expired-p error "%s accessing a non-%s" url-cookie-expires url-cookie 3 cur-cookie cl-struct-url-cookie-tags] 5])
(defalias 'url-cookie-write-file #[(&optional fname) "\205U�	\204\f�\306\n!\307\310\311\217\203�\312\313	\"\207\314 \210\314\315!\210\316\317!rq\210\320\216\321\322\323\261\210\324\fp\"\210\325c\210\324
p\"\210\326c\210\327\330\331\332\261\210\333\334!\210\335\336	!\210+\307\211\207" [url-cookies-changed-since-last-save fname url-cookie-file #1=#:temp-buffer url-cookie-storage url-cookie-secure-storage expand-file-name nil (byte-code "\301!\210\302\207" [fname url-make-private-file nil] 2) ((error t)) message "Error accessing cookie file `%s'" url-cookie-clean-up t generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) ";; Emacs-W3 HTTP cookies file\n" ";; Automatically generated file!!! DO NOT EDIT!!!\n\n" "(setq url-cookie-storage\n '" pp ")\n(setq url-cookie-secure-storage\n '" ")\n" "\f\n;; Local Variables:\n" ";; version-control: never\n" ";; no-byte-compile: t\n" ";; End:\n" make-local-variable version-control never write-file] 4])
#@17 Store a cookie.
(defalias 'url-cookie-store #[(name value &optional expires domain localpart secure) "\203�	\202	�\n\306\211\307
\"\211\203\277�A\211\306\211\203\237�@\310H>\204<�\311\312\313\314#\210\315H\232\203\226�\310H>\204V�\311\312\316\314#\210\317H\232\203\226�\310H>\204n�\311\312\320\314#\210\211\321I\210)\310H>\204\211�\311\312\322\314#\210\211\323I\210)\324A\211\204%�\306\f*?\205\364�\325\314&AB\241\202\364�\325\314&
\203\337�
\fD
AB\241\202\364�\203\355�\fDC\211\202\364�\fDC\211+\207" [secure url-cookie-secure-storage url-cookie-storage found-domain tmp storage nil assoc 0 error "%s accessing a non-%s" url-cookie-localpart url-cookie 4 url-cookie-name 1 url-cookie-expires 3 url-cookie-value 2 t vector domain cur --dolist-tail-- localpart cl-struct-url-cookie-tags name #1=#:v expires #2=#:v value] 10 (#$ . 10422)])
#@38 Return non-nil if COOKIE is expired.
(defalias 'url-cookie-expired-p #[(cookie) "\303H	>\204�\304\305\306\307#\210\310H\211G\303V\205!�\311 \311\312\n!!V)\207" [cookie cl-struct-url-cookie-tags exp 0 error "%s accessing a non-%s" url-cookie-expires url-cookie 3 float-time date-to-time] 5 (#$ . 11363)])
#@58 Retrieve all cookies for a specified HOST and LOCALPART.
(defalias 'url-cookie-retrieve #[(host &optional localpart secure) "\203�\306	\n\"\202\f�\n\307\310\211\211\211\310\211\203\261�@\211A@\203\250�\311\312\313@\314H\315=\203E�@\316\310O\202H�@!\317Q\"\203\250�
\310\211\203\247�@\211\314H>\204o�\320\321\322\323#\210\324H\211;\203\213�;\203\213�\311\325\313!P\"\202\217�\232\203\236�\326!\204\236�\fBA\211\204[�*A\211\204!�*\f-\207" [secure url-cookie-secure-storage url-cookie-storage localpart-match retval cookies append t nil string-match "^.*" regexp-quote 0 46 1 "$" error "%s accessing a non-%s" url-cookie-localpart url-cookie 4 "^" url-cookie-expired-p case-fold-search storage cur --dolist-tail-- host cl-struct-url-cookie-tags localpart] 7 (#$ . 11677)])
(defalias 'url-cookie-generate-header-lines #[(host localpart secure) "\306	\n#\307\211\211\205�\310
\311\"\211\307\211\203~�@\312\313\314H>\2044�\315\316\317\320#\210\321H\314H>\204H�\315\316\322\320#\210\323H#\203f�\324\325\fGG\326#W\203f�\f\327Q\202t�\f\203q�\f\330Q\202t�\331PA\211\204�*\f\203\211�\f\332P\202\212�\333+\207" [host localpart secure chunk retval cookies url-cookie-retrieve nil sort #[(x y) "\303H	>\204�\304\305\306\307#\210\310HG\n\303H	>\204 �\304\305\306\307#\210\n\310HGV\207" [x cl-struct-url-cookie-tags y 0 error #1="%s accessing a non-%s" url-cookie-localpart url-cookie 4] 5] format "%s=%s" 0 error #1# url-cookie-name url-cookie 1 url-cookie-value 2 80 + 4 "
\nCookie: " "; " "Cookie: " "
\n" "" cur --dolist-tail-- cl-struct-url-cookie-tags url-cookie-multiple-line] 8])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\302\311\304\312\306\307&\207" [custom-declare-variable url-cookie-trusted-urls nil "A list of regular expressions matching URLs to always accept cookies from." :type (repeat regexp) :group url-cookie url-cookie-untrusted-urls "A list of regular expressions matching URLs to never accept cookies from." (repeat regexp)] 8)
(defalias 'url-cookie-host-can-set-p #[(host domain) "\304\305\n\230\203�\305\202)�\306H\307=\203�\310\304O\311!\205)�\312\313!\314P\n\"*\207" [case-fold-search last host domain nil t 0 46 1 url-domsuf-cookie-allowed-p string-match regexp-quote "$"] 3])
(defalias 'url-cookie-handle-set-cookie #[(str) "\306\307	\306\"\306\310\311\n\306#\205�\306\310\312\n\306#\243\206.�
\313H=>\204+�\314\315\316\317#\210
\320H>\321\306!?@'A&\310\322\n\306#\243B\310\323\n\306#\243\206b�\324
\313H=>\204^�\314\315\325\317#\210
\326H!C\327D\n\327E\211F\203\216�F@\211E@\227\330\235\204\205�EDBDFA\211F\204q�*B\203\276�\331\332B\"\203\276�\333\334B\"\335\333\336B\"\335\333\337B\"\335\333\320B\"\340\333\341B\"\342\260\nBB\203\354�\331\343B\"\203\354�\333\334B\"\344\333\336B\"\344\333\337B\"\335\333\320B\"\345\333\326B\"\260	B':\203\331'@?\"\203\313\225\313\224Z\211'\202\356�'\211A'@\210\202\354�&:\2038\331&@?\"\203-\313\225\313\224Z\211&\202&\211A&@\210\202'\203R&\203R'&V\203N\346\202O\347\327L\210&\203[\327\202gG\350=\204oG<\203s\351G>\203s\327\202gH\203'\204\352 I\353\216JKr\354\355!q\210p\356 \210KJ\327\211LM\306\211N\306OP\357 \210\360\361!\210+\211QRD\327S\211F\203\326F@S\362\363\364S@SA#!\210FA\211F\204\274*\365Q!\210+T\363\366
\313H=>\204\360\314\315\316\317#\210
\320H\"!?\367\355!\203�\370\355!\210*\203\327\202g\371
\313H=>\204\314\315\316\317#\210
\320H>\"\203PD\327U\211F\205LF@U\372U@UAB>C\f&\210FA\211F\204,\327*\202g\373\374
\313H=>\204a\314\315\316\317#\210
\320H>#.\n\207" [url-cookies-changed-since-last-save str args case-fold-search secure url-current-object t url-parse-args assoc-string "secure" "domain" 0 error "%s accessing a non-%s" url-host url 4 url-view-url "expires" "path" file-name-directory url-filename 6 nil ("secure" "domain" "expires" "path") string-match "^[^,]+, +\$..\$-\$...\$-\$..\$ +\$..:..:..\$ +\\[*\$[^]]+\$\\]*$" match-string 1 " " 2 3 " [" 5 "]" "\$[0-9]+\$-\$[A-Za-z]+\$-\$[0-9]+\$[ 	]+\$[0-9]+:[0-9]+:[0-9]+\$\$\\.[0-9]+\$*[ 	]+\$[-+a-zA-Z0-9]+\$" "-" ".00 " untrusted trusted paranoid cookies current-window-configuration ((set-window-configuration #1=#:wconfig)) get-buffer-create "*Cookie Warning*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook princ format "%s - %s" internal-temp-output-buffer-show "Allow %s to set these cookies? " get-buffer kill-buffer url-cookie-host-can-set-p url-cookie-store url-lazy-message "%s tried to set a cookie for domain %s - rejected." cl-struct-url-tags domain current-url url-cookie-trusted-urls url-cookie-untrusted-urls expires localpart rest this --dolist-tail-- url-privacy-level url-cookie-confirmation #1# default-directory #2=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #3=#:buf standard-output x url-confirmation-func cur] 12])
(defvar url-cookie-timer nil)
#@258 The number of seconds between automatic saves of cookies.
Default is 1 hour.  Note that if you change this variable outside of
the `customize' interface after `url-do-setup' has been run, you need
to run the `url-cookie-setup-save-timer' function manually.
(custom-declare-variable 'url-cookie-save-interval 3600 '(#$ . 16753) :set #[(var val) "\303	\"\210\304\302!\205�\n\205�\305 \207" [var val url-setup-done set-default boundp url-cookie-setup-save-timer] 3] :type 'integer :group 'url-cookie)
#@31 Reset the cookie saver timer.
(defalias 'url-cookie-setup-save-timer #[nil "\302\303\304\217\210\302	\205�\305	\211\306#\211\207" [url-cookie-timer url-cookie-save-interval nil (cancel-timer url-cookie-timer) ((error)) run-at-time url-cookie-write-file] 4 (#$ . 17260) nil])
(provide 'url-cookie)