HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/leim/quail/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/leim/quail/ipa.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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" #$))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\301\302!\210\303\304\305\211\306\307\310\211\211\211\211\211\211\211\211\211\306&\210\3118\312\313!\210\203&\314\315!\210\303\316\305\317\306\320%\210\3118\312\321!\210\203<\314\322!\210\310\207" [quail-current-package require quail quail-define-package "ipa" "IPA" t "International Phonetic Alphabet for English, French, German and Italian\n\nUpside-down characters are obtained by a preceding slash (/)." nil 10 quail-install-map (nil (58 [#1="ː"]) (96 [#2="ˌ"]) (39 [#3="ˈ"]) (77 [#4="ʍ"]) (119 [#5="w"]) (76 [#7="ʟ"]) (108 [#9="l"]) (106 [#10="j"]) (82 [#12="ʀ"]) (114 [#13="r"]) (110 [#16="n"] (103 [#14="ŋ"])) (109 [#17="m"]) (104 [#18="h"]) (120 [#20="x"]) (99 nil (44 [#21="ç"])) (51 [#22="ʒ"]) (122 [#29="z"] (104 [#23="ʒ"])) (115 [#30="s"] (104 [#28="ʃ"])) (118 [#33="v"]) (102 [#34="f"]) (103 [#35="ɡ"] (110 [#15="ɲ"])) (107 [#36="k"]) (100 [#37="d"] (104 [#31="ð"])) (116 [#38="t"] (115 nil (104 [#24="ʧ" #25="tʃ" #27="t⁀ʃ"])) (104 [#32="θ"])) (98 [#39="b"]) (112 [#40="p"]) (124 nil (111 [#48="ɒ"])) (85 [#52="ʊ"]) (117 [#53="u"] (45 [#55="ʉ"])) (79 nil (69 [#56="ɶ"])) (89 [#59="ʏ"]) (121 [#60="y"]) (111 [#51="o"] (45 [#54="ɵ"]) (101 [#57="œ"] (126 [#42="œ̃"])) (47 [#58="ø"]) (124 [#61="ɑ"])) (65 [#62="ɑ"] (126 [#43="ɑ̃"])) (38 [#64="ɤ"]) (97 [#69="a"] (101 [#70="æ"])) (69 [#71="ɛ"] (126 [#44="ɛ̃"])) (47 nil (104 [#6="ɥ"]) (121 [#8="ʎ"]) (114 [#11="ɹ"]) (82 [#19="ʁ"]) (65 [#49="ɒ"]) (99 [#50="ɔ"] (126 [#41="ɔ̃"])) (118 [#63="ʌ"]) (109 [#65="ɯ"]) (97 [#66="ɐ"]) (101 [#67="ə"]) (51 [#72="ɛ"] (126 [#45="ɛ̃"]))) (101 [#73="e"] (124 [#46="ɚ"]) (45 [#47="ɚ"])) (73 [#74="ɪ"]) (105 [#75="i"] (45 [#68="ɨ"]))) quail-install-decode-map (decode-map (#1# . ":") (#2# . "`") (#3# . "'") (#4# . "M") (#5# . "w") (#6# . "/h") (#7# . "L") (#8# . "/y") (#9# . "l") (#10# . "j") (#11# . "/r") (#12# . "R") (#13# . "r") (#14# . "ng") (#15# . "gn") (#16# . "n") (#17# . "m") (#18# . "h") (#19# . "/R") (#20# . "x") (#21# . "c,") (#22# . "3") (#23# . "zh") (#24# . #26="tsh") (#25# . #26#) (#27# . #26#) (#28# . "sh") (#29# . "z") (#30# . "s") (#31# . "dh") (#32# . "th") (#33# . "v") (#34# . "f") (#35# . "g") (#36# . "k") (#37# . "d") (#38# . "t") (#39# . "b") (#40# . "p") (#41# . "/c~") (#42# . "oe~") (#43# . "A~") (#44# . "E~") (#45# . "/3~") (#46# . "e|") (#47# . "e-") (#48# . "|o") (#49# . "/A") (#50# . "/c") (#51# . "o") (#52# . "U") (#53# . "u") (#54# . "o-") (#55# . "u-") (#56# . "OE") (#57# . "oe") (#58# . "o/") (#59# . "Y") (#60# . "y") (#61# . "o|") (#62# . "A") (#63# . "/v") (#64# . "&") (#65# . "/m") (#66# . "/a") (#67# . "/e") (#68# . "i-") (#69# . "a") (#70# . "ae") (#71# . "E") (#72# . "/3") (#73# . "e") (#74# . "I") (#75# . "i")) "ipa-kirshenbaum" "IPA-K" "The International Phonetic Alphabet, using Kirshenbaum ASCII translit.\n\nKirshenbaum IPA is an ASCII transliteration of the phonetic alphabet, common\nin the Usenet groups `sci.lang' and `alt.usage.english'.  This input method\nallows you to type Kirshenbaum on your ASCII-capable keyboard, producing the\ncorresponding actual IPA characters in your editor.\n\nSee http://www.kirshenbaum.net/IPA/ascii-ipa.pdf for full details of the\ntransliteration.\n\nA caveat with regard to that document; while XEmacs currently preserves\nUnicode diacritics on reading and emitting them, it displays them,\nincorrectly, as separate from the modified glyphs." (nil (105 nil (34 [#85="ɨ"])) (104 nil (60 nil (63 nil (62 [#88="ɦ"])))) (119 nil (60 nil (118 nil (108 nil (115 nil (62 [#94="ʍ"])))))) (107 nil (33 [#98="ʞ"])) (106 nil (60 nil (118 nil (101 nil (108 nil (62 [#100="ɰ"])))) (114 nil (110 nil (100 nil (62 [#103="ɥ"])))))) (110 nil (34 [#93="ɴ"]) (60 nil (108 nil (98 nil (118 nil (62 [#97="n⁀g"]))))) (46 [#112="ɳ"])) (108 nil (94 [#102="ʎ"]) (46 [#106="ɭ"]) (33 [#113="ʖ"])) (99 nil (33 [#114="ʗ"])) (122 nil (46 [#108="ʐ"]) (60 nil (108 nil (97 nil (116 nil (62 [#117="ɮ"])))))) (115 nil (46 [#109="ʂ"]) (60 nil (108 nil (97 nil (116 nil (62 [#118="ɬ"])))))) (100 nil (60 nil (108 nil (98 nil (118 nil (62 [#95="g⁀b"]))))) (46 [#110="ɖ"]) (96 [#120="ɗ"])) (112 nil (33 [#122="ʘ"])) (98 nil (96 [#123="ɓ"]) (60 nil (116 nil (114 nil (108 nil (62 [#124="ʙ"])))))) (60 nil (63 nil (62 [#125="ʱ"])) (119 nil (62 [#126="ʷ"])) (114 nil (62 [#127="ʳ"])) (111 nil (62 [#128="̥" #129="˚"])) (104 nil (62 [#131="ʰ"])) (72 nil (62 [#132="̴"]))) (59 [#133="ʲ"]) (91 [#134="̪"]) (96 [#135="ʼ"]) (46 [#136="̣"]) (45 [#137="̩"]) (58 [#138="ː"]) (126 [#139="̃"]) (117 nil (45 [#78="ɯ"]) (34 [#84="ʉ"]) (126 [#140="ũ"])) (111 nil (45 [#77="ɤ"]) (126 [#141="õ"])) (97 nil (126 [#142="ã"])) (42 [#143="ɾ"] (46 [#105="ɽ"]) (60 nil (108 nil (97 nil (116 nil (62 [#115="ɺ"])))))) (38 [#144="æ"] (46 [#86="ɶ"])) (63 [#146="ʔ"]) (90 [#147="ʒ"]) (89 [#148="ø"]) (88 [#149="χ"]) (87 [#150="œ"]) (86 [#151="ʌ"] (34 [#80="ɜ"])) (85 [#152="ʊ"]) (84 [#153="θ"]) (116 nil (60 nil (108 nil (98 nil (118 nil (62 [#96="k⁀p"]))))) (46 [#111="ʈ"]) (33 [#119="ʇ"]) (83 [#154="ʧ" #155="tʃ" #157="t⁀ʃ"])) (83 [#158="ʃ"]) (64 [#145="ə"] (46 [#81="ɵ"]) (60 nil (117 nil (109 nil (100 nil (62 [#83="ɘ"])))) (114 nil (62 [#159="ɚ"])))) (82 [#160="ʀ" #161="ɚ"] (60 nil (117 nil (109 nil (100 nil (62 [#82="ɝ"])))))) (81 [#163="ɣ"]) (80 [#164="ɸ"]) (79 [#165="ɔ"] (34 [#79="ɞ"])) (78 [#166="ŋ"]) (77 [#167="ɱ"]) (76 [#168="ɫ" #169="ʟ" #171="ɬ"]) (74 [#172="ɟ"] (96 [#101="ʄ"])) (73 [#173="ɪ"] (46 [#87="ʏ"])) (72 [#174="ħ"] (60 nil (118 nil (99 nil (100 nil (62 [#89="ʕ"])))))) (71 [#175="ɢ"] (96 [#90="ʛ"])) (69 [#176="ɛ"]) (68 [#177="ð"]) (67 [#178="ç"] (60 nil (118 nil (99 nil (100 nil (62 [#104="ʝ"])))))) (66 [#179="β"]) (65 [#180="ɑ"] (46 [#76="ɒ"])) (114 [#181="ɹ"] (34 [#91="ʀ"]) (46 [#107="ɻ"]) (60 nil (116 nil (114 nil (108 nil (62 [#116="ʀ"])))) (108 nil (98 nil (100 nil (62 [#121="ʋ"])))))) (103 [#182="ɡ"] (34 [#92="ʁ"]) (96 [#99="ɠ"]))) (decode-map (#76# . "A.") (#77# . "o-") (#78# . "u-") (#79# . "O\"") (#80# . "V\"") (#81# . "@.") (#82# . "R<umd>") (#83# . "@<umd>") (#84# . "u\"") (#85# . "i\"") (#86# . "&.") (#87# . "I.") (#88# . "h<?>") (#89# . "H<vcd>") (#90# . "G`") (#91# . "r\"") (#92# . "g\"") (#93# . "n\"") (#94# . "w<vls>") (#95# . "d<lbv>") (#96# . "t<lbv>") (#97# . "n<lbv>") (#98# . "k!") (#99# . "g`") (#100# . "j<vel>") (#101# . "J`") (#102# . "l^") (#103# . "j<rnd>") (#104# . "C<vcd>") (#105# . "*.") (#106# . "l.") (#107# . "r.") (#108# . "z.") (#109# . "s.") (#110# . "d.") (#111# . "t.") (#112# . "n.") (#113# . "l!") (#114# . "c!") (#115# . "*<lat>") (#116# . "r<trl>") (#117# . "z<lat>") (#118# . "s<lat>") (#119# . "t!") (#120# . "d`") (#121# . "r<lbd>") (#122# . "p!") (#123# . "b`") (#124# . "b<trl>") (#125# . "<?>") (#126# . "<w>") (#127# . "<r>") (#128# . #130="<o>") (#129# . #130#) (#131# . "<h>") (#132# . "<H>") (#133# . ";") (#134# . "[") (#135# . "`") (#136# . ".") (#137# . "-") (#138# . ":") (#139# . "~") (#140# . "u~") (#141# . "o~") (#142# . "a~") (#143# . "*") (#144# . "&") (#145# . "@") (#146# . "?") (#147# . "Z") (#148# . "Y") (#149# . "X") (#150# . "W") (#151# . "V") (#152# . "U") (#153# . "T") (#154# . #156="tS") (#155# . #156#) (#157# . #156#) (#158# . "S") (#159# . "@<r>") (#160# . #162="R") (#161# . #162#) (#163# . "Q") (#164# . "P") (#165# . "O") (#166# . "N") (#167# . "M") (#168# . #170="L") (#169# . #170#) (#171# . #170#) (#172# . "J") (#173# . "I") (#174# . "H") (#175# . "G") (#176# . "E") (#177# . "D") (#178# . "C") (#179# . "B") (#180# . "A") (#181# . "r") (#182# . "g"))] 17)
#@318 A map from the X-SAMPA for some implosive consonants to characters.
This is used because their X-SAMPA syntax is quasi-diacritic, but the
corresponding Unicode characters themselves don't have diacritics, they are
separate code points.  So we need to implement some extra logic that isn't
normally provided by Quail.
(defconst ipa-x-sampa-implosive-submap '(("b_<" 595) ("d_<" 599) ("g_<" 608) ("G\\_<" 667) ("J\\_<" 644)) (#$ . 8001))
#@148 Return QUAIL-KEYMAP with TO-PREPEND at the beginning of each result.

QUAIL-KEYMAP is a cons that satisfies `quail-map-p'; TO-PREPEND is a
string.
(defalias 'ipa-x-sampa-prepend-to-keymap-entry #[(to-prepend quail-keymap) ":\203A\250\204\301\302!\203!\302!\203!\303!C\202?;\203,C\202?\304!\204:\305\306\307C\307$\210\310\307\"\311\312\313\314\"\"C\207" [quail-keymap fboundp characterp string vectorp cl--assertion-failed (vectorp quail-keymap) nil append apply vector mapcar #[(entry) "\302!\204\303\304\305C\305$\210\306\307	\250\203\310!\202#\207" [entry to-prepend char-or-string-p cl--assertion-failed (char-or-string-p entry) nil format "%s%s" string] 5]] 5 (#$ . 8444)])
#@779 Return keymap with IPA implosives, for INPUT-STRING, length LENGTH.

The implosive consonants in X-SAMPA are represented with more or less a
diacritic syntax, but the property +implosive in the IPA is expressed using
separate characters, and not using a diacritic.  This function works around
the confusion that implies when generating IPA from X-SAMPA; it returns a
Quail map that is a copy of the map for `_', but with all the DIACRITIC
entries changed to return the diacritic together with the base character,
and with the map to the implosive added to its end.

Like all `quail-defrule'-assigned functions, this will be called once for
each particular sequence of keys, the first time the user types that
particular sequence of keys, and the result will be cached by Quail.
(defalias 'ipa-x-sampa-underscore-implosive #[(input-string length) "\306	O\307\310\311!!\312\311\"\211@\310\f!\313\314\315\"\"\316
:\2034
@\2034
@\2026\f
;\204?\317
!\n\316\211\203\234@\211\203\223G\320=\203lA@\321
\"\241\210\202\223G\322=\203\214AA@A@AA@\321
\"\241\210\202\223\323\324\325\316\211$\210A\211\204I*\326\n\327A@DC\".\207" [input-string length underscore-map split-input pre-underscore pre-underscore-map 0 copy-tree quail-lookup-key "_" split-string assoc format "%s<" nil string 2 ipa-x-sampa-prepend-to-keymap-entry 3 cl--assertion-failed (null t) "Can't handle subtrees of this level right now." append 60 ipa-x-sampa-implosive-submap x-sampa-submap-entry underscore-map-entry underscoring --dolist-tail--] 6 (#$ . 9165)])
(byte-code "\304\305\306\307\310\311%\210\3128\313\314!\210\203\315\316!\210\317\320	\"\321\211\2039@\322\n\323\"@\324\325\326\n\"\327\"\210A\211\204!*\321\207" [quail-current-package ipa-x-sampa-implosive-submap implosive-x-sampa --dolist-tail-- quail-define-package "ipa-x-sampa" "IPA" "IPA-X" t "The International Phonetic Alphabet, using J.C. Wells' X-SAMPA.\n\nX-SAMPA is an ASCII transliteration of the IPA, normally used for data\nexchange in environments where Unicode is not available.  This input method\nuses this transliteration to allow you to produce the IPA in your editor\nwith a keyboard that's limited to ASCII.\n\nSee http://www.phon.ucl.ac.uk/home/sampa/ipasam-x.pdf for a full definition\nof the mapping.  A caveat with regard to that document; while XEmacs\ncurrently preserves Unicode diacritics on reading and emitting them, it\ndisplays them, incorrectly, as separate from the modified glyphs." 10 quail-install-map (nil (39 [#20="ʲ"]) (126 [#33="̃"]) (96 [#35="˞"]) (95 nil (120 [#1="̽"]) (88 [#2="̆"]) (119 [#3="ʷ"]) (118 [#4="̬"]) (116 [#5="̤"]) (84 [#6="̋"]) (114 [#7="̝"]) (82 [#8="̌"]) (113 [#10="̙"]) (111 [#11="̞"]) (79 [#12="̹"]) (110 [#13="ⁿ"]) (78 [#14="̼"]) (109 [#15="̻"]) (77 [#16="̄"]) (108 [#17="ˡ"]) (76 [#18="̀"]) (107 [#19="̰"]) (106 [#21="ʲ"]) (104 [#22="ʰ"]) (72 [#23="́"]) (71 [#24="ˠ"]) (70 [#25="̂"]) (101 [#27="̴"]) (100 [#28="̪"]) (99 [#29="̜"]) (66 [#30="̏"]) (97 [#31="̺"]) (65 [#32="̘"]) (126 [#34="̃"]) (125 [#36="̚"]) (94 [#37="̯"]) (92 [#38="ˆ"]) (63 nil (92 [#39="ˤ"])) (62 [#40="ʼ"]) (61 [#42="̩"]) (48 [#43="̥"]) (47 [#44="ˇ"]) (45 [#45="̠"]) (43 [#46="̟"]) (34 [#47="̈"])) (45 nil (92 [#48="̮"])) (61 [#41="̩"] (92 [#49="ǂ"])) (92 [#51="ǀ"] (124 nil (92 [#50="ǁ"]))) (33 [#53="↓"] (92 [#52="ǃ"])) (94 [#54="↑"]) (62 nil (92 [#55="ʡ"])) (60 nil (82 nil (62 [#9="↗"])) (70 nil (62 [#26="↘"])) (92 [#56="ʢ"])) (63 [#58="ʔ"] (92 [#57="ʕ"])) (38 [#59="ɶ"]) (57 [#60="œ"]) (56 [#61="ɵ"]) (55 [#62="ɤ"]) (54 [#63="ɐ"]) (53 [#64="ɫ"]) (52 [#65="ɾ"]) (51 [#67="ɜ"] (92 [#66="ɞ"])) (50 [#68="ø"]) (49 [#69="ɨ"]) (125 [#70="ʉ"]) (123 [#71="æ"]) (64 [#74="ə"] (96 [#72="ɚ"]) (92 [#73="ɘ"])) (58 [#76="ː"] (92 [#75="ˑ"])) (37 [#77="ˌ"]) (34 [#78="ˈ"]) (90 [#79="ʒ"]) (89 [#80="ʏ"]) (88 [#82="χ"] (92 [#81="ħ"])) (87 [#83="ʍ"]) (86 [#84="ʌ"]) (85 [#86="ʊ"] (92 [#85="ʊ̵"])) (84 [#87="θ"]) (83 [#92="ʃ"]) (82 [#94="ʁ"] (92 [#93="ʀ"])) (81 [#95="ɒ"]) (80 [#96="ʋ"]) (79 [#98="ɔ"] (92 [#97="ʘ"])) (78 [#100="ŋ"] (92 [#99="ɴ"])) (77 [#102="ɯ"] (92 [#101="ɰ"])) (76 [#104="ʎ"] (92 [#103="ʟ"])) (75 [#106="ɬ"] (92 [#105="ɮ"])) (74 [#108="ɲ"] (92 [#107="ɟ"])) (73 [#110="ɪ"] (92 [#109="Ɨ"])) (72 [#112="ɥ"] (92 [#111="ʜ"])) (71 [#114="ɣ"] (92 [#113="ɢ"])) (70 [#115="ɱ"]) (69 [#116="ɛ"]) (68 [#117="ð"]) (67 [#118="ç"]) (66 [#120="β"] (92 [#119="ʙ"])) (65 [#121="ɑ"]) (122 nil (92 [#122="ʑ"]) (96 [#123="ʐ"])) (120 nil (92 [#124="ɧ"])) (118 nil (92 [#125="ʋ"])) (116 nil (83 [#88="ʧ" #89="tʃ" #91="t⁀ʃ"]) (96 [#126="ʈ"])) (115 nil (92 [#127="ɕ"]) (96 [#128="ʂ"])) (114 nil (92 [#130="ɹ"] (96 [#129="ɻ"])) (96 [#131="ɽ"])) (112 nil (92 [#132="ɸ"])) (110 nil (96 [#133="ɳ"])) (108 nil (92 [#134="ɺ"]) (96 [#135="ɭ"])) (106 nil (92 [#136="ʝ"])) (104 nil (92 [#137="ɦ"])) (103 [#138="ɡ"]) (100 nil (96 [#139="ɖ"]))) quail-install-decode-map (decode-map (#1# . "_x") (#2# . "_X") (#3# . "_w") (#4# . "_v") (#5# . "_t") (#6# . "_T") (#7# . "_r") (#8# . "_R") (#9# . "<R>") (#10# . "_q") (#11# . "_o") (#12# . "_O") (#13# . "_n") (#14# . "_N") (#15# . "_m") (#16# . "_M") (#17# . "_l") (#18# . "_L") (#19# . "_k") (#20# . "'") (#21# . "_j") (#22# . "_h") (#23# . "_H") (#24# . "_G") (#25# . "_F") (#26# . "<F>") (#27# . "_e") (#28# . "_d") (#29# . "_c") (#30# . "_B") (#31# . "_a") (#32# . "_A") (#33# . "~") (#34# . "_~") (#35# . "`") (#36# . "_}") (#37# . "_^") (#38# . "_\\") (#39# . "_?\\") (#40# . "_>") (#41# . "=") (#42# . "_=") (#43# . "_0") (#44# . "_/") (#45# . "_-") (#46# . "_+") (#47# . "_\"") (#48# . "-\\") (#49# . "=\\") (#50# . "\\|\\") (#51# . "\\") (#52# . "!\\") (#53# . "!") (#54# . "^") (#55# . ">\\") (#56# . "<\\") (#57# . "?\\") (#58# . "?") (#59# . "&") (#60# . "9") (#61# . "8") (#62# . "7") (#63# . "6") (#64# . "5") (#65# . "4") (#66# . "3\\") (#67# . "3") (#68# . "2") (#69# . "1") (#70# . "}") (#71# . "{") (#72# . "@`") (#73# . "@\\") (#74# . "@") (#75# . ":\\") (#76# . ":") (#77# . "%") (#78# . "\"") (#79# . "Z") (#80# . "Y") (#81# . "X\\") (#82# . "X") (#83# . "W") (#84# . "V") (#85# . "U\\") (#86# . "U") (#87# . "T") (#88# . #90="tS") (#89# . #90#) (#91# . #90#) (#92# . "S") (#93# . "R\\") (#94# . "R") (#95# . "Q") (#96# . "P") (#97# . "O\\") (#98# . "O") (#99# . "N\\") (#100# . "N") (#101# . "M\\") (#102# . "M") (#103# . "L\\") (#104# . "L") (#105# . "K\\") (#106# . "K") (#107# . "J\\") (#108# . "J") (#109# . "I\\") (#110# . "I") (#111# . "H\\") (#112# . "H") (#113# . "G\\") (#114# . "G") (#115# . "F") (#116# . "E") (#117# . "D") (#118# . "C") (#119# . "B\\") (#120# . "B") (#121# . "A") (#122# . "z\\") (#123# . "z`") (#124# . "x\\") (#125# . "v\\") (#126# . "t`") (#127# . "s\\") (#128# . "s`") (#129# . "r\\`") (#130# . "r\\") (#131# . "r`") (#132# . "p\\") (#133# . "n`") (#134# . "l\\") (#135# . "l`") (#136# . "j\\") (#137# . "h\\") (#138# . "g") (#139# . "d`")) mapcar car nil split-string "_" quail-defrule format "%s_" ipa-x-sampa-underscore-implosive] 7)