老國音

README.md

@@ -32,6 +32,7 @@ https://nk2028-1305783649.file.myqcloud.com/tshet-uinh-examples/<filename>
 
 **現代方言推導音 extrapolated pronunciations of modern dialects**
 
+- 推導老國音 (Extrapolated Old National Pronunciation): `onp.js`
 - 推導普通話 (Extrapolated Putonghua): `putonghua.js`
 - 推導廣州話 (Extrapolated Cantonese): `gwongzau.js`
 - 推導上海話 (Extrapolated Shanghainese): `zaonhe.js`

test/main.js

@@ -17,6 +17,7 @@ const testCases = [
   ["n_song", "ɕjɛ́w"],
   ["mongol", "ꡮꡠꡓ"],
   ["zhongyuan", "ʂjɛw³"],
+  ["onp", "ㄕㄠˇ"],
   //["fanwan", "shiu2"],
   ["putonghua", "shǎo"],
   ["gwongzau", "siu2"],

老國音.js

@@ -0,0 +1,291 @@
+/* 推導老國音
+
+音系：https://zh.wikiversity.org/zh-hant/%E8%80%81%E5%9C%8B%E9%9F%B3%E9%9F%B3%E7%B4%A0
+音變規則：https://zh.wikiversity.org/zh-hant/%E8%80%81%E5%9C%8B%E9%9F%B3%E8%88%87%E5%BB%A3%E9%9F%BB%E5%B0%8D%E6%AF%94
+字音來源：https://github.com/baopaau/rime-bepemefeve/blob/main/bepemefeve.dict.yaml
+注意「僞老國音」：https://www.bilibili.com/read/cv17377530/
+
+@author 307587 */
+
+/** @type { 音韻地位['屬於'] } */
+const is = (...x) => 音韻地位.屬於(...x);
+/** @type { 音韻地位['判斷'] } */
+const when = (...x) => 音韻地位.判斷(...x);
+
+if (!音韻地位) return [
+  ['注音符號\n否的話就用國際音標', true],
+  ['ㄬㄭ|ㄬ、ㄭ音標\n啟用「注音符號」時無效', [2, 'ȵ、ɿ、ʅ', 'ɲ、ɹ̩、ɻ̍']],
+  ['介母', [1,
+    { text: '元音：i u y', value: '元音' },
+    { text: '半元音：j w ɥ', value: '半元音' },
+  ], { hidden: 選項.注音符號 === true }],
+  ['ㄚ|ㄚ元音\nㄧㄞ：寬式/iai/、嚴式[iæi]\nㄧ、ㄩ後的ㄢ：寬式/-an/、嚴式[-ɛn]', [2, '嚴式', '寬式']],
+  ['ㄨㄣ|舌冠聲母後的ㄨㄣ讀音\n趙元任《國音新詩韻》：「ㄨㄣ」也可以一律照樣拼念作「ㄨㄜㄋ」，但是在「ㄉ，ㄊ，ㄋ，ㄌ；ㄗ，ㄘ，ㄙ」七個聲母後頭可以省去「ㄜ」音念「ㄨㄋ」', [2, 'un', 'uən']],
+  ['喉塞|標示入聲喉塞音韻尾', true, { hidden: 選項.注音符號 !== false }],
+  ['調式', ['調符',
+    '調值（趙元任）', '調值（王璞）', '調線（趙元任）', '調線（王璞）',
+    ...(選項.注音符號 === false ? ['附標'] : []), '調號上標', '調號', '調符',
+  ]],
+  ['聲調在前\n調式爲「附標」時無效', false],
+  ['隔聲韻調|隔聲韻調\n調式爲「附標」時只隔聲和韻', ''], //待加？留空則爲跳格：(選項.隔聲韻調 || '\t')
+  ['常母平聲陰聲韻聲母和船母平聲聲母', [2, 'tʂʰ', 'ʂ']],
+  ['見泰合|見組泰合韻韻母\nuai、uəi兩者勢均，\n但疑泰合只有「外」且讀uai', [2, 'uai', 'uəi']],
+  ['見佳合|牙喉音佳合韻韻母\n預測uai，但有不少ua', [2, 'ua', 'uai']],
+  ['幫幽|幫滂並母幽韻韻母\n多讀iəu，只在幫滂並母讀iau，如「彪」', [2, 'iau', 'iəu']],
+  ['莊侵入|莊組侵韻入聲韻母\n生母侵韻入聲多讀əʔ，如「澀」，\n但莊組其餘多脫翹並讀iʔ', [2, 'ʅʔ', 'əʔ']],
+  ['知莊真合入|知莊組真合韻入聲韻母\nuʔ、uoʔ兩者勢均，徹莊母多uʔ', [2, 'uʔ', 'uoʔ']],
+  ['莊臻入|莊組臻韻入聲韻母\nəʔ、ʅʔ兩者勢均', [2, 'əʔ', 'ʅʔ']],
+  ['見文入|見組文韻入聲韻母\n預測yʔ（如「屈」，溪文入）但見羣疑母多yeʔ', [2, 'yeʔ', 'yʔ']],
+  ['見梗二開舒|牙喉音梗二開舒韻母\n見開二通常顎化，但梗攝不規則，如見母不顎化', [2, 'iŋ', 'əŋ']],
+  ['匣上|匣上變去\n匣母上聲有很多字不變去聲', true],
+];
+
+const 聲母規則 = () => when([
+  ['幫滂並母 C類', 'f'],
+  ['幫母 或 並母 仄聲', 'p'],
+  ['滂並母', 'pʰ'],
+  ['明母', [['微韻', 'ʋ'], ['C類 非 流通攝', ''], ['', 'm']]],
+
+  ['端母 或 定母 仄聲', 't'],
+  ['透定母', 'tʰ'],
+  ['泥孃母', 'n'],
+  ['來母', 'l'],
+
+  ['精母 或 從母 仄聲', 'ts'],
+  ['清從母', 'tsʰ'],
+  ['心邪母', 's'],
+
+  ['知莊章母 或 澄崇母 仄聲', 'tʂ'],
+  ['徹澄初崇昌母', 'tʂʰ'],
+  ['生俟書船母', 'ʂ'],
+  ['常母', [['平聲 陽聲韻', 'tʂʰ'], ['', 'ʂ']]],
+  ['日母', [['止攝 開口', ''], ['', 'ɻ']]],
+
+  ['見母 或 羣母 仄聲', 'k'],
+  ['溪羣母', 'kʰ'],
+  ['疑母', 'ŋ'], //細音詳後
+
+  ['影云以母', ''],
+  ['曉匣母', 'x'],
+], '無聲母規則');
+
+const 舒聲韻母規則 = () => when([
+  //果攝
+  ['歌韻 一等', [['合口 非 疑母', 'uo'], ['', 'o']]],
+  ['歌韻 三等', [['脣音', 'uo'], ['合口', 'ye'], ['', 'ie']]], //輕脣？
+
+  //假攝
+  ['麻韻 二等', [['合口', 'ua'], ['牙喉音', 'ia'], ['', 'a']]],
+  ['麻韻 三四等', 'ie'],
+
+  //遇攝
+  ['模韻', 'u'],
+  ['魚虞韻', 'y'],
+
+  //蟹攝
+  ['咍灰泰韻', [['開口', 'ai'], ['泰韻 合口 疑母', 'uai'], ['', 'uəi']]], //泰合韻見組uai、uəi兩者勢均
+  ['佳皆夬韻', [['合口', 'uai'], ['牙喉音', 'iai'], ['', 'ai']]], //佳合韻牙喉音應爲/uai/，但有不少/ua/
+  ['祭廢齊韻', [['廢韻 脣音', 'uəi'], ['廢韻 開口 銳音', 'iai'], ['合口', 'uəi'], ['', 'i']]], //明廢去無字；銳廢開「茝ㄔㄞˇ佁䑂𦚪」
+
+  //止攝
+  ['止攝 合口', [['莊組', 'uai'], ['', 'uəi']]],
+  ['止攝', [['精組', 'ɿ'], ['日母', 'ɚ'], ['', 'i']]],
+
+  //效攝
+  ['宵蕭韻 或 肴韻 牙喉音', 'iau'],
+  ['豪肴韻', 'au'],
+
+  //流攝
+  ['侯韻', 'əu'],
+  ['尤韻', [['脣音', 'əu'], ['', 'iəu']]],
+  ['幽韻', [['幫滂並母', 'iau'], ['', 'iəu']]],
+
+  //咸攝
+  ['鹽添韻 或 咸銜嚴韻 牙喉音', 'ian'],
+  ['覃談咸銜嚴韻', 'an'],
+  ['凡韻', 'yan'],
+
+  //深攝
+  ['侵韻', 'in'],
+
+  //山攝
+  ['寒刪山韻 合口', 'uan'],
+  ['刪山韻 牙喉音', 'ian'],
+  ['寒刪山韻', 'an'],
+  ['仙先韻', [['合口', 'yan'], ['', 'ian']]],
+  ['元韻', [['開口', 'ian'], ['', 'yan']]],
+
+  //臻攝
+  ['痕韻', 'ən'],
+  ['魂韻', 'uən'],
+  ['真臻殷韻', [['合口', 'yn'], ['', 'in']]], //臻韻莊組會推如ən，詳後
+  ['文韻', 'yn'],
+
+  //梗攝
+  ['梗攝 二等', [['合口', 'uŋ'], ['', 'əŋ']]],
+  ['梗攝', [['合口', 'yŋ'], ['', 'iŋ']]],
+
+  //曾攝
+  ['登韻', [['合口', 'uŋ'], ['', 'əŋ']]],
+  ['蒸韻', [['合口', 'yŋ'], ['', 'iŋ']]], //蒸合韻無舒聲但照推
+
+  //宕攝
+  ['唐韻', [['合口', 'uaŋ'], ['', 'aŋ']]],
+  ['陽韻', [['合口 或 幫莊組', 'uaŋ'], ['', 'iaŋ']]],
+
+  //江攝
+  ['江韻', [['牙喉音', 'iaŋ'], ['知莊組', 'uaŋ'], ['', 'aŋ']]],
+
+  //通攝
+  ['通攝', [['三等 牙喉音', 'yŋ'], ['', 'uŋ']]],
+], '無韻母規則');
+
+const 入聲韻母規則 = () => when([
+  //咸攝
+  ['覃談韻', [['牙喉音', 'oʔ'], ['', 'aʔ']]],
+  ['咸銜韻', [['牙喉音', 'iaʔ'], ['', 'aʔ']]],
+  ['嚴鹽添韻', 'ieʔ'],
+  ['凡韻', [['脣音', 'uaʔ'], ['', 'yeʔ']]], //明凡入無字
+
+  //深攝
+  ['侵韻', [['莊組', 'əʔ'], ['', 'iʔ']]],
+
+  //山攝
+  ['寒韻', [['合口', 'uoʔ'], ['脣牙喉音', 'oʔ'], ['', 'aʔ']]],
+  ['刪山韻', [['合口', 'uaʔ'], ['牙喉音', 'iaʔ'], ['', 'aʔ']]],
+  ['仙先韻', [['合口', 'yeʔ'], ['', 'ieʔ']]],
+  ['元韻', [['脣音', 'uaʔ'], ['合口', 'yeʔ'], ['', 'ieʔ']]],
+
+  //臻攝
+  ['痕韻', 'əʔ'],
+  ['魂韻', [['脣音', 'oʔ'], ['', 'uʔ']]],
+  ['真韻 合口', [['知莊組', 'uoʔ'], ['', 'yʔ']]], //知莊組uʔ、uoʔ兩者勢均，徹莊母多uʔ
+  ['真臻殷韻', 'iʔ'], //莊組臻韻難決定取əʔ還是ʅʔ
+  ['文韻', 'yʔ'], //見組文韻入聲讀音預測yʔ（如「屈ㄑㄩ˙」，溪文入）但見羣疑母多yeʔ
+
+  //梗攝
+  ['梗攝 二等', [['合口', 'uoʔ'], ['', 'əʔ']]],
+  ['梗攝', [['合口', 'yʔ'], ['', 'iʔ']]],
+
+  //曾攝
+  ['登韻', [['合口', 'uoʔ'], ['', 'əʔ']]],
+  ['蒸韻', [['合口', 'yʔ'], ['莊組', 'əʔ'], ['', 'iʔ']]],
+
+  //宕攝
+  ['唐韻', [['合口', 'uoʔ'], ['', 'oʔ']]],
+  ['陽韻', [['合口 或 幫莊組', 'yoʔ'], ['', 'ioʔ']]], //明陽入無字；孃陽入無常用字；莊組開口oʔ、uoʔ兩者勢均，但對應陽聲韻今讀合口呼
+
+  //江攝
+  ['江韻', [['牙喉音', 'ioʔ'], ['知莊組', 'uoʔ'], ['', 'oʔ']]],
+
+  //通攝
+  ['通攝', [['三等 牙喉音', 'yʔ'], ['', 'uʔ']]],
+], '無韻母規則');
+
+const 聲調規則 = () => when([
+  ['平聲', [['清音', '1'], ['濁音', '2']]],
+  ['去聲 或 上聲 全濁', '4'],
+  ['上聲', '3'],
+  ['入聲', '5'],
+], '無聲調規則');
+
+let 聲母 = 聲母規則();
+let 韻母 = is`舒聲` ? 舒聲韻母規則() : 入聲韻母規則();
+let 聲調 = 聲調規則();
+
+if (選項.常母平聲陰聲韻聲母和船母平聲聲母 && is`(常母 陰聲韻 或 船母) 平聲`) 聲母 = 選項.常母平聲陰聲韻聲母和船母平聲聲母;
+if (選項.見泰合 && is`見溪羣母 泰韻 合口`) 韻母 = 選項.見泰合;
+if (選項.見佳合 && is`見影匣母 佳韻 合口`) 韻母 = 選項.見佳合;
+if (選項.幫幽 && is`幫滂並母 幽韻`) 韻母 = 選項.幫幽;
+if (選項.莊侵入 && is`莊組 侵韻 入聲`) 韻母 = 選項.莊侵入;
+if (選項.知莊真合入 && is`知莊組 真韻 合口 入聲`) 韻母 = 選項.知莊真合入;
+if (選項.莊臻入 && is`莊組 臻韻 入聲`) 韻母 = 選項.莊臻入;
+if (選項.見文入 && is`見羣疑母 文韻 入聲`) 韻母 = 選項.見文入;
+if (選項.見梗二開舒 && is`溪疑影曉匣母 梗攝 二等 開口 舒聲`) 韻母 = 選項.見梗二開舒;
+if (選項.匣上 === false && is`匣母 上聲`) 聲調 = '3';
+
+//顎化；疑母齊、撮呼不規則脫鼻
+if (['i', 'y'].includes(韻母[0])) 聲母 = {
+  k: 'tɕ', kʰ: 'tɕʰ', x: 'ɕ',
+}[聲母] || 聲母;
+if (['i', 'y'].includes(韻母[0]) && 聲母 === 'n' && !is`齊之韻 開口`) 聲母 = 'ɲ';
+if (韻母[0] === 'i' && 聲母 === 'ŋ') {
+  if (is`(齊之尤蒸陽韻 非 合口) 或 (侵仙先元庚韻 入聲)`) 聲母 = 'ɲ'; //要不要括著？
+  else 聲母 = '';
+}
+if (韻母[0] === 'y' && 聲母 === 'ŋ') 聲母 = '';
+
+//捲舌音
+if (['tʂ', 'tʂʰ', 'ʂ', 'ɻ'].includes(聲母)) {
+  if (['i', 'iʔ'].includes(韻母)) 韻母 = 'ʅ' + 韻母.slice(1);
+  if (['in', 'iŋ'].includes(韻母)) 韻母 = 'ə' + 韻母.slice(1);
+  if (韻母[0] === 'i' && 韻母[1]) 韻母 = 韻母.slice(1);
+  if (韻母 === 'yeʔ') 韻母 = 'uoʔ';
+  if (韻母[0] === 'y') 韻母 = 'u' + 韻母.slice(1); //un→uən，詳後
+}
+
+//脣音
+if (is`脣音` && 韻母[0] === 'y') 韻母 = 'u' + 韻母.slice(1); //un→uən，詳後
+if (韻母 === 'un') 韻母 = 'uən'; //一次過un→uən
+if (['p', 'pʰ', 'm', 'f'].includes(聲母) && 韻母[0] === 'u' && 韻母[1] && !['n', 'ŋ', 'ʔ'].includes(韻母[1])) 韻母 = 韻母.slice(1);
+if (['f', 'ʋ'].includes(聲母) && 韻母[0] === 'i') 韻母 = 韻母.slice(1) || 'əi';
+
+if (選項.注音符號 !== true && 韻母 === 'uən' && ['t', 'tʰ', 'n', 'l', 'ts', 'tsʰ', 's'].includes(聲母)) 韻母 = 選項.ㄨㄣ; //ㄨㄣ元音
+
+if (聲母 === 'ŋ' && 韻母[0] === 'u') 聲母 = ''; //疑母合口
+
+//介母
+if (選項.介母 === '半元音' && 選項.注音符號 === false && !聲母) {
+  if (韻母[0] === 'i') 聲母 = 'j';
+  if (韻母[0] === 'u') 聲母 = 'w';
+  if (韻母[0] === 'y') 聲母 = 'ɥ';
+  if (聲母 && 韻母[1] && !['n', 'ŋ', 'ʔ'].includes(韻母[1])) 韻母 = 韻母.slice(1);
+}
+
+if (選項.喉塞 === false && 選項.注音符號 === false && is`入聲`) 韻母 = 韻母.slice(0, -1); //喉塞音韻尾
+
+if (選項.注音符號 === true) 聲母 = {
+  p: 'ㄅ', pʰ: 'ㄆ', m: 'ㄇ', f: 'ㄈ', ʋ: 'ㄪ',
+  t: 'ㄉ', tʰ: 'ㄊ', n: 'ㄋ', l: 'ㄌ',
+  k: 'ㄍ', kʰ: 'ㄎ', ŋ: 'ㄫ', x: 'ㄏ',
+  tɕ: 'ㄐ', tɕʰ: 'ㄑ', ɲ: 'ㄬ', ɕ: 'ㄒ',
+  tʂ: 'ㄓ', tʂʰ: 'ㄔ', ʂ: 'ㄕ', ɻ: 'ㄖ',
+  ts: 'ㄗ', tsʰ: 'ㄘ', s: 'ㄙ',
+}[聲母] || 聲母;
+if (選項.注音符號 === true) 韻母 = {
+  i: 'ㄧ', u: 'ㄨ', y: 'ㄩ',
+  a: 'ㄚ', o: 'ㄛ', ə: 'ㄜ', ɚ: 'ㄦ', e: 'ㄝ',
+  ai: 'ㄞ', əi: 'ㄟ', au: 'ㄠ', əu: 'ㄡ',
+  an: 'ㄢ', ən: 'ㄣ', aŋ: 'ㄤ', əŋ: 'ㄥ',
+  ia: 'ㄧㄚ', ie: 'ㄧㄝ',
+  iai: 'ㄧㄞ', iau: 'ㄧㄠ', iəu: 'ㄧㄡ',
+  ian: 'ㄧㄢ', in: 'ㄧㄣ', iaŋ: 'ㄧㄤ', iŋ: 'ㄧㄥ',
+  ua: 'ㄨㄚ', uo: 'ㄨㄛ', uai: 'ㄨㄞ', uəi: 'ㄨㄟ',
+  uan: 'ㄨㄢ', uən: 'ㄨㄣ', uaŋ: 'ㄨㄤ', uŋ: 'ㄨㄥ',
+  yo: 'ㄩㄛ', ye: 'ㄩㄝ', yan: 'ㄩㄢ', yn: 'ㄩㄣ', yŋ: 'ㄩㄥ',
+  iʔ: 'ㄧ', uʔ: 'ㄨ', yʔ: 'ㄩ',
+  aʔ: 'ㄚ', iaʔ: 'ㄧㄚ', uaʔ: 'ㄨㄚ',
+  oʔ: 'ㄛ', ioʔ: 'ㄧㄛ', uoʔ: 'ㄨㄛ', yoʔ: 'ㄩㄛ',
+  əʔ: 'ㄜ', eʔ: 'ㄝ', ieʔ: 'ㄧㄝ', yeʔ: 'ㄩㄝ',
+}[韻母] || 韻母;
+if (選項.注音符號 === true && ['ɿ', 'ʅ'].includes(韻母[0])) 韻母 = '';
+
+//let 隔位 = 選項.隔聲韻調;
+//if (選項.隔聲韻調 === '無') 隔位 = '';
+//if (選項.隔聲韻調 === '空格') 隔位 = ' ';
+//if (選項.隔聲韻調 === '定位') 隔位 = '\t';
+
+聲調 = {
+  '調值（趙元任）': { 1: '⁵⁵', 2: '³⁵', 3: '²¹⁴', 4: '⁵¹', 5: '⁵' },
+  '調值（王璞）': { 1: '⁴⁴', 2: '³⁵⁵', 3: '²¹⁴', 4: '⁴¹', 5: '⁴¹' },
+  '調線（趙元任）': { 1: '˥', 2: '˧˥', 3: '˨˩˦', 4: '˥˩', 5: '˥' }, //字元數眞對稱w
+  '調線（王璞）': { 1: '˦', 2: '˧˥˥', 3: '˨˩˦', 4: '˦˩', 5: '˦˩' },
+  '調符': { 1: 'ˉ', 2: 'ˊ', 3: 'ˇ', 4: 'ˋ', 5: '˙' },
+  '調號上標': { 1: '¹', 2: '²', 3: '³', 4: '⁴', 5: '⁵' },
+}[選項.調式]?.[聲調] || 聲調;
+if (選項.調式 !== '附標') {
+  if (選項.聲調在前 === true) return 聲調 + 選項.隔聲韻調 + 聲母 + 選項.隔聲韻調 + 韻母;
+  else return 聲母 + 選項.隔聲韻調 + 韻母 + 選項.隔聲韻調 + 聲調;
+}
+if (選項.調式 === '附標' && is`入聲`) return 聲母 + 選項.隔聲韻調 + 韻母;
+return 聲母 + 選項.隔聲韻調 + (聲調 ? 韻母.replace(/.*[aoəe]|.*[iɿʅuy]/, '$&' + ' ̄́̌̀'[聲調]) : 韻母);