|
Server IP : 111.118.215.189 / Your IP : 18.117.158.174 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/url/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:24 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/url/url-ns.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 'url-gw)
(defalias 'isPlainHostName #[(host) "\301\302\"?\207" [host string-match "\\."] 3])
(defalias 'dnsDomainIs #[(host dom) "\302\303!\304P \"\207" [dom host string-match regexp-quote "$"] 3])
(defalias 'dnsResolve #[(host) "\301!\207" [host url-gateway-nslookup-host] 2])
(defalias 'isResolvable #[(host) "\301\302\"\203 \303\207\304!\230?\207" [host string-match "^[0-9.]+$" t url-gateway-nslookup-host] 3])
(defalias 'isInNet #[(ip net mask) "\306\307\"\306 \307\"\306\n\307\" \211 G\fGU?\206 \fG GU??\205z \310\311
\"\310\311\f\"\310\311 \"\312
@ @\"\312\f@ @\"U\205z \312
A@ A@\"\312\fA@ A@\"U\205z \312\313
8\313 8\"\312\313\f8\313 8\"U\205z \312\314
8\314 8\"\312\314\f8\314 8\"U+\207" [ip net mask maskc ipc netc split-string "\\." mapcar string-to-number logand 2 3] 6])
#@23 Internal, do not use.
(defvar url-ns-user-prefs nil (#$ . 1360))
(defalias 'url-ns-prefs #[(&optional file) "\204 \304\305!\306!\203 \307!\204 \310\311\"\207\212\312\313\314\315\316\317\320$\321\322!q\210\323 \210\324!\210eb\210\325\326\312\313#\203C \327\330!\210\2024 eb\210\325\331\312\313#\203U \327\332!\210\202F eb\210\325\333\312\313#\203g \327\334!\210\202X eb\210\335 +\207" [file true false url-ns-user-prefs expand-file-name "~/.netscape/preferences.js" file-exists-p file-readable-p message "Could not open %s for reading" nil t make-hash-table :size 13 :test equal get-buffer-create " *ns-parse*" erase-buffer insert-file-contents re-search-forward "^//" replace-match ";;" "^user_pref(" "(url-ns-set-user-pref " "\"," "\"" eval-buffer] 5])
(defalias 'url-ns-set-user-pref #[(key val) "\303 \n#\207" [key val url-ns-user-prefs puthash] 4])
(defalias 'url-ns-user-pref #[(key &optional default) "\303 \n#\207" [key url-ns-user-prefs default gethash] 4])
(provide 'url-ns)