ACIL FM

Pilih semua

Nama	Ukuran	Aksi
idna.el	6.31 MB	View DL Edit
idna.elc	4.59 MB	View DL Edit
punycode.el	6.12 MB	View DL Edit
punycode.elc	4.53 MB	View DL Edit

Edit file: /usr/share/emacs/site-lisp/libidn/idna.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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\302\303#\210\304\305\306\307\310\311\312\301&\210\304\313\314\315\310\316\312\301&\210\304\317\320\321\310\322\312\301&\210\304\323\324\325\310\326\312\301&\207" [custom-declare-group idna nil "Internationalizing Domain Names in Applications." custom-declare-variable idna-program "idn" "Name of the GNU Libidn \"idn\" application." :type string :group idna-environment '("CHARSET=UTF-8") "List of environment variable definitions prepended to `process-environment'." (repeat string) idna-to-ascii-parameters '("--quiet" "--idna-to-ascii" "--usestd3asciirules") "Parameters passed to `idna-program' to invoke IDNA ToASCII mode." (repeat string) idna-to-unicode-parameters '("--quiet" "--idna-to-unicode" "--usestd3asciirules") "Parameters passed `idna-program' to invoke IDNA ToUnicode mode." (repeat string)] 8)
#@48 Internal variable holding process for ToASCII.
(defvar idna-to-ascii-process nil (#$ . 1246))
#@72 Internal variable holding response data received from ToASCII process.
(defvar idna-to-ascii-response nil (#$ . 1346))
(defalias 'idna-to-ascii-response-clear #[nil "\301\211\207" [idna-to-ascii-response nil] 2])
(defalias 'idna-to-ascii-response #[nil "\302!\303=\203�	\204�\304\305\"\210\202��	\207" [idna-to-ascii-process idna-to-ascii-response process-status run accept-process-output 1] 3])
(defalias 'idna-to-ascii-filter #[(process string) "	P\211\207" [idna-to-ascii-response string] 2])
(defalias 'idna-to-ascii-process #[nil "\203�\305!\306=\203�\207\203\"�\3071�\310!0\202!�\210\202\"�\210\311	\n\"\312\313\314\315\f%)\211\203C�\316\317\"\210\320\321\211#\210\322!\210\207" [idna-to-ascii-process idna-environment process-environment idna-program idna-to-ascii-parameters process-status run (error) kill-process append apply start-process "idna" nil set-process-filter idna-to-ascii-filter set-process-coding-system utf-8 process-kill-without-query] 6])
#@48 Internal variable holding process for ToASCII.
(defvar idna-to-unicode-process nil (#$ . 2339))
#@72 Internal variable holding response data received from ToASCII process.
(defvar idna-to-unicode-response nil (#$ . 2441))
(defalias 'idna-to-unicode-response-clear #[nil "\301\211\207" [idna-to-unicode-response nil] 2])
(defalias 'idna-to-unicode-response #[nil "\302!\303=\203�	\204�\304\305\"\210\202��	\207" [idna-to-unicode-process idna-to-unicode-response process-status run accept-process-output 1] 3])
(defalias 'idna-to-unicode-filter #[(process string) "	P\211\207" [idna-to-unicode-response string] 2])
(defalias 'idna-to-unicode-process #[nil "\203�\305!\306=\203�\207\203\"�\3071�\310!0\202!�\210\202\"�\210\311	\n\"\312\313\314\315\f%)\211\203C�\316\317\"\210\320\321\211#\210\322!\210\207" [idna-to-unicode-process idna-environment process-environment idna-program idna-to-unicode-parameters process-status run (error) kill-process append apply start-process "idna" nil set-process-filter idna-to-unicode-filter set-process-coding-system utf-8 process-kill-without-query] 6])
#@135 Returns an ASCII Compatible Encoding (ACE) of STR.
It is computed by the IDNA ToASCII operation, after converting the
input to UTF-8.
(defalias 'idna-to-ascii #[(str) "\303 \304\211\204�\305\306!\2026�\307 \210\310	\n\311P\"\210\312 \211\2035�\313\211GS\"\311\230\2035�\313\314GS#\2026�*\207" [string proc str idna-to-ascii-process nil error "Cannot start idn application (to-ascii)" idna-to-ascii-response-clear process-send-string "\n" idna-to-ascii-response substring 0] 5 (#$ . 3459)])
#@105 Returns a possibly multibyte string after decoding STR.
It is computed by the IDNA ToUnicode operation.
(defalias 'idna-to-unicode #[(str) "\303 \304\211\204�\305\306!\2026�\307 \210\310	\n\311P\"\210\312 \211\2035�\313\211GS\"\311\230\2035�\313\314GS#\2026�*\207" [string proc str idna-to-unicode-process nil error "Cannot start idn application (to-unicode)" idna-to-unicode-response-clear process-send-string "\n" idna-to-unicode-response substring 0] 5 (#$ . 3964)])
#@34 Kill the IDNA related processes.
(defalias 'idna-shutdown #[nil "\203�\302!\303=\203�\304!\210	\205�\302	!\303=\205�\304	!\207" [idna-to-ascii-process idna-to-unicode-process process-status run kill-process] 2 (#$ . 4448) nil])
(provide 'idna)

Batal

Isi Zip:

Create