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/punycode.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 punycode nil "Punycode: An ASCII compatible Unicode encoding format." custom-declare-variable punycode-program "idn" "Name of the GNU Libidn \"idn\" application." :type string :group punycode-environment '("CHARSET=UTF-8") "List of environment variable definitions prepended to `process-environment'." (repeat string) punycode-encode-parameters '("--quiet" "--punycode-encode") "Parameters passed to `punycode-program' to invoke punycode encoding mode." (repeat string) punycode-decode-parameters '("--quiet" "--punycode-decode") "Parameters passed to `punycode-program' to invoke punycode decoding mode." (repeat string)] 8)
#@58 Internal variable holding process for punycode encoding.
(defvar punycode-encode-process nil (#$ . 1243))
#@73 Internal variable holding response data received from punycode process.
(defvar punycode-encode-response nil (#$ . 1355))
(defalias 'punycode-encode-response-clear #[nil "\301\211\207" [punycode-encode-response nil] 2])
(defalias 'punycode-encode-response #[nil "\302!\303=\203�	\204�\304\305\"\210\202��	\207" [punycode-encode-process punycode-encode-response process-status run accept-process-output 1] 3])
(defalias 'punycode-encode-filter #[(process string) "	P\211\207" [punycode-encode-response string] 2])
(defalias 'punycode-encode-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" [punycode-encode-process punycode-environment process-environment punycode-program punycode-encode-parameters process-status run (error) kill-process append apply start-process "punycode" nil set-process-filter punycode-encode-filter set-process-coding-system utf-8 process-kill-without-query] 6])
#@58 Internal variable holding process for punycode encoding.
(defvar punycode-decode-process nil (#$ . 2385))
#@73 Internal variable holding response data received from punycode process.
(defvar punycode-decode-response nil (#$ . 2497))
(defalias 'punycode-decode-response-clear #[nil "\301\211\207" [punycode-decode-response nil] 2])
(defalias 'punycode-decode-response #[nil "\302!\303=\203�	\204�\304\305\"\210\202��	\207" [punycode-decode-process punycode-decode-response process-status run accept-process-output 1] 3])
(defalias 'punycode-decode-filter #[(process string) "	P\211\207" [punycode-decode-response string] 2])
(defalias 'punycode-decode-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" [punycode-decode-process punycode-environment process-environment punycode-program punycode-decode-parameters process-status run (error) kill-process append apply start-process "punycode" nil set-process-filter punycode-decode-filter set-process-coding-system utf-8 process-kill-without-query] 6])
#@37 Returns a Punycode encoding of STR.
(defalias 'punycode-encode #[(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 punycode-encode-process nil error "Cannot start idn application" punycode-encode-response-clear process-send-string "\n" punycode-encode-response substring 0] 5 (#$ . 3527)])
#@76 Returns a possibly multibyte string which is the punycode decoding of STR.
(defalias 'punycode-decode #[(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 punycode-decode-process nil error "Cannot start idn application" punycode-decode-response-clear process-send-string "\n" punycode-decode-response substring 0] 5 (#$ . 3930)])
#@36 Kill the punycode related process.
(defalias 'punycode-shutdown #[nil "\203�\302!\303=\203�\304!\210	\205�\302	!\303=\205�\304	!\207" [punycode-decode-process punycode-encode-process process-status run kill-process] 2 (#$ . 4372) nil])
(provide 'punycode)

Batal

Isi Zip:

Create