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/language/ |
[ Home ] | [ C0mmand ] | [ Upload File ] |
---|
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:56 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/language/ind-util.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file contains utf-8 non-ASCII characters, ;;; and so cannot be loaded into Emacs 22 or earlier. (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (string-lessp emacs-version "23") (error "`%s' was compiled for Emacs 23 or later" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@51 Returns the regular expression of hashtable keys. (defalias 'indian-regexp-of-hashtbl-keys #[(hashtbl) "\302\303\304 \"\210\305!)\207" [keys hashtbl nil maphash #[(key val) " B\211\207" [key keys] 2] regexp-opt] 3 (#$ . 560)]) (defvar indian-dev-base-table '(((2309 nil) (2310 2366) (2311 2367) (2312 2368) (2313 2369) (2314 2370) (2315 2371) (2316 2402) (2317 2373) (2318 2374) (2319 2375) (2320 2376) (2321 2377) (2322 2378) (2323 2379) (2324 2380) (2400 2372) (2401 2403)) (2325 2326 2327 2328 2329 2330 2331 2332 2333 2334 2335 2336 2337 2338 2339 2340 2341 2342 2343 2344 2345 2346 2347 2348 2349 2350 2351 2352 2353 2354 2355 2356 2357 2358 2359 2360 2361 2392 2393 2394 2395 2396 2397 2398 2399 "ज्ञ" "क्ष") (2305 2306 2307 2365 2381 2384 2404) (2406 2407 2408 2409 2410 2411 2412 2413 2414 2415) ("्र" "र्" "त्र" "श्र" "़"))) (defvar indian-pnj-base-table '(((2565 nil) (2566 2622) (2567 2623) (2568 2624) (2569 2625) (2570 2626) nil nil nil nil (2575 2631) (2576 2632) nil nil (2579 2635) (2580 2636) nil nil) (2581 2582 2583 2584 2585 2586 2587 2588 2589 2590 2591 2592 2593 2594 2595 2596 2597 2598 2599 2600 nil 2602 2603 2604 2605 2606 2607 2608 nil 2610 2611 nil 2613 2614 nil 2616 2617 nil 2649 2650 2651 2652 nil 2654 nil "ਜ੍ਞ" nil) (nil 2562 nil nil 2637 nil nil) (2662 2663 2664 2665 2666 2667 2668 2669 2670 2671) ("੍ਰ" "ਰ੍" "ਤ੍ਰ" "ਸ਼੍ਰ" "਼"))) (defvar indian-gjr-base-table '(((2693 nil) (2694 2750) (2695 2751) (2696 2752) (2697 2753) (2698 2754) (2699 2755) nil (2701 2757) nil (2703 2759) (2704 2760) (2705 2761) nil (2707 2763) (2708 2764) (2784 2756) nil) (2709 2710 2711 2712 2713 2714 2715 2716 2717 2718 2719 2720 2721 2722 2723 2724 2725 2726 2727 2728 nil 2730 2731 2732 2733 2734 2735 2736 nil 2738 2739 nil 2741 2742 2743 2744 2745 nil nil nil nil nil nil nil nil "જ્ઞ" "ક્ષ") (2689 2690 2691 2749 2765 2768 nil) (2790 2791 2792 2793 2794 2795 2796 2797 2798 2799) ("્ર" "ર્" "ત્ર" "શ્ર" "઼"))) (defvar indian-ori-base-table '(((2821 nil) (2822 2878) (2823 2879) (2824 2880) (2825 2881) (2826 2882) (2827 2883) (2828 nil) nil nil (2831 2887) (2832 2888) nil nil (2835 2891) (2836 2892) (2912 nil) (2913 nil)) (2837 2838 2839 2840 2841 2842 2843 2844 2845 2846 2847 2848 2849 2850 2851 2852 2853 2854 2855 2856 nil 2858 2859 2860 2861 2862 2863 2864 nil 2866 2867 nil nil 2870 2871 2872 2873 nil nil nil nil 2908 2909 nil 2911 "ଜ୍ଞ" "କ୍ଷ") (2817 2818 2819 2877 2893 nil nil) (2918 2919 2920 2921 2922 2923 2924 2925 2926 2927) ("୍ର" "ର୍" "ତ୍ର" "ଶ୍ର" "଼"))) (defvar indian-bng-base-table '(((2437 nil) (2438 2494) (2439 2495) (2440 2496) (2441 2497) (2442 2498) (2443 2499) (2444 2530) nil nil (2447 2503) (2448 2504) nil nil (2451 2507) (2452 2508) (2528 2500) (2529 2531)) (2453 2454 2455 2456 2457 2458 2459 2460 2461 2462 2463 2464 2465 2466 2467 2468 2469 2470 2471 2472 nil 2474 2475 2476 2477 2478 2479 2480 nil 2482 nil nil nil 2486 2487 2488 2489 nil nil nil nil 2524 2525 nil 2527 "জ্ঞ" "ক্ষ") (2433 2434 2435 nil 2509 nil nil) (2534 2535 2536 2537 2538 2539 2540 2541 2542 2543) ("্র" "র্" "ত্র" "শ্র" "়"))) (defvar indian-asm-base-table '(((2437 nil) (2438 2494) (2439 2495) (2440 2496) (2441 2497) (2442 2498) (2443 2499) (2444 2530) nil nil (2447 2503) (2448 2504) nil nil (2451 2507) (2452 2508) (2528 2500) (2529 2531)) (2453 2454 2455 2456 2457 2458 2459 2460 2461 2462 2463 2464 2465 2466 2467 2468 2469 2470 2471 2472 nil 2474 2475 2476 2477 2478 2479 2544 nil 2482 nil nil 2545 2486 2487 2488 2489 nil nil nil nil 2524 2525 nil 2527 "জ্ঞ" "ক্ষ") (2433 2434 2435 nil 2509 nil nil) (2534 2535 2536 2537 2538 2539 2540 2541 2542 2543) ("্ৰ" "ৰ্" "ত্ৰ" "শ্ৰ" "়"))) (defvar indian-tlg-base-table '(((3077 nil) (3078 3134) (3079 3135) (3080 3136) (3081 3137) (3082 3138) (3083 3139) (3084 nil) nil (3087 3143) (3086 3142) (3088 3144) nil (3091 3147) (3090 3146) (3092 3148) (3168 3140) (3169 nil)) (3093 3094 3095 3096 3097 3098 3099 3100 3101 3102 3103 3104 3105 3106 3107 3108 3109 3110 3111 3112 nil 3114 3115 3116 3117 3118 3119 3120 3121 3122 3123 nil 3125 3126 3127 3128 3129 nil nil nil nil nil nil nil nil "జ్ఞ" "క్ష") (3073 3074 3075 nil 3149 nil nil) (3174 3175 3176 3177 3178 3179 3180 3181 3182 3183) ("్ర" "ర్" "త్ర" "శ్ర" nil))) (defvar indian-knd-base-table '(((3205 nil) (3206 3262) (3207 3263) (3208 3264) (3209 3265) (3210 3266) (3211 3267) (3212 nil) nil (3215 3271) (3214 3270) (3216 3272) nil (3219 3275) (3218 3274) (3220 3276) (3296 3268) (3297 nil)) (3221 3222 3223 3224 3225 3226 3227 3228 3229 3230 3231 3232 3233 3234 3235 3236 3237 3238 3239 3240 nil 3242 3243 3244 3245 3246 3247 3248 3249 3250 3251 nil 3253 3254 3255 3256 3257 nil nil nil nil nil nil 3294 nil "ಜ್ಞ" "ಕ್ಷ") (nil 3202 3203 nil 3277 nil nil) (3302 3303 3304 3305 3306 3307 3308 3309 3310 3311) ("್ರ" "ರ್" "ತ್ರ" "ಶ್ರ" nil))) (defvar indian-mlm-base-table '(((3333 nil) (3334 3390) (3335 3391) (3336 3392) (3337 3393) (3338 3394) (3339 3395) (3340 nil) nil (3343 3399) (3342 3398) (3344 3400) nil (3347 3403) (3346 3402) (3348 3404) nil nil) (3349 3350 3351 3352 3353 3354 3355 3356 3357 3358 3359 3360 3361 3362 3363 3364 3365 3366 3367 3368 nil 3370 3371 3372 3373 3374 3375 3376 3377 3378 3379 3380 3381 3382 3383 3384 3385 nil nil nil nil nil nil nil nil "ജ്ഞ" "ക്ഷ") (nil 3330 3331 nil 3405 nil nil) (3430 3431 3432 3433 3434 3435 3436 3437 3438 3439) ("്ര" "ര്" "ത്ര" "ശ്ര" nil))) (defvar indian-tml-base-table '(((2949 nil) (2950 3006) (2951 3007) (2952 3008) (2953 3009) (2954 3010) nil nil nil (2959 3015) (2958 3014) (2960 3016) nil (2963 3019) (2962 3018) (2964 3020) nil nil) (2965 nil nil nil 2969 2970 nil 2972 nil 2974 2975 nil nil nil 2979 2980 nil nil nil 2984 2985 2986 nil nil nil 2990 2991 2992 2993 2994 2995 2996 2997 nil 2999 3000 3001 nil nil nil nil nil nil nil nil "ஜ்ஞ" "க்ஷ") (nil 2946 2947 nil 3021 nil nil) (3046 3047 3048 3049 3050 3051 3052 3053 3054 3055) ("்ர" "ர்" "த்ர" nil nil))) (defvar indian-base-table-to-language-alist '((indian-dev-base-table . "Devanagari") (indian-pnj-base-table . "Punjabi") (indian-ori-base-table . "Oriya") (indian-bng-base-table . "Bengali") (indian-asm-base-table . "Assamese") (indian-tlg-base-table . "Telugu") (indian-knd-base-table . "Kannada") (indian-mlm-base-table . "Malayalam") (indian-tml-base-table . "Tamil"))) (defvar indian-itrans-v5-table '(("a" ("aa" "A") "i" ("ii" "I") "u" ("uu" "U") ("RRi" "R^i") ("LLi" "L^i") (".c" "e.c") "E" "e" "ai" "o.c" "O" "o" "au" ("RRI" "R^I") ("LLI" "L^I")) ("k" "kh" "g" "gh" ("~N" "N^") "ch" ("Ch" "chh") "j" "jh" ("~n" "JN") "T" "Th" "D" "Dh" "N" "t" "th" "d" "dh" "n" "nh" "p" "ph" "b" "bh" "m" "y" "r" "rh" "l" ("L" "ld") nil ("v" "w") "sh" ("Sh" "shh") "s" "h" "q" "K" "G" ("J" "z") ".D" ".Dh" "f" ("Y" "yh") ("GY" "dny") "x") (".N" (".n" "M") "H" ".a" ".h" ("AUM" "OM") ".."))) (defvar indian-itrans-v5-table-for-tamil '(("a" ("aa" "A") "i" ("ii" "I") "u" ("uu" "U") ("RRi" "R^i") ("LLi" "L^i") (".c" "e.c") "E" "e" "ai" "o.c" "O" "o" "au" ("RRI" "R^I") ("LLI" "L^I")) ("k" "kh" "g" "gh" ("~N" "N^") "ch" ("Ch" "chh") "j" "jh" ("~n" "JN") "T" "Th" "D" "Dh" "N" "t" "th" "d" "dh" "n" "nh" "p" "ph" "b" "bh" "m" "y" "r" "rh" "l" ("L" "ld") ("J" "z") ("v" "w") "sh" ("Sh" "shh") "s" "h" "q" "K" "G" nil ".D" ".Dh" "f" ("Y" "yh") ("GY" "dny") "x") (".N" (".n" "M") "H" ".a" ".h" ("AUM" "OM") ".."))) (defvar indian-kyoto-harvard-table '(("a" ("A" "aa") "i" ("I" "ii") "u" ("U" "uu") "R" ("L" "lR") nil nil "e" "ai" nil nil "o" "au" ("q" "RR" "Q") ("E" "LL" "lRR")) ("k" "kh" "g" "gh" "G" "c" "ch" "j" "jh" "J" "T" "Th" "D" "Dh" "N" "t" "th" "d" "dh" "n" nil "p" "ph" "b" "bh" "m" "y" "r" nil "l" "L" nil "v" ("z" "Z") "S" "s" "h" nil nil nil nil nil nil nil nil nil nil) (nil "M" "H" "'" nil "." nil))) (defvar indian-harvard-table '(("a" ("A" "aa") "i" ("I" "ii") "u" ("U" "uu") "R" ("L" "lR") nil nil "e" "ai" nil nil "o" "au" ("RR" "q" "Q") ("LL" "E" "lRR")) ("k" "kh" "g" "gh" "G" "c" "ch" "j" "jh" "J" "T" "Th" "D" "Dh" "N" "t" "th" "d" "dh" "n" nil "p" "ph" "b" "bh" "m" "y" "r" nil "l" "L" nil "v" ("z" "Z") "S" "s" "h" nil nil nil nil nil nil nil nil nil nil) (nil "M" "H" "'" nil "." nil))) (defvar indian-tokyo-table '(("a" ("A" "aa") "i" ("I" "ii") "u" ("U" "uu") "R" ("L" "lR") nil nil "e" "ai" nil nil "o" "au" ("Q" "RR" "q") ("E" "LL" "lRR")) ("k" "kh" "g" "gh" "G" "c" "ch" "j" "jh" "J" "T" "Th" "D" "Dh" "N" "t" "th" "d" "dh" "n" nil "p" "ph" "b" "bh" "m" "y" "r" nil "l" "L" nil "v" ("Z" "z") "S" "s" "h" nil nil nil nil nil nil nil nil nil nil) (nil "M" "H" "'" nil "." nil))) (defvar indian-aiba-table '(("a" "aa" "i" "ii" "u" "uu" ".r" ".l" nil nil "e" "ai" nil nil "o" "au" "~r" "~l") ("k" "kh" "g" "gh" "^n" "c" "ch" "j" "jh" "~n" ".t" ".th" ".d" ".dh" ".n" "t" "th" "d" "dh" "n" nil "p" "ph" "b" "bh" "m" "y" "r" nil "l" nil nil "v" "^s" ".s" "s" "h" nil nil nil nil nil nil nil nil nil nil) (nil ".m" ".h" "'" nil "." nil))) (defalias 'combinatorial #[(head &rest tail) "\203 \302\303\304\305\302\306\"\"\"\207\304\307 \"\207" [tail head apply append mapcar #[(y) "\301\302\"\207" [head mapcar #[(x) " B\207" [x y] 2]] 3] combinatorial list] 7]) (defalias 'indian--puthash-char #[(char trans-char hashtbls) "@A\205E \f\205E \f;\203 \fC\306!\203 \307!\310\f@\n#\210\f\311\211\n\205D \n@\310 #\210\nA\211\n\2040 \311**\207" [hashtbls decode-hash encode-hash char trans-char trans characterp char-to-string puthash nil --dolist-tail--] 5]) (defalias 'indian--map #[(f l1 l2) "\205 \211A@\n\211A@\"\210\202 \207" [l1 f l2] 4]) (defalias 'indian--puthash-v #[(v trans-v hashtbls) "\302\303 #\207" [v trans-v indian--map #[(v trans-v) "\303@ \n#\207" [v trans-v hashtbls indian--puthash-char] 4]] 4]) (defalias 'indian--puthash-c #[(c trans-c halant hashtbls) "\302\303 #\207" [c trans-c indian--map #[(c trans-c) "\304!\203\n \305!\306 P\n#\207" [c halant trans-c hashtbls characterp char-to-string indian--puthash-char] 4]] 4]) (defalias 'indian--puthash-m #[(m trans-m hashtbls) "\302\303 #\207" [m trans-m indian--map #[(m trans-m) "\303 \n#\207" [m trans-m hashtbls indian--puthash-char] 4]] 4]) (defalias 'indian--puthash-cv #[(c trans-c v trans-v hashtbls) "\302\303 #\207" [c trans-c indian--map #[(c trans-c) "\302\303 #\207" [v trans-v indian--map #[(v trans-v) "\205O \205O \n\205O \205O \306!\203 \307!\306\n\211A@)!\2030 \307\n\211A@)!\2021 \310 ;\203: C;\203B C\311\nP\312\313\314 \"\" #\207" [c trans-c v trans-v x hashtbls characterp char-to-string "" indian--puthash-char mapcar #[(x) "\301\302\"\207" [x apply concat] 3] combinatorial] 8]] 4]] 4]) #@47 Indian Transliteration Hash for decode/encode (defalias 'indian-make-hash #[(table trans-table) "\306\307\310\"\306\307\310\" B\311\234\312\234\313\234\314\234\315\316\234!\311\234\312\234\313\234\317\320\f\n#\210\321 \n$\210\322 \f\n%\210\323\n#\210\323\n#\210\n.\f\207" [encode-hash decode-hash hashtbls table vowels consonants make-hash-table :test equal 0 1 2 3 char-to-string 4 ("0" "1" "2" "3" "4" "5" "6" "7" "8" "9") indian--puthash-v indian--puthash-c indian--puthash-cv indian--puthash-m misc digits halant trans-table trans-vowels trans-consonants trans-misc trans-digits] 6 (#$ . 11390)]) (defvar indian-dev-itrans-v5-hash (indian-make-hash indian-dev-base-table indian-itrans-v5-table)) (defvar indian-dev-kyoto-harvard-hash (indian-make-hash indian-dev-base-table indian-kyoto-harvard-table)) (defvar indian-dev-aiba-hash (indian-make-hash indian-dev-base-table indian-aiba-table)) (defvar indian-pnj-itrans-v5-hash (indian-make-hash indian-pnj-base-table indian-itrans-v5-table)) (defvar indian-gjr-itrans-v5-hash (indian-make-hash indian-gjr-base-table indian-itrans-v5-table)) (defvar indian-ori-itrans-v5-hash (indian-make-hash indian-ori-base-table indian-itrans-v5-table)) (defvar indian-bng-itrans-v5-hash (indian-make-hash indian-bng-base-table indian-itrans-v5-table)) (defvar indian-asm-itrans-v5-hash (indian-make-hash indian-asm-base-table indian-itrans-v5-table)) (defvar indian-tlg-itrans-v5-hash (indian-make-hash indian-tlg-base-table indian-itrans-v5-table)) (defvar indian-knd-itrans-v5-hash (indian-make-hash indian-knd-base-table indian-itrans-v5-table)) (defvar indian-mlm-itrans-v5-hash (indian-make-hash indian-mlm-base-table indian-itrans-v5-table)) (defvar indian-tml-itrans-v5-hash (indian-make-hash indian-tml-base-table indian-itrans-v5-table-for-tamil)) (defalias 'indian-translate-region '(macro . #[(from to hashtable encode-p) "\302\303\304\305\306\203 \307 !@\202 \307 !A!DC\310\311\312\313\304\314\315\316\317\320 D\321 DFEDC\322BBE\257DD\207" [encode-p hashtable save-excursion save-restriction let regexp indian-regexp-of-hashtbl-keys eval (narrow-to-region from to) (goto-char (point-min)) while (re-search-forward regexp nil t) matchstr gethash (match-string 0) if car cdr ((if matchstr (replace-match matchstr)))] 17])) (defalias 'indian-dev-itrans-v5-encode-region #[(from to) "\212\214\305 \n}\210eb\210\306\307\310#\205'