Change easily confused diacritic to something else

Changes

1 changed files (+5/-5)

• WritingSystem.lean
  • @@ -55,7 +55,7 @@ instance : ToString Consonant where
    | .rf, true => some 0x307 | .ve, true => some 0x308 | .la, false => some 0x331 - | .da, false => some 0x329 + | .da, false => some 0x32F | .rf, false => some 0x323 | .ve, false => some 0x324) |>.map Char.ofNat
  • @@ -139,7 +139,7 @@ instance : ToString (Fin 5 × Bool) where
    def convert (s : String) := s.toList.foldl (fun (out, nuc) x ↦ match parseConsonant x with - | some c => (out ++ toString c, nuc) + | some c => (out ++ toString c, some true) | none => match parseVowel x with | some v => (out ++ toString v, some v.nucleus) | none => match nuc with
  • @@ -154,9 +154,9 @@ def convert (s : String) :=
    ㄗㄠˇ ㄕㄤˋ ㄏㄠˇ ㄓㄨㄥ ㄍㄨㄛˊ ， ㄒㄧㄢˋ ㄗㄞˋ ㄨㄛˇ ㄧㄡˇ ㄅㄧㄥ ㄑㄧˊ ㄌㄧㄣˊ ， ㄨㄛˇ ㄏㄣˇ ㄒㄧˇ ㄏㄨㄢ ㄅㄧㄥ ㄑㄧˊ ㄌㄧㄣˊ ， ㄉㄢˋ ㄕˋ ， ㄙㄨˋ ㄉㄨˋ ㄩˇ ㄐㄧ ㄑㄧㄥˊ 9， ㄅㄧˇ ㄅㄧㄥ ㄑㄧˊ ㄌㄧㄣˊ ， ㄙㄨˋ ㄉㄨˋ ㄩˇ ㄐㄧ ㄑㄧㄥˊ ， ㄙㄨˋ ㄉㄨˋ ㄩˇ ㄐㄧ ㄑㄧㄥˊ 9， ㄨㄛˇ ㄗㄨㄟˋ ㄒㄧˇ ㄏㄨㄢ 。 ㄙㄨㄛˇ ㄧˇ … ㄒㄧㄢˋ ㄗㄞˋ ㄕˋ ㄧㄣ ㄩㄝˋ ㄕˊ ㄐㄧㄢ ， ㄓㄨㄣˇ ㄅㄟˋ 1 2 3， ㄌㄧㄤˇ ㄍㄜˋ ㄌㄧˇ ㄅㄞˋ ㄧˇ ㄏㄡˋ ， ㄙㄨˋ ㄉㄨˋ ㄩˇ ㄐㄧ ㄑㄧㄥˊ 9， ㄌㄧㄤˇ ㄍㄜˋ ㄌㄧˇ ㄅㄞˋ ㄧˇ ㄏㄡˋ ， ㄙㄨˋ ㄉㄨˋ ㄩˇ ㄐㄧ ㄑㄧㄥˊ 9， ㄌㄧㄤˇ ㄍㄜˋ ㄌㄧˇ ㄅㄞˋ ㄧˇ ㄏㄡˋ ， ㄙㄨˋ ㄉㄨˋ ㄩˇ ㄐㄧ ㄑㄧㄥˊ 9。 ㄅㄨˋ ㄧㄠˋ ㄨㄤˋ ㄐㄧˋ ， ㄅㄨˋ ㄧㄠˋ ㄘㄨㄛˋ ㄍㄨㄛˋ ， ㄑㄩˋ ㄉㄧㄢˋ ㄧㄥˇ ㄩㄢˋ ㄎㄢˋ ㄙㄨˋ ㄉㄨˋ ㄩˇ ㄐㄧ ㄑㄧㄥˊ 9， ㄧㄣ ㄨㄟˊ ㄈㄟ ㄔㄤˊ ㄏㄠˇ ㄉㄧㄢˋ ㄧㄥˇ ， ㄉㄨㄥˋ ㄗㄨㄛˋ ㄈㄟ ㄔㄤˊ ㄏㄠˇ ， ㄔㄚˋ ㄅㄨˋ ㄉㄨㄛ ㄧ ㄧㄤˋ 。 ㄅㄧㄥ ㄑㄧˊ ㄌㄧㄣˊ ， ㄗㄞˋ ㄐㄧㄢˋ 。 - C̩o̬ṡŋ̖ s̈o̬ C̣uŋ̄г̤ué, ṡın̖c̩ı̖ uě ıǒ г̱ıŋ̄ċı́lıń, uě s̈ň ṡı̌s̈uṉ г̱ıŋ̄ċı́lıń, г̩n̖ṡˋ, Suг̩u Y̌ C̣ı̄ċıŋ́ 9, г̱ı̌ г̱ıŋ̄ċı́lıń, Suг̩u Y̌ C̣ı̄ċıŋ́, Suг̩u Y̌ C̣ı̄ċıŋ́ 9, uě c̩uı ṡı̌s̈uṉ. Suěı̌... ṡın̖c̩ı̖ ṡˋ ın̄ye ṡˊc̣ıṉ, c̣uňг̱ı 1 2 3: - Lıŋ̬ г̤e lı̌г̱ı̖ ı̌s̈o, Suг̩u Y̌ C̣ı̄ċıŋ́ 9, lıŋ̬ г̤e lı̌г̱ı̖ ı̌s̈o, Suг̩u Y̌ C̣ı̄ċıŋ́ 9, lıŋ̬ г̤e lı̌г̱ı̖ ı̌s̈o, Suг̩u Y̌ C̣ı̄ċıŋ́ 9. - Г̱uıo̖ uŋ̖c̣ı, г̱uıo̖ cueг̤ue, ċy г̩ın̖ıŋ̌yn̖ г̈n̖ Suг̩u Y̌ C̣ı̄ċıŋ́ 9, ın̄uı́ s̄ı̄ċŋ̗ s̈o̬ г̩ın̖ıŋ̌, г̩uŋc̩ue s̄ı̄ċŋ̗ s̈o̬, ċaг̱uг̩uē ı̄ıŋ̖. Г̱ıŋ̄ċı́lıń, c̩ı̖c̣ın̖. + C̯o̬ṡŋ̖ s̈o̬ C̣uŋ̄г̤ué, ṡın̖c̯ı̖ uě ıǒ г̱ıŋ̄ċı́lıń, uě s̈ň ṡı̌s̈uṉ г̱ıŋ̄ċı́lıń, г̯n̖ṡ, Suг̯u Y̌ C̣ı̄ċıŋ́ 9, г̱ı̌ г̱ıŋ̄ċı́lıń, Suг̯u Y̌ C̣ı̄ċıŋ́, Suг̯u Y̌ C̣ı̄ċıŋ́ 9, uě c̯uı ṡı̌s̈uṉ. Suěı̌... ṡın̖c̯ı̖ ṡ ın̄ye ṡ́c̣ıṉ, c̣uňг̱ı 1 2 3: + Lıŋ̬ г̤e lı̌г̱ı̖ ı̌s̈o, Suг̯u Y̌ C̣ı̄ċıŋ́ 9, lıŋ̬ г̤e lı̌г̱ı̖ ı̌s̈o, Suг̯u Y̌ C̣ı̄ċıŋ́ 9, lıŋ̬ г̤e lı̌г̱ı̖ ı̌s̈o, Suг̯u Y̌ C̣ı̄ċıŋ́ 9. + Г̱uıo̖ uŋ̖c̣ı, г̱uıo̖ cueг̤ue, ċy г̯ın̖ıŋ̌yn̖ г̈n̖ Suг̯u Y̌ C̣ı̄ċıŋ́ 9, ın̄uı́ s̄ı̄ċŋ̗ s̈o̬ г̯ın̖ıŋ̌, г̯uŋc̯ue s̄ı̄ċŋ̗ s̈o̬, ċaг̱uг̯uē ı̄ıŋ̖. Г̱ıŋ̄ċı́lıń, c̯ı̖c̣ın̖. -/ #eval convert "ㄗㄠˇ ㄕㄤˋ ㄏㄠˇ ㄓㄨㄥ ㄍㄨㄛˊ ， ㄒㄧㄢˋ ㄗㄞˋ ㄨㄛˇ ㄧㄡˇ ㄅㄧㄥ ㄑㄧˊ ㄌㄧㄣˊ ， ㄨㄛˇ ㄏㄣˇ ㄒㄧˇ ㄏㄨㄢ ㄅㄧㄥ ㄑㄧˊ ㄌㄧㄣˊ ， ㄉㄢˋ ㄕˋ ， ㄙㄨˋ ㄉㄨˋ ㄩˇ ㄐㄧ ㄑㄧㄥˊ 9， ㄅㄧˇ ㄅㄧㄥ ㄑㄧˊ ㄌㄧㄣˊ ， ㄙㄨˋ ㄉㄨˋ ㄩˇ ㄐㄧ ㄑㄧㄥˊ ， ㄙㄨˋ ㄉㄨˋ ㄩˇ ㄐㄧ ㄑㄧㄥˊ 9， ㄨㄛˇ ㄗㄨㄟˋ ㄒㄧˇ ㄏㄨㄢ 。 ㄙㄨㄛˇ ㄧˇ … ㄒㄧㄢˋ ㄗㄞˋ ㄕˋ ㄧㄣ ㄩㄝˋ ㄕˊ ㄐㄧㄢ ， ㄓㄨㄣˇ ㄅㄟˋ 1 2 3， ㄌㄧㄤˇ ㄍㄜˋ ㄌㄧˇ ㄅㄞˋ ㄧˇ ㄏㄡˋ ， ㄙㄨˋ ㄉㄨˋ ㄩˇ ㄐㄧ ㄑㄧㄥˊ 9， ㄌㄧㄤˇ ㄍㄜˋ ㄌㄧˇ ㄅㄞˋ ㄧˇ ㄏㄡˋ ， ㄙㄨˋ ㄉㄨˋ ㄩˇ ㄐㄧ ㄑㄧㄥˊ 9， ㄌㄧㄤˇ ㄍㄜˋ ㄌㄧˇ ㄅㄞˋ ㄧˇ ㄏㄡˋ ， ㄙㄨˋ ㄉㄨˋ ㄩˇ ㄐㄧ ㄑㄧㄥˊ 9。 ㄅㄨˋ ㄧㄠˋ ㄨㄤˋ ㄐㄧˋ ， ㄅㄨˋ ㄧㄠˋ ㄘㄨㄛˋ ㄍㄨㄛˋ ， ㄑㄩˋ ㄉㄧㄢˋ ㄧㄥˇ ㄩㄢˋ ㄎㄢˋ ㄙㄨˋ ㄉㄨˋ ㄩˇ ㄐㄧ ㄑㄧㄥˊ 9， ㄧㄣ ㄨㄟˊ ㄈㄟ ㄔㄤˊ ㄏㄠˇ ㄉㄧㄢˋ ㄧㄥˇ ， ㄉㄨㄥˋ ㄗㄨㄛˋ ㄈㄟ ㄔㄤˊ ㄏㄠˇ ， ㄔㄚˋ ㄅㄨˋ ㄉㄨㄛ ㄧ ㄧㄤˋ 。 ㄅㄧㄥ ㄑㄧˊ ㄌㄧㄣˊ ， ㄗㄞˋ ㄐㄧㄢˋ 。"