;; Copyright (c) 2003 University of Helsinki
;; All rights reserved.
;;
;; Author: Nicholas Volk, <nvolk@ling.helsinki.fi>
;;
;; Distributed under GPL since it's too similar to original Emacspeak code
;; to be anything else.


;; Finnish names for chars are stolen from
;; http://www.faqs.org/faqs/radio/phonetic-alph/full/:
;; so this puts the above copyright under doubt...

;; Aarne Bertta Celsius Daavid Eemeli Faarao Gideon Heikki
;; Iivari Jussi Kalle Lauri Matti Niilo Otto Paavo Kuu Risto
;; Sakari Tyyne Urho Vihtori Viski [ks{ Yrj| Tseta ]ke [iti
;; \ljy


(defvar emacspeak-char-to-phonetic-table
  '(
    ("1"  . "yksi")
    ("2" .  "kaksi")
    ("3" .  "kolme")
    ("4" .  "neljä")
    ("5" .  "viisi")
    ("6" .  "kuusi")
    ("7" .  "seitsemän")
    ("8" .  "kahdeksan")
    ("9" .  "yhdeksän")
    ("0".  "nolla")
    ("a" . "aarne" )
    ("b" . "bertta")
    ("c" .  "celsius")
    ("d" . "daavid")
    ("e" . "eemeli")
    ("f" . "faarao")
    ("g" . "gideon")
    ("h" . "heikki")
    ("i" . "iivari")
    ("j" . "jussi")
    ("k" . "kalle")
    ("l" . "lauri")
    ("m" . "matti")
    ("n" . "niilo")
    ("o" . "otto")
    ("p" . "paavo")
    ("q" . "kuu")
    ("r" . "risto")
    ("s" . "sakari")
    ("t" . "tyyne")
    ("u" . "urho")
    ("v" . "vihtori")
    ("w" . "viski")
    ("x" . "äksä")
    ("y" . "yrjö")
    ("z" . "zeta")
    ("å" . "ooke")
    ("ä" . "äiti")
    ("ö" . "öljy")
    ("A" . "iso alpha" )
    ("B" . "iso bravo")
    ("C" . "iso charlie")
    ("D" . "iso delta")
    ("E" . "iso echo")
    ("F" . "iso foxtrot")
    ("G" . "iso golf")
    ("H" . "iso hotel")
    ("I" . "iso india")
    ("J" . "iso juliet")
    ("K" . "iso kilo")
    ("L" . "iso lima")
    ("M" . "iso mike")
    ("N" . "iso november")
    ("O" . "iso oscar")
    ("P" . "iso poppa")
    ("Q" . "iso quebec")
    ("R" . "iso romeo")
    ("S" . "iso sierra")
    ("T" . "iso tango")
    ("U" . "iso uniform")
    ("V" . "iso victor")
    ("W" . "iso whisky")
    ("X" . "iso äksä")
    ("Y" . "iso yrjö")
    ("Z" . "iso zeta"))
  "Mapping from characters to their phonemic equivalents.")