晋太元中，武陵人捕鱼为业。缘溪行，忘路之远近。忽逢桃花林，夹岸数百步，中无杂树，芳草鲜美，落英缤纷。渔人甚异之，复前行，欲穷其林。 　　林尽水源，便得一山，山有小口，仿佛若有光。便舍船，从口入。初极狭，才通人。复行数十步，豁然开朗。土地平旷，屋舍俨然，有良田、美池、桑竹之属。阡陌交通，鸡犬相闻。其中往来种作，男女衣着，悉如外人。黄发垂髫，并怡然自乐。 　　见渔人，乃大惊，问所从来。具答之。便要还家，设酒杀鸡作食。村中闻有此人，咸来问讯。自云先世避秦时乱，率妻子邑人来此绝境，不复出焉，遂与外人间隔。问今是何世，乃不知有汉，无论魏晋。此人一一为具言所闻，皆叹惋。余人各复延至其家，皆出酒食。停数日，辞去。此中人语云：“不足为外人道也。”(间隔 一作：隔绝) 　　既出，得其船，便扶向路，处处志之。及郡下，诣太守，说如此。太守即遣人随其往，寻向所志，遂迷，不复得路。 　　南阳刘子骥，高尚士也，闻之，欣然规往。未果，寻病终。后遂无问津者。 .
Prv8 Shell
Server : Apache
System : Linux srv.rainic.com 4.18.0-553.47.1.el8_10.x86_64 #1 SMP Wed Apr 2 05:45:37 EDT 2025 x86_64
User : rainic ( 1014)
PHP Version : 7.4.33
Disable Function : exec,passthru,shell_exec,system
Directory :  /usr/share/emacs/site-lisp/libidn/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Current File : //usr/share/emacs/site-lisp/libidn/punycode.elc
;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 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!\2025\307 \210\310	\n\311P\"\210\312 \211\2034\211GS\304O\311\230\2034\313GSO\2025*\207" [string proc str punycode-encode-process nil error "Cannot start idn application" punycode-encode-response-clear process-send-string "\n" punycode-encode-response 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!\2025\307 \210\310	\n\311P\"\210\312 \211\2034\211GS\304O\311\230\2034\313GSO\2025*\207" [string proc str punycode-decode-process nil error "Cannot start idn application" punycode-decode-response-clear process-send-string "\n" punycode-decode-response 0] 5 (#$ . 3915)])
#@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 (#$ . 4342) nil])
(provide 'punycode)

haha - 2025