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.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) }
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in New Issue