Add nonstandard punctuation patterns ("&", "!", "_", ";", "$")
This commit is contained in:
parent
b317fb2443
commit
7bb8a19145
|
@ -392,6 +392,52 @@ fun StringToSoundSequence(s : String) : List<SoundTypes> {
|
||||||
SoundTypes.DIT,
|
SoundTypes.DIT,
|
||||||
SoundTypes.LETTER_SPACE
|
SoundTypes.LETTER_SPACE
|
||||||
)
|
)
|
||||||
|
// Nonstandard punctuation
|
||||||
|
'!' -> listOf(
|
||||||
|
SoundTypes.DAH,
|
||||||
|
SoundTypes.DIT,
|
||||||
|
SoundTypes.DAH,
|
||||||
|
SoundTypes.DIT,
|
||||||
|
SoundTypes.DAH,
|
||||||
|
SoundTypes.DAH,
|
||||||
|
SoundTypes.LETTER_SPACE
|
||||||
|
)
|
||||||
|
'&' -> listOf(
|
||||||
|
SoundTypes.DIT,
|
||||||
|
SoundTypes.DAH,
|
||||||
|
SoundTypes.DIT,
|
||||||
|
SoundTypes.DIT,
|
||||||
|
SoundTypes.DIT,
|
||||||
|
SoundTypes.LETTER_SPACE
|
||||||
|
)
|
||||||
|
';' -> listOf(
|
||||||
|
SoundTypes.DAH,
|
||||||
|
SoundTypes.DIT,
|
||||||
|
SoundTypes.DAH,
|
||||||
|
SoundTypes.DIT,
|
||||||
|
SoundTypes.DAH,
|
||||||
|
SoundTypes.DIT,
|
||||||
|
SoundTypes.LETTER_SPACE
|
||||||
|
)
|
||||||
|
'_' -> listOf(
|
||||||
|
SoundTypes.DIT,
|
||||||
|
SoundTypes.DIT,
|
||||||
|
SoundTypes.DAH,
|
||||||
|
SoundTypes.DAH,
|
||||||
|
SoundTypes.DIT,
|
||||||
|
SoundTypes.DAH,
|
||||||
|
SoundTypes.LETTER_SPACE
|
||||||
|
)
|
||||||
|
'$' -> listOf(
|
||||||
|
SoundTypes.DIT,
|
||||||
|
SoundTypes.DIT,
|
||||||
|
SoundTypes.DIT,
|
||||||
|
SoundTypes.DAH,
|
||||||
|
SoundTypes.DIT,
|
||||||
|
SoundTypes.DIT,
|
||||||
|
SoundTypes.DAH,
|
||||||
|
SoundTypes.LETTER_SPACE
|
||||||
|
)
|
||||||
else -> { listOf(SoundTypes.LETTER_SPACE) }
|
else -> { listOf(SoundTypes.LETTER_SPACE) }
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue