FM / libidn

/usr/share/emacs/site-lisp/libidn

Name	Size	Mode	Actions
idna.el	6464	0644	edit dl rm
idna.elc	4670	0644	edit dl rm
punycode.el	6266	0644	edit dl rm
punycode.elc	4606	0644	edit dl rm

Edit: /usr/share/emacs/site-lisp/libidn/idna.elc (4670B)

;ELC���
;;; Compiled
;;; in Emacs version 26.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!\2025�\307 \210\310	\n\311P\"\210\312 \211\2034�\211GS\304O\311\230\2034�\313GSO\2025�*\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 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!\2025�\307 \210\310	\n\311P\"\210\312 \211\2034�\211GS\304O\311\230\2034�\313GSO\2025�*\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 0] 5 (#$ . 3949)])
#@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 (#$ . 4418) nil])
(provide 'idna)

;ELC ;;; Compiled ;;; in Emacs version 26.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!\2025\307 \210\310 \n\311P\"\210\312 \211\2034\211GS\304O\311\230\2034\313GSO\2025*\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 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!\2025\307 \210\310 \n\311P\"\210\312 \211\2034\211GS\304O\311\230\2034\313GSO\2025*\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 0] 5 (#$ . 3949)]) #@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 (#$ . 4418) nil]) (provide 'idna)