fix(bkdstcountdown):Fix error when script run after last discont

[BK-2020-03.git] / unitproc / bkipas.d / lexconvert.py

#!/usr/bin/env python\r
# May be run with either Python 2 or Python 3\r
\r
"""lexconvert v0.32 - convert phonemes between different speech synthesizers etc\r
(c) 2007-20 Silas S. Brown.  License: GPL"""\r
\r
# Run without arguments for usage information\r
\r
#    This program is free software; you can redistribute it and/or modify\r
#    it under the terms of the GNU General Public License as published by\r
#    the Free Software Foundation; either version 3 of the License, or\r
#    (at your option) any later version.\r
#\r
#    This program is distributed in the hope that it will be useful,\r
#    but WITHOUT ANY WARRANTY; without even the implied warranty of\r
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\r
#    GNU General Public License for more details.\r
\r
# Old versions of this code are being kept in the E-GuideDog SVN repository at\r
# http://svn.code.sf.net/p/e-guidedog/code/ssb22/lexconvert\r
# and on GitHub at https://github.com/ssb22/lexconvert\r
# and on GitLab at https://gitlab.com/ssb22/lexconvert\r
# and on Bitbucket https://bitbucket.org/ssb22/lexconvert\r
# and at https://gitlab.developers.cam.ac.uk/ssb22/lexconvert\r
# although some early ones are missing.\r
\r
def Phonemes():\r
   """Create phonemes by calling vowel(), consonant(),\r
     variant() and other().\r
   \r
     For the variants, if a particular variant does not\r
     exist in the destination format then we will treat it\r
     as equivalent to the last non-variant we created.\r
  \r
     For anything else that does not exist in the\r
     destination format, we will first try to break the\r
     source's phoneme into parts (e.g. see the treatment\r
     of opt_ol_as_in_gold by eSpeak and bbcmicro), and if\r
     that still doesn't work then we drop a character\r
     (warning depending on the source format's setting of\r
     safe_to_drop_characters).  makeDic does however warn\r
     about any non-variant consonants, or non-variant\r
     vowels that weren't marked optional, missing from a\r
     format. """\r
   a_as_in_ah = vowel()\r
   _, var1_a_as_in_ah = variant()\r
   _, var3_a_as_in_ah = variant()\r
   _, var4_a_as_in_ah = variant()\r
   _, var5_a_as_in_ah = variant()\r
   a_as_in_apple = vowel()\r
   u_as_in_but = vowel() # or the first part of un as in hunt\r
   _, var1_u_as_in_but = variant()\r
   o_as_in_orange = vowel()\r
   _, var1_o_as_in_orange = variant()\r
   _, var2_o_as_in_orange = variant()\r
   o_as_in_now = vowel()\r
   _, var1_o_as_in_now = variant()\r
   a_as_in_ago = vowel()\r
   _, var1_a_as_in_ago = variant()\r
   e_as_in_herd = vowel()\r
   _, ar_as_in_year = variant()\r
   eye = vowel()\r
   _, var1_eye = variant()\r
   b = consonant()\r
   ch = consonant()\r
   d = consonant()\r
   th_as_in_them = consonant()\r
   e_as_in_them = vowel()\r
   _, var1_e_as_in_them = variant()\r
   a_as_in_air = vowel()\r
   _, var1_a_as_in_air = variant()\r
   _, var2_a_as_in_air = variant()\r
   _, var3_a_as_in_air = variant()\r
   _, var4_a_as_in_air = variant()\r
   a_as_in_ate = vowel()\r
   _, var1_a_as_in_ate = variant()\r
   f = consonant()\r
   g = consonant()\r
   h = consonant()\r
   i_as_in_it = vowel()\r
   _, var1_i_as_in_it = variant()\r
   _, var2_i_as_in_it = variant()\r
   ear = vowel()\r
   _, var1_ear = variant()\r
   _, var2_ear = variant()\r
   e_as_in_eat = vowel()\r
   _, var1_e_as_in_eat = variant()\r
   j_as_in_jump = consonant()\r
   k = consonant()\r
   _, opt_scottish_loch = variant()\r
   l = consonant()\r
   _, var1_l = variant()\r
   m = consonant()\r
   n = consonant()\r
   ng = consonant()\r
   o_as_in_go = vowel()\r
   _, var1_o_as_in_go = variant()\r
   _, var2_o_as_in_go = variant()\r
   opt_ol_as_in_gold = opt_vowel() # see eSpeak / bbcmicro\r
   oy_as_in_toy = vowel()\r
   _, var1_oy_as_in_toy = variant()\r
   p = consonant()\r
   r = consonant()\r
   _, var1_r = variant()\r
   s = consonant()\r
   sh = consonant()\r
   t = consonant()\r
   _, var1_t = variant()\r
   th_as_in_think = consonant()\r
   oor_as_in_poor = vowel()\r
   _, var1_oor_as_in_poor = variant()\r
   _, opt_u_as_in_pull = variant()\r
   opt_ul_as_in_pull = opt_vowel() # see eSpeak / bbcmicro\r
   oo_as_in_food = vowel()\r
   _, var1_oo_as_in_food = variant()\r
   _, var2_oo_as_in_food = variant()\r
   close_to_or = vowel()\r
   _, var1_close_to_or = variant()\r
   _, var2_close_to_or = variant()\r
   _, var3_close_to_or = variant()\r
   v = consonant()\r
   w = consonant()\r
   _, var1_w = variant()\r
   y = consonant()\r
   z = consonant()\r
   ge_of_blige_etc = consonant()\r
   glottal_stop = other()\r
   syllable_separator = other()\r
   _, primary_stress = variant()\r
   _, secondary_stress = variant()\r
   text_sharp = other()\r
   text_underline = other()\r
   text_question = other()\r
   text_exclamation = other()\r
   text_comma = other()\r
   ipa_colon = other() # for catching missed cases\r
   del _ ; return locals()\r
\r
def LexFormats():\r
  """Makes the phoneme conversion tables of each format.\r
     Each table has string to phoneme entries and phoneme\r
     to string entries.  The string to phoneme entries are\r
     used when converting OUT of that format, and the\r
     phoneme to string entries are used when converting IN\r
     (so you can recognise phonemes you don't support and\r
     convert them to something else).  By default, a tuple\r
     of the form (string,phoneme) will create entries in\r
     BOTH directions; one-directional entries are created\r
     via (string,phoneme,False) or (phoneme,string,False).\r
     The makeDic function checks the keys are unique.\r
     \r
     First parameter is always a description of the\r
     format, then come the phoneme entries as described\r
     above, then any additional settings:\r
\r
       stress_comes_before_vowel (default False means any\r
       stress mark goes AFTER the affected vowel; set to\r
       True if the format requires stress placed before)\r
\r
       word_separator (default same as phoneme_separator)\r
       phoneme_separator (default " ")\r
       clause_separator (default newline)\r
\r
       (For a special case, clause_separator can also be\r
        set to a function.  If that happens, the function\r
        will be called whenever lexconvert needs to output\r
        a list of (lists of words) in this format.  See\r
        bbcmicro for an example function clause_separator)\r
\r
       safe_to_drop_characters (default False, can be a\r
       string of safe characters or True = all; controls\r
       warnings when unrecognised characters are found)\r
\r
       approximate_missing (default False) - if True,\r
       makeDic will attempt to compensate for missing\r
       phonemes by approximating them to others, instead of\r
       warning about them.  This is useful for American codes\r
       that can't cope with all the British English phonemes.\r
       (Approximation is done automatically anyway in the\r
       case of variant phonemes; approximate_missing adds in\r
       some additional approximations - see comments in code)\r
\r
       cleanup_regexps (default none) - optional list of\r
       (search,replace) regular expressions to "clean up"\r
       after converting each word INTO this format\r
       cleanup_func (default none) - optional special-case\r
       function to pass result through after cleanup_regexps\r
\r
       cvtOut_regexps (default none) - optional list of\r
       (search,replace) regular expressions to "clean up"\r
       before starting to convert OUT of this format\r
       cvtOut_func (default none) - optional special-case\r
       function to pass through before any cvtOut_regexps\r
  \r
       inline_format (default "%s") the format string for\r
       printing a word with --phones or --phones2phones\r
       (can be used to put markup around each word)\r
       (can also be a function taking the phonetic word\r
        and returning the resulting string, e.g. bbcmicro)\r
\r
       output_is_binary (default False) - True if the output\r
       is almost certainly unsuitable for a terminal; will\r
       cause lexconvert to refuse to print phonemes unless\r
       its standard output is redirected to a file or pipe\r
       (affects the --phones and --phones2phones options)\r
\r
       inline_header (default none) text to print first\r
         when outputting from --phones or --phones2phones\r
       inline_footer (default none) text to print last\r
       inline_oneoff_header (default none) text to print\r
         before inline_header on the first time only\r
\r
       lex_filename - filename of a lexicon file.  If this\r
       is not specified, there is no support for writing a\r
       lexicon in this format: there can still be READ\r
       support if you define lex_read_function to open the\r
       lexicon by itself, but otherwise the format can be\r
       used only with --phones and --phones2phones.\r
\r
       lex_entry_format - format string for writing each\r
       (word, pronunciation) entry to the lexicon file.\r
       This is also needed for lexicon-write support.\r
\r
       lex_header, lex_footer - optional strings to write\r
       at the beginning and at the end of the lexicon file\r
       (can also be functions that take the open file as a\r
        parameter, e.g. for bbcmicro; lex_footer is\r
        allowed to close the file if it needs to do\r
        something with it afterwards)\r
\r
       lex_word_case - optional "upper" or "lower" to\r
       force a particular case for lexicon words (not\r
       pronunciations - they're determined by the table).\r
       The default is to allow words to be in either case.\r
\r
       lex_type (default "") - used by the --formats\r
       option when summarising the support for each format\r
\r
       lex_read_function - Python function to READ the\r
       lexicon file and return a (word,phonemes) list.\r
       If this is not specified, there's no read support\r
       for lexicons in this format (but there can still be\r
       write support - see above - and you can still use\r
       --phones and --phones2phones).  If lex_filename is\r
       specified then this function will be given the open\r
       file as a parameter. """\r
  \r
  phonemes = Phonemes() ; globals().update(phonemes)\r
  return { "festival" : makeDic(\r
    "Festival's British voice",\r
    ('0',syllable_separator),\r
    ('1',primary_stress),\r
    ('2',secondary_stress),\r
    ('aa',a_as_in_ah),\r
    ('a',a_as_in_apple),\r
    ('uh',u_as_in_but),\r
    ('o',o_as_in_orange),\r
    ('au',o_as_in_now),\r
    ('@',a_as_in_ago),\r
    ('@@',e_as_in_herd),\r
    ('ai',eye),\r
    ('b',b),\r
    ('ch',ch),\r
    ('d',d),\r
    ('dh',th_as_in_them),\r
    ('e',e_as_in_them),\r
    (ar_as_in_year,'@@',False),\r
    ('e@',a_as_in_air),\r
    ('ei',a_as_in_ate),\r
    ('f',f),\r
    ('g',g),\r
    ('h',h),\r
    ('i',i_as_in_it),\r
    ('i@',ear),\r
    ('ii',e_as_in_eat),\r
    ('jh',j_as_in_jump),\r
    ('k',k),\r
    ('l',l),\r
    ('m',m),\r
    ('n',n),\r
    ('ng',ng),\r
    ('ou',o_as_in_go),\r
    ('oi',oy_as_in_toy),\r
    ('p',p),\r
    ('r',r),\r
    ('s',s),\r
    ('sh',sh),\r
    ('t',t),\r
    ('th',th_as_in_think),\r
    ('u@',oor_as_in_poor),\r
    ('u',opt_u_as_in_pull),\r
    ('uu',oo_as_in_food),\r
    ('oo',close_to_or),\r
    ('v',v),\r
    ('w',w),\r
    ('y',y),\r
    ('z',z),\r
    ('zh',ge_of_blige_etc),\r
    lex_filename=ifset("HOME",os.environ.get("HOME","")+os.sep)+".festivalrc",\r
    lex_entry_format="(lex.add.entry '( \"%s\" n %s))\n",\r
    lex_header=";; -*- mode: lisp -*-\n(eval (list voice_default))\n",\r
    lex_read_function = lambda *args:eval('['+getoutput("grep -vi parameter.set < ~/.festivalrc | grep -v '(eval' | sed -e 's/;.*//' -e 's/.lex.add.entry//' -e s/\"'\"'[(] *\"/[\"/' -e 's/\" [^ ]* /\",(\"/' -e 's/\".*$/&\"],/' -e 's/[()]/ /g' -e 's/  */ /g'")+']'),\r
    safe_to_drop_characters=True, # TODO: really? (could instead give a string of known-safe characters)\r
    cleanup_func = festival_group_stress,\r
  ),\r
\r
  "example" : makeVariantDic(\r
    "A small built-in example lexicon for testing when you don't have your full custom lexicon to hand.  Use --convert to write it in one of the other formats and see if a synth can import it.",\r
    lex_read_function = lambda *args: [\r
       ("Shadrach","shei1drak"),\r
       ("Meshach","mii1shak"),\r
       ("Abednego","@be1dniigou"),\r
    ], cleanup_func = None,\r
    lex_filename=None, lex_entry_format=None, noInherit=True),\r
\r
  "festival-cmu" : makeVariantDic(\r
    "American CMU version of Festival",\r
    ('ae',a_as_in_apple),\r
    ('ah',u_as_in_but),\r
    ('ax',a_as_in_ago),\r
    (o_as_in_orange,'aa',False),\r
    ('aw',o_as_in_now),\r
    ('er',e_as_in_herd), # TODO: check this one\r
    ('ay',eye),\r
    ('eh',e_as_in_them),\r
    (ar_as_in_year,'er',False),\r
    (a_as_in_air,'er',False),\r
    ('ey',a_as_in_ate),\r
    ('hh',h),\r
    ('ih',i_as_in_it),\r
    ('ey ah',ear),\r
    ('iy',e_as_in_eat),\r
    ('ow',o_as_in_go),\r
    ('oy',oy_as_in_toy),\r
    ('uh',oor_as_in_poor),\r
    ('uw',oo_as_in_food),\r
    ('ao',close_to_or),\r
  ),\r
\r
  "espeak" : makeDic(\r
    "eSpeak's default British voice", # but eSpeak's phoneme representation isn't always that simple, hence the regexps at the end\r
    ('%',syllable_separator),\r
    ("'",primary_stress),\r
    (',',secondary_stress),\r
    # TODO: glottal_stop? (in regional pronunciations etc)\r
    ('A:',a_as_in_ah),\r
    ('A@',a_as_in_ah,False),\r
    ('A',var1_a_as_in_ah),\r
    ('a',a_as_in_apple),\r
    ('aa',a_as_in_apple,False),\r
    ('a2',a_as_in_apple,False), # TODO: this is actually an a_as_in_apple variant in espeak; festival @1 is not in mrpa PhoneSet\r
    ('&',a_as_in_apple,False),\r
    ('V',u_as_in_but),\r
    ('0',o_as_in_orange),\r
    ('aU',o_as_in_now),\r
    ('@',a_as_in_ago),\r
    ('a#',a_as_in_ago,False), # (TODO: eSpeak sometimes uses a# in 'had' when in a sentence, and this doesn't always sound good on other synths; might sometimes want to convert it to a_as_in_apple; not sure what contexts would call for this though)\r
    ('3:',e_as_in_herd),\r
    ('3',var1_a_as_in_ago),\r
    ('@2',a_as_in_ago,False),\r
    ('@-',a_as_in_ago,False), # (eSpeak @- sounds to me like a shorter version of @, TODO: double-check the relationship between @ and @2 in Festival)\r
    ('aI',eye),\r
    ('aI2',eye,False),\r
    ('aI;',eye,False),\r
    ('aI2;',eye,False),\r
    ('b',b),\r
    ('tS',ch),\r
    ('d',d),\r
    ('D',th_as_in_them),\r
    ('E',e_as_in_them),\r
    (ar_as_in_year,'3:',False),\r
    ('e@',a_as_in_air),\r
    ('eI',a_as_in_ate),\r
    ('f',f),\r
    ('g',g),\r
    ('h',h),\r
    ('I',i_as_in_it),\r
    ('I;',i_as_in_it,False),\r
    ('i',i_as_in_it,False),\r
    ('I2',var2_i_as_in_it,False),\r
    ('I2;',var2_i_as_in_it,False),\r
    ('i@',ear),\r
    ('i@3',var2_ear),\r
    ('i:',e_as_in_eat),\r
    ('i:;',e_as_in_eat,False),\r
    ('dZ',j_as_in_jump),\r
    ('k',k),\r
    ('x',opt_scottish_loch),\r
    ('l',l),\r
    ('L',l,False),\r
    ('m',m),\r
    ('n',n),\r
    ('N',ng),\r
    ('oU',o_as_in_go),\r
    ('oUl',opt_ol_as_in_gold), # (espeak says "gold" in a slightly 'posh' way though) (if dest format doesn't have opt_ol_as_in_gold, it'll get o_as_in_go + the l)\r
    ('OI',oy_as_in_toy),\r
    ('p',p),\r
    ('r',r),\r
    ('r-',r,False),\r
    ('s',s),\r
    ('S',sh),\r
    ('t',t),\r
    ('T',th_as_in_think),\r
    ('U@',oor_as_in_poor),\r
    ('U',opt_u_as_in_pull),\r
    ('@5',opt_u_as_in_pull,False),\r
    ('Ul',opt_ul_as_in_pull), # if dest format doesn't have this, it'll get opt_u_as_in_pull from the U, then the l\r
    ('u:',oo_as_in_food),\r
    ('O:',close_to_or),\r
    ('O@',var3_close_to_or),\r
    ('o@',var3_close_to_or,False),\r
    ('O',var3_close_to_or,False),\r
    ('v',v),\r
    ('w',w),\r
    ('j',y),\r
    ('z',z),\r
    ('Z',ge_of_blige_etc),\r
    lex_filename = "en_extra",\r
    lex_entry_format = "%s %s\n",\r
    lex_read_function = lambda lexfile: [x for x in [l.split()[:2] for l in lexfile.readlines()] if len(x)==2 and not '//' in x[0]],\r
    lex_footer=lambda f:(f.close(),os.system("espeak --compile=en")), # see also a bit of special-case code in mainopt_convert\r
    inline_format = "[[%s]]",\r
    word_separator=" ",phoneme_separator="",\r
    stress_comes_before_vowel=True,\r
    safe_to_drop_characters="_: !",\r
    cleanup_regexps=[\r
      ("k'a2n","k'@n"),\r
      ("ka2n","k@n"),\r
      ("gg","g"),\r
      ("@U","oU"), # (eSpeak uses oU to represent @U; difference is given by its accent parameters)\r
      ("([iU]|([AO]:))@r$","\1@"),\r
      ("([^e])@r",r"\1_remove_3"),("_remove_",""),\r
      # (r"([^iU]@)l",r"\1L") # only in older versions of espeak (not valid in more recent versions)\r
      ("rr$","r"),\r
      ("3:r$","3:"),\r
      ("%%+","%"),("^%",""),("%$",""),\r
      # TODO: 'declared' & 'declare' the 'r' after the 'E' sounds a bit 'regional' (but pretty).  but sounds incomplete w/out 'r', and there doesn't seem to be an E2 or E@\r
      # TODO: consider adding 'g' to words ending in 'N' (if want the 'g' pronounced in '-ng' words) (however, careful of words like 'yankee' where the 'g' would be followed by a 'k'; this may also be a problem going into the next word)\r
    ],\r
     cvtOut_regexps = [\r
       ("e@r$","e@"), ("e@r([bdDfghklmnNprsStTvwjzZ])",r"e@\1"), # because the 'r' is implicit in other synths (but DO have it if there's another vowel to follow)\r
     ],\r
  ),\r
\r
  "sapi" : makeDic(\r
    "Microsoft Speech API (American English)",\r
    ('-',syllable_separator),\r
    ('1',primary_stress),\r
    ('2',secondary_stress),\r
    ('aa',a_as_in_ah),\r
    ('ae',a_as_in_apple),\r
    ('ah',u_as_in_but),\r
    ('ao',o_as_in_orange),\r
    ('aw',o_as_in_now),\r
    ('ax',a_as_in_ago),\r
    ('er',e_as_in_herd),\r
    ('ay',eye),\r
    ('b',b),\r
    ('ch',ch),\r
    ('d',d),\r
    ('dh',th_as_in_them),\r
    ('eh',e_as_in_them),\r
    ('ey',var1_e_as_in_them),\r
    (a_as_in_ate,'ey',False),\r
    ('f',f),\r
    ('g',g),\r
    ('h',h), # Jan suggested 'hh', but I can't get this to work on Windows XP (TODO: try newer versions of Windows)\r
    ('ih',i_as_in_it),\r
    ('iy',e_as_in_eat),\r
    ('jh',j_as_in_jump),\r
    ('k',k),\r
    ('l',l),\r
    ('m',m),\r
    ('n',n),\r
    ('ng',ng),\r
    ('ow',o_as_in_go),\r
    ('oy',oy_as_in_toy),\r
    ('p',p),\r
    ('r',r),\r
    ('s',s),\r
    ('sh',sh),\r
    ('t',t),\r
    ('th',th_as_in_think),\r
    ('uh',oor_as_in_poor),\r
    ('uw',oo_as_in_food),\r
    ('AO',close_to_or),\r
    ('v',v),\r
    ('w',w),\r
    # ('x',var1_w), # suggested by Jan, but I can't get this to work on Windows XP (TODO: try newer versions of Windows)\r
    ('y',y),\r
    ('z',z),\r
    ('zh',ge_of_blige_etc),\r
    approximate_missing=True,\r
    lex_filename="run-ptts.bat", # write-only for now\r
    lex_header = "rem  You have to run this file\nrem  with ptts.exe in the same directory\nrem  to add these words to the SAPI lexicon\n\n",\r
    lex_entry_format='ptts -la %s "%s"\n',\r
    inline_format = '<pron sym="%s"/>',\r
    safe_to_drop_characters=True, # TODO: really?\r
  ),\r
\r
  "cepstral" : makeDic(\r
    "Cepstral's British English SSML phoneset",\r
    ('0',syllable_separator),\r
    ('1',primary_stress),\r
    ('a',a_as_in_ah),\r
    ('ae',a_as_in_apple),\r
    ('ah',u_as_in_but),\r
    ('oa',o_as_in_orange),\r
    ('aw',o_as_in_now),\r
    ('er',e_as_in_herd),\r
    ('ay',eye),\r
    ('b',b),\r
    ('ch',ch),\r
    ('d',d),\r
    ('dh',th_as_in_them),\r
    ('eh',e_as_in_them),\r
    ('e@',a_as_in_air),\r
    ('ey',a_as_in_ate),\r
    ('f',f),\r
    ('g',g),\r
    ('h',h),\r
    ('ih',i_as_in_it),\r
    ('i',e_as_in_eat),\r
    ('jh',j_as_in_jump),\r
    ('k',k),\r
    ('l',l),\r
    ('m',m),\r
    ('n',n),\r
    ('ng',ng),\r
    ('ow',o_as_in_go),\r
    ('oy',oy_as_in_toy),\r
    ('p',p),\r
    ('r',r),\r
    ('s',s),\r
    ('sh',sh),\r
    ('t',t),\r
    ('th',th_as_in_think),\r
    ('uh',oor_as_in_poor),\r
    ('uw',oo_as_in_food),\r
    ('ao',close_to_or),\r
    ('v',v),\r
    ('w',w),\r
    ('j',y),\r
    ('z',z),\r
    ('zh',ge_of_blige_etc),\r
    approximate_missing=True,\r
    lex_filename="lexicon.txt",\r
    lex_entry_format = "%s 0 %s\n",\r
    lex_read_function = lambda lexfile: [(word,pronunc) for word, ignore, pronunc in [l.split(None,2) for l in lexfile.readlines()]],\r
    lex_word_case = "lower",\r
    inline_format = "<phoneme ph='%s'>p</phoneme>",\r
    safe_to_drop_characters=True, # TODO: really?\r
    cleanup_regexps=[(" 1","1"),(" 0","0")],\r
  ),\r
\r
  "mac" : makeDic(\r
    "approximation in American English using the [[inpt PHON]] notation of Apple's US voices",\r
    ('=',syllable_separator),\r
    ('1',primary_stress),\r
    ('2',secondary_stress),\r
    ('AA',a_as_in_ah),\r
    ('aa',var5_a_as_in_ah),\r
    ('AE',a_as_in_apple),\r
    ('UX',u_as_in_but),\r
    (o_as_in_orange,'AA',False),\r
    ('AW',o_as_in_now),\r
    ('AX',a_as_in_ago),\r
    (e_as_in_herd,'AX',False), # TODO: is this really the best approximation?\r
    ('AY',eye),\r
    ('b',b),\r
    ('C',ch),\r
    ('d',d),\r
    ('D',th_as_in_them),\r
    ('EH',e_as_in_them),\r
    ('EY',a_as_in_ate),\r
    ('f',f),\r
    ('g',g),\r
    ('h',h),\r
    ('IH',i_as_in_it),\r
    ('IX',var2_i_as_in_it),\r
    ('IY',e_as_in_eat),\r
    ('J',j_as_in_jump),\r
    ('k',k),\r
    ('l',l),\r
    ('m',m),\r
    ('n',n),\r
    ('N',ng),\r
    ('OW',o_as_in_go),\r
    ('OY',oy_as_in_toy),\r
    ('p',p),\r
    ('r',r),\r
    ('s',s),\r
    ('S',sh),\r
    ('t',t),\r
    ('T',th_as_in_think),\r
    ('UH',oor_as_in_poor),\r
    ('UW',oo_as_in_food),\r
    ('AO',close_to_or),\r
    ('v',v),\r
    ('w',w),\r
    ('y',y),\r
    ('z',z),\r
    ('Z',ge_of_blige_etc),\r
    approximate_missing=True,\r
    lex_filename="substitute.sh", # write-only for now\r
    lex_type = "substitution script",\r
    lex_header = "#!/bin/bash\n\n# I don't yet know how to add to the Apple US lexicon,\n# so here is a 'sed' command you can run on your text\n# to put the pronunciation inline:\n\nsed -E -e :S \\\n",\r
    lex_entry_format=r" -e 's/(^|[^A-Za-z])%s($|[^A-Za-z[12=])/\1[[inpt PHON]]%s[[inpt TEXT]]\2/g'"+" \\\n",\r
    # but /g is non-overlapping matches and won't catch 2 words in the lex right next to each other with only one non-alpha in between, so we put :S at start and tS at end to make the whole operation repeat until it hasn't done any more substitutions (hence also the exclusion of [, 1, 2 or = following a word so it doesn't try to substitute stuff inside the phonemes; TODO: assert the lexicon does not contain "inpt", "PHON" or "TEXT")\r
    lex_footer = lambda f:(f.write(" -e tS\n"),f.close(),os.chmod("substitute.sh",493)), # 493 = 0755, but no way to specify octal that works on both Python 2.5 and Python 3 (0o works on 2.6+)\r
    inline_format = "[[inpt PHON]]%s[[inpt TEXT]]",\r
    word_separator=" ",phoneme_separator="",\r
    safe_to_drop_characters=True, # TODO: really?\r
  ),\r
\r
  "mac-uk" : makeDic(\r
    "Scansoft/Nuance British voices in Mac OS 10.7+ (system lexicon editing required, see --mac-uk option)",\r
    ('.',syllable_separator),\r
    ("'",primary_stress),\r
    (secondary_stress,'',False),\r
    ('A',a_as_in_ah),\r
    ('@',a_as_in_apple),\r
    ('$',u_as_in_but),\r
    (a_as_in_ago,'$',False),\r
    ('A+',o_as_in_orange),\r
    ('a&U',o_as_in_now),\r
    ('E0',e_as_in_herd),\r
    ('a&I',eye),\r
    ('b',b),\r
    ('t&S',ch),\r
    ('d',d),\r
    ('D',th_as_in_them),\r
    ('E',e_as_in_them),\r
    ('0',ar_as_in_year),\r
    ('E&$',a_as_in_air),\r
    ('e&I',a_as_in_ate),\r
    ('f',f),\r
    ('g',g),\r
    ('h',h),\r
    ('I',i_as_in_it),\r
    ('I&$',ear),\r
    ('i',e_as_in_eat),\r
    ('d&Z',j_as_in_jump),\r
    ('k',k),\r
    ('l',l),\r
    ('m',m),\r
    ('n',n),\r
    ('nK',ng),\r
    ('o&U',o_as_in_go),\r
    ('O&I',oy_as_in_toy),\r
    ('p',p),\r
    ('R+',r),\r
    ('s',s),\r
    ('S',sh),\r
    ('t',t),\r
    ('T',th_as_in_think),\r
    ('O',oor_as_in_poor),\r
    ('U',opt_u_as_in_pull),\r
    ('u',oo_as_in_food),\r
    (close_to_or,'O',False),\r
    ('v',v),\r
    ('w',w),\r
    ('j',y),\r
    ('z',z),\r
    ('Z',ge_of_blige_etc),\r
    # lex_filename not set (mac-uk code does not permanently save the lexicon; see --mac-uk option to read text)\r
    lex_read_function = lambda *args:[(w,p) for w,_,p in MacBritish_System_Lexicon(False,os.environ.get("MACUK_VOICE","Daniel")).usable_words()],\r
    inline_oneoff_header = "(mac-uk phonemes output is for information only; you'll need the --mac-uk or --trymac-uk options to use it)\n",\r
    word_separator=" ",phoneme_separator="",\r
    stress_comes_before_vowel=True,\r
    safe_to_drop_characters=True, # TODO: really?\r
    cleanup_regexps=[(r'o\&U\.Ol', r'o\&Ul')],\r
  ),\r
\r
  "x-sampa" : makeDic(\r
    "General X-SAMPA notation, contributed by Jan Weiss",\r
    ('.',syllable_separator),\r
    ('"',primary_stress),\r
    ('%',secondary_stress),\r
    ('A',a_as_in_ah),\r
    (':',ipa_colon),\r
    ('A:',var3_a_as_in_ah),\r
    ('Ar\\',var4_a_as_in_ah),\r
    ('a:',var5_a_as_in_ah),\r
    ('{',a_as_in_apple),\r
    ('V',u_as_in_but),\r
    ('Q',o_as_in_orange),\r
    (var1_o_as_in_orange,'A',False),\r
    ('O',var2_o_as_in_orange),\r
    ('aU',o_as_in_now),\r
    ('{O',var1_o_as_in_now),\r
    ('@',a_as_in_ago),\r
    ('3:',e_as_in_herd),\r
    ('aI',eye),\r
    ('Ae',var1_eye),\r
    ('b',b),\r
    ('tS',ch),\r
    ('d',d),\r
    ('D',th_as_in_them),\r
    ('E',e_as_in_them),\r
    ('e',var1_e_as_in_them),\r
    (ar_as_in_year,'3:',False),\r
    ('E@',a_as_in_air),\r
    ('Er\\',var1_a_as_in_air),\r
    ('e:',var2_a_as_in_air),\r
    ('E:',var3_a_as_in_air),\r
    ('e@',var4_a_as_in_air),\r
    ('eI',a_as_in_ate),\r
    ('{I',var1_a_as_in_ate),\r
    ('f',f),\r
    ('g',g),\r
    ('h',h),\r
    ('I',i_as_in_it),\r
    ('1',var1_i_as_in_it),\r
    ('I@',ear),\r
    ('Ir\\',var1_ear),\r
    ('i',e_as_in_eat),\r
    ('i:',var1_e_as_in_eat),\r
    ('dZ',j_as_in_jump),\r
    ('k',k),\r
    ('x',opt_scottish_loch),\r
    ('l',l),\r
    ('m',m),\r
    ('n',n),\r
    ('N',ng),\r
    ('@U',o_as_in_go),\r
    ('oU',var2_o_as_in_go),\r
    ('@}',var1_u_as_in_but),\r
    ('OI',oy_as_in_toy),\r
    ('oI',var1_oy_as_in_toy),\r
    ('p',p),\r
    ('r\\',r),\r
    (var1_r,'r',False),\r
    ('s',s),\r
    ('S',sh),\r
    ('t',t),\r
    ('T',th_as_in_think),\r
    ('U@',oor_as_in_poor),\r
    ('Ur\\',var1_oor_as_in_poor),\r
    ('U',opt_u_as_in_pull),\r
    ('}:',oo_as_in_food),\r
    ('u:',var1_oo_as_in_food),\r
    (var2_oo_as_in_food,'u:',False),\r
    ('O:',close_to_or),\r
    (var1_close_to_or,'O',False),\r
    ('o:',var2_close_to_or),\r
    ('v',v),\r
    ('w',w),\r
    ('W',var1_w),\r
    ('j',y),\r
    ('z',z),\r
    ('Z',ge_of_blige_etc),\r
    lex_filename="acapela.txt",\r
    lex_entry_format = "%s\t#%s\tUNKNOWN\n", # TODO: may be able to convert part-of-speech (NOUN etc) to/from some other formats e.g. Festival\r
    lex_read_function=lambda lexfile:[(word,pronunc.lstrip("#")) for word, pronunc, ignore in [l.split(None,2) for l in lexfile.readlines()]],\r
    # TODO: inline_format ?\r
    word_separator=" ",phoneme_separator="",\r
    safe_to_drop_characters=True, # TODO: really?\r
  ),\r
  "vocaloid" : makeVariantDic(\r
     "X-SAMPA phonemes for Yamaha's Vocaloid singing synthesizer.  Contributed by Lorenzo Gatti, who tested in Vocaloid 4 using two American English voices.",\r
     ('-',syllable_separator),\r
     (primary_stress,'',False), # not used by Vocaloid\r
     (secondary_stress,'',False),\r
     ('Q',a_as_in_ah),\r
     (var3_a_as_in_ah,'Q',False),\r
     (var4_a_as_in_ah,'Q',False),\r
     (var5_a_as_in_ah,'Q',False),\r
     ('O@',o_as_in_orange),\r
     (var1_o_as_in_orange,'O@',False),\r
     (var2_o_as_in_orange, 'O@',False),\r
     ('@U',o_as_in_now),\r
     ('@r',e_as_in_herd),\r
     (var1_eye, 'aI',False),\r
     ('e',e_as_in_them),\r
     ('I@',ar_as_in_year),\r
     ('e@',a_as_in_air),\r
     (var1_a_as_in_air, 'e@',False),\r
     (var2_a_as_in_air, 'e@',False),\r
     (var3_a_as_in_air, 'e@',False),\r
     (var4_a_as_in_air, 'e@',False),\r
     (var1_a_as_in_ate, 'eI', False),\r
     (var1_i_as_in_it, 'I',False),\r
     (var1_ear, 'I@',False),\r
     ('i:',e_as_in_eat),\r
     (var1_e_as_in_eat, 'i:',False),\r
     (var2_o_as_in_go, '@U', False),\r
     ('V', var1_u_as_in_but),\r
     (var1_oy_as_in_toy, 'OI',False),\r
     ('r',r),\r
     ('th',t),\r
     (var1_oor_as_in_poor, '@U',False),\r
     ('u:',oo_as_in_food),\r
     (var1_oo_as_in_food, 'u:',False),\r
     (var1_close_to_or,'O:',False),\r
     (var2_close_to_or,'O:',False),\r
     (var1_w, 'w', False),\r
     lex_filename="vocaloid.txt",\r
     phoneme_separator=" ",\r
     noInherit=True\r
  ),\r
  "android-pico" : makeVariantDic(\r
    'X-SAMPA phonemes for the default \"Pico\" voice in Android (1.6+, American), wrapped in Java code', # you could put en-GB instead of en-US, but it must be installed on the phone\r
    ('A:',a_as_in_ah), # won't sound without the :\r
    (var5_a_as_in_ah,'A:',False), # a: won't sound\r
    ('@U:',o_as_in_go),\r
    ('I',var1_i_as_in_it), # '1' won't sound\r
    ('i:',e_as_in_eat), # 'i' won't sound\r
    ('u:',oo_as_in_food), # }: won't sound\r
    ('a_I',eye),('a_U',o_as_in_now),('e_I',a_as_in_ate),('O_I',oy_as_in_toy),(var1_oy_as_in_toy,'O_I',False),('o_U',var2_o_as_in_go),\r
    cleanup_regexps=[(r'\\',r'\\\\'),('"','&quot;'),('::',':')],\r
    lex_filename="",lex_entry_format="",\r
    lex_read_function=None,\r
    inline_oneoff_header=r'class Speak { public static void speak(android.app.Activity a,String s) { class OnInit implements android.speech.tts.TextToSpeech.OnInitListener { public OnInit(String s) { this.s = s; } public void onInit(int i) { mTts.speak(this.s, android.speech.tts.TextToSpeech.QUEUE_ADD, null); } private String s; }; if(mTts==null) mTts=new android.speech.tts.TextToSpeech(a,new OnInit(s),"com.svox.pico"); else mTts.speak(s, android.speech.tts.TextToSpeech.QUEUE_ADD, null); } private static android.speech.tts.TextToSpeech mTts = null; };'+'\n',\r
    inline_header=r'Speak.speak(this,"<speak xml:lang=\"en-US\">',\r
    inline_format=r'<phoneme alphabet=\"xsampa\" ph=\"%s\"/>',\r
    clause_separator=r".\n", # note r"\n" != "\n"\r
    inline_footer='</speak>");',\r
  ),\r
\r
  "acapela-uk" : makeDic(\r
    'Acapela-optimised X-SAMPA for UK English voices (e.g. "Peter"), contributed by Jan Weiss',\r
    ('.',syllable_separator),('"',primary_stress),('%',secondary_stress), # copied from "x-sampa", not tested\r
    ('A:',a_as_in_ah),\r
    ('{',a_as_in_apple),\r
    ('V',u_as_in_but),\r
    ('Q',o_as_in_orange),\r
    ('A',var1_o_as_in_orange),\r
    ('O',var2_o_as_in_orange),\r
    ('aU',o_as_in_now),\r
    ('{O',var1_o_as_in_now),\r
    ('@',a_as_in_ago),\r
    ('3:',e_as_in_herd),\r
    ('aI',eye),\r
    ('A e',var1_eye),\r
    ('b',b),\r
    ('t S',ch),\r
    ('d',d),\r
    ('D',th_as_in_them),\r
    ('e',e_as_in_them),\r
    (ar_as_in_year,'3:',False),\r
    ('e @',a_as_in_air),\r
    ('e r',var1_a_as_in_air),\r
    ('e :',var2_a_as_in_air),\r
    (var3_a_as_in_air,'e :',False),\r
    ('eI',a_as_in_ate),\r
    ('{I',var1_a_as_in_ate),\r
    ('f',f),\r
    ('g',g),\r
    ('h',h),\r
    ('I',i_as_in_it),\r
    ('1',var1_i_as_in_it),\r
    ('I@',ear),\r
    ('I r',var1_ear),\r
    ('i',e_as_in_eat),\r
    ('i:',var1_e_as_in_eat),\r
    ('dZ',j_as_in_jump),\r
    ('k',k),\r
    ('x',opt_scottish_loch),\r
    ('l',l),\r
    ('m',m),\r
    ('n',n),\r
    ('N',ng),\r
    ('@U',o_as_in_go),\r
    ('o U',var2_o_as_in_go),\r
    ('@ }',var1_u_as_in_but),\r
    ('OI',oy_as_in_toy),\r
    ('o I',var1_oy_as_in_toy),\r
    ('p',p),\r
    ('r',r),\r
    ('s',s),\r
    ('S',sh),\r
    ('t',t),\r
    ('T',th_as_in_think),\r
    ('U@',oor_as_in_poor),\r
    ('U r',var1_oor_as_in_poor),\r
    ('U',opt_u_as_in_pull),\r
    ('u:',oo_as_in_food),\r
    ('O:',close_to_or),\r
    (var1_close_to_or,'O',False),\r
    ('v',v),\r
    ('w',w),\r
    ('j',y),\r
    ('z',z),\r
    ('Z',ge_of_blige_etc),\r
    lex_filename="acapela.txt",\r
    lex_entry_format = "%s\t#%s\tUNKNOWN\n", # TODO: part-of-speech (as above)\r
    lex_read_function=lambda lexfile:[(word,pronunc.lstrip("#")) for word, pronunc, ignore in [l.split(None,2) for l in lexfile.readlines()]],\r
    inline_format = "\\Prn=%s\\",\r
    safe_to_drop_characters=True, # TODO: really?\r
  ),\r
\r
  "cmu" : makeDic(\r
    'format of the US-English Carnegie Mellon University Pronouncing Dictionary, contributed by Jan Weiss', # http://www.speech.cs.cmu.edu/cgi-bin/cmudict\r
    ('0',syllable_separator),\r
    ('1',primary_stress),\r
    ('2',secondary_stress),\r
    ('AA',a_as_in_ah),\r
    (var1_a_as_in_ah,'2',False),\r
    (ipa_colon,'1',False),\r
    ('AE',a_as_in_apple),\r
    ('AH',u_as_in_but),\r
    (o_as_in_orange,'AA',False),\r
    ('AW',o_as_in_now),\r
    (a_as_in_ago,'AH',False), # seems they don't use AX as festival-cmu does\r
    ('ER',e_as_in_herd), # TODO: check this one\r
    ('AY',eye),\r
    ('B',b),\r
    ('CH',ch),\r
    ('D',d),\r
    ('DH',th_as_in_them),\r
    ('EH',e_as_in_them),\r
    (ar_as_in_year,'ER',False),\r
    (a_as_in_air,'ER',False),\r
    ('EY',a_as_in_ate),\r
    ('F',f),\r
    ('G',g),\r
    ('HH',h),\r
    ('IH',i_as_in_it),\r
    ('EY AH',ear),\r
    ('IY',e_as_in_eat),\r
    ('JH',j_as_in_jump),\r
    ('K',k),\r
    ('L',l),\r
    ('M',m),\r
    ('N',n),\r
    ('NG',ng),\r
    ('OW',o_as_in_go),\r
    ('OY',oy_as_in_toy),\r
    ('P',p),\r
    ('R',r),\r
    ('S',s),\r
    ('SH',sh),\r
    ('T',t),\r
    ('TH',th_as_in_think),\r
    ('UH',oor_as_in_poor),\r
    ('UW',oo_as_in_food),\r
    ('AO',close_to_or),\r
    ('V',v),\r
    ('W',w),\r
    ('Y',y),\r
    ('Z',z),\r
    ('ZH',ge_of_blige_etc),\r
    # lex_filename not set (does CMU have a lex file?)\r
    safe_to_drop_characters=True, # TODO: really?\r
  ),\r
\r
  # BEGIN PRE-32bit ERA SYNTHS (TODO: add an attribute to JS-hide them by default in HTML?  what about the SpeakJet which probably isn't a 32-bit chip but is post 32-bit era?  and then what about the 'approximation' formats - kana etc - would they need hiding by default also?  maybe best to just leave it)\r
  "apollo" : makeDic(\r
    'Dolphin Apollo 2 serial-port and parallel-port hardware synthesizers (in case anybody still uses those)',\r
    (syllable_separator,'',False), # I don't think the Apollo had anything to mark stress; TODO: control the pitch instead like bbcmicro ?\r
    ('_QQ',syllable_separator,False), # a slight pause\r
    ('_AA',a_as_in_apple),\r
    ('_AI',a_as_in_ate),\r
    ('_AR',a_as_in_ah),\r
    ('_AW',close_to_or),\r
    ('_A',a_as_in_ago),\r
    ('_B',b),\r
    ('_CH',ch),\r
    ('_D',d),\r
    ('_DH',th_as_in_them),\r
    ('_EE',e_as_in_eat),\r
    ('_EI',a_as_in_air),\r
    ('_ER',e_as_in_herd),\r
    ('_E',e_as_in_them),\r
    ('_F',f),\r
    ('_G',g),\r
    ('_H',h),\r
    ('_IA',ear),\r
    ('_IE',eye),\r
    ('_I',i_as_in_it),\r
    ('_J',j_as_in_jump),\r
    ('_K',k),\r
    ('_KK',k,False), # sCHool\r
    ('_L',l),\r
    ('_M',m),\r
    ('_NG',ng),\r
    ('_N',n),\r
    ('_OA',o_as_in_go),\r
    ('_OO',opt_u_as_in_pull),\r
    ('_OR',var3_close_to_or),\r
    ('_OW',o_as_in_now),\r
    ('_OY',oy_as_in_toy),\r
    ('_O',o_as_in_orange),\r
    ('_P',p),\r
    ('_PP',p,False), # sPeech (a stronger P ?)\r
    # _Q = k w - done by cleanup_regexps below\r
    ('_R',r),\r
    ('_SH',sh),\r
    ('_S',s),\r
    ('_TH',th_as_in_think),\r
    ('_T',t), ('_TT',t,False),\r
    ('_UU',oo_as_in_food),\r
    ('_U',u_as_in_but),\r
    ('_V',v),\r
    ('_W',w),\r
    # _X = k s - done by cleanup_regexps below\r
    ('_Y',y),\r
    ('_ZH',ge_of_blige_etc),\r
    ('_Z',z),\r
    # lex_filename not set (the hardware doesn't have one; HAL has an "exceptions dictionary" but I don't know much about it)\r
    approximate_missing=True,\r
    safe_to_drop_characters=True, # TODO: really?\r
    word_separator=" ",phoneme_separator="",\r
    cleanup_regexps=[('_K_W','_Q'),('_K_S','_X')],\r
    cvtOut_regexps=[('_Q','_K_W'),('_X','_K_S')],\r
  ),\r
  "dectalk" : makeDic(\r
    'DECtalk hardware synthesizers (American English)', # (1984-ish serial port; later ISA cards)\r
    (syllable_separator,'',False),\r
    ("'",primary_stress),\r
    ('aa',o_as_in_orange),\r
    ('ae',a_as_in_apple),\r
    ('ah',u_as_in_but),\r
    ('ao',close_to_or), # bought\r
    ('aw',o_as_in_now),\r
    ('ax',a_as_in_ago),\r
    ('ay',eye),\r
    ('b',b),\r
    ('ch',ch),\r
    ('d',d), ('dx',d,False),\r
    ('dh',th_as_in_them),\r
    ('eh',e_as_in_them),\r
    ('el',l,False), # -le of bottle, allophone ?\r
    # TODO: en: -on of button (2 phonemes?)\r
    ('ey',a_as_in_ate),\r
    ('f',f),\r
    ('g',g),\r
    ('hx',h),\r
    ('ih',i_as_in_it), ('ix',i_as_in_it,False),\r
    ('iy',e_as_in_eat), ('q',e_as_in_eat,False),\r
    ('jh',j_as_in_jump),\r
    ('k',k),\r
    ('l',l), ('lx',l,False),\r
    ('m',m),\r
    ('n',n),\r
    ('nx',ng),\r
    ('ow',o_as_in_go),\r
    ('oy',oy_as_in_toy),\r
    ('p',p),\r
    ('r',r), ('rx',r,False),\r
    ('rr',e_as_in_herd),\r
    ('s',s),\r
    ('sh',sh),\r
    ('t',t), ('tx',t,False),\r
    ('th',th_as_in_think),\r
    ('uh',opt_u_as_in_pull),\r
    ('uw',oo_as_in_food),\r
    ('v',v),\r
    ('w',w),\r
    ('yx',y),\r
    ('z',z),\r
    ('zh',ge_of_blige_etc),\r
    ('ihr',ear), # DECtalk makes this from ih + r\r
    approximate_missing=True,\r
    cleanup_regexps=[('yxuw','yu')], # TODO: other allophones ("x',False" stuff above)?\r
    cvtOut_regexps=[('yu','yxuw')],\r
    # lex_filename not set (depends on which model etc)\r
    stress_comes_before_vowel=True,\r
    safe_to_drop_characters=True, # TODO: really?\r
    word_separator=" ",phoneme_separator="",\r
    inline_header="[:phoneme on]\n",\r
    inline_format="[%s]",\r
  ),\r
  "doubletalk" : makeDic(\r
    'DoubleTalk PC/LT serial-port hardware synthesizers (American English; assumes DOS driver by default, otherwise set DTALK_COMMAND_CODE to your current command-code binary value, e.g. export DTALK_COMMAND_CODE=1)', # (1 is the synth's default; the DOS driver lets you put * instead)\r
    (syllable_separator,'',False),\r
    ("/",primary_stress), # TODO: check it doesn't need a balancing \ afterwards (docs do say it's a "temporary" change of pitch, but it's unclear how long a 'temporary')\r
    ('M',m),('N',n),('NX',ng),('O',o_as_in_go),\r
    ('OW',o_as_in_go,False), # allophone\r
    (o_as_in_orange,'O',False), # TODO: is this the best approximation we can do?\r
    ('OY',oy_as_in_toy),('P',p),\r
    ('R',r),('S',s),('SH',sh),('T',t),\r
    ('TH',th_as_in_think),('V',v),('W',w),('Z',z),\r
    ('ZH',ge_of_blige_etc),('K',k),('L',l),\r
    ('PX',p,False), ('TX',t,False), # aspirated allophones\r
    ('WH',w,False), ('KX',k,False), # ditto\r
    ('YY',y),('Y',y,False),\r
    ('UH',opt_u_as_in_pull),('UW',oo_as_in_food),\r
    ('AA',a_as_in_ah),('AE',a_as_in_apple),\r
    ('AH',u_as_in_but),('AO',close_to_or),\r
    ('AW',o_as_in_now),('AX',a_as_in_ago),\r
    ('AY',eye),('B',b),('CH',ch),('D',d),\r
    ('DH',th_as_in_them),\r
    ('DX',t,False), # an American "d"-like "t"\r
    ('EH',e_as_in_them),('ER',e_as_in_herd),\r
    ('EY',a_as_in_ate),('F',f),('G',g),('H',h),\r
    ('IH',i_as_in_it),('IX',i_as_in_it,False),\r
    ('IY',e_as_in_eat),('JH',j_as_in_jump),\r
    approximate_missing=True,\r
    stress_comes_before_vowel=True,\r
    inline_format=markup_doubleTalk_word,\r
    format_is_binary=ifset('DTALK_COMMAND_CODE',True),\r
    # DoubleTalk does have a loadable "exceptions dictionary" but usually relies on a DOS tool to write it; I don't have the documentation about it (and don't know how much RAM is available for it - it's taken from the input buffer)\r
  ),\r
  "keynote" : makeDic(\r
    'Phoneme-read and lexicon-add codes for Keynote Gold hardware synthesizers (American English)', # ISA, PCMCIA, serial, etc; non-serial models give you an INT 2Fh param to get the address of an API function to call; not sure which software can send these codes directly to it)\r
    (syllable_separator,'',False),\r
    (primary_stress,"'"),(secondary_stress,'"'),\r
    ('w',w),('y',y),('h',h),('m',m),('n',n),('ng',ng),\r
    ('l',l),('r',r),('f',f),('v',v),('s',s),('z',z),\r
    ('th',th_as_in_think),('dh',th_as_in_them),('k',k),\r
    ('ch',ch),('zh',ge_of_blige_etc),('sh',sh),('g',g),\r
    ('jh',j_as_in_jump),('b',b),('p',p),('d',d),('t',t),\r
    ('i',e_as_in_eat),('I',i_as_in_it),\r
    ('e',a_as_in_ate),('E',e_as_in_them),\r
    ('ae',a_as_in_apple),('u',oo_as_in_food),\r
    ('U',opt_u_as_in_pull),('o',o_as_in_go),\r
    ('O',close_to_or),('a',o_as_in_orange),\r
    ('^',u_as_in_but),('R',e_as_in_herd),\r
    ('ay',eye),('Oy',oy_as_in_toy),('aw',o_as_in_now),\r
    ('=',a_as_in_ago),\r
    approximate_missing=True,\r
    inline_format="[p]%s[t]",\r
    lex_filename="keynote.dat", # you have to somehow get this directly dumped to the card, see comment above\r
    lex_entry_format="[x]%s %s", lex_footer="[t]\n",\r
    stress_comes_before_vowel=False, # even though it's "'"\r
  ),\r
  "audapter" : makeVariantDic(\r
  "Audapter Speech System, an old hardware serial/parallel-port synthesizer (American English)", # 1989 I think.  The phonemes themselves are the same as the Keynote above, but there's an extra binary byte in the commands and the lex format is stricter.  I haven't checked but my guess is Audapter came before Keynote.\r
  inline_format='\x05[p] %s\x05[t]',\r
  format_is_binary=True,\r
  lex_filename="audapter.dat",\r
  lex_entry_format="\x05[x]%s %s\x05[t]\n", lex_footer="",\r
  ),\r
  "bbcmicro" : makeDic(\r
    "BBC Micro Speech program from 1985 (see comments in lexconvert.py for more details)",\r
    # Speech was written by David J. Hoskins and published by Superior Software.  It took 7.5k of RAM including 3.1k of samples (49 phonemes + 1 for fricatives at 64 bytes each, 4-bit ~5.5kHz), 2.2k of lexicon, and 2.2k of machine code; sounds "retro" by modern standards but quite impressive for the BBC Micro in 1985.  Samples are played by amplitude-modulating the BBC's tone generator.\r
    # If you use an emulator like BeebEm, you'll need diskimg/Speech.ssd.  This can be made from your original Speech disc, or you might be able to find one but beware of copyright!  Same goes with the ROM images included in BeebEm (you might want to delete ones you didn't have).  There has been considerable discussion over whether UK copyright law does or should allow "format-shifting" your own legally-purchased media, and I don't fully understand all the discussion so I don't want to give advice on it here.  The issue is "format-shifting" your legally-purchased BBC Micro ROM code and Speech disc to emulator images; IF this is all right then I suspect downloading someone else's copy is arguably allowed as long as you bought it legally "back in the day", but I'm not a solicitor so I don't know.\r
    # (Incidentally, yes I was the Silas Brown referred to in Beebug 11.1 p.59, 11.9 p.50/11.10 p.47 and 12.10 p.24, and, no, the question in the final issue wasn't quite how I put it, but all taken in good humour.)\r
    # lexconvert's --phones bbcmicro option creates *SPEAK commands which you can type into the BBC Micro or paste into an emulator, either at the BASIC prompt, or in a listing with line numbers provided by AUTO.  You have to load the Speech program first of course.\r
    # To script this on BeebEm, first turn off the Speech disc's boot option (by turning off File / Disc options / Write protect and entering "*OPT 4,0"; use "*OPT 4,3" if you want it back later; if you prefer to edit the disk image outside of the emulator then change byte 0x106 from 0x33 to 0x03), and then you can do (e.g. on a Mac) open /usr/local/BeebEm3/diskimg/Speech.ssd && sleep 1 && (echo '*SPEECH';python lexconvert.py --phones bbcmicro "Greetings from 19 85") | pbcopy && osascript -e 'tell application "System Events" to keystroke "v" using command down'\r
    # or if you know it's already loaded: echo "Here is some text" | python lexconvert.py --phones bbcmicro | pbcopy && osascript -e 'tell application "BeebEm3" to activate' && osascript -e 'tell application "System Events" to keystroke "v" using command down'\r
    # (unfortunately there doesn't seem to be a way of doing it without giving the emulator window focus)\r
    # If you want to emulate a Master, you might need a *DISK before the *SPEECH (to take it out of ADFS mode).\r
    # You can also put Speech into ROM, but this can cause problems: see comments on SP8000 later.\r
    (syllable_separator,'',False),\r
    ('4',primary_stress),\r
    ('5',secondary_stress), # (these are pitch numbers on the BBC; normal pitch is 6, and lower numbers are higher pitches, so try 5=secondary and 4=primary; 3 sounds less calm)\r
    ('AA',a_as_in_ah),\r
    ('AE',a_as_in_apple),\r
    ('AH',u_as_in_but),\r
    ('O',o_as_in_orange),\r
    ('AW',o_as_in_now),\r
    (a_as_in_ago,'AH',False),\r
    ('ER',e_as_in_herd),\r
    ('IY',eye),\r
    ('B',b),\r
    ('CH',ch),\r
    ('D',d),\r
    ('DH',th_as_in_them),\r
    ('EH',e_as_in_them),\r
    (ar_as_in_year,'ER',False),\r
    ('AI',a_as_in_air),\r
    ('AY',a_as_in_ate),\r
    ('F',f),\r
    ('G',g),\r
    ('/H',h),\r
    ('IH',i_as_in_it),\r
    ('IX',var2_i_as_in_it), # (IX sounds to me like a slightly shorter version of IH)\r
    ('IXAH',ear),\r
    ('EER',var2_ear), # e.g. 'hear', 'near' - near enough\r
    ('EE',e_as_in_eat),\r
    ('J',j_as_in_jump),\r
    ('K',k),\r
    ('C',k,False), # for CT as in "fact", read out as K+T\r
    ('L',l),\r
    ('M',m),\r
    ('N',n),\r
    ('NX',ng),\r
    ('OW',o_as_in_go),\r
    ('OL',opt_ol_as_in_gold), # (if dest format doesn't have this, it'll get o_as_in_orange from the O, then the l)\r
    ('OY',oy_as_in_toy),\r
    ('P',p),\r
    ('R',r),\r
    ('S',s),\r
    ('SH',sh),\r
    ('T',t),\r
    ('TH',th_as_in_think),\r
    ('AOR',oor_as_in_poor),\r
    ('UH',oor_as_in_poor,False), # TODO: really? (espeak 'U' goes to opt_u_as_in_pull, and eSpeak also used U for the o in good, which sounds best with Speech's default UH4, hence the line below, but where did we get UH->oor_as_in_poor from?  Low-priority though because how often do you convert OUT of bbcmicro format)\r
    (opt_u_as_in_pull,'UH',False),\r
    ('/U',opt_u_as_in_pull,False),\r
    ('/UL',opt_ul_as_in_pull), # if dest format doesn't have this, it'll get opt_u_as_in_pull from the /U, then l\r
    ('UW',oo_as_in_food),\r
    ('UX',oo_as_in_food,False),\r
    ('AO',close_to_or),\r
    ('V',v),\r
    ('W',w),\r
    ('Y',y),\r
    ('Z',z),\r
    ('ZH',ge_of_blige_etc),\r
    lex_filename=ifset("MAKE_SPEECH_ROM","SPEECH.ROM","BBCLEX"),\r
    lex_entry_format=as_utf8("> %s_")+chr(128)+as_utf8("%s"), # (specifying 'whole word' for now; remove the space before or the _ after if you want)\r
    lex_read_function = lambda lexfile: [(w[0].lstrip().rstrip('_').lower(),w[1]) for w in filter(lambda x:len(x)==2,[w.split(chr(128)) for w in getBuf(lexfile).read().split('>')])], # TODO: this reads back the entries we generate, but is unlikely to work well with the wildcards in the default lexicon that would have been added if SPEECH_DISK was set (c.f. trying to read eSpeak's en_rules instead of en_extra)\r
    lex_word_case = "upper",\r
    lex_header = bbc_prepDefaultLex,\r
    lex_footer = bbc_appendDefaultLex, # + ">**"\r
    inline_format = markup_bbcMicro_word,\r
    word_separator=" ",phoneme_separator="",\r
    clause_separator=write_bbcmicro_phones, # special case\r
    safe_to_drop_characters=True, # TODO: really?\r
    cleanup_regexps=[\r
      ('KT','CT'), # Speech instructions: "CT as in fact"\r
      ('DYUW','DUX'), # "DUX as in duke"\r
      ('AHR$','AH'), # usually sounds a bit better\r
    ],\r
    cvtOut_regexps=[('DUX','DYUW')], # CT handled above\r
  ),\r
  "bbcmicro-cc" : makeDic(\r
     "Computer Concepts Speech ROM which provided phonemes for the BBC Micro's TMS5220 \"speech chip\" add-on (less widely sold than the software-only product)", # (and harder to run on an emulator.  It wasn't the only phoneme ROM, e.g. Easytalk Speech Utility ROM by Galaxy, reviewed in Beebug Jan/Feb 1985 (3.8) p.32, expanded on Acorn's original PHROM with commands like *SAY Y.U:N.I.V.ER.S but we don't know all the phonemes; there were also some allophone-based hardware boards)\r
     (syllable_separator,"",False),\r
     ('*',primary_stress),('+',secondary_stress),\r
     ('E',e_as_in_eat),('i',i_as_in_it),('e',e_as_in_them),\r
     ('a',a_as_in_apple),('u',u_as_in_but),('AR',a_as_in_ah),\r
     ('o',o_as_in_orange),('OR',close_to_or),('oo',opt_u_as_in_pull),\r
     ('OO',oo_as_in_food),('ER',e_as_in_herd),('A',a_as_in_ate),\r
     ('I',eye),('O',o_as_in_go),('OY',oy_as_in_toy),\r
     ('AW',o_as_in_now),('EA',ear),('ea',a_as_in_air),\r
     ('UR',oor_as_in_poor),('UH',a_as_in_ago),\r
     ('P',p),('B',b),('T',t),\r
     ('D',d),('K',k),('G',g),\r
     ('CH',ch),('J',j_as_in_jump),('F',f),\r
     ('V',v),('TH',th_as_in_think),('DH',th_as_in_them),\r
     ('S',s),('Z',z),('SH',sh),\r
     ('ZH',ge_of_blige_etc),('H',h),('M',m),\r
     ('N',n),('NG',ng),('L',l),\r
     ('R',r),('Y',y),('W',w),\r
     stress_comes_before_vowel=True,\r
     inline_header="*UTTER <1> ",\r
     clause_separator="\n*UTTER <1> ", # TODO: manual does not say what the maximum length is; longest parameter in examples is 80 bytes; should we use inline_format to make each WORD a separate command?\r
     cleanup_regexps=[('[*] ','*'),('[+] ','+')],\r
     safe_to_drop_characters=' ',\r
  ),\r
     \r
  "amiga" : makeDic(\r
    'AmigaOS speech synthesizer (American English)', # shipped with the 1985 Amiga release; developed by SoftVoice Inc\r
    # All I had to go by for this was a screenshot on Marcos Miranda's "blog".  I once saw this synth demonstrated but never tried it.  My early background was the BBC Micro, not Amigas etc.  But I know some people are keen on Amigas so I might as well include it.\r
    # (By the way I think David Hoskins had it harder than SoftVoice.  Yes they were both in 1985, but the Amiga was a new 16-bit machine while the BBC was an older 8-bit one.  See the "sam" format for an even older one though, although probably not written by one person.)\r
    (syllable_separator,'',False),\r
    ('4',primary_stress),('3',secondary_stress),\r
    ('/H',h),\r
    ('EH',e_as_in_them),\r
    ('L',l),\r
    ('OW',o_as_in_go),\r
    ('AY',eye),\r
    ('AE',a_as_in_apple),\r
    ('M',m),\r
    ('DH',th_as_in_them),\r
    ('IY',e_as_in_eat),\r
    ('AH',a_as_in_ago),\r
    ('G',g),\r
    ('K',k),\r
    ('U',u_as_in_but),\r
    ('P',p),\r
    ('Y',y),\r
    ('UW',oo_as_in_food),\r
    ('T',t),\r
    ('ER',var1_a_as_in_ago),\r
    ('IH',i_as_in_it),\r
    ('S',s),\r
    ('Z',z),\r
    ('AW',o_as_in_now),\r
    ('AA',a_as_in_ah),\r
    ('R',r),\r
    ('D',d),('F',f),('N',n),('NX',ng),('J',j_as_in_jump),\r
    ('B',b),('V',v),('TH',th_as_in_think),\r
    ('OH',close_to_or),('EY',a_as_in_ate),\r
    # The following consonants were not on the screenshot\r
    # (or at least I couldn't find them) so I'm guessing.\r
    # I think this should work given the way the other\r
    # consonants work in this table.\r
    ('W',w),('CH',ch),('SH',sh),\r
    # The following vowels were not in the screenshot and\r
    # we just have to hope this guess is right - when\r
    # someone tries it on an Amiga and says it doesn't\r
    # work, maybe we can update this....\r
    ('O',o_as_in_orange),('OY',oy_as_in_toy),\r
    # and these ones we can approximate to ones we already know (given that we're having to approximate British to an American voice anyway, it can't hurt TOO much more)\r
     (a_as_in_air,'EH',False),\r
     (e_as_in_herd,'ER',False),\r
     (ar_as_in_year,'ER',False),\r
     (ear,'IYAH',False), # or try IYER, or there might be a phoneme for it\r
     (ge_of_blige_etc,'J',False),\r
     (oor_as_in_poor,'OH',False),\r
    # lex_filename not set (I have no idea how the Amiga lexicon worked)\r
    safe_to_drop_characters=True, # TODO: really?\r
    word_separator=" ",phoneme_separator="",\r
  ),\r
  "sam" : makeDic(\r
  'Software Automatic Mouth (1982 American English synth that ran on C64, Atari 400/800/etc and Apple II/etc)', # *might* be similar to Macintalk on the 1st Macintosh in 1984\r
  (syllable_separator,'',False),\r
  (primary_stress,'4'),\r
  (secondary_stress,'5'),\r
  ('IY',e_as_in_eat),\r
  ('IH',i_as_in_it),\r
  ('EH',e_as_in_them),\r
  ('AE',a_as_in_apple),\r
  ('AA',o_as_in_orange),\r
  ('AH',u_as_in_but),\r
  ('AO',close_to_or),\r
  ('OH',o_as_in_go),\r
  ('UH',opt_u_as_in_pull),\r
  ('UX',oo_as_in_food),\r
  ('ER',e_as_in_herd),\r
  ('AX',a_as_in_apple,False), # allophone?\r
  ('IX',i_as_in_it,False), # allophone?\r
  ('EY',a_as_in_ate),\r
  ('AY',eye),('OY',oy_as_in_toy),\r
  ('AW',o_as_in_now),('OW',o_as_in_go,False),\r
  ('UW',oo_as_in_food,False), # allophone?\r
  ('R',r),('L',l),('W',w),('WH',w,False),('Y',y),('M',m),\r
  ('N',n),('NX',ng),('B',b),('D',d),('G',g),('Z',z),\r
  ('J',j_as_in_jump),('ZH',ge_of_blige_etc),('V',v),\r
  ('DH',th_as_in_them),('S',s),('SH',sh),('F',f),\r
  ('TH',th_as_in_think),('P',p),('T',t),('K',k),\r
  ('CH',ch),('/H',h),('Q',glottal_stop),\r
  approximate_missing=True,\r
  word_separator=" ",phoneme_separator="",\r
  # TODO: inline_format etc similar to bbcmicro?\r
  # In Atari BASIC, you set SAM$ to the phonemes and then\r
  # do A=USR(8192).  I don't know about the C64 etc versions.\r
  # (max 255 phonemes per string; don't know max line len.)\r
  ),\r
\r
  "cheetah" : makeDic(\r
     'Allophone codes for the 1983 "Cheetah Sweet Talker" SP0256-based hardware add-on for ZX Spectrum and BBC Micro home computers. The conversion from phonemes to allophones might need tweaking.',\r
     (syllable_separator,'',False),\r
     ("0",syllable_separator,False),\r
     ("1",syllable_separator,False),\r
     ("2",syllable_separator,False),\r
     ("3",syllable_separator,False),\r
     ("4",syllable_separator,False),\r
     ("5",oy_as_in_toy),\r
     ("6",eye),\r
     ("7",e_as_in_them),\r
     ("8",k,False),\r
     ("9",p),\r
     ("10",j_as_in_jump),\r
     ("11",n),\r
     ("12",i_as_in_it),\r
     ("13",t),\r
     ("14",r),\r
     ("15",u_as_in_but),\r
     ("16",m),\r
     ("17",t,False),\r
     ("18",th_as_in_them),\r
     ("19",e_as_in_eat),\r
     ("20",a_as_in_ate),\r
     ("21",d),\r
     ("22",oo_as_in_food),\r
     ("23",close_to_or),\r
     ("24",o_as_in_orange),\r
     ("25",y),\r
     ("26",a_as_in_apple),\r
     ("27",h),\r
     ("28",b),\r
     ("29",th_as_in_think),\r
     (opt_u_as_in_pull,"30",False),\r
     ("30",opt_ul_as_in_pull),\r
     ("31",oo_as_in_food,False),\r
     ("32",o_as_in_now),\r
     ("33",d,False),\r
     ("34",g,False),\r
     ("35",v),\r
     ("36",g),\r
     ("37",sh),\r
     ("38",ge_of_blige_etc),\r
     ("39",r,False),\r
     ("40",f),\r
     ("41",k),\r
     ("42",k,False),\r
     ("43",z),\r
     ("44",ng),\r
     ("45",l),\r
     ("46",w),\r
     ("47",a_as_in_air),\r
     ("49",y,False),\r
     ("50",ch),\r
     ("51",a_as_in_ago),\r
     ("52",e_as_in_herd),\r
     (var1_a_as_in_ago,"52",False),\r
     ("53",o_as_in_go),\r
     ("54",th_as_in_them,False),\r
     ("55",s),\r
     ("56",n,False),\r
     ("57",h,False),\r
     ("58",var3_close_to_or),\r
     ("59",a_as_in_ah),\r
     ("60",ear), # or var2_ear\r
     ("61",g,False),\r
     ("62",l,False),\r
     ("63",b,False),\r
     approximate_missing=True,\r
     phoneme_separator=',',safe_to_drop_characters=",",\r
     inline_header="DATA ",inline_footer=",0"),\r
\r
  # END (?) PRE-32bit ERA SYNTHS (but see TODO above re SpeakJet, which is below)\r
\r
  "speakjet" : makeDic(\r
    'Allophone codes for the American English "SpeakJet" speech synthesis chip (the conversion from phonemes to allophones might need tweaking).  Set the SPEAKJET_SYM environment variable to use mnemonics, otherwise numbers are used (set SPEAKJET_BINARY for binary output).',\r
  # TODO: might want to do something similar for the older Votrax SC-02 chip, but would need to check how exactly its phoneme interface was exposed to software by the PC cards that used it (Heathkit HV-2000 etc; not sure if any are still in use though)\r
    (syllable_separator,'',False), # TODO: instead of having emphasis, the Speakjet has a 'faster' code for all NON-emphasized syllables\r
    (speakjet('IY',128),e_as_in_eat),\r
    (speakjet('IH',129),i_as_in_it),\r
    (speakjet('EY',130),a_as_in_ate),\r
    (speakjet('EH',131),e_as_in_them),\r
    (speakjet('AY',132),a_as_in_apple),\r
    (speakjet('AX',133),a_as_in_ago),\r
    (speakjet('UX',134),u_as_in_but),\r
    (speakjet('OH',135),o_as_in_orange),\r
    (speakjet('AW',136),a_as_in_ah),\r
    (speakjet('OW',137),o_as_in_go),\r
    (speakjet('UH',138),opt_u_as_in_pull),\r
    (speakjet('UW',139),oo_as_in_food),\r
    (speakjet('MM',140),m),\r
    (speakjet('NE',141),n,False),\r
    (speakjet('NO',142),n),\r
    (speakjet('NGE',143),ng,False),\r
    (speakjet('NGO',144),ng),\r
    (speakjet('LE',145),l,False),\r
    (speakjet('LO',146),l),\r
    (speakjet('WW',147),w),\r
    (speakjet('RR',148),r),\r
    (speakjet('IYRR',149),ear),\r
    (speakjet('EYRR',150),a_as_in_air),\r
    (speakjet('AXRR',151),e_as_in_herd),\r
    (speakjet('AWRR',152),a_as_in_ah,False),\r
    (speakjet('OWRR',153),close_to_or),\r
    (speakjet('EYIY',154),a_as_in_ate,False),\r
    (speakjet('OHIY',155),eye),\r
    (speakjet('OWIY',156),oy_as_in_toy),\r
    (speakjet('OHIH',157),eye,False),\r
    (speakjet('IYEH',158),y),\r
    (speakjet('EHLL',159),l,False),\r
    (speakjet('IYUW',160),oo_as_in_food,False),\r
    (speakjet('AXUW',161),o_as_in_now),\r
    (speakjet('IHUW',162),oo_as_in_food,False),\r
    # TODO: 163 AYWW = o_as_in_now a_as_in_ago ? handle in cleanup_regexps + cvtOut_regexps ?\r
    (speakjet('OWWW',164),o_as_in_go,False),\r
    (speakjet('JH',165),j_as_in_jump),\r
    (speakjet('VV',166),v),\r
    (speakjet('ZZ',167),z),\r
    (speakjet('ZH',168),ge_of_blige_etc),\r
    (speakjet('DH',169),th_as_in_them),\r
    # TODO: get cleanup_regexps to clean up some of these according to what's coming next etc:\r
    (speakjet('BE',170),b,False),\r
    (speakjet('BO',171),b),\r
    (speakjet('EB',172),b,False),\r
    (speakjet('OB',173),b,False),\r
    (speakjet('DE',174),d,False),\r
    (speakjet('DO',175),d),\r
    (speakjet('ED',176),d,False),\r
    (speakjet('OD',177),d,False),\r
    (speakjet('GE',178),g,False),\r
    (speakjet('GO',179),g),\r
    (speakjet('EG',180),g,False),\r
    (speakjet('OG',181),g,False),\r
    (speakjet('CH',182),ch),\r
    (speakjet('HE',183),h,False),\r
    (speakjet('HO',184),h),\r
    (speakjet('WH',185),w,False),\r
    (speakjet('FF',186),f),\r
    (speakjet('SE',187),s,False),\r
    (speakjet('SO',188),s),\r
    (speakjet('SH',189),sh),\r
    (speakjet('TH',190),th_as_in_think),\r
    (speakjet('TT',191),t),\r
    (speakjet('TU',192),t,False),\r
    # TODO: 193 TS in cleanup_regexps and cvtOut_regexps\r
    (speakjet('KE',194),k,False),\r
    (speakjet('KO',195),k),\r
    (speakjet('EK',196),k,False),\r
    (speakjet('OK',197),k,False),\r
    (speakjet('PE',198),p,False),\r
    (speakjet('PO',199),p),\r
    # lex_filename not set (I think the front-end software might have one, but don't know if it's accessible; chip itself just takes phonemes)\r
    approximate_missing=True,\r
    word_separator=ifset('SPEAKJET_BINARY',""," "),\r
    phoneme_separator=ifset('SPEAKJET_BINARY',""," "),\r
    clause_separator=ifset('SPEAKJET_BINARY',"","\n"), # TODO: is there a pause code?\r
    output_is_binary=ifset('SPEAKJET_BINARY',True),\r
    safe_to_drop_characters=True, # TODO: really?\r
  ),\r
\r
  "rsynth" : makeDic(\r
    'rsynth text-to-speech C library (American English)', # TODO: test\r
    (syllable_separator,'',False), # TODO: emphasis?\r
    ("i:",e_as_in_eat),\r
    ("I",i_as_in_it),\r
    ("eI",a_as_in_ate),\r
    ("E",e_as_in_them),\r
    ("{",a_as_in_apple),\r
    ("V",u_as_in_but),\r
    ("Q",o_as_in_orange),\r
    ("A:",a_as_in_ah),\r
    ("oU",o_as_in_go),\r
    ("U",opt_u_as_in_pull),\r
    ("u:",oo_as_in_food),\r
    ("m",m),\r
    ("n",n),\r
    ("N",ng),\r
    ("l",l),\r
    ("w",w),\r
    ("r",r),\r
    ("I@",ear),\r
    ("e@",a_as_in_air),\r
    ("3:",e_as_in_herd),\r
    ("Qr",close_to_or),\r
    ("OI",oy_as_in_toy),\r
    ("aI",eye),\r
    ("j",y),\r
    ("U@",oo_as_in_food,False),\r
    ("aU",o_as_in_now),\r
    ("@U",o_as_in_go,False),\r
    ("dZ",j_as_in_jump),\r
    ("v",v),\r
    ("z",z),\r
    ("Z",ge_of_blige_etc),\r
    ("D",th_as_in_them),\r
    ("b",b),\r
    ("d",d),\r
    ("g",g),\r
    ("tS",ch),\r
    ("h",h),\r
    ("f",f),\r
    ("s",s),\r
    ("S",sh),\r
    ("T",th_as_in_think),\r
    ("t",t),\r
    ("k",k),\r
    ("p",p),\r
    approximate_missing=True,\r
    # lex_filename not set (TODO: check what sort of lexicon is used by rsynth's "say" front-end)\r
    safe_to_drop_characters=True, # TODO: really?\r
    word_separator=" ",phoneme_separator="",\r
  ),\r
\r
  "unicode-ipa" : makeDic(\r
    "IPA symbols in Unicode, as used by an increasing number of dictionary programs, websites etc",\r
    ('.',syllable_separator,False),\r
    (syllable_separator,'',False),\r
    (u'\u02c8',primary_stress),\r
    (u'\u02cc',secondary_stress),\r
    # NB the above two are "modifier", not "combining",\r
    # Unicode characters.  There IS a difference.  If\r
    # your software displays them as overprinting the\r
    # surrounding letters, you have a bug.\r
    # (E.g. WeChat v1.2.2.1 on Mac OS 10.7)\r
    ('#',text_sharp),\r
    ('_',text_underline),\r
    ('?',text_question),\r
    ('!',text_exclamation),\r
    (',',text_comma),\r
    (u'\u0251',a_as_in_ah),\r
    (u'\u02d0',ipa_colon),\r
    (u'\u0251\u02d0',var3_a_as_in_ah),\r
    (u'\u0251\u0279',var4_a_as_in_ah),\r
    (u'a\u02d0',var5_a_as_in_ah),\r
    (u'\xe6',a_as_in_apple),\r
    ('a',a_as_in_apple,False),\r
    (u'\u028c',u_as_in_but),\r
    ('\u1d27',u_as_in_but,False), # 28c sometimes mistakenly written as 1d27\r
    (u'\u0252',o_as_in_orange),\r
    (var1_o_as_in_orange,u'\u0251',False),\r
    (u'\u0254',var2_o_as_in_orange),\r
    (u'a\u028a',o_as_in_now),\r
    (u'\xe6\u0254',var1_o_as_in_now),\r
    (u'\u0259',a_as_in_ago),\r
    (u'\u0259\u02d0',e_as_in_herd),\r
    (u'\u025a',var1_a_as_in_ago),\r
    (u'a\u026a',eye), (u'\u028c\u026a',eye,False),\r
    (u'\u0251e',var1_eye),\r
    ('b',b),\r
    (u't\u0283',ch),\r
    (u'\u02a7',ch,False),\r
    ('d',d),\r
    (u'\xf0',th_as_in_them),\r
    (u'\u025b',e_as_in_them),\r
    ('e',var1_e_as_in_them),\r
    (u'\u025d',ar_as_in_year),\r
    (u'\u025c\u02d0',ar_as_in_year,False),\r
    (u'\u025b\u0259',a_as_in_air),\r
    (u'\u025b\u0279',var1_a_as_in_air),\r
    (u'e\u02d0',var2_a_as_in_air),\r
    (u'\u025b\u02d0',var3_a_as_in_air),\r
    (u'e\u0259',var4_a_as_in_air),\r
    (u'e\u026a',a_as_in_ate),\r
    (u'\xe6\u026a',var1_a_as_in_ate),\r
    ('f',f),\r
    (u'\u0261',g), ('g',g,False),\r
    ('h',h),\r
    (u'\u026a',i_as_in_it),\r
    (u'\u0268',var1_i_as_in_it),\r
    (u'\u026a\u0259',ear),\r
    (u'\u026a\u0279',var1_ear),\r
    (u'\u026a\u0279\u0259',var2_ear), # ?\r
    ('i',e_as_in_eat),\r
    (u'i\u02d0',var1_e_as_in_eat),\r
    (u'd\u0292',j_as_in_jump),\r
    (u'\u02a4',j_as_in_jump,False),\r
    ('k',k),\r
    ('x',opt_scottish_loch),\r
    ('l',l),\r
    (u'd\u026b',var1_l),\r
    ('m',m),\r
    ('n',n),\r
    (u'\u014b',ng),\r
    (u'\u0259\u028a',o_as_in_go),\r
    ('o',var1_o_as_in_go),\r
    (u'o\u028a',var2_o_as_in_go),\r
    (u'\u0259\u0289',var1_u_as_in_but),\r
    (u'\u0254\u026a',oy_as_in_toy),\r
    (u'o\u026a',var1_oy_as_in_toy),\r
    ('p',p),\r
    (u'\u0279',r), ('r',r,False),\r
    (var1_r,'r',False),\r
    ('s',s),\r
    (u'\u0283',sh),\r
    ('t',t),\r
    (u'\u027e',var1_t),\r
    (u'\u03b8',th_as_in_think),\r
    (u'\u028a\u0259',oor_as_in_poor),\r
    (u'\u028a\u0279',var1_oor_as_in_poor),\r
    (u'\u028a',opt_u_as_in_pull),\r
    (u'\u0289\u02d0',oo_as_in_food),\r
    (u'u\u02d0',var1_oo_as_in_food),\r
    ('u',var2_oo_as_in_food),\r
    (u'\u0254\u02d0',close_to_or),\r
    (var1_close_to_or,u'\u0254',False),\r
    (u'o\u02d0',var2_close_to_or),\r
    ('v',v),\r
    ('w',w),\r
    (u'\u028d',var1_w),\r
    ('j',y),\r
    ('z',z),\r
    (u'\u0292',ge_of_blige_etc),\r
    (u'\u0294',glottal_stop),\r
    lex_filename="words-ipa.html", # write-only for now\r
    lex_type = "HTML",\r
    lex_header = '<html><head><meta name="mobileoptimized" content="0"><meta name="viewport" content="width=device-width"><meta http-equiv="Content-Type" content="text/html; charset=utf-8"></head><body><table>',\r
    lex_entry_format="<tr><td>%s</td><td>%s</td></tr>\n",\r
    lex_footer = "</table></body></html>\n",\r
    word_separator=" ",phoneme_separator="",\r
    stress_comes_before_vowel=True,\r
    safe_to_drop_characters=True, # TODO: really? (at least '-' should be safe to drop)\r
    cvtOut_func=unicode_preprocess,\r
  ),\r
\r
  "unicode-ipa-syls" : makeVariantDic(\r
  "Like unicode-ipa but with syllable separators preserved",\r
  (syllable_separator,'.'),\r
  cleanup_regexps=[(r"\.+",".")], # multiple . to one .\r
  noInherit=True),\r
\r
  "yinghan" : makeVariantDic(\r
     "As unicode-ipa but, when converting a user lexicon, generates Python code that reads Wenlin Yinghan dictionary entries and adds IPA bands to matching words",\r
    lex_filename="yinghan-ipa.py", # write-only for now\r
    lex_type = "Python script",\r
    lex_header = r"""#!/usr/bin/env python\r
# -*- coding: utf-8 -*-\r
\r
# Works in both Python 2 and Python 3\r
\r
import sys; d={""",\r
    lex_entry_format='u"%s":u"%s",\n',\r
    lex_footer = r"""}\r
import re\r
try: i,o=sys.stdin.buffer,sys.stdout.buffer # Python 3\r
except AttributeError: i,o=sys.stdin,sys.stdout # Python 2\r
for k in list(d.keys()): d[k.lower().encode('utf-8')]=d[k]\r
nextIsHead=False\r
for l in i:\r
 o.write(l)\r
 if nextIsHead and l.strip():\r
  w=l.split()\r
  if w[0]==u'ehw'.encode('utf-8'): l=u' '.encode('utf-8').join(w[1:])\r
  k = re.sub(u'\\([^)]*\\)$'.encode('utf-8'),u''.encode('utf-8'),l.strip()).strip().lower() # (allow parenthesised explanation after headword when matching)\r
  if k in d: o.write(u'ipa '.encode('utf-8')+d[k].encode('utf-8')+u'\n'.encode('utf-8'))\r
 if l.startswith(u'*** '.encode('utf-8')): nextIsHead=True\r
""",\r
    noInherit=True\r
  ),\r
\r
  "unicode-rough" : makeVariantDic(\r
    "A non-standard notation that's reminiscent of unicode-ipa but changed so that more of the characters show in old browsers with incomplete fonts",\r
    ("'",primary_stress),\r
    (',',secondary_stress),\r
    ('ar-',a_as_in_ah),\r
    (':',ipa_colon),\r
    (var3_a_as_in_ah,'ar-',False),\r
    (var4_a_as_in_ah,'ar-',False),\r
    ('uh',u_as_in_but),\r
    (u'\u0259:',e_as_in_herd),\r
    ('ai',eye),\r
    ('ch',ch),\r
    ('e',e_as_in_them),\r
    ('3:',ar_as_in_year),\r
     (a_as_in_air,'e:',False),\r
     (var1_a_as_in_air,'e:',False),\r
     (var2_a_as_in_air,'e:',False),\r
     (var3_a_as_in_air,'e:',False),\r
     (var4_a_as_in_air,'e:',False),\r
    (u'ei',a_as_in_ate),\r
    (u'\xe6i',var1_a_as_in_ate),\r
    ('g',g),\r
    ('i',i_as_in_it), (var1_i_as_in_it,'i',False),\r
    ('eeuh-',ear), (var2_ear,'eeuh-',False),\r
    ('ee',e_as_in_eat), (var1_e_as_in_eat,'ee',False),\r
    ('j',j_as_in_jump),\r
    ('ng',ng),\r
    ('o',o_as_in_go),\r
    (var2_o_as_in_go,'o',False), # override unicode-ipa\r
    (var1_u_as_in_but,'o',False), # ditto (?? '+'?)\r
    ('oy',oy_as_in_toy), (var1_oy_as_in_toy,'oy',False),\r
    ('r',r),\r
    ('sh',sh),\r
    (var1_t,'t',False),\r
    ('th',th_as_in_think),\r
    ('or',oor_as_in_poor),\r
    (var1_oor_as_in_poor,'or',False),\r
    ('u',opt_u_as_in_pull), ('oo',oo_as_in_food),\r
     (var1_oo_as_in_food,'oo',False),\r
     (var2_oo_as_in_food,'oo',False),\r
     (close_to_or,'or',False),\r
     (var1_close_to_or,'or',False),\r
     (var2_close_to_or,'or',False),\r
     (var1_w,'w',False),\r
    ('y',y),\r
    ('3',ge_of_blige_etc),\r
     cleanup_regexps=[('-$','')],\r
    cvtOut_func=None,\r
  ),\r
\r
  "braille-ipa" : makeDic(\r
    "IPA symbols in Braille (2008 BANA standard).  By default Braille ASCII is output; if you prefer to see the Braille dots via Unicode, set the BRAILLE_UNICODE environment variable.", # BANA = Braille Authority of North America.  TODO: check if the UK accepted this standard.\r
    # TODO: add Unicode IPA signs that aren't used in English IPA, so we can do a general IPA conversion\r
    ('_B',primary_stress),\r
    ('_2',secondary_stress),\r
    ('*',a_as_in_ah),\r
    ('3',ipa_colon),\r
    ('*3',var3_a_as_in_ah),\r
    ('*#',var4_a_as_in_ah),\r
    ('A3',var5_a_as_in_ah),\r
    ('%',a_as_in_apple),\r
    ('A',a_as_in_apple,False),\r
    ('+',u_as_in_but),\r
    ('4*',o_as_in_orange),\r
    (var1_o_as_in_orange,'*',False),\r
    ('<',var2_o_as_in_orange),\r
    ('A(',o_as_in_now),\r
    ('%<',var1_o_as_in_now),\r
    ('5',a_as_in_ago),\r
    ('53',e_as_in_herd),\r
    ('5"R.',var1_a_as_in_ago),\r
    ('A/',eye),\r
    ('*E',var1_eye),\r
    ('B',b),\r
    ('T:',ch),\r
    ('T":.',ch,False),\r
    ('D',d),\r
    (']',th_as_in_them),\r
    ('>',e_as_in_them),\r
    ('E',var1_e_as_in_them),\r
    ('4>3',ar_as_in_year), # (from \u025c\u02d0; TODO: check what happens to \u025d)\r
    ('>5',a_as_in_air),\r
    ('>#',var1_a_as_in_air),\r
    ('E3',var2_a_as_in_air),\r
    ('>3',var3_a_as_in_air),\r
    ('E5',var4_a_as_in_air),\r
    ('E/',a_as_in_ate),\r
    ('%/',var1_a_as_in_ate),\r
    ('F',f),\r
    ('G',g),\r
    ('H',h),\r
    ('/',i_as_in_it),\r
    ('0I',var1_i_as_in_it),\r
    ('/5',ear),\r
    ('/#',var1_ear),\r
    ('/#5',var2_ear), # ?\r
    ('I',e_as_in_eat),\r
    ('I3',var1_e_as_in_eat),\r
    ('D!',j_as_in_jump),\r
    ('K',k),\r
    ('X',opt_scottish_loch),\r
    ('L',l),\r
    ('D6L',var1_l),\r
    ('M',m),\r
    ('N',n),\r
    ('$',ng),\r
    ('5(',o_as_in_go),\r
    ('O',var1_o_as_in_go),\r
    ('O(',var2_o_as_in_go),\r
    ('50U',var1_u_as_in_but),\r
    ('</',oy_as_in_toy),\r
    ('O/',var1_oy_as_in_toy),\r
    ('P',p),\r
    ('#',r),\r
    (var1_r,'R',False),\r
    ('S',s),\r
    (':',sh),\r
    ('T',t),\r
    ('6R',var1_t),\r
    ('.?',th_as_in_think),\r
    ('(5',oor_as_in_poor),\r
    ('(#',var1_oor_as_in_poor),\r
    ('(',opt_u_as_in_pull),\r
    ('0U3',oo_as_in_food),\r
    ('U3',var1_oo_as_in_food),\r
    ('U',var2_oo_as_in_food),\r
    ('<3',close_to_or),\r
    (var1_close_to_or,'<',False),\r
    ('O3',var2_close_to_or),\r
    ('V',v),\r
    ('W',w),\r
    ('6W',var1_w),\r
    ('J',y),\r
    ('Z',z),\r
    ('!',ge_of_blige_etc),\r
    ('2',glottal_stop),\r
    lex_filename=ifset("BRAILLE_UNICODE","words-ipa.txt","words-ipa.brl"), # write-only for now\r
    lex_type = "document",\r
    # inline_format=",7%s7'", # -> do this in cleanup_func so it's included in BRAILLE_UNICODE if necessary\r
    lex_entry_format="%s = %s\n", # ditto with the markers\r
    word_separator=" ",phoneme_separator="",\r
    stress_comes_before_vowel=True,\r
    safe_to_drop_characters=True, # TODO: really?\r
    cleanup_func=lambda r:ifset("BRAILLE_UNICODE",ascii_braille_to_unicode,lambda x:x)(",7"+r+"7'"),\r
    cvtOut_func=unicode_to_ascii_braille,\r
  ),\r
  \r
  "latex-ipa" : makeDic(\r
    'IPA symbols for typesetting in LaTeX using the "tipa" package',\r
    ('.',syllable_separator,False),\r
    ('"',primary_stress),\r
    ('\\textsecstress{}',secondary_stress),\r
    ('\\#',text_sharp),\r
    ('\\_',text_underline),\r
    ('?',text_question),\r
    ('!',text_exclamation),\r
    (',',text_comma),\r
    ('A',a_as_in_ah),\r
    (':',ipa_colon),\r
    ('A:',var3_a_as_in_ah),\r
    ('A\\textturnr{}',var4_a_as_in_ah),\r
    ('a:',var5_a_as_in_ah),\r
    ('\\ae{}',a_as_in_apple),\r
    ('2',u_as_in_but),\r
    ('6',o_as_in_orange),\r
    (var1_o_as_in_orange,'A',False),\r
    ('O',var2_o_as_in_orange),\r
    ('aU',o_as_in_now),\r
    ('\\ae{}O',var1_o_as_in_now),\r
    ('@',a_as_in_ago),\r
    ('@:',e_as_in_herd),\r
    ('\\textrhookschwa{}',var1_a_as_in_ago),\r
    ('aI',eye),\r
    ('Ae',var1_eye),\r
    ('b',b),\r
    ('tS',ch),\r
    ('d',d),\r
    ('D',th_as_in_them),\r
    ('E',e_as_in_them),\r
    ('e',var1_e_as_in_them),\r
    ('3:',ar_as_in_year),\r
    ('E@',a_as_in_air),\r
    ('E\\textturnr{}',var1_a_as_in_air),\r
    ('e:',var2_a_as_in_air),\r
    ('E:',var3_a_as_in_air),\r
    ('e@',var4_a_as_in_air),\r
    ('eI',a_as_in_ate),\r
    ('\\ae{}I',var1_a_as_in_ate),\r
    ('f',f),\r
    ('g',g),\r
    ('h',h),\r
    ('I',i_as_in_it),\r
    ('1',var1_i_as_in_it),\r
    ('I@',ear),\r
    ('I\\textturnr{}',var1_ear),\r
    ('I@\\textturnr{}',var2_ear), # ?\r
    ('i',e_as_in_eat),\r
    ('i:',var1_e_as_in_eat),\r
    ('dZ',j_as_in_jump),\r
    ('k',k),\r
    ('x',opt_scottish_loch),\r
    ('l',l),\r
    ('d\\textltilde{}',var1_l),\r
    ('m',m),\r
    ('n',n),\r
    ('N',ng),\r
    ('@U',o_as_in_go),\r
    ('o',var1_o_as_in_go),\r
    ('oU',var2_o_as_in_go),\r
    ('@0',var1_u_as_in_but),\r
    ('OI',oy_as_in_toy),\r
    ('oI',var1_oy_as_in_toy),\r
    ('p',p),\r
    ('\\textturnr{}',r),\r
    (var1_r,'r',False),\r
    ('s',s),\r
    ('S',sh),\r
    ('t',t),\r
    ('R',var1_t),\r
    ('T',th_as_in_think),\r
    ('U@',oor_as_in_poor),\r
    ('U\\textturnr{}',var1_oor_as_in_poor),\r
    ('U',opt_u_as_in_pull),\r
    ('0:',oo_as_in_food),\r
    ('u:',var1_oo_as_in_food),\r
    ('u',var2_oo_as_in_food),\r
    ('O:',close_to_or),\r
    (var1_close_to_or,'O',False),\r
    ('o:',var2_close_to_or),\r
    ('v',v),\r
    ('w',w),\r
    ('\\textturnw{}',var1_w),\r
    ('j',y),\r
    ('z',z),\r
    ('Z',ge_of_blige_etc),\r
    ('P',glottal_stop),\r
    lex_filename="words-ipa.tex", # write-only for now\r
    lex_type = "document",\r
    lex_header = r'\documentclass[12pt,a4paper]{article} \usepackage[safe]{tipa} \usepackage{longtable} \begin{document} \begin{longtable}{ll}',\r
    lex_entry_format=r"%s & \textipa{%s}\\"+"\n",\r
    lex_footer = r"\end{longtable}\end{document}"+"\n",\r
    inline_format = "\\textipa{%s}",\r
    inline_oneoff_header = r"% In preamble, put \usepackage[safe]{tipa}"+"\n", # (the [safe] part is recommended if you're mixing with other TeX)\r
    word_separator=" ",phoneme_separator="",\r
    clause_separator=r"\\"+"\n",\r
    stress_comes_before_vowel=True,\r
    safe_to_drop_characters=True, # TODO: really?\r
  ),\r
\r
  "pinyin-approx" : makeDic(\r
    "Rough approximation using roughly the spelling rules of Chinese Pinyin (for getting Chinese-only voices to speak some English words; works with some words better than others)", # write-only for now\r
    ('4',primary_stress),\r
    ('2',secondary_stress),\r
    ('a5',a_as_in_ah),\r
    ('ya5',a_as_in_apple),\r
    ('e5',u_as_in_but),\r
    ('yo5',o_as_in_orange),\r
    ('ao5',o_as_in_now),\r
    (e_as_in_herd,'e5',False),\r
    ('ai5',eye),\r
    ('bu0',b),\r
    ('che0',ch),\r
    ('de0',d),\r
    ('ze0',th_as_in_them),\r
    ('ye5',e_as_in_them),\r
    (a_as_in_air,'ye5',False),\r
    ('ei5',a_as_in_ate),\r
    ('fu0',f),\r
    ('ge0',g),\r
    ('he0',h),\r
    ('yi5',i_as_in_it),\r
    ('yi3re5',ear),\r
    (e_as_in_eat,'yi5',False),\r
    ('zhe0',j_as_in_jump),\r
    ('ke0',k),\r
    ('le0',l),\r
    ('me0',m),\r
    ('ne0',n),\r
    ('eng0',ng),\r
    ('ou5',o_as_in_go),\r
    ('ruo2yi5',oy_as_in_toy),\r
    ('pu0',p),\r
    ('re0',r),\r
    ('se0',s),\r
    ('she0',sh),\r
    ('te0',t),\r
    (th_as_in_think,'zhe0',False),\r
    (oor_as_in_poor,'wu5',False),\r
    ('yu5',oo_as_in_food),\r
    ('huo5',close_to_or),\r
    (v,'fu0',False),\r
    ('wu0',w),\r
    ('yu0',y),\r
    (z,'ze0',False),\r
    (ge_of_blige_etc,'zhe0',False),\r
    approximate_missing=True,\r
    lex_filename="words-pinyin-approx.txt", # write-only for now\r
    lex_type = "text",\r
    lex_header = "Pinyin approxmations (very approximate!)\n----------------------------------------\n",\r
    lex_entry_format = "%s ~= %s\n",\r
    word_separator=" ",phoneme_separator="",\r
    cleanup_regexps=[\r
      ("te0ye","tie"),\r
      ("e0e5","e5"),("([^aeiou][uo])0e(5)",r"\1\2"),\r
      ("yu0y","y"),\r
      ("wu0yo5","wo5"),\r
      ("([bdfghklmnpwz])[euo]0ei",r"\1ei"),\r
      ("([bdghklmnpstwz])[euo]0ai",r"\1ai"),\r
      ("([ghklmnpstyz])[euo]0ya",r"\1a"),("([ghklmnpstz])a([0-5]*)ne0",r"\1an\2"),\r
      ("([bdfghklmnpstwyz])[euo]0a([1-5])",r"\1a\2"),\r
      ("([bdjlmnpt])[euo]0yi",r"\1i"),("([bjlmnp])i([1-5]*)ne0",r"\1in\2"),\r
      ("([zs])he0ei",r"\1hei"),\r
      ("([dfghklmnprstyz])[euo]0ou",r"\1ou"),\r
      ("([dghklnrst])[euo]0huo",r"\1uo"),\r
      ("([bfpm])[euo]0huo",r"\1o"),\r
      ("([bdghklmnprstyz])[euo]0ao",r"\1ao"),\r
      ("([zcs])h[eu]0ao",r"\1hao"),\r
      ("re0r","r"),\r
      ("zhe0ne0","zhun5"),\r
      ("54","4"),\r
      ("52","2"),\r
      ("([bdjlmnpty])i([1-9])eng0",r"\1ing\2"),\r
      ("ya([1-9])eng0",r"yang\1"),\r
      ("ya([1-9])ne0",r"an\1"),\r
      ("ye([1-9])ne0",r"yan\1"),("([wr])[eu]0yan",r"\1en"),\r
      ("yi([1-9])ne0",r"yin\1"),\r
      \r
      ("yu0","yu5"),("eng0","eng5"), # they won't work unvoiced anyway\r
      ("0","5"), # comment out if the synth supports 'tone 0 for unvoiced'\r
      #("[euo]0","0"), # comment in if it expects consonants only when doing that\r
    ],\r
  ),\r
\r
  "kana-approx" : makeDic(\r
  "Rough approximation using kana (for getting Japanese computer voices to speak some English words; works with some words better than others).  Set KANA_TYPE environment variable to hiragana or katakana (which can affect the sounds of some voices); default is hiragana", # for example on Mac OS 10.7+ (with Japanese voice installed in System Preferences) try PHONES_PIPE_COMMAND='say -v Kyoko' (this voice has a built-in converter from English as well, but lexconvert --phones kana-approx can work better with some complex words, although the built-in converter does seem to have access to slightly more phonemes and can therefore produce words like "to" better).  Default is hiragana because I find hiragana easier to read than katakana, although the Kyoko voice does seem to be able to say 'v' a little better when using kata.  Mac OS 10.7+'s Korean voices (Yuna and Narae) can also read kana, and you could try doing a makeVariantDic and adding in some Korean jamo letters for them (you'd be pushed to represent everything in jamo but kana+jamo seems more hopeful in theory), but again some words work better than others (not all phonetic combinations are supported and some words aren't clear at all).\r
    # This kana-approx format is 'write-only' for now (see comment in cleanup_regexps re possible reversal)\r
    (u'\u30fc',primary_stress),\r
    (secondary_stress,ifset('KANA_MORE_EMPH',u'\u30fc'),False), # set KANA_MORE_EMPH environment variable if you want to try doubling the secondary-stressed vowels as well (doesn't always work very well; if it did, I'd put this line in a makeVariantDic called kana-approx-moreEmph or something)\r
    # The following Unicode codepoints are hiragana; KANA_TYPE is handled by cleanup_func below\r
    (u'\u3042',a_as_in_apple),\r
    (u'\u3044',e_as_in_eat),\r
    (u'\u3046',oo_as_in_food),\r
    (u'\u3048',e_as_in_them),\r
    (u'\u304a',o_as_in_orange),\r
    (u'\u3042\u3044',eye), # ai\r
    (u'\u3042\u304a',o_as_in_now), # ao\r
    (u'\u3048\u3044',a_as_in_ate), # ei\r
    (u'\u304a\u3044',oy_as_in_toy), # oi\r
    (u'\u304a\u3046',o_as_in_go), # ou\r
    (a_as_in_ah,u'\u3042',False),\r
    (a_as_in_ago,u'\u3046\u304a',False), # TODO: \u3042, \u304a or \u3046 depending on the word?\r
    (e_as_in_herd,u'\u3042',False), # TODO: really?\r
    (i_as_in_it,u'\u3044',False), # TODO: really?\r
    (u_as_in_but,u'\u3046',False), # TODO: really?\r
    (ar_as_in_year,u'\u3048',False), # TODO: really?\r
    (ear,u'\u3044\u304a',False), # TODO: really?\r
    (a_as_in_air,u'\u3048',False), # TODO: really?\r
    (oor_as_in_poor,u'\u304a',False), # TODO: really?\r
    (close_to_or,u'\u304a\u30fc'), # TODO: really?\r
    (u'\u3076',b), # bu (with vowel replacements later)\r
    (u'\u3061\u3047',ch), # chu (ditto)\r
    (u'\u3065',d), # du (and so on)\r
    (u'\u3066\u3085',th_as_in_think), (th_as_in_them,u'\u3066\u3085',False),\r
    (u'\u3075',f),\r
    (u'\u3050',g),\r
    (u'\u306f',h), # ha (as hu == fu)\r
    (u'\u3058\u3085',j_as_in_jump), (ge_of_blige_etc,u'\u3058\u3085',False),\r
    (u'\u304f',k),\r
    (u'\u308b',l), (r,u'\u308b',False),\r
    (u'\u3080',m),\r
    (u'\u306c',n),\r
    (u'\u3093\u3050',ng),\r
    (u'\u3077',p),\r
    (u'\u3059',s),\r
    (u'\u3057\u3085',sh),\r
    (u'\u3064',t),\r
    (u'\u308f',w), # use 'wa' (as 'wu' == 'u')\r
    (v,ifset('KANA_V_AS_W',u'\u308f',u'\u3094'),False), # TODO: document KANA_V_AS_W variable.  Is vu always supported? (it doesn't seem to show up in all fonts)\r
    (u'\u3086',y),\r
    (u'\u305a',z),\r
    lex_filename="words-kana-approx.txt",\r
    lex_type = "text",\r
    lex_header = "Kana approxmations (very approximate!)\n--------------------------------------\n",\r
    lex_entry_format = "%s ~= %s\n",\r
    word_separator=" ",phoneme_separator="",\r
    clause_separator=u"\u3002\n".encode('utf-8'),\r
    cleanup_regexps=[(u"\u306c$",u"\u3093\u30fc"), # TODO: or u"\u3093\u3093" ?\r
       # now the vowel replacements (bu+a -> ba, etc) (in most cases these can be reversed into cvtOut_regexps if you want to use the kana-approx table to convert hiragana into approximate English phonemes (plus add a (u"\u3093\u30fc*",u"\u306c") and perhaps de-doubling rules to convert back to emphasis) but the result is unlikely to be any good)\r
       (u"\u3076\u3042",u"\u3070"),(u"\u3076\u3044",u"\u3073"),(u"\u3076\u3048",u"\u3079"),(u"\u3076\u304a",u"\u307c"),(u"\u3076\u3046",u"\u3076"),\r
       (u"\u3061\u3085\u3042",u"\u3061\u3083"),(u"\u3061\u3085\u3046",u"\u3061\u3085"),(u"\u3061\u3085\u3048",u"\u3061\u3047"),(u"\u3061\u3085\u304a",u"\u3061\u3087"),(u"\u3061\u3085\u3044",u"\u3061"),\r
       (u"\u3065\u3042",u"\u3060"),(u"\u3065\u3044",u"\u3062"),(u"\u3065\u3048",u"\u3067"),(u"\u3065\u304a",u"\u3069"),(u"\u3065\u3046",u"\u3065"),\r
       (u"\u3066\u3085\u3042",u"\u3066\u3083"),(u"\u3066\u3085\u3044",u"\u3066\u3043"),(u"\u3066\u3043\u3046",u"\u3066\u3085"),(u"\u3066\u3085\u3048",u"\u3066\u3047"),(u"\u3066\u3085\u304a",u"\u3066\u3087"),\r
       (u"\u3075\u3042",u"\u3075\u3041"),(u"\u3075\u3044",u"\u3075\u3043"),(u"\u3075\u3048",u"\u3075\u3047"),(u"\u3075\u304a",u"\u3075\u3049"),(u"\u3075\u3046",u"\u3075"),\r
       (u"\u306f\u3044",u"\u3072"),(u"\u306f\u3046",u"\u3075"),(u"\u306f\u3048",u"\u3078"),(u"\u306f\u304a",u"\u307b"),(u"\u306f\u3042",u"\u306f"),\r
       (u"\u3050\u3042",u"\u304c"),(u"\u3050\u3044",u"\u304e"),(u"\u3050\u3048",u"\u3052"),(u"\u3050\u304a",u"\u3054"),(u"\u3050\u3046",u"\u3050"),\r
       (u"\u3058\u3085\u3042",u"\u3058\u3083"),(u"\u3058\u3085\u3046",u"\u3058\u3085"),(u"\u3058\u3085\u3048",u"\u3058\u3047"),(u"\u3058\u3085\u304a",u"\u3058\u3087"),(u"\u3058\u3085\u304a",u"\u3058"),\r
       (u"\u304f\u3042",u"\u304b"),(u"\u304f\u3044",u"\u304d"),(u"\u304f\u3048",u"\u3051"),(u"\u304f\u304a",u"\u3053"),(u"\u304f\u3046",u"\u304f"),\r
       (u"\u308b\u3042",u"\u3089"),(u"\u308b\u3044",u"\u308a"),(u"\u308b\u3048",u"\u308c"),(u"\u308b\u304a",u"\u308d"),(u"\u308b\u3046",u"\u308b"),\r
       (u"\u3080\u3042",u"\u307e"),(u"\u3080\u3044",u"\u307f"),(u"\u3080\u3048",u"\u3081"),(u"\u3080\u304a",u"\u3082"),(u"\u3080\u3046",u"\u3080"),\r
       (u"\u306c\u3042",u"\u306a"),(u"\u306c\u3044",u"\u306b"),(u"\u306c\u3048",u"\u306d"),(u"\u306c\u304a",u"\u306e"),(u"\u306c\u3046",u"\u306c"),\r
       (u"\u3077\u3042",u"\u3071"),(u"\u3077\u3044",u"\u3074"),(u"\u3077\u3048",u"\u307a"),(u"\u3077\u304a",u"\u307d"),(u"\u3077\u3046",u"\u3077"),\r
       (u"\u3059\u3042",u"\u3055"),(u"\u3059\u3048",u"\u305b"),(u"\u3059\u304a",u"\u305d"),(u"\u3059\u3046",u"\u3059"),\r
       (u"\u3057\u3085\u3042",u"\u3057\u3083"),(u"\u3057\u3085\u3046",u"\u3057\u3085"),(u"\u3057\u3085\u3048",u"\u3057\u3047"),(u"\u3057\u3085\u304a",u"\u3057\u3087"),(u"\u3057\u3085\u3044",u"\u3057"),\r
       (u"\u3064\u3042",u"\u305f"),(u"\u3064\u3044",u"\u3061"),(u"\u3064\u3048",u"\u3066"),(u"\u3064\u304a",u"\u3068"),(u"\u3064\u3046",u"\u3064"),\r
       (u"\u3086\u3042",u"\u3084"),(u"\u3086\u3048",u"\u3044\u3047"),(u"\u3086\u304a",u"\u3088"),(u"\u3086\u3046",u"\u3086"),\r
       (u"\u305a\u3042",u"\u3056"),(u"\u305a\u3044",u"\u3058"),(u"\u305a\u3048",u"\u305c"),(u"\u305a\u304a",u"\u305e"),(u"\u305a\u3046",u"\u305a"),\r
       (u"\u308f\u3044",u"\u3046\u3043"),(u"\u308f\u3046",u"\u3046"),(u"\u308f\u3048",u"\u3046\u3047"),(u"\u308f\u304a",u"\u3092"),(u"\u308f\u3042",u"\u308f"),\r
       (u'\u3046\u3043\u3066\u3085', u'\u3046\u3043\u3065'), # sounds a bit better for words like 'with'\r
       (u'\u3085\u3046',u'\u3085'), # and 'the' (especially with a_as_in_ago mapping to u'\u3046\u304a'; it's hard to get a convincing 'the' though, especially in isolation)\r
       (u'\u3050\u3050',u'\u3050'), # gugu -> gu, sometimes comes up with 'gl-' combinations\r
       (u'\u30fc\u30fc+',u'\u30fc'), # in case we put 30fc in the table AND a stress mark has been applied to it\r
       (u'^(.)$',u'\\1\u30fc'), # lengthen any word that ends up as a single kana (otherwise can be clipped badly)\r
    (u'^([\u3042\u3070\u3060\u304c\u304b\u3089\u307e\u306a\u3071\u3055\u305f\u3084\u3056\u308f]\u3044)$',u'\\1\u30fc'), # ditto for -ai (TODO: -ao might need lengthening sometimes?? depends on context.  -ei, -oi, -ou seem OK)\r
    ],\r
    cleanup_func = hiragana_to_katakana\r
  ),\r
\r
  "deva-approx" : makeDic(\r
  "Rough approximation using Devanagari (for getting Indian computer voices to speak some English words; works with some words better than others); can also be used to approximate Devanagari words in English phonemes",\r
    (u'\u02c8',primary_stress),\r
    (u'\u093e',a_as_in_ah),(u'\u0906',a_as_in_ah,False),\r
    (u'\u0905',u_as_in_but),\r
    (u'\u092c',b),\r
    (u'\u091b',ch),(u'\u091a',ch,False),\r
    (u'\u0926',d),(u'\u0921',d,False), # TODO: check which sounds better for reading English words\r
    (u'\u0920',th_as_in_them), # (very approximate)\r
    (u'\u0948',e_as_in_them),(u'\u0910',e_as_in_them,False),\r
    (u'\u0947',a_as_in_ate),(u'\u090f',a_as_in_ate,False),\r
    (u'\u092b\u093c',f),\r
    (u'\u0917',g),\r
    (u'\u0917\u093c',g,False), # (Hindi; differs in others)\r
    (u'\u0939',h),(u'\u0903',h,False),\r
    (u'\u093f',i_as_in_it),(u'\u0907',i_as_in_it,False),\r
    (u'\u0940',e_as_in_eat),(u'\u0908',e_as_in_eat,False),\r
    (u'\u091c',j_as_in_jump),\r
    (u'\u0915',k),(u'\u0916',k,False),\r
    (u'\u0916\u093c',opt_scottish_loch),\r
    (u'\u0915\u093c',opt_scottish_loch,False), # ?\r
    (u'\u0932',l),\r
    (u'\u092e',m),\r
    (u'\u0928',n),(u'\u0923',n,False),\r
    (u'\u0902',ng),\r
    (u'\u092a',p),\r
    (u'\u092b',f,False), # (Hindi; p in some others?)\r
    (u'\u0930',r),(u'\u0921\u093c',r,False),\r
    (u'\u0938',s),\r
    (u'\u0936',sh), (u'\u0937',sh,False),\r
    (u'\u091f',t),(u'\u0924',t,False),(u'\u0925',t,False),\r
    (u'\u0941',opt_u_as_in_pull),(u'\u0909',opt_u_as_in_pull,False),\r
    (u'\u0942',oo_as_in_food),(u'\u090a',oo_as_in_food,False),\r
    (u'\u094c',close_to_or),(u'\u0914',close_to_or,False),\r
    (u'\u094b',opt_ol_as_in_gold),(u'\u0913',opt_ol_as_in_gold,False),\r
    (u'\u0935',v),(w,u'\u0935',False),\r
    (u'\u092f',y),\r
    (u'\u091c\u093c',z),\r
    (u'\u091d\u093c',ge_of_blige_etc),\r
    (u'\u0901',ipa_colon),\r
    word_separator=" ",phoneme_separator="",\r
    stress_comes_before_vowel=True,\r
    safe_to_drop_characters=True, # it's an approximation\r
    approximate_missing=True,\r
    cleanup_regexps=[\r
       # add virama if consonant not followed by vowel, and delete default vowel after consonant:\r
       (u'([\u0902\u0903\u0915-\u0917\u091a-\u091d\u091f-\u0928\u092a-\u0930\u0932\u0935-\u0939]\u093c?)(?![\u0905\u093e-\u0942\u0947\u0948\u094b\u094c])',u'\\1\u094d'),(u'(?<=[\u0902\u0903\u0915-\u0917\u091a-\u091d\u091f-\u0928\u092a-\u0930\u0932\u0935-\u0939\u093c])\u0905',u''),(u'(.)\u094d\u02c8',u'\u02c8\\1'),\r
       # replace vowel signs with vowel letters if not preceded by consonants:\r
       (u'(?<![\u0902\u0903\u0915-\u0917\u091a-\u091d\u091f-\u0928\u092a-\u0930\u0932\u0935-\u0939\u093c])\u093e',u'\u0906'),\r
       (u'(?<![\u0902\u0903\u0915-\u0917\u091a-\u091d\u091f-\u0928\u092a-\u0930\u0932\u0935-\u0939\u093c])\u093f',u'\u0907'),\r
       (u'(?<![\u0902\u0903\u0915-\u0917\u091a-\u091d\u091f-\u0928\u092a-\u0930\u0932\u0935-\u0939\u093c])\u0940',u'\u0908'),\r
       (u'(?<![\u0902\u0903\u0915-\u0917\u091a-\u091d\u091f-\u0928\u092a-\u0930\u0932\u0935-\u0939\u093c])\u0941',u'\u0909'),\r
       (u'(?<![\u0902\u0903\u0915-\u0917\u091a-\u091d\u091f-\u0928\u092a-\u0930\u0932\u0935-\u0939\u093c])\u0942',u'\u090a'),\r
       (u'(?<![\u0902\u0903\u0915-\u0917\u091a-\u091d\u091f-\u0928\u092a-\u0930\u0932\u0935-\u0939\u093c])\u0947',u'\u090f'),\r
       (u'(?<![\u0902\u0903\u0915-\u0917\u091a-\u091d\u091f-\u0928\u092a-\u0930\u0932\u0935-\u0939\u093c])\u0948',u'\u0910'),\r
       (u'(?<![\u0902\u0903\u0915-\u0917\u091a-\u091d\u091f-\u0928\u092a-\u0930\u0932\u0935-\u0939\u093c])\u094b',u'\u0913'),\r
       (u'(?<![\u0902\u0903\u0915-\u0917\u091a-\u091d\u091f-\u0928\u092a-\u0930\u0932\u0935-\u0939\u093c])\u094c',u'\u0914')],\r
    cvtOut_func=unicode_preprocess,\r
    cvtOut_regexps=[\r
       # add default vowel when necessary:\r
       (u'([\u0902\u0903\u0915-\u0917\u091a-\u091d\u091f-\u0928\u092a-\u0930\u0932\u0935-\u0939]\u093c?)(?![\u0905\u094d\u093e-\u0942\u0947\u0948\u094b\u094c])',u'\\1\u0905'),(u'\u094d',u''),\r
       # 'add h' approximations:\r
       (u'\u092d',u'\u092c\u0939'),(u'\u0927',u'\u0922\u0939'),(u'\u0918',u'\u0917\u0939'),(u'\u091d',u'\u091c\u0939'),(u'\u0922\u093c',u'\u0921\u093c\u0939'),\r
    ]),\r
\r
  "names" : makeDic(\r
    "Lexconvert internal phoneme names (sometimes useful with the --phones option while developing new formats)",\r
     *[(phName,phVal) for phName,phVal in phonemes.items()])}\r
\r
# The mainopt_...() functions are the main options\r
# (if you implement a new one, main() will detect it);\r
# 1st line of doc string should be parameter summary\r
# (start the doc string with \n if no parameters); if 1st\r
# character of doc string is * then this function is put\r
# among the first in the help (otherwise alphabetically).\r
# If function returns a string, that's taken to be a\r
# message to be printed with error exit.  Same if it raises\r
# an exception of type Message.\r
\r
def mainopt_try(i):\r
   """*<format> [<pronunciation>]\r
Convert input from <format> into eSpeak and try it out.\r
(Requires the 'espeak' command.)\r
E.g.: python lexconvert.py --try festival h @0 l ou1\r
 or: python lexconvert.py --try unicode-ipa '\\u02c8\\u0279\\u026adn\\u0329' (for Unicode put '\\uNNNN' or UTF-8)"""\r
   format = sys.argv[i+1]\r
   if not format in lexFormats: return "No such format "+repr(format)+" (use --formats to see a list of formats)"\r
   for phones in getInputText(i+2,"phonemes in "+format+" format",'maybe'):\r
      espeak = convert(phones,format,'espeak')\r
      w = os.popen("espeak -x","w")\r
      getBuf(w).write(markup_inline_word("espeak",espeak)+as_utf8('\n')) # separate process each item for more responsiveness from the console (sending 'maybe' to getInputText means won't lose efficiency if not read from console)\r
\r
def mainopt_trymac(i):\r
   """*<format> [<pronunciation>]\r
Convert phonemes from <format> into Mac and try it using the Mac OS 'say' command"""\r
   format = sys.argv[i+1]\r
   if not format in lexFormats: return "No such format "+repr(format)+" (use --formats to see a list of formats)"\r
   for resp in getInputText(i+2,"phonemes in "+format+" format",'maybe'):\r
      mac = convert(resp,format,'mac')\r
      toSay = markup_inline_word("mac",mac)\r
      print(as_printable(toSay))\r
      w = os.popen(macSayCommand()+" -v Vicki","w")\r
      getBuf(w).write(toSay) # Need to specify a voice because the default voice might not be able to take Apple phonemes.  Vicki has been available since 10.3, as has the 'say' command (previous versions need osascript, see Gradint's code)\r
\r
def mainopt_trymac_uk(i):\r
   """*<format> [<pronunciation>]\r
Convert phonemes from <format> and try it with Mac OS British voices (see --mac-uk for details)"""\r
   assert sys.version_info[0]==2, "--trymac-uk has not been tested with Python 3, I don't want to risk messing up your system files, please use Python 2"\r
   format = sys.argv[i+1]\r
   if not format in lexFormats: return "No such format "+repr(format)+" (use --formats to see a list of formats)"\r
   for resp in getInputText(i+2,"phonemes in "+format+" format",'maybe'):\r
     macuk = convert(resp,format,'mac-uk')\r
     m = MacBritish_System_Lexicon("",os.environ.get("MACUK_VOICE","Daniel"))\r
     try:\r
      try: m.speakPhones(macuk.split())\r
      finally: m.close()\r
     except KeyboardInterrupt:\r
      sys.stderr.write("Interrupted\n")\r
\r
def mainopt_phones(i):\r
   """*<format> [<words>]\r
Use eSpeak to convert text to phonemes, and then convert the phonemes to format 'format'.\r
E.g.: python lexconvert.py --phones unicode-ipa This is a test sentence.\r
Set environment variable PHONES_PIPE_COMMAND to an additional command to which to write the phones as well as standard output.  (If standard input is a terminal then this will be done separately after each line.)\r
(Some commercial speech synthesizers do not work well when driven entirely from phonemes, because their internal format is different and is optimised for normal text.)\r
Set format to 'all' if you want to see the phonemes in ALL supported formats."""\r
   format = sys.argv[i+1]\r
   if format=="example": return "The 'example' format cannot be used with --phones; try --convert, or did you mean --phones festival" # could allow example anyway as it's basically Festival, but save confusion as eSpeak might not generate the same phonemes if our example words haven't been installed in the system's eSpeak.  (Still allow it to be used in --try etc though.)\r
   if not format in lexFormats and not format=="all": return "No such format "+repr(format)+" (use --formats to see a list of formats)"\r
   hadOneoff = False\r
   for response in getInputText(i+2,"text",'maybe'):\r
    response = pipeThroughEspeak(as_utf8(response).replace(u'\u2032'.encode('utf-8'),as_utf8('')).replace(u'\u00b4'.encode('utf-8'),as_utf8('')).replace(u'\u02b9'.encode('utf-8'),as_utf8('')).replace(u'\u00b7'.encode('utf-8'),as_utf8(''))) # (remove any 2032 and b7 pronunciation marks before passing to eSpeak)\r
    if not as_utf8('\n') in response.rstrip() and as_utf8('command') in response: return response.strip() # 'bad cmd' / 'cmd not found'\r
    if format=="all": formats = sorted(k for k in lexFormats.keys() if not k=="example")\r
    else: formats = [format]\r
    for format in formats:\r
       def out(doOneoff=True):\r
          if len(formats)>1: writeFormatHeader(format)\r
          if doOneoff: getBuf(sys.stdout).write(as_utf8(checkSetting(format,"inline_oneoff_header")))\r
          getBuf(sys.stdout).write(as_utf8(checkSetting(format,"inline_header")))\r
          output_clauses(format,convert(parseIntoWordsAndClauses("espeak",response),"espeak",format))\r
          getBuf(sys.stdout).write(as_utf8(checkSetting(format,"inline_footer")))\r
          print("")\r
          sys.stdout.flush() # in case it's being piped\r
       out(not hadOneoff) ; hadOneoff = True\r
       if os.environ.get("PHONES_PIPE_COMMAND",""):\r
          o,sys.stdout = sys.stdout,os.popen(os.environ["PHONES_PIPE_COMMAND"],'w')\r
          out()\r
          sys.stdout = o\r
\r
def mainopt_ruby(i):\r
   """*<format> [<words>]\r
Like --phones but outputs the result as HTML RUBY markup, with each word's pronunciation symbols placed above the corresponding English word.\r
E.g.: python lexconvert.py --ruby unicode-ipa This is a test sentence.\r
This option is made more complicated by the fact that different versions of eSpeak may space the phoneme output differently, for example when handling numbers; if your eSpeak version is not recognised then all numbers are unannotated. Anyway you are advised not to rely on this option working with the new development NG versions of eSpeak. If the version you have behaves unexpectedly, words and phonemes output might lose synchronisation. However this option is believed to be stable when used with simple text and the original eSpeak.\r
You can optionally set the RUBY_GRADINT_CGI environment variable to the URL of an instance of Gradint Web Edition to generate audio links for each word.  If doing this in a Web Adjuster filter, see comments in the lexconvert source for setup details."""\r
   # htmlFilter with --htmlText of course.  Set separator to two newlines and copy the generated 'h5a' function (from a manual run or the lexconvert source) into Adjuster's headAppend option (but don't expect HTML5 audio to work from Adjuster's submitBookmarklet option; pronunciation links will take you off the page if it doesn't).\r
   # Use double newlines as single newlines are used in the h5a script; adding that script via bookmarklet doesn't always run it\r
   format = sys.argv[i+1]\r
   if format=="example": return "The 'example' format cannot be used with --ruby; did you mean festival?" # as above\r
   elif format=="all": return "The --phones all option cannot be used with --ruby" # (well you could implement it if you want but the resulting ruby would be quite unwieldy)\r
   if not format in lexFormats: return "No such format "+repr(format)+" (use --formats to see a list of formats)"\r
   text = as_utf8(getInputText(i+2,"text")).replace(u'\u2019'.encode('utf-8'),as_utf8("'")).replace(u'\u2032'.encode('utf-8'),as_utf8("'")).replace(u'\u00b4'.encode('utf-8'),as_utf8("'")).replace(u'\u02b9'.encode('utf-8'),as_utf8("'")).replace(u'\u00b7'.encode('utf-8'),as_utf8('')).replace(u'\u00a0'.encode('utf-8'),as_utf8(' '))\r
   # eSpeak's basic idea of an alphabetical word (most versions?) -\r
   wordRegexps = [r"(?:[A-Z]+['?-])*(?:(?:(?<![A-z.])(?:[A-z]\.)+[A-z](?![A-z.]))|[A-Z]+[a-z](?![A-z])|[A-Z][A-Z]+(?![a-z][A-z])|[A-Z]?(?:[a-z]['?-]?)+|[A-Z])"]\r
   # A dot, when not part of an elipses, followed by a letter is pronounced "dot", and two of them are pronounced "dot dot":\r
   wordRegexps.append(r"(?<!\.\.)\.(?=[A-z])|(?<!\.)\.(?=\.[A-z])")\r
   # ! followed by a letter is pronounced "exclamation", and .! is "dotexclamation"; @ symbols similarly; copyright\r
   atEtc = u"(?:[@!:]|\u00a9)*".encode('utf-8')\r
   wordRegexps.append(as_utf8(r"\.?[!@]+(?=[A-z])|(?<![A-z])@")+atEtc+as_utf8("(?![A-z])|")+unichr(0xa9).encode('utf-8')+atEtc)\r
   # : between numbers if NOT followed by 2 digits:\r
   wordRegexps.append(r"(?<![A-z]):(?![A-z]|[0-9][0-9])")\r
   # - between numbers\r
   wordRegexps.append(r"(?<=[0-9])-(?=[0-9])")\r
   # TODO: if you paste in (e.g.) CJK characters, eSpeak will say "symbol-symbol-symbol" etc, but this is not accounted for by the above regexp so it'll go onto following words.\r
   vLine = espeak_version_line()\r
   if "1.45." in vLine:\r
      # This seems to work in eSpeak 1.45:\r
      # (TODO: test leading 0s & leading decimal)\r
      # a number of 4 digits or less (with any number of digits after the decimal point) is grouped as 1 word:\r
      wordRegexps.append(r"(?<![0-9])[0-9]{1,4}(?:\.[0-9]+)?(?!,?[0-9])")\r
      # and a number of 1 to 3 digits with any number of 000 or ,000 groups, with optional decimal point followed by any number of digits, OR when placed before an integer number of 3-digit groups, is grouped as 1 word:\r
      wordRegexps.append(r"[0-9]{1,3}(?:,?000)*(?:\.[0-9]+)?,?(?=(?:,?[0-9]{3,3})*,?(?:[^0-9]|$))")\r
      text2 = text\r
   elif "1.48." in vLine:\r
      # In eSpeak 1.48 the groups are smaller.\r
      # Decimal point and everything after it = individual\r
      wordRegexps.append(r"(?<=[0-9])\.(?=[0-9])")\r
      for places in range(25): # TODO: really want unbounded, but (?<=...) is fixed-length\r
         wordRegexps.append(r"(?<=[0-9]\."+"[0-9]"*places+r")[0-9]")\r
      # Number with a leading dot grouped as 1 word:\r
      wordRegexps.append(r"(?<![0-9])\.[0-9]+")\r
      # TODO: leading 0s (0000048 goes to 0 000 048)\r
      # For normal numbers:\r
      # A null string w. 3 or 6 digits to go and digits b4 shld match for 'thousand', 'million' (unless 3+ digits are leading 0s, or fewer than 3 leading 0s and whole thing begins with a 0, or it's part of a decimal expansion, in which case different rules apply, but (?<=...) must be fixed-length, so we need another one of these awful loops) :\r
      for prevDigits in range(10):\r
         for beforeThat in ["^",r"[^.0-9,]"]: # beginning of string, or something OTHER than a decimal point / num\r
            wordRegexps.append(r"(?<="+beforeThat+"[1-9]"+"[0-9,]"*prevDigits+r")(?<!,)(?<!000)(?# empty string )(?=(?:,?(?:[0-9]{3,3}))+(?:[^0-9]|$))")\r
      # 1-9 (not 0) with 2, 5 or 8 etc digits to go = "N-hundred-and" :\r
      wordRegexps.append(r"[1-9](?=[0-9][0-9](?:,?(?:[0-9]{3,3}))*(?:[^0-9]|$))")\r
      # + 0 with 2 digits to go when preceded by digits = "and", as long as followed by at least one non-0:\r
      wordRegexps.append(r"(?<=[0-9,])0(?=(?:[0-9][1-9]|[1-9][0-9])(?:[^0-9,]|$))")\r
      # 1 or 2 digits with 0,3,6.. to go = "seventy-six" or whatever, as long as they're not both 0 :\r
      wordRegexps.append(r"(?:0[1-9]|[1-9][0-9]?)(?=(?:,?(?:[0-9]{3,3}))*(?:[^0-9]|$))")\r
      # 0 by itself (not preceded by digits) = "nought" :\r
      wordRegexps.append(r"(?<![0-9])0(?=[^0-9]|$)")\r
      wordRegexps.insert(0,"(?<=[^A-Za-z0-9_-])(?:of|on|in|that|with|for|was) (?:the|a)(?= )")\r
      wordRegexps.insert(0,"(?:Of|On|In|That|With|For|Was) (?:the|a)(?= )")\r
      wordRegexps.insert(0,"(?<=[^A-Za-z0-9_-])not a(?= )")\r
      wordRegexps.insert(0,"(?<=[^A-Za-z0-9_-])(?:some|that) one(?= )")\r
      wordRegexps.insert(0,"(?:Some|That) one(?= )")\r
      text2 = text\r
   else: text2 = re.sub(r"\.?[0-9]+","",text) # unknown eSpeak version: don't annotate the numbers\r
   response = pipeThroughEspeak(text2)\r
   if not as_utf8('\n') in response.rstrip() and as_utf8('command') in response: return response.strip() # 'bad cmd' / 'cmd not found'\r
   gradint_cgi = os.environ.get("RUBY_GRADINT_CGI","")\r
   if gradint_cgi:\r
      linkStart,linkEnd = lambda w:maybe_bytes('<a href="',w)+maybe_bytes(gradint_cgi,w)+maybe_bytes('?js=[[',w)+w.replace(maybe_bytes('%',w),maybe_bytes('%25',w)).replace(maybe_bytes('&',w),maybe_bytes('%26',w))+maybe_bytes(']]&jsl=en" onclick="return h5a(this);">',w), '</a>'\r
      print(r"""<script><!-- // HTML5-audio function\r
function h5a(link) {\r
 if (document.createElement) {\r
   var ae = document.createElement('audio');\r
   if (ae.canPlayType && function(s){return s!="" && s!="no"}(ae.canPlayType('audio/mpeg'))) {\r
     ae.setAttribute('src', link.href);\r
     ae.play(); return false;\r
   } else if (ae.canPlayType && function(s){return s!="" && s!="no"}(ae.canPlayType('audio/ogg'))) {\r
     ae.setAttribute('src', link.href+"&filetype=ogg");\r
     ae.play(); return false; }\r
 } return true; }\r
//--></script>""")\r
   else: linkStart,linkEnd = lambda w:maybe_bytes("",w), ""\r
   rubyList = []\r
   for clause in parseIntoWordsAndClauses("espeak",response):\r
      for w in clause:\r
         converted = convert(w,"espeak",format)\r
         if not converted: continue # e.g. a lone _:_:\r
         m = markup_inline_word(format,converted)\r
         rubyList.append(linkStart(w)+m.replace(maybe_bytes("&",m),maybe_bytes("&amp;",m)).replace(maybe_bytes("<",m),maybe_bytes("&lt;",m))+maybe_bytes(linkEnd,w))\r
   rubyList.reverse() # so can pop() left-to-right order\r
   # Write out re.sub ourselves, because (1) some versions of the library (e.g. on 2.7.12) try to do some things in-place, and we're using previous-context regexps that aren't compatible with previous things having been already <ruby>'ified, and (2) if we match a 0-length string, re.finditer won't ALSO return a non-0 length match starting in the same place, and we want both (so we're using wordRegexps as a list rather than an | expression)\r
   matches = {}\r
   debug = False # if True, will add ruby title=(index of the regexp that matched)\r
   debugCount = 0\r
   for r in wordRegexps:\r
      for match in re.finditer(maybe_bytes(r,text),text):\r
         matches[(match.start(),match.end())] = debugCount\r
      debugCount += 1\r
   i = 0 ; r = []\r
   def cmpFunc(a,b):\r
      (s1,e1),(s2,e2) = a,b\r
      if s1<s2: return -1\r
      if s1>s2: return 1\r
      if e1>e2: return -1\r
      if e1<e2: return 1\r
      return 0\r
   for start,end in sorted(list(matches.keys()),cmpFunc):\r
      if start<i: continue # overlap??\r
      r.append(text[i:start])\r
      if start==end: m = "&nbsp;"\r
      else: m = text[start:end].replace(maybe_bytes("&",text),maybe_bytes("&amp;",text)).replace(maybe_bytes("<",text),maybe_bytes("&lt;",text))\r
      try: rt = rubyList.pop()\r
      except: rt = "ERROR" # we've lost synchronisation\r
      if debug: title = as_utf8(" title=")+as_utf8(str(matches[(start,end)]))\r
      else: title = as_utf8("")\r
      r.append(as_utf8("<ruby")+title+as_utf8("><rb>")+m+as_utf8("</rb><rt>")+rt+as_utf8("</rt></ruby>"))\r
      i = end\r
   r.append(text[i:])\r
   while rubyList: # oops, lost synchronisation the other way (TODO: show this per-paragraph? but don't call eSpeak too many times if processing many short paragraphs)\r
      r.append(as_utf8("<ruby><rb>ERROR</rb><rt>")+rubyList.pop()+as_utf8("</rt></ruby>"))\r
   out = as_utf8("").join(r)\r
   if not out.endswith(as_utf8("\n")): out += as_utf8("\n")\r
   getBuf(sys.stdout).write(out)\r
\r
def pipeThroughEspeak(inpt):\r
   "Writes inpt to espeak -q -x (in chunks if necessary) and returns the result"\r
   assert type(inpt)==bytes\r
   bufsize = 8192 # careful not to set this too big, as the OS might limit it (TODO can we check?)\r
   ret = []\r
   while len(inpt) > bufsize:\r
      splitAt = inpt.rfind('\n',0,bufsize)+1\r
      if not splitAt: # no newline, try to split on space\r
         splitAt = inpt.rfind(' ',0,bufsize)+1\r
         if not splitAt:\r
            sys.stderr.write("Note: had to split eSpeak input and couldn't find a newline or space to do it on\n")\r
            splitAt = bufsize\r
      response = pipeThroughEspeak(inpt[:splitAt])\r
      if not '\n' in response.rstrip() and 'command' in response: return response.strip() # 'bad cmd' / 'cmd not found'\r
      ret.append(response) ; inpt=inpt[splitAt:]\r
   try: w,r=os.popen4("espeak -q -x",bufsize=bufsize) # Python 2\r
   except AttributeError: # Python 3\r
      import subprocess\r
      proc=subprocess.Popen(['espeak','-q','-x'],stdin=subprocess.PIPE,stdout=subprocess.PIPE)\r
      w = proc.stdin\r
      r = None\r
   if r:\r
      getBuf(w).write(inpt) ; w.close()\r
      r = getBuf(r).read()\r
   else: # Python 3\r
      w.write(inpt)\r
      out,err=proc.communicate()\r
      r = as_utf8("")\r
      if out: r += out\r
      if err: r += err\r
   return as_utf8("\n").join(ret) + r\r
\r
def espeak_version_line(): return os.popen("espeak -h 2>&1").read().strip().split("\n")[0]\r
\r
def writeFormatHeader(format):\r
   "Writes a header for 'format' when outputting in all formats.  Assumes the output MIGHT end up being more than one line."\r
   global writeFormatHeader_called\r
   if writeFormatHeader_called: print("")\r
   print(format)\r
   print('-'*len(format))\r
   writeFormatHeader_called = True\r
writeFormatHeader_called = False\r
\r
def mainopt_check_variants(i):\r
   # undocumented (won't appear in help text)\r
   groups = {}\r
   for k,v in lexFormats['espeak'].items():\r
      if type(k)==str:\r
         intV = int(v)\r
         if not intV in consonants:\r
            groups.setdefault(intV,[]).append((v,k))\r
   i = groups.items() ; i.sort()\r
   for k,v in i:\r
      if len(v)==1: continue\r
      v.sort()\r
      while True:\r
         print("Group "+str(k))\r
         es = os.popen("espeak -x","w")\r
         getBuf(es).write(as_utf8('\n').join([markup_inline_word("espeak",w) for _,w in v]))\r
         del es\r
         if not int(str(input("Again? 1/0: "))): break\r
\r
def mainopt_check_for_similar_formats(i):\r
   # undocumented (won't appear in help text)\r
   items = lexFormats.items() ; r = []\r
   while items:\r
      k1,dic1 = items[0]\r
      for k2,dic2 in items[1:]:\r
         diff = 0\r
         for kk,vv in dic1.items():\r
            if not type(kk)==int: continue\r
            if kk==syllable_separator: continue\r
            if not dic2.get(kk,"!"+vv)==vv: diff += 1\r
         r.append((diff,k1,k2))\r
      items = items[1:]\r
   r.sort() ; had = set()\r
   for diffs,format1,format2 in r:\r
      if format1 in had and format2 in had: continue\r
      had.add(format1) ; had.add(format2)\r
      if "names" in had: break\r
      print(str(diffs)+" phoneme differences between "+format1+" and "+format2)\r
\r
def festival_group_stress(pronunc):\r
   "Special-case cleanup_func for the Festival format"\r
   # TODO: do we ever need to add extra consonants to the\r
   # previous group instead of the next group?  (not sure\r
   # what difference it makes to the synthesis, but it\r
   # might make the entry a bit more readable)\r
   groups = [] ; thisGroup = [[],'0',False] # phon,stress,complete\r
   for phon in pronunc.split():\r
      if phon in ['0','1','2']:\r
         if groups and phon >= groups[-1][1]:\r
            groups[-1][1]=phon\r
         continue\r
      thisGroup[0].append(phon)\r
      if phon[:1] in 'aeiou@':\r
         thisGroup[2]=True\r
         groups.append(thisGroup)\r
         thisGroup = [[],'0',False]\r
   if thisGroup[0]: groups.append(thisGroup)\r
   if len(groups)>=2 and not groups[-1][2]:\r
      groups[-2][0] += groups[-1][0]\r
      del groups[-1]\r
   return "("+' '.join(("(("+' '.join(g[0])+') '+g[1]+")") for g in groups)+")"\r
\r
def mainopt_convert(i):\r
   """*<from-format> <to-format>\r
Convert a user lexicon (generally from its default filename; if this cannot be found then lexconvert will tell you what it should be).\r
E.g.: python lexconvert.py --convert festival cepstral"""\r
   fromFormat = sys.argv[i+1]\r
   toFormat = sys.argv[i+2]\r
   if fromFormat==toFormat: return "Cannot convert a lexicon to its own format (that could result in it being truncated)"\r
   if toFormat=="mac-uk": return "Cannot permanently save a Mac-UK lexicon; please use the --mac-uk option to read text"\r
   if toFormat=="example": return "Cannot overwrite the built-in example lexicon"\r
   for f in [fromFormat,toFormat]:\r
      if not f in lexFormats: return "No such format "+repr(f)+" (use --formats to see a list of formats)"\r
   try:\r
      fname=getSetting(toFormat,"lex_filename")\r
      getSetting(toFormat,"lex_entry_format") # convert_user_lexicon will need this\r
   except KeyError: fname = None\r
   if not fname: return "Write support for lexicons of format '%s' not yet implemented (need at least lex_filename and lex_entry_format); try using --phones or --phones2phones options instead" % (toFormat,)\r
   if toFormat=="espeak":\r
      assert fname=="en_extra", "If you changed eSpeak's lex_filename in the table you also need to change the code below"\r
      if os.system("mv en_extra en_extra~ && (grep \" // \" en_extra~ || true) > en_extra"): sys.stderr.write("Warning: en_extra not found, making a new one\n(espeak compile will probably fail in this directory)\n") # otherwise keep the commented entries, so can incrementally update the user lexicon only\r
      outFile=open(fname,"a")\r
   else:\r
      l = 0\r
      try:\r
         f = open(fname)\r
         l = getBuf(f).read()\r
         del f\r
      except: pass\r
      assert not l, "File "+replHome(fname)+" already exists and is not empty; are you sure you want to overwrite it?  (Delete it first if so)" # (if you run with python -O then this is ignored, as are some other checks so be careful)\r
      outFile=open(fname,"w")\r
   print ("Writing %s lexicon entries to %s file %s" % (fromFormat,toFormat,fname))\r
   try: convert_user_lexicon(fromFormat,toFormat,outFile)\r
   except Message:\r
     print (" - error, deleting "+fname)\r
     os.remove(fname) ; raise\r
\r
def mainopt_festival_dictionary_to_espeak(i):\r
   """<location>\r
Convert the Festival Oxford Advanced Learners Dictionary (OALD) pronunciation lexicon to eSpeak.\r
You need to specify the location of the OALD file in <location>,\r
e.g. for Debian festlex-oald package: python lexconvert.py --festival-dictionary-to-espeak /usr/share/festival/dicts/oald/all.scm\r
or if you can't install the Debian package, try downloading http://ftp.debian.org/debian/pool/non-free/f/festlex-oald/festlex-oald_1.4.0.orig.tar.gz, unpack it into /tmp, and do: python lexconvert.py --festival-dictionary-to-espeak /tmp/festival/lib/dicts/oald/oald-0.4.out\r
In all cases you need to cd to the eSpeak source directory before running this.  en_extra will be overwritten.  Converter will also read your ~/.festivalrc if it exists.  (You can later incrementally update from ~/.festivalrc using the --convert option; the entries from the system dictionary will not be overwritten in this case.)  Specify --without-check to bypass checking the existing eSpeak pronunciation for OALD entries (much faster, but makes a larger file and in some cases compromises the pronunciation quality)."""\r
   try: festival_location=sys.argv[i+1]\r
   except IndexError: return "Error: --festival-dictionary-to-espeak must be followed by the location of the festival OALD file (see help text)"\r
   try: open(festival_location)\r
   except: return "Error: The specified OALD location '"+festival_location+"' could not be opened"\r
   try: open("en_list")\r
   except: return "Error: en_list could not be opened (did you remember to cd to the eSpeak dictsource directory first?"\r
   convert_system_festival_dictionary_to_espeak(festival_location,not '--without-check' in sys.argv,not os.system("test -e ~/.festivalrc"))\r
\r
def mainopt_syllables(i):\r
   """[<words>]\r
Attempt to break 'words' into syllables for music lyrics (uses espeak to determine how many syllables are needed)"""\r
   # As explained on mainopt_ruby's help text, espeak -x output can't be relied on to always put a space between every input word.  Rather than try to guess what espeak is going to do, here we simply put a newline after every input word instead.  This might affect eSpeak's output (so not recommended for mainopt_ruby), but it should be OK for just counting the syllables.  (Also, the assumption that the input words have been taken from song lyrics usefully rules out certain awkward punctuation cases.)\r
   for txt in getInputText(i+1,"word(s)",'maybe'):\r
      words=txt.split()\r
      response = pipeThroughEspeak(as_utf8('\n').join(as_utf8(w) for w in words).replace(as_utf8("!"),as_utf8("")).replace(as_utf8(":"),as_utf8("")).replace(as_utf8("."),as_utf8("")))\r
      if not as_utf8('\n') in response.rstrip() and as_utf8('command') in response: return response.strip() # 'bad cmd' / 'cmd not found'\r
      rrr = response.split(as_utf8("\n"))\r
      print (" ".join([hyphenate(word,sylcount(convert(line,"espeak","example"))) for word,line in zip(words,filter(lambda x:x,rrr))]))\r
      sys.stdout.flush() # in case piped\r
\r
def wordSeparator(format):\r
   """Returns the effective word separator of format (remembering that it defaults to same as phoneme_separator"""\r
   return checkSetting(format,"word_separator",checkSetting(format,"phoneme_separator"," "))\r
\r
def mainopt_phones2phones(i):\r
   """*<format1> <format2> [<phonemes in format1>]\r
Perform a one-off conversion of phonemes from format1 to format2 (format2 can be 'all' if you want)""" # If format1 is 'example' and you don't specify phonemes, we take the words from the example lexicon.  But don't say that in the help string because it might confuse the issue about phonemes being optional on the command line and prompted for if not specified and stdin is not piped in all formats other than 'example'.\r
   format1,format2 = sys.argv[i+1],sys.argv[i+2]\r
   if not format1 in lexFormats: return "No such format "+repr(format1)+" (use --formats to see a list of formats)"\r
   if not format2 in lexFormats and not format2=="all": return "No such format "+repr(format2)+" (use --formats to see a list of formats)"\r
   if format1=="example" and len(sys.argv)<=i+3:\r
     if stdin_is_terminal(): txt=""\r
     else: txt=getBuf(sys.stdin).read() # and it might still be ""\r
     if txt: parseIntoWordsAndClauses(format1,txt)\r
     else: clauses=[[x[1]] for x in getSetting('example','lex_read_function')()]\r
   else: clauses = parseIntoWordsAndClauses(format1,getInputText(i+3,"phonemes in "+format1+" format"))\r
   if format2=="all": formats = sorted(k for k in lexFormats.keys() if not k=="example")\r
   else: formats = [format2]\r
   for format2 in formats:\r
     if len(formats)>1: writeFormatHeader(format2)\r
     getBuf(sys.stdout).write(as_utf8(checkSetting(format2,"inline_header")))\r
     output_clauses(format2,convert(clauses,format1,format2))\r
     getBuf(sys.stdout).write(as_utf8(checkSetting(format2,"inline_footer"))) ; print("")\r
\r
def parseIntoWordsAndClauses(format,phones):\r
   "Returns list of clauses, each of which is a list of words, assuming 'phones' are in format 'format'"\r
   wordSep = checkSetting(format,"word_separator") # don't use wordSeparator() here - we're splitting, not joining, so we don't want it to default to phoneme_separator\r
   clauseSep = checkSetting(format,"clause_separator","\n")\r
   def s(sep):\r
      if sep==" ": return None # " " means ANY whitespace (TODO: document this?)\r
      else: return maybe_bytes(sep,phones)\r
   if clauseSep and type(clauseSep) in [bytes,unicode]:\r
      clauses = phones.split(s(clauseSep))\r
   else: clauses = [phones]\r
   for i in range(len(clauses)):\r
      if wordSep: clauses[i]=clauses[i].split(s(wordSep))\r
      else: clauses[i] = [clauses[i]]\r
      clauses[i] = list(filter(lambda x:x, clauses[i]))\r
   return list(filter(lambda x:x,clauses))\r
\r
def mainopt_mac_uk(i):\r
   """<from-format> [<text>]\r
Speak text in Mac OS 10.7+ British voices while using a lexicon converted in from <from-format>. As these voices do not have user-modifiable lexicons, lexconvert must binary-patch your system's master lexicon; this is at your own risk! (Superuser privileges are needed the first time. A backup of the system file is made, and all changes are restored on normal exit but if you force-quit then you might need to restore the backup manually. Text speaking needs to be under lexconvert's control because it usually has to change the input words to make them fit the available space in the binary lexicon.) By default the Daniel voice is used; Emily or Serena can be selected by setting the MACUK_VOICE environment variable."""\r
   # If you have xterm etc, then text will also be printed, with words from the altered lexicon underlined.\r
   assert sys.version_info[0]==2, "--mac-uk has not been tested with Python 3, I don't want to risk messing up your system files, please use Python 2"\r
   fromFormat = sys.argv[i+1]\r
   if not fromFormat in lexFormats: return "No such format "+repr(fromFormat)+" (use --formats to see a list of formats)"\r
   lex = get_macuk_lexicon(fromFormat)\r
   try:\r
      for line in getInputText(i+2,"text",True):\r
         m = MacBritish_System_Lexicon(line,os.environ.get("MACUK_VOICE","Daniel"))\r
         try: m.readWithLex(lex)\r
         finally: m.close()\r
   except KeyboardInterrupt:\r
      sys.stderr.write("Interrupted\n")\r
\r
class Counter(object):\r
    "A simple class with two static members, count and subcount, for use by the consonant(), vowel() and other() functions"\r
    c=sc=0\r
def other():\r
    "Used by Phonemes() when creating something that is neither a vowel nor a consonant, e.g. a stress mark"\r
    Counter.c += 1 ; Counter.sc=0 ; return Counter.c\r
consonants = set() ; mainVowels = set()\r
def consonant():\r
    "Used by Phonemes() when creating a consonant"\r
    r = other() ; consonants.add(r) ; return r\r
def vowel():\r
    "Used by Phonemes() when creating a vowel"\r
    r = other() ; mainVowels.add(r) ; return r\r
def opt_vowel():\r
    "Used by Phonemes() when creating an optional vowel (one that has no warning issued if some format doesn't support it)"\r
    return other()\r
def variant():\r
    "Used by Phonemes() when creating a variant of the just-defined vowel/consonant/etc"\r
    Counter.sc += 1\r
    while str(Counter.sc).endswith('0'): Counter.sc += 1\r
    return 0, float('%d.%d' % (Counter.c,Counter.sc))\r
    # the 0 is so we can say _, name = variant()\r
    # so as to get some extra indentation\r
\r
def ifset(var,a,b=""):\r
   "Checks the environment variable var; if it is set (non-empty), return a, otherwise return b.  Used in LexFormats to create tables with variations set by the environment."\r
   import os\r
   if os.environ.get(var,""): return a\r
   else: return b\r
\r
def speakjet(symbol,opcode):\r
   "Special-case function for the Speakjet table"\r
   assert type(opcode)==int\r
   if ifset('SPEAKJET_BINARY',1):\r
      assert not ifset('SPEAKJET_SYM',1), "Cannot set both SPEAKJET_SYM and SPEAKJET_BINARY"\r
      return chr(opcode)\r
   else: return ifset('SPEAKJET_SYM',symbol,str(opcode))\r
\r
def makeDic(doc,*args,**kwargs):\r
    "Make a dictionary with a doc string, default-bidirectional mappings and extra settings; see LexFormats for how this is used."\r
    assert type(doc)==str, "doc must be a string"\r
    d = {} ; duplicates = set()\r
    for a in args:\r
        assert type(a)==tuple and (len(a)==2 or len(a)==3)\r
        k=a[0]\r
        if k in d: duplicates.add(k)\r
        v=a[1]\r
        assert (type(k) in [bytes,unicode] and type(v) in [int,float]) or (type(v) in [bytes,unicode] and type(k) in [int,float]), "Wrong types "+repr(a)+" (did you forget a _, before calling variant() or something?)"\r
        d[k] = v\r
        if type(k)==unicode: d[as_utf8(k)] = v\r
        if len(a)==3: bidir=a[2]\r
        else: bidir=True\r
        if bidir:\r
            # (k,v,True) = both (k,v) and (v,k)\r
            if v in d: duplicates.add(v)\r
            d[v] = k\r
    assert not duplicates, " Duplicate key(s) in "+repr(doc)+": "+", ".join((repr(dup)+"".join(" (="+g+")" for g,val in globals().items() if val==dup)) for dup in sorted(list(duplicates)))+". Did you forget a ,False to suppress bidirectional mapping?" # by the way, Python does not detect duplicate keys in {...} notation - it just lets you overwrite\r
    missing = [l for l in (list(consonants)+list(mainVowels)) if not l in d]\r
    # did_approx = False\r
    if missing and 'approximate_missing' in kwargs:\r
      for miss,approxTo in [\r
          # TODO: put this table somewhere else?\r
          # (If the thing on the right is just 1 item, we could make the thing on the left a variant of it.  But that might not be a good idea unless they're really very close, since if it's a variant then the substitution is done without warning even if approximate_missing is not set.)\r
          (a_as_in_ago, [u_as_in_but]),\r
          (a_as_in_air, [e_as_in_them,r]),\r
          (ear, [e_as_in_eat,u_as_in_but]),\r
          (oor_as_in_poor, [close_to_or]), # TODO: ,r?\r
          (a_as_in_ah,[a_as_in_apple]), # this seems to be missing in some American voices (DecTalk, Keynote, SAM); TODO: is this the best approximation we can do?\r
          (a_as_in_apple,[a_as_in_ah]), # the reverse of the above, for Devanagari\r
          (o_as_in_orange,[oo_as_in_food]),(o_as_in_go,[oo_as_in_food]),(oy_as_in_toy,[oo_as_in_food,i_as_in_it]),(o_as_in_now,[a_as_in_ah, w]),(e_as_in_herd,[u_as_in_but,u_as_in_but]),(ar_as_in_year,[u_as_in_but,u_as_in_but]),(eye,[a_as_in_ah,y]),(th_as_in_think,[th_as_in_them]), # (Devanagari: is this really the best we can do?)\r
          ]:\r
        if miss in missing and all(x in d for x in approxTo):\r
          d[miss]=maybe_bytes(kwargs.get("phoneme_separator"," "),d[approxTo[0]]).join(d[x] for x in approxTo)\r
          # did_approx = True\r
          missing.remove(miss)\r
    # if did_approx: doc="(approx.) "+doc # and see also the code in makeVariantDic.  Commenting out because this is misleading: the formats where we didn't do a did_approx might also contain approximations of some kind.  Incidentally there are some British English voices that need approximate_missing (e.g. Apollo 2)\r
    d[("settings","doc")] = doc\r
    if missing:\r
       import sys ; sys.stderr.write("WARNING: Some non-optional vowels/consonants are missing from "+repr(doc)+"\nThe following are missing: "+", ".join("/".join(g for g,val in globals().items() if val==m) for m in missing)+"\n")\r
    for k,v in kwargs.items(): d[('settings',k)] = v\r
    assert type(d.get(('settings','cleanup_regexps'),[]))==list, "cleanup_regexps must be a list" # not one tuple\r
    assert type(d.get(('settings','cvtOut_regexps'),[]))==list, "cvtOut_regexps must be a list" # not one tuple\r
    wsep = d.get(('settings','word_separator'),None)\r
    psep = d.get(('settings','phoneme_separator'),' ')\r
    if not wsep==None: assert not wsep in d, "word_separator duplicates with a key in "+repr(doc)\r
    if not psep==None: assert not psep in d, "phoneme_separator duplicates with a key (did you forget to change the default, or to add a ,False somewhere?) in "+repr(doc)\r
    global lastDictionaryMade ; lastDictionaryMade = d\r
    return d\r
def makeVariantDic(doc,*args,**kwargs):\r
    "Like makeDic but create a new 'variant' version of the last-made dictionary, modifying some phonemes and settings (and giving it a new doc string) but keeping everything else the same.  Any list settings (e.g. cleanup_regexps) are ADDED to by the variant; other settings and phonemes are REPLACED if they are specified in the variant.  If you don't want subsequent variants to inherit the changes made by this variant, add noInherit=True to the keyword args."\r
    global lastDictionaryMade\r
    ldmOld = lastDictionaryMade\r
    toUpdate = lastDictionaryMade.copy()\r
    global mainVowels,consonants\r
    oldV,oldC = mainVowels,consonants\r
    mainVowels,consonants = [],[] # so makeDic doesn't complain if some vowels/consonants are missing\r
    if 'noInherit' in kwargs:\r
       noInherit = kwargs['noInherit']\r
       del kwargs['noInherit']\r
    else: noInherit = False\r
    d = makeDic(doc,*args,**kwargs)\r
    if noInherit: lastDictionaryMade = ldmOld\r
    mainVowels,consonants = oldV,oldC\r
    # if toUpdate[("settings","doc")].startswith("(approx.) ") and not d[("settings","doc")].startswith("(approx.) "): d[("settings","doc")]="(approx.) "+d[("settings","doc")] # TODO: always?\r
    for k,v in toUpdate.items():\r
       if type(v)==list and k in d: d[k] = v+d[k]\r
    toUpdate.update(d) ; return toUpdate\r
def getSetting(formatName,settingName):\r
  "Gets a setting from lexFormats, exception if not there"\r
  return lexFormats[formatName][('settings',settingName)]\r
def checkSetting(formatName,settingName,default=""):\r
  "Gets a setting from lexFormats, default if not there"\r
  return lexFormats[formatName].get(('settings',settingName),default)\r
\r
import sys,re,os\r
try: from subprocess import getoutput\r
except: from commands import getoutput # Python 2\r
try: bytes # Python 3 and newer Python 2\r
except: bytes = str # older Python 2\r
try: unicode # Python 2\r
except: # Python 3\r
   unicode,unichr,xrange = str,chr,range\r
   def chr(x): return bytes([x])\r
   _builtin_sorted = sorted\r
   from functools import cmp_to_key\r
   def sorted(l,theCmp=None):\r
      if theCmp:\r
         return _builtin_sorted(l,key=cmp_to_key(theCmp))\r
      else: return _builtin_sorted(l)\r
   assert sys.version_info[1] > 4, "lexconvert cannot run on Python 3.4 due to lack of byte-string percent formatting (PEP 461).  Please use Python 3.5+ or stick with Python 2."\r
def getBuf(f):\r
   "Return a buffer to which bytes may be written, for Python 2 and 3 compatibility"\r
   try: return f.buffer # Python 3\r
   except AttributeError: return f # Python 2\r
\r
cached_sourceName,cached_destName,cached_dict = None,None,None\r
def make_dictionary(sourceName,destName):\r
    "Uses lexFormats to make a mapping dictionary from a particular source format to a particular dest format, and also sets module variables for that particular conversion (TODO: put those module vars into an object in case someone wants to use this code in a multithreaded server)"\r
    global cached_sourceName,cached_destName,cached_dict\r
    if (sourceName,destName) == (cached_sourceName,cached_destName): return cached_dict\r
    source = lexFormats[sourceName]\r
    dest = lexFormats[destName]\r
    d = {}\r
    global dest_consonants ; dest_consonants = set()\r
    global dest_syllable_sep ; dest_syllable_sep = dest.get(syllable_separator,"")\r
    global implicit_vowel_before_NL\r
    implicit_vowel_before_NL = None\r
    for k,v in source.items():\r
      if type(k)==tuple: continue # settings\r
      if type(v) in [bytes,unicode]: continue # (num->string entries are for converting IN to source; we want the string->num entries for converting out)\r
      if not v in dest: v = int(v) # (try the main version of a variant)\r
      if not v in dest: continue # (haven't got it - will have to ignore or break into parts)\r
      assert type(k) in [bytes,unicode]\r
      d[k] = dest[v]\r
      if int(v) in consonants: dest_consonants.add(d[k])\r
      if int(v)==e_as_in_herd and (not implicit_vowel_before_NL or v==int(v)): # TODO: or u_as_in_but ?  used by festival and some other synths before words ending 'n' or 'l' (see usage of implicit_vowel_before_NL later)\r
        implicit_vowel_before_NL = d[k]\r
      d[as_utf8(k)] = d[k]\r
      try: d[as_unicode(k)] = d[k]\r
      except UnicodeDecodeError: pass\r
    try:\r
       if any(type(v)==unicode for v in d.values()): d,dest_consonants=dict((k,as_unicode(v)) for k,v in d.items()),set(as_unicode(v) for v in dest_consonants) # Python 2: if ANY dest are Unicode, make them ALL Unicode\r
    except UnicodeDecodeError: d,dest_consonants=dict((k,as_utf8(v)) for k,v in d.items()),set(as_utf8(v) for v in dest_consonants) # ... or make them ALL byte-strings if some were binary and not readable as UTF-8\r
    cached_sourceName,cached_destName,cached_dict=sourceName,destName,d\r
    return d\r
\r
warnedAlready = set()\r
def convert(pronunc,source,dest):\r
    "Convert pronunc from source to dest.  pronunc can be a string or a list; if a list then we'll recurse on each of the list elements and return a new list (this is meant for batch-converting clauses etc)"\r
    assert type(pronunc) in [bytes,unicode,list], type(pronunc)\r
    if source==dest: return pronunc # essential for --try experimentation with codes not yet supported by lexconvert\r
    if type(pronunc)==list: return [convert(p,source,dest) for p in pronunc]\r
    func = checkSetting(source,'cvtOut_func')\r
    if func: pronunc=func(pronunc)\r
    for s,r in checkSetting(source,'cvtOut_regexps'):\r
        pronunc=re.sub(maybe_bytes(s,pronunc),maybe_bytes(r,pronunc),pronunc)\r
    ret = [] ; toAddAfter = None\r
    dictionary = make_dictionary(source,dest)\r
    maxLen=max(len(l) for l in dictionary.keys())\r
    debugInfo=""\r
    separator = checkSetting(dest,'phoneme_separator',' ')\r
    safe_to_drop = checkSetting(source,"safe_to_drop_characters")\r
    while pronunc:\r
        for lettersToTry in range(maxLen,-1,-1):\r
            if not lettersToTry:\r
              if safe_to_drop==True: pass\r
              elif (not safe_to_drop) or not pronunc[:1] in maybe_bytes(safe_to_drop,pronunc) and not (pronunc[:1],debugInfo) in warnedAlready:\r
                 warnedAlready.add((pronunc[:1],debugInfo))\r
                 sys.stderr.write("Warning: ignoring "+source+" character "+repr(pronunc[:1])+debugInfo+" (unsupported in "+dest+")\n")\r
              pronunc=pronunc[1:] # ignore\r
            elif pronunc[:lettersToTry] in dictionary:\r
                debugInfo=" after "+as_printable(pronunc[:lettersToTry])\r
                toAdd=dictionary[pronunc[:lettersToTry]]\r
                assert type(toAdd) in [bytes,unicode], type(toAdd)\r
                isStressMark=(toAdd and toAdd in [maybe_bytes(lexFormats[dest].get(primary_stress,''),toAdd),maybe_bytes(lexFormats[dest].get(secondary_stress,''),toAdd)])\r
                if toAdd==maybe_bytes(lexFormats[dest].get(syllable_separator,''),toAdd): pass\r
                elif isStressMark and not checkSetting(dest,"stress_comes_before_vowel"):\r
                    if checkSetting(source,"stress_comes_before_vowel"): toAdd, toAddAfter = maybe_bytes("",toAdd),toAdd # move stress marks from before vowel to after\r
                    else: # stress is already after, but:\r
                        # With Cepstral synth (and kana-approx), stress mark should be placed EXACTLY after the vowel and not any later.  Might as well do this for others also.\r
                        r=len(ret)-1\r
                        while ret[r] in dest_consonants or ret[r].endswith(maybe_bytes("*added",ret[r])): r -= 1 # (if that raises IndexError then the input had a stress mark before any vowel) ("*added" condition is there so that implicit vowels don't get the stress)\r
                        ret.insert(r+1,toAdd) ; toAdd=maybe_bytes("",toAdd)\r
                elif isStressMark and not checkSetting(source,"stress_comes_before_vowel"): # it's a stress mark that should be moved from after the vowel to before it\r
                    i=len(ret)\r
                    while i and (ret[i-1] in dest_consonants or ret[i-1].endswith(maybe_bytes("*added",ret[i-1]))): i -= 1\r
                    if i: i-=1\r
                    ret.insert(i,toAdd)\r
                    if dest_syllable_sep: ret.append(maybe_bytes(dest_syllable_sep,toAdd)) # (TODO: this assumes stress marks are at end of syllable rather than immediately after vowel; correct for Festival; check others; probably a harmless assumption though; mac-uk is better with syllable separators although espeak basically ignores them)\r
                    toAdd = maybe_bytes("",toAdd)\r
                # attempt to sort out the festival dictionary's (and other's) implicit_vowel_before_NL\r
                elif implicit_vowel_before_NL and ret and ret[-1] and toAdd in [maybe_bytes('n',toAdd),maybe_bytes('l',toAdd)] and ret[-1] in dest_consonants: ret.append(maybe_bytes(implicit_vowel_before_NL,toAdd)+maybe_bytes('*added',toAdd))\r
                elif len(ret)>2 and ret[-2].endswith(maybe_bytes('*added',ret[-2])) and toAdd and not toAdd in dest_consonants and not toAdd==dest_syllable_sep: del ret[-2]\r
                if toAdd:\r
                    # Add it, but if toAdd is multiple phonemes, try to put toAddAfter after the FIRST phoneme\r
                    if separator: toAddList=toAdd.split(separator)\r
                    else: toAddList = [toAdd] # TODO: won't work for formats that don't have a phoneme separator (doesn't really matter for eSpeak though)\r
                    ret.append(toAddList[0])\r
                    if toAddAfter and not toAddList[0] in dest_consonants:\r
                        ret.append(toAddAfter)\r
                        toAddAfter=None\r
                    ret += toAddList[1:]\r
                pronunc=pronunc[lettersToTry:]\r
                break\r
    if toAddAfter: ret.append(toAddAfter)\r
    if ret and ret[-1]==dest_syllable_sep: del ret[-1] # spurious syllable separator at end\r
    if not ret: ret = ""\r
    else: ret=maybe_bytes(separator,ret[0]).join(ret).replace(maybe_bytes('*added',ret[0]),maybe_bytes('',ret[0]))\r
    for s,r in checkSetting(dest,'cleanup_regexps'):\r
      ret=re.sub(maybe_bytes(s,ret),maybe_bytes(r,ret),ret)\r
    func = checkSetting(dest,'cleanup_func')\r
    if func: return func(ret)\r
    else: return ret\r
\r
def unicode_preprocess(pronunc):\r
   "Special-case cvtOut_func for unicode-ipa etc: tries to catch \\uNNNN etc"\r
   if maybe_bytes("\\u",pronunc) in pronunc and not maybe_bytes('"',pronunc) in pronunc: # maybe \uNNNN copied from Gecko on X11, can just evaluate it to get the unicode\r
      # (NB make sure to quote the \'s if pasing in on the command line)\r
      try: pronunc=eval('u"'+pronunc+'"')\r
      except: pass\r
   else: # see if it makes sense as utf-8\r
      try: pronunc = pronunc.decode('utf-8')\r
      except: pass\r
   return pronunc\r
\r
def ascii_braille_to_unicode(a):\r
  "Special-case cleanup_func for braille-ipa (set by braille-ipa if BRAILLE_UNICODE is set).  Converts Braille ASCII to Unicode dot patterns."\r
  d=dict(zip(list(" A1B'K2L@CIF/MSP\"E3H9O6R^DJG>NTQ,*5<-U8V.%[$+X!&;:4\\0Z7(_?W]#Y)="),[unichr(c) for c in range(0x2800,0x2840)]))\r
  return u''.join(d.get(c,c) for c in list(a))\r
def unicode_to_ascii_braille(u):\r
  d=dict(zip([unichr(c) for c in range(0x2800,0x2840)],list(" A1B'K2L@CIF/MSP\"E3H9O6R^DJG>NTQ,*5<-U8V.%[$+X!&;:4\\0Z7(_?W]#Y)=")))\r
  r=''.join(d.get(c,c) for c in list(as_unicode(u)))\r
  if r.startswith(",7") and r.endswith("7'"): r=r[2:-2]\r
  return r\r
\r
def hiragana_to_katakana(u):\r
   "Special-case cleanup_func for kana-approx; converts all hiragana characters in unicode string 'u' into katakana if KANA_TYPE is set to anything beginning with a 'k'"\r
   assert type(u)==unicode\r
   if not os.environ.get("KANA_TYPE","").lower().startswith("k"): return u\r
   u = list(u)\r
   for i in xrange(len(u)):\r
      if 0x3041 <= ord(u[i]) <= 0x3096:\r
         u[i]=unichr(ord(u[i])+0x60)\r
   return u"".join(u)\r
\r
def espeak_probably_right_already(existing_pronunc,new_pronunc):\r
    """Used by convert_system_festival_dictionary_to_espeak to compare a "new" pronunciation with eSpeak's existing pronunciation.  As the transcription from OALD to eSpeak is only approximate, it could be that our new pronunciation is not identical to the existing one but the existing one is actually correct; try to detect when this happens by checking if the pronunciations are the same after some simplifications."""\r
    if existing_pronunc==new_pronunc: return True\r
    def simplify(pronunc): return \\r
        pronunc.replace(maybe_bytes(";",pronunc),maybe_bytes("",pronunc)).replace(maybe_bytes("%",pronunc),maybe_bytes("",pronunc)) \\r
        .replace(maybe_bytes("a2",pronunc),maybe_bytes("@",pronunc)) \\r
        .replace(maybe_bytes("3",pronunc),maybe_bytes("@",pronunc)) \\r
        .replace(maybe_bytes("L",pronunc),maybe_bytes("l",pronunc)) \\r
        .replace(maybe_bytes("I2",pronunc),maybe_bytes("i:",pronunc)) \\r
        .replace(maybe_bytes("I",pronunc),maybe_bytes("i:",pronunc)).replace(maybe_bytes("i@",pronunc),maybe_bytes("i:@",pronunc)) \\r
        .replace(maybe_bytes(",",pronunc),maybe_bytes("",pronunc)) \\r
        .replace(maybe_bytes("s",pronunc),maybe_bytes("z",pronunc)) \\r
        .replace(maybe_bytes("aa",pronunc),maybe_bytes("A:",pronunc)) \\r
        .replace(maybe_bytes("A@",pronunc),maybe_bytes("A:",pronunc)) \\r
        .replace(maybe_bytes("O@",pronunc),maybe_bytes("O:",pronunc)) \\r
        .replace(maybe_bytes("o@",pronunc),maybe_bytes("O:",pronunc)) \\r
        .replace(maybe_bytes("r-",pronunc),maybe_bytes("r",pronunc))\r
    # TODO: rewrite @ to 3 whenever not followed by a vowel?\r
    if as_printable(simplify(existing_pronunc))==as_printable(simplify(new_pronunc)): return True # almost the same, and festival @/a2 etc seems to be a bit ambiguous so leave it alone\r
\r
def parse_festival_dict(festival_location):\r
    "For OALD; yields word,part-of-speech,pronunciation"\r
    ret = []\r
    for line in open(festival_location):\r
        line=line.strip()\r
        if "((pos" in line: line=line[:line.index("((pos")]\r
        if line.startswith('( "'): line=line[3:]\r
        line=line.replace('"','').replace('(','').replace(')','')\r
        try:\r
            word, pos, pronunc = line.split(None,2)\r
        except ValueError: continue # malformed line\r
        if pos not in ['n','v','a','cc','dt','in','j','k','nil','prp','uh']: continue # two or more words\r
        yield (word.lower(), pos, pronunc)\r
\r
class Message(Exception): pass\r
def convert_system_festival_dictionary_to_espeak(festival_location,check_existing_pronunciation,add_user_dictionary_also):\r
    "See mainopt_festival_dictionary_to_espeak"\r
    os.system("mv en_extra en_extra~") # start with blank 'extra' dictionary\r
    if check_existing_pronunciation: os.system("espeak --compile=en") # so that the pronunciation we're checking against is not influenced by a previous version of en_extra\r
    outFile=open("en_extra","w")\r
    print ("Reading dictionary lists")\r
    wordDic = {} ; ambiguous = {}\r
    el = open("en_list")\r
    for line in filter(lambda x:x.split() and not re.match(maybe_bytes(r'^[a-z]* *\$',x),x),getBuf(el).read().split(as_utf8('\n'))): ambiguous[line.split()[0]]=ambiguous[line.split()[0]+as_utf8('s')]=True # this stops the code below from overriding anything already in espeak's en_list.  If taking out then you need to think carefully about words like "a", "the" etc.\r
    for word,pos,pronunc in parse_festival_dict(festival_location):\r
        pronunc=pronunc.replace("i@ 0 @ 0","ii ou 2 ").replace("i@ 0 u 0","ii ou ") # (hack for OALD's "radio"/"video"/"stereo"/"embryo" etc)\r
        pronunc=pronunc.replace("0","") # 0's not necessary, and OALD sometimes puts them in wrong places, confusing the converter\r
        if word in ['mosquitoes']: continue # OALD bug (TODO: any others?)\r
        if word in wordDic and not wordDic[word]==(pronunc,pos):\r
            ambiguous[as_utf8(word)] = True\r
            del wordDic[word] # better not go there\r
        if not as_utf8(word) in ambiguous:\r
            wordDic[word] = (pronunc, pos)\r
    toDel = []\r
    if check_existing_pronunciation:\r
        print ("Checking existing pronunciation")\r
        proc=os.popen("espeak -q -x -v en-rp > /tmp/.pronunc 2>&1","w")\r
        wList = []\r
    progressCount=0 ; oldPercent=-1\r
    itemList = list(wordDic.items())\r
    # Make sure it's NOT sorted, to ensure eSpeak doesn't\r
    # cache pronunciation of previous word when add suffix\r
    # (which can subtly change eSpeak's pronunciation in\r
    # some versions of eSpeak, leading to\r
    # Python 2/3 differences as Python 3 sorts by default) :\r
    itemList.sort()\r
    i0,i1 = itemList[:int(len(itemList)/2)],itemList[int(len(itemList)/2):]\r
    itemList = []\r
    while i0 or i1:\r
       if i0: itemList.append(i0.pop())\r
       if i1: itemList.append(i1.pop())\r
    for word,(pronunc,pos) in itemList:\r
        if check_existing_pronunciation:\r
            percent = int(progressCount*100/len(wordDic))\r
            if not percent==oldPercent: sys.stdout.write(str(percent)+"%\r") ; sys.stdout.flush()\r
            oldPercent=percent\r
            progressCount += 1\r
        if not re.match("^[A-Za-z]*$",word): # (some versions of eSpeak also OK with "-", but not all)\r
            # contains special characters - better not go there\r
            toDel.append(word)\r
        elif word.startswith("plaque") or word in "friday saturday sunday tuesday thursday yesterday".split():\r
            # hack to accept eSpeak's pl'ak instead of pl'A:k - order was reversed in the March 2009 draft\r
            toDel.append(word)\r
        elif word[-1]=="s" and word[:-1] in wordDic:\r
            # unnecessary plural (espeak will pick up on them anyway)\r
            toDel.append(word)\r
        elif word.startswith("year") or "quarter" in word: toDel.append(word) # don't like festival's pronunciation of those (TODO: also 'memorial' why start with [m'I])\r
        elif check_existing_pronunciation:\r
            getBuf(proc).write(as_utf8(word)+as_utf8("\n"))\r
            proc.flush() # so the progress indicator works\r
            wList.append(word)\r
    if check_existing_pronunciation:\r
        proc.close() ; print("")\r
        oldPronDic = {}\r
        tp = open("/tmp/.pronunc")\r
        for k,v in zip(wList,getBuf(tp).read().split(as_utf8("\n"))): oldPronDic[k]=v.strip().replace(as_utf8(" "),as_utf8(""))\r
    for w in toDel: del wordDic[w]\r
    print ("Doing the conversion")\r
    lines_output = 0\r
    total_lines = 0\r
    not_output_because_ok = []\r
    items = list(wordDic.items()) ; items.sort() # necessary because of the hacks below which check for the presence of truncated versions of the word (want to have decided whether or not to output those truncated versions before reaching the hacks)\r
    for word,(pronunc,pos) in items:\r
        total_lines += 1\r
        new_e_pronunc = convert(pronunc,"festival","espeak")\r
        if new_e_pronunc.count("'")==2 and not '-' in word: new_e_pronunc=new_e_pronunc.replace("'",",",1) # if 2 primary accents then make the first one a secondary (except on hyphenated words)\r
        # TODO if not en-rp? - if (word.endswith("y") or word.endswith("ie")) and new_e_pronunc.endswith("i:"): new_e_pronunc=new_e_pronunc[:-2]+"I"\r
        unrelated_word = None\r
        if check_existing_pronunciation: espeakPronunc = oldPronDic.get(word,"")\r
        else: espeakPronunc = ""\r
        if word[-1]=='e' and word[:-1] in wordDic: unrelated_word, espeakPronunc = word[:-1],"" # hack: if word ends with 'e' and dropping the 'e' leaves a valid word that's also in the dictionary, we DON'T want to drop this word on the grounds that espeak already gets it right, because if we do then adding 's' to this word may cause espeak to add 's' to the OTHER word ('-es' rule).\r
        if espeak_probably_right_already(espeakPronunc,new_e_pronunc):\r
            not_output_because_ok.append(word)\r
            continue\r
        if not unrelated_word: lines_output += 1\r
        getBuf(outFile).write(as_utf8(word)+as_utf8(" ")+as_utf8(new_e_pronunc)+as_utf8(" // from Festival's (")+as_utf8(pronunc)+as_utf8(")"))\r
        if espeakPronunc: getBuf(outFile).write(as_utf8(", not [[")+as_utf8(espeakPronunc)+as_utf8("]]"))\r
        elif unrelated_word: getBuf(outFile).write(as_utf8(" (here to stop espeak's affix rules getting confused by Festival's \"")+as_utf8(unrelated_word)+as_utf8("\")"))\r
        getBuf(outFile).write(as_utf8("\n"))\r
    print ("Corrected(?) %d entries out of %d" % (lines_output,total_lines))\r
    if add_user_dictionary_also: convert_user_lexicon("festival","espeak",outFile)\r
    outFile.close()\r
    os.system("espeak --compile=en")\r
    if not_output_because_ok:\r
      print ("Checking for unwanted side-effects of those corrections") # e.g. terrible as Terr + ible, inducing as in+Duce+ing\r
      proc=os.popen("espeak -q -x -v en-rp > /tmp/.pronunc 2>&1","w")\r
      progressCount = 0\r
      for w in not_output_because_ok:\r
          getBuf(proc).write(as_utf8(w)+as_utf8("\n")) ; proc.flush()\r
          percent = int(progressCount*100/len(not_output_because_ok))\r
          if not percent==oldPercent: sys.stdout.write(str(percent)+"%\r") ; sys.stdout.flush()\r
          oldPercent = percent\r
          progressCount += 1\r
      proc.close()\r
      outFile=open("en_extra","a") # append to it\r
      tp = open("/tmp/.pronunc")\r
      for word,pronunc in zip(not_output_because_ok,getBuf(tp).read().split(as_utf8("\n"))):\r
        pronunc = pronunc.strip().replace(as_utf8(" "),as_utf8(""))\r
        if not pronunc==oldPronDic[word] and not espeak_probably_right_already(oldPronDic[word],pronunc):\r
          getBuf(outFile).write(as_utf8(word)+as_utf8(" ")+oldPronDic[word]+as_utf8(" // (undo affix-side-effect from previous words that gave \"")+pronunc+as_utf8("\")\n"))\r
      outFile.close()\r
      os.system("espeak --compile=en")\r
    return not_output_because_ok\r
\r
def read_user_lexicon(fromFormat):\r
    "Calls the appropriate lex_read_function, opening lex_filename first if supplied"\r
    readFunction = checkSetting(fromFormat,"lex_read_function")\r
    if not readFunction: raise Message("Reading from '%s' lexicon file not yet implemented (no lex_read_function); try using --phones or --phones2phones options instead" % (fromFormat,))\r
    try:\r
       lexFilename = getSetting(fromFormat,"lex_filename")\r
       if lexFilename==None: lexfile = None # e.g. the example lexicon\r
       else:\r
          lexfile = open(lexFilename)\r
          if not os.environ.get("LEXCONVERT_OMIT_READING_FROM",""): print ("Reading from "+lexFilename) # TODO: document LEXCONVERT_OMIT_READING_FROM (might be useful for the --mac-uk option)\r
    except KeyError: lexfile = None # lex_read_function without lex_filename is allowed, if the read function can take null param and fetch the lexicon itself\r
    except IOError: raise Message(fromFormat+"'s lexicon is expected to be in a file called "+replHome(lexFilename)+" which could not be read - please fix and try again")\r
    return readFunction(lexfile)\r
\r
def replHome(fname):\r
   "Format fname for printing, substituting ~ for HOME if appropriate"\r
   h = os.environ.get('HOME','')\r
   if h and fname.startswith(h+os.sep):\r
      return "~"+fname[len(h):]\r
   else: return fname\r
    \r
def get_macuk_lexicon(fromFormat):\r
    "Converts lexicon from fromFormat and returns a list suitable for MacBritish_System_Lexicon's readWithLex"\r
    return [(word,convert(pronunc,fromFormat,"mac-uk")) for word, pronunc in read_user_lexicon(fromFormat)]\r
\r
def as_utf8(s):\r
   if type(s)==unicode: return s.encode('utf-8')\r
   else: return s\r
def as_unicode(s):\r
   if type(s)==unicode: return s\r
   else: return s.decode('utf-8')\r
def maybe_bytes(s,i):\r
   "Python 2/3 compatibility: convert s to bytes if i is bytes"\r
   if type(i)==unicode: return s\r
   else: return as_utf8(s)\r
def as_printable(s):\r
   if sys.version_info[0] < 3: return as_utf8(s)\r
   else: return as_utf8(s).decode('utf-8')\r
\r
def convert_user_lexicon(fromFormat,toFormat,outFile):\r
    "See mainopt_convert"\r
    lex = read_user_lexicon(fromFormat)\r
    lex_header = checkSetting(toFormat,"lex_header")\r
    if type(lex_header) in [bytes,unicode]: getBuf(outFile).write(as_utf8(lex_header))\r
    else: lex_header(outFile)\r
    entryFormat=getSetting(toFormat,"lex_entry_format")\r
    wordCase=checkSetting(toFormat,"lex_word_case")\r
    for word, pronunc in lex:\r
        pronunc = as_utf8(convert(pronunc,fromFormat,toFormat))\r
        if wordCase=="upper": word=word.upper()\r
        elif wordCase=="lower": word=word.lower()\r
        getBuf(outFile).write(as_utf8(entryFormat) % (as_utf8(word),as_utf8(pronunc))) # will work in Python 3.6, but not in Python 3.4 (e.g. on jessie) which cannot do % on byte-strings\r
    footer = checkSetting(toFormat,"lex_footer")\r
    if type(footer) in [bytes,unicode]: getBuf(outFile).write(as_utf8(footer))\r
    else: footer(outFile)\r
\r
def bbcMicro_partPhonemeCount(pronunc):\r
   """Returns the number of 'part phonemes' (at least that's what I'm calling them) for the BBC Micro phonemes in pronunc.  The *SPEAK command cannot take more than 117 part-phonemes at a time before saying "Line too long", and in some cases it takes less than that (I'm not sure why); 115 is a safer limit."""\r
   partCount = 0 ; pronunc0 = pronunc\r
   while pronunc:\r
      found = 0\r
      for p in ' ,AA,AE,AH,AI,AO,AW,AY,B,CH,CT,DH,DUX,D,EE,EH,ER,F,G,/H,IH,IX,IY,J,K,L,M,NX,N,OW,OL,OY,O,P,R,SH,S,TH,T,UH,/UL,/U,UW,UX,V,W,Y,ZH,Z'.split(','): # phonemes and space count, but pitch numbers do not count\r
         if pronunc.startswith(as_utf8(p)):\r
            partCount += {\r
               # *SPEAK can take 117 of most single-letter phonemes, or 116 (limited by the 232+6-character input limit) of most 2-letter phonemes\r
               'AW':2,'IY':2,'OW':2,'OL':2,'UW':2,'/UL':2, # *SPEAK can take 58 of these\r
               'DUX':3,'AY':3,'CH':3,'J':3,'OY':3, # *SPEAK can take 39 of these\r
               'CT':4, # *SPEAK can take 29 of these\r
            }.get(p,1)\r
            pronunc=pronunc[len(p):] ; found=1 ; break\r
      if not found:\r
         assert as_printable(pronunc[:1]) in '12345678',"Unrecognised BBC Micro phoneme at "+str(pronunc)+" in "+str(pronunc0)\r
         pronunc=pronunc[1:]\r
   return partCount\r
\r
def markup_inline_word(format,pronunc):\r
    "Returns pronunc with any necessary markup for putting it in a text (using the inline_format setting)"\r
    pronunc = as_utf8(pronunc) # UTF-8 output - ok for pasting into Firefox etc *IF* the terminal/X11 understands utf-8 (otherwise redirect to a file, point the browser at it, and set encoding to utf-8, or try --convert'ing which will o/p HTML)\r
    format = checkSetting(format,"inline_format","%s")\r
    if type(format) in [bytes,unicode]:\r
       if type(format)==unicode: format=format.encode('utf-8') # see above\r
       return format % pronunc\r
    else: return format(pronunc)\r
def markup_doubleTalk_word(pronunc):\r
   "Special-case function set as inline_format in doubletalk (checks environment variables for command code)"\r
   cmd = os.environ.get('DTALK_COMMAND_CODE','')\r
   if cmd: cmd=chr(int(cmd))\r
   else: cmd = as_utf8('*')\r
   return as_utf8("%sD%s%sT") % (cmd,pronunc,cmd)\r
def markup_bbcMicro_word(pronunc):\r
   "Special-case function set as inline_format in bbcmicro.  Begins a new *SPEAK command when necessary.  See also write_bbcmicro_phones."\r
   global bbc_partsSoFar,bbc_charsSoFar\r
   thisPartCount = bbcMicro_partPhonemeCount(pronunc)\r
   if (not bbc_partsSoFar or bbc_partsSoFar+thisPartCount > 115) or (not bbc_charsSoFar or bbc_charsSoFar+len(pronunc) > 238): # 238 is max len of BBC BASIC prompt (both the immediate prompt and the one with line number supplied by AUTO, in both BASIC II and BASIC IV); re other limit see bbcMicro_partPhonemeCount\r
      if bbc_charsSoFar: r="\n"\r
      else: r=""\r
      cmd="*SPEAK" # (could add a space if want to make it more readable, at the expense of an extra keystroke in the paste buffer; by the way, when not using the ROM version you must use *SPEAK not OS.("SPEAK"), at least on a Model B; seems OSCLI doesn't go through quite the same vectors as star)\r
      bbc_charsSoFar = len(cmd)+len(pronunc)+1 # +1 for the space that'll be after this word if we don't start a new line\r
      bbc_partsSoFar = thisPartCount+1 # ditto\r
      return as_utf8(r+cmd)+pronunc\r
   else:\r
      bbc_charsSoFar += len(pronunc)+1\r
      bbc_partsSoFar += thisPartCount+1\r
      return pronunc\r
bbc_partsSoFar=bbc_charsSoFar=0\r
\r
def sylcount(example_format_festival):\r
  """Tries to count the number of syllables in a Festival string (see mainopt_syllables).  We treat @ as counting the same as the previous syllable (e.g. "fire", "power"), but this can vary in different songs, so the result will likely need a bit of proofreading."""\r
  count = inVowel = maybeCount = hadAt = 0\r
  festival = example_format_festival.split() # no brackets, emphasis by vowels, but spaces between each syllable\r
  for phone,i in zip(festival,range(len(festival))):\r
    if phone[:1] in "aeiou": inVowel=0 # unconditionally start new syllable\r
    if phone[:1] in "aeiou@12":\r
      if not inVowel: count += 1\r
      elif phone[:1]=="@" and not hadAt: maybeCount = 1 # (e.g. "loyal", but NOT '1', e.g. "world")\r
      if "@" in phone: hadAt = 1 # for words like "cheerful" ("i@ 1 @" counts as one)\r
      inVowel = 1\r
      if phone[:1]=="@" and i>=3 and festival[i-2:i]==["ai","1"] and festival[i-3] in ["s","h"]: # special rule for higher, Messiah, etc - like "fire" but usually 2 syllables\r
        maybeCount = 0 ; count += 1\r
    else:\r
      if not phone[:1] in "drz": count += maybeCount # not 'r/z' e.g. "ours", "fired" usually 1 syllable in songs, "desirable" usually 4 not 5\r
      # TODO steward?  y u@ 1 d but usally 2 syllables\r
      inVowel = maybeCount = hadAt = 0\r
  return count\r
def hyphenate(word,numSyls):\r
  "See mainopt_syllables"\r
  orig = word\r
  try: word,isu8 = word.decode('utf-8'),True\r
  except: isu8 = False\r
  pre=[] ; post=[]\r
  while word and not 'a'<=word[:1].lower()<='z':\r
    pre.append(word[:1]) ; word=word[1:]\r
  while word and not 'a'<=word[-1].lower()<='z':\r
    post.insert(0,word[-1:]) ; word=word[:-1]\r
  if numSyls>len(word): return orig # probably numbers or something\r
  l = int((len(word)+numSyls/2)/numSyls) ; syls = []\r
  for i in range(numSyls):\r
    if i==numSyls-1: syls.append(word[i*l:])\r
    else: syls.append(word[i*l:(i+1)*l])\r
    if len(syls)>1:\r
      if syls[-1].startswith('-') or (len(syls[-1])>2 and syls[-1][:1]==syls[-1][1:2] and not syls[-1][:1].lower() in "aeiou"):\r
        # repeated consonant at start - put one on previous\r
        # (or hyphen at start - move it to the previous)\r
        syls[-2] += syls[-1][:1]\r
        syls[-1] = syls[-1][1:]\r
      elif len(syls[-1])>2 and syls[-1][1]=='-':\r
        # better move this splitpoint after that hyphen (TODO: move more than one character?)\r
        syls[-2] += syls[-1][:2]\r
        syls[-1] = syls[-1][2:]\r
      elif ((len(syls[-2])>2 and syls[-2][-1]==syls[-2][-2] and not syls[-2][-1].lower() in "aeiou") \\r
            or (syls[-1] and syls[-1][:1].lower() in "aeiouy" and len(syls[-2])>2)) \\r
            and list(filter(lambda x:x.lower() in "aeiou",list(syls[-2][:-1]))):\r
        # repeated consonant at end - put one on next\r
        # or vowel on right: move a letter over (sometimes the right thing to do...)\r
        # (unless doing so leaves no vowels)\r
        syls[-1] = syls[-2][-1]+syls[-1]\r
        syls[-2] = syls[-2][:-1]\r
  word = ''.join(pre)+"- ".join(syls)+''.join(post)\r
  if isu8: word=word.encode('utf-8')\r
  return word\r
\r
def macSayCommand():\r
  """Return the environment variable SAY_COMMAND if it is set and if it is non-empty, otherwise return "say".\r
  E.g. SAY_COMMAND="say -o file.aiff" (TODO: document this in the help text?)\r
  In Gradint you can set (e.g. if you have a ~/.festivalrc) extra_speech=[("en","python lexconvert.py --mac-uk festival")] ; extra_speech_tofile=[("en",'echo %s | SAY_COMMAND="say -o /tmp/said.aiff" python lexconvert.py --mac-uk festival && sox /tmp/said.aiff /tmp/said.wav',"/tmp/said.wav")]"""\r
  s = os.environ.get("SAY_COMMAND","")\r
  if s: return s\r
  else: return "say"\r
\r
def stdin_is_terminal():\r
   "Returns True if it seems the standard input is connected to a terminal (rather than piped from a file etc)"\r
   return (not hasattr(sys.stdin,"isatty")) or sys.stdin.isatty()\r
\r
def getInputText(i,prompt,as_iterable=False):\r
  """Gets text either from the command line or from standard input.  Issue prompt if there's nothing on the command line and standard input is connected to a tty instead of a pipe or file.  If as_iterable, return an iterable object over the lines instead of reading and returning all text at once.  If as_iterable=='maybe', return the iterable but if not reading from a tty then read everything into one item."""\r
  txt = ' '.join(sys.argv[i:])\r
  if txt:\r
    if as_iterable=='maybe': return [txt]\r
    elif as_iterable: return txt.split('\n')\r
    else: return txt\r
  if stdin_is_terminal(): sys.stderr.write("Enter "+prompt+" (EOF when done)\n")\r
  elif as_iterable=='maybe': return [getBuf(sys.stdin).read()]\r
  if as_iterable: return my_xreadlines()\r
  else:\r
     try: return getBuf(sys.stdin).read()\r
     except KeyboardInterrupt: raise SystemExit\r
\r
try: raw_input # Python 2\r
except NameError: raw_input = input # Python 3\r
def my_xreadlines():\r
   "On some platforms this might be a bit more responsive than sys.stdin.xreadlines"\r
   while True:\r
      try: yield raw_input()\r
      except EOFError: return\r
      except KeyboardInterrupt: raise SystemExit\r
\r
def output_clauses(format,clauses):\r
   "Writes out clauses and words in format 'format' (clauses is a list of lists of words in the phones of 'format').  By default, calls markup_inline_word and join as appropriate.  If however the format's 'clause_separator' has been set to a special case, calls that."\r
   if checkSetting(format,"output_is_binary") and hasattr(sys.stdout,"isatty") and sys.stdout.isatty():\r
      print ("This is a binary format - not writing to terminal.\nPlease direct output to a file or pipe.")\r
      return\r
   clause_sep = checkSetting(format,"clause_separator","\n")\r
   if type(clause_sep) in [bytes,unicode]: getBuf(sys.stdout).write(as_utf8(clause_sep).join(as_utf8(wordSeparator(format)).join(markup_inline_word(format,word) for word in clause) for clause in clauses))\r
   else: clause_sep(clauses)\r
def write_bbcmicro_phones(clauses):\r
  """Special-case function set as clause_separator in bbcmicro format.  Must be a special case because it needs to track any extra keystrokes to avoid "Line too long".  And while we're at it, we might as well start a new *SPEAK command with each clause, using the natural brief delay between commands; this should minimise the occurrence of additional delays in arbitrary places.  Also calls print_bbc_warnings"""\r
  totalKeystrokes = 0 ; lines = 0\r
  for clause in clauses:\r
    global bbc_charsSoFar ; bbc_charsSoFar=0\r
    l=as_utf8(" ").join([markup_inline_word("bbcmicro",word) for word in clause])\r
    getBuf(sys.stdout).write(l.replace(as_utf8(" \n"),as_utf8("\n")))\r
    totalKeystrokes += len(l)+1 ; lines += 1\r
  print_bbc_warnings(totalKeystrokes,lines)\r
def print_bbc_warnings(keyCount,lineCount):\r
  "Print any relevant size warnings regarding sending 'keyCount' keys in 'lineCount' lines to the BBC Micro"\r
  sys.stdout.flush() # try to keep in sync if someone's doing 2>&1 | less\r
  limits_exceeded = [] ; severe=0\r
  if keyCount >= 32768:\r
    severe=1 ; limits_exceeded.append("BeebEm 32K keystroke limit") # At least in version 3, the clipboard is defined in beebwin.h as a char of size 32768 and its bounds are not checked.  Additionally, if you script a second paste before the first has finished (or if you try to use BeebEm's Copy command) then the first paste will be interrupted.  So if you really want to make BeebEm read more then I suggest setting a printer destination file, putting a VDU 2,10,3 after each batch of commands, and waiting for that \n to appear in that printer file before sending the next batch, or perhaps write a set of programs to a disk image and have them CHAIN each other or whatever.\r
  shadow_himem=0x8000 # if using a 'shadow mode' on the Master/B+/Integra-B (modes 128-135, which leave all main RAM free)\r
  mode7_himem=0x7c00 # (40x25 characters = 1000 bytes, by default starting at 7c00 with 24 bytes spare at the top, but the scrolling system uses the full 1024 bytes and can tell the video controller to start rendering at any one of them; if you get Jeremy Ruston's book and program the VIDC yourself then you could fix it at 7c18 if you really want, or just set HIMEM=&8000 and don't touch the screen, but that doesn't give you very much more room)\r
  default_speech_loc=0x5500\r
  overhead_per_program_line = 4\r
  for page,model in [\r
        (0x1900,"Model B"), # with Acorn DFS (a reasonable assumption although alternate DFS ROMs are different)\r
        (0xE00,"Master")]: # (the Master has 8k of special paged-in "filing system RAM", so doesn't need 2816 bytes of main RAM for DFS)\r
     top = page+keyCount+lineCount*(overhead_per_program_line-1)+2 # the -1 is because keyCount includes a carriage return at the end of each line\r
     if model=="Master": x=" (use Speech's Sideways RAM version instead, e.g. *SRLOAD SP8000 8000 7 and reset, but sound quality might be worse)" # I don't know why but SP8000 can play higher and more distorted than SPEECH, at least on emulation (and changing the emulation speed doesn't help, because that setting, at least in BeebEm3, just controls extra usleep every frame; it doesn't actually slow down the 6502 *between* frames; anyway timing of sound changes is done by CyclesToSamples stuff in beebsound.cc's SoundTrigger).  If on the Master you go into View (*WORD) and then try SP8000, it plays _lower_ than *SPEECH (even if you do *BASIC first) and *SAY can corrupt a View document; ViewSheet (*SHEET) doesn't seem to have this effect; neither does *TERMINAL but *SAY can confuse the terminal.\r
     # Re bank numbers, by default banks 4 to 7 are Sideways RAM (4*16k=64k) and I suppose filling up from 7 makes sense because banks 8-F are ROMs (ANFS,DFS,ViewSheet,Edit,BASIC,ADFS,View,Terminal; OS is a separate 16k so there's scope for 144k of supplied ROM).  Banks 0-3 are ROM expansion slots.  The "128" in the name "Master 128" comes from 32k main RAM, 64k Sideways RAM, 20k shadow RAM (for screen modes 128-135), 4k OS "private RAM" (paged on top of 8000-8FFF) and 8k filing system RAM (paged on top of C000-DFFF) = 128k.  Not sure what happened on the B+.\r
     # By the way BeebEm's beebsound.cc also shows us why SOUND was always out of tune especially in the higher pitches.  The 16-bit freqval given to the chip is 125000/freq and must be an integer, so the likely temperament in cents for non-PCM is given by [int(math.log(125000.0/math.ceil(125000/freq)/freq,2**(1.0/1200))) for freq in [440*((2**(1.0/12))**semi) for semi in range(-12*3+2,12*2+6)]] (the actual temperament will depend on the OS's implementation of mapping SOUND pitch values to freqval's, unless you program the chip directly, but this list is indicative and varies over 10% in the top 2 octaves)\r
     # Some other ROMs (e.g. Alan Blundell's "Informant" 1989) seem to result in a crash after the *SPEECH and/or *SPEAK commands complete, at least in some emulator configurations; this may or may not be resolved via timing adjustments or adjustments in the ROM order; not sure exactly what the problem is\r
     else: x=" (Speech program will be overwritten unless relocated)" # (could use Sideways RAM for it instead if you have it fitted, see above)\r
     if top > default_speech_loc: limits_exceeded.append("%s TOP=&%X limit%s" % (model,default_speech_loc,x)) # The Speech program does nothing to stop your program (or its variables etc) from growing large enough to overwrite &5500, nor does it stop the stack pointer (coming down from HIMEM) from overwriting &72FF. For more safety on a Model B you could use RELOCAT to put Speech at &5E00 and be sure to set HIMEM=&5E00 before loading, but then you must avoid commands that change HIMEM, such as MODE (but selecting any non-shadow mode other than 7 will overwrite Speech anyway, although if you set the mode before loading Speech then it'll overwrite screen memory and still work as long as the affected part of the screen is undisturbed).  You can't do tricks like ditching the lexicon because RELOCAT won't let you go above 5E00 (unless you fix it, but I haven't looked in detail; if you can fix RELOCAT to go above 5E00 then you can create a lexicon-free Speech by taking the 1st 0x1560 bytes of SPEECH and append two * bytes, relocate to &6600 and set HIMEM, but don't expect *SAY to work, unless you put a really small lexicon into the spare 144 bytes that are left - RELOCAT needs an xx00 address so you can't have those bytes at the bottom).  You could even relocate to &6A00 and overwrite (non-shadow) screen memory if you don't mind the screen being filled with gibberish that you'd better not erase! (well if you program the VIDC as mentioned above and you didn't re-add a small lexicon then you could get yourself 3.6 lines of usable Mode 7 display from the spare bytes but it's probably not worth the effort)\r
     if top > mode7_himem:\r
        if model=="Master":\r
           if top > shadow_himem: limits_exceeded.append(model+" 32k HIMEM limit (even for shadow modes)") # TODO: maybe add instructions for using BAS128 on the B+ or Master; this sets PAGE=&10000 and HIMEM=&20000 (i.e. 64k for programs), which uses all 4 SRAM slots so you can't use SP8000 (unless it's on a real ROM); if using Speech in main memory you need to RELOCAT it to leave &3000 upwards for Bas128 code; putting it at &1900 for B+/DFS leaves you only 417 bytes for lexicon (which might not matter if you're using only *SPEECH: just create a shortened lexicon); putting it at &E00 for Master allows space for the default 2204-byte lexicon with 1029 bytes to spare; TODO check if Bas128 uses any workspace between &E00 and &3000 though.  Alternatively (if you really want to store such a long program on the BBC) then you'd better split it into several programs that CHAIN each other (as mentioned above).\r
           else: limits_exceeded.append(model+" Mode 7 HIMEM limit (use shadow modes 128-135)")\r
        else: limits_exceeded.append(model+" Mode 7 HIMEM limit") # unless you overwrite the screen (see above) - let's assume the Model B hasn't been fitted with shadow modes (although the Integra-B add-on does give them to the Model B, and leaves PAGE at &1900; B+ has shadow modes but I don't know what's supposed to happen to PAGE on it).  65C02 Tube doesn't help much (it'll try to run Speech on the coprocessor instead of the host, and this results in silence because it can't send its sound back across the Tube; don't know if there's a way to make it run on the host in these circumstances or what the host's memory map is like)\r
  if lineCount > 32768: limits_exceeded.append("BBC BASIC line number limit") # and you wouldn't get this far without filling the memory, even with 128k (4 bytes per line)\r
  elif 10*lineCount > 32767: limits_exceeded.append("AUTO line number limit (try AUTO 0,1)") # (default AUTO increments in steps of 10; you can use AUTO 0,1 to start at 0 and increment in steps of 1.  BBC BASIC stores its line info in a compact form which allows a range of 0-32767.)\r
  if severe: warning,after="WARNING: ",""\r
  else: warning,after="Note: ","It should still work if pasted into BeebEm as immediate commands. "\r
  after = ". "+after+"See comments in lexconvert for more details.\n"\r
  if len(limits_exceeded)>1: sys.stderr.write(warning+"this text may be too big for the BBC Micro. The following limits were exceeded: "+", ".join(limits_exceeded)+after)\r
  elif limits_exceeded: sys.stderr.write(warning+"this text may be too big for the BBC Micro because it exceeds the "+limits_exceeded[0]+after)\r
def bbc_prepDefaultLex(outFile):\r
  """Special-case function set as lex_header in bbcmicro format.  If SPEECH_DISK and MAKE_SPEECH_ROM is set, then read the ROM code from SPEECH_DISK and write to outFile (meant to go before the lexicon, to make a modified BBC Micro Speech ROM with custom lexicon)"""\r
  if not os.environ.get("MAKE_SPEECH_ROM",0): return\r
  sd = open(os.environ['SPEECH_DISK'])\r
  d=getBuf(sd).read() # if this fails, SPEECH_DISK was not set or was set incorrectly (it's required for MAKE_SPEECH_ROM)\r
  i=d.index(as_utf8('LO')+chr(0x80)+as_utf8('LP')+chr(0x80)+chr(0x82)+chr(0x11)) # start of SP8000 file (if this fails, it wasn't a Speech disk)\r
  j=d.index(as_utf8('>OUS_'),i) # start of lexicon (ditto)\r
  assert j-i==0x1683, "Is this really an original disk image?"\r
  getBuf(outFile).write(d[i:j])\r
def bbc_appendDefaultLex(outFile):\r
  """Special-case function set as lex_footer in bbcmicro format.  If SPEECH_DISK is set, read Speech's default lexicon from it and append this to outFile.  Otherwise just write a terminating >** to outFile.  In either case, check for exceeding 16k if we're MAKE_SPEECH_ROM, close the file and call print_bbclex_instructions."""\r
  if os.environ.get("SPEECH_DISK",""):\r
     sd = open(os.environ['SPEECH_DISK'])\r
     d=getBuf(sd).read()\r
     i=d.index(as_utf8('>OUS_')) # if this fails, it wasn't a Speech disk\r
     j=d.index(as_utf8(">**"),i)\r
     assert j-i==2201, "Lexicon on SPEECH_DISK is wrong size (%d). Is this really an original disk image?" % (j-i)\r
     getBuf(outFile).write(d[i:j])\r
     # TODO: can we compress the BBC lexicon?  i.e. detect if a rule will happen anyway due to subsequent wildcard rules, and delete it if so (don't know how many bytes that would save)\r
  outFile.write(">**")\r
  fileLen = outFile.tell()\r
  assert not os.environ.get("MAKE_SPEECH_ROM",0) or fileLen <= 16384, "Speech ROM file got too big (%d)" % fileLen\r
  outFile.close()\r
  print_bbclex_instructions(getSetting("bbcmicro","lex_filename"),fileLen)\r
\r
def bbcshortest(n):\r
  """Convert integer n into the shortest possible number of BBC Micro keystrokes; prefer hex if and only if the extra '&' keystroke won't make it any longer than its decimal equivalent"""\r
  if len(str(n)) < len('&%X'%n): return as_utf8(str(n))\r
  else: return as_utf8('&%X'%n)\r
def bbcKeystrokes(data,start):\r
  "Return BBC BASIC keystrokes to put data into RAM starting at address start, without using the BASIC heap in the process (although we do use one of the page-4 integer variables to save some keystrokes).  Assumes the data is mostly ASCII so the $ operator is the least-keystrokes method of getting it in (rather than ? and ! operators, assembler EQUB/EQUW/EQUS, 6502 mnemonics, etc); we don't mind about overwriting the byte after with a CHR$(13).  Keystrokes are limited to ASCII for easier copy/paste.  See comments for more details."\r
  # Taken to the extreme, a 'find the least keystrokes' function would be some kind of data compressor; we're not doing that here as we assume this is going to be used to poke in a lexicon, which is basically ASCII with a few CHR$(128)s thrown in; this '$ operator' method is highly likely to yield the least keystrokes for that kind of data, apart from setting and using temporary string variables, but then (1) you're in the realms of data compression and (2) you require heap memory, which might not be a good idea depending on where we're putting our lexicon.\r
  # I suppose it wouldn't hurt in most cases to have an A$=CHR$(128), but not doing this for now because you might be in a situation where you can't touch the heap at all (I'm not sure where the workspace for assembling strings is though).\r
  # However, just to be pedantic about saving a few bytes, there is one thing we CAN do: if we have a lexicon with a lot of CHR$(128)s in it, let's set up BASIC's page-4 integer variables such that $A%=CHR$(128), saving 6 keystrokes per entry without needing the heap (an additional 1 keystroke per entry could be saved if we didn't mind putting an A$ on the heap).\r
  use_int_hack = ((start>=1030 or start+len(data)<=1026) and len(data.split(chr(128))) >= 4)\r
  i=0 ; ret=[]\r
  if use_int_hack: thisLine = as_utf8("A%=&408:B%=&D80:") # (@% is at &400 and each is 4 byte LSB-MSB; $x reads to next 0D)\r
  # (If we're guaranteed to NOT be using Bas128 and therefore all memory addresses are effectively masked by &FFFF, we can instead set A%=&D800406 (using A%'s low 2 bytes to point to A%'s high 2 bytes) for a 1-off saving of 5 keystrokes and 1 page-4 variable, but this saving is not really worth the readability compromise and the risk posed by the possibility of Bas128 - I don't know how Bas128 treats addresses above &1FFFF)\r
  # (An even 'nastier' trick would be to put !13=&D80 and then use $13, as those bytes are used by BASIC's random number generator, which presumably isn't called during the paste and we don't mind disrupting it; again I don't know about Bas128.  But you can't do it because BASIC gives a "$ range" error on anything below 256.)\r
  # (I suppose one thing you _could_ do is LOMEM=&400:A$=CHR$(13) and end with LOMEM=TOP, which would overwrite 3 page-4 variables and let you use just A$ instead of $A%, saving keystrokes over A%=&D800406 after 21 more lexicon words, at the expense of losing track of any variables you had on the heap.  But this is getting silly.)\r
  else: thisLine = as_utf8("")\r
  bbc_max_line_len = 238\r
  inQuote=needPlus=0 ; needCmd=1\r
  while i<len(data):\r
    if needCmd:\r
       thisLine += (as_utf8('$')+bbcshortest(start)+as_utf8('='))\r
       inQuote=needPlus=needCmd=0\r
    if data[i:i+1]==as_utf8('"'): c,inQ = as_utf8('""'),1 # inQ MUST be 0 or 1, not False/True, because it's also used as 'len of necessary close quote' below\r
    elif 32<=ord(data[i:i+1])<127: c,inQ = data[i:i+1],1\r
    elif use_int_hack and ord(data[i:i+1])==128: c,inQ=as_utf8("$A%"),0\r
    else: c,inQ=(as_utf8("CHR$("+str(ord(data[i:i+1]))+")")),0\r
    addToLine = [] ; newNeedPlus = needPlus\r
    if inQ and not inQuote:\r
       if needPlus: addToLine.append(as_utf8('+'))\r
       addToLine.append(as_utf8('"'))\r
       newNeedPlus=0\r
    elif inQuote and not inQ:\r
       addToLine.append(as_utf8('"+'))\r
       newNeedPlus=1 # after what we'll add\r
    elif not inQ:\r
       if needPlus: addToLine.append(as_utf8('+'))\r
       newNeedPlus=1 # after what we'll add\r
    addToLine.append(c)\r
    addToLine=as_utf8('').join(addToLine)\r
    if len(thisLine)+len(addToLine)+inQ > bbc_max_line_len: # oops, we've gone too far, back off and end prev line\r
       if inQuote: thisLine += as_utf8('"')\r
       ret.append(thisLine)\r
       thisLine=as_utf8("") ; needCmd=1 ; continue\r
    thisLine += addToLine ; inQuote=inQ\r
    needPlus=newNeedPlus ; i += 1 ; start += 1\r
  if inQuote: thisLine += as_utf8('"')\r
  if not needCmd: ret.append(thisLine)\r
  return as_utf8('\n').join(ret)+as_utf8('\n')\r
def print_bbclex_instructions(fname,size):\r
 """Print suitable instructions for a BBC Micro lexicon of the given filename and size (the exact nature of the instructions depends on the size).  If appropriate, create a .key file containing keystrokes for transferring to an emulator."""\r
 if os.environ.get("MAKE_SPEECH_ROM",0): print ("%s (%d bytes, hex %X) can now installed on an emulator (set in Roms.cfg or whatever), or loaded onto a chip.  The sound quality of this might be worse than that of the main-RAM version." % (fname,size,size)) # (at least on emulation - see comment on sound quality above)\r
 else:\r
  print ("The size of this lexicon is %d bytes (hex %X)" % (size,size)) # (the default lexicon is 2204 bytes)\r
  bbcStart=None\r
  noSRAM_lex_offset=0x155F # (on the BBC Micro, SRAM means Sideways RAM, not Static RAM as it does elsewhere; for clarity we'd better say "Sideways RAM" in all output)\r
  SRAM_lex_offset=0x1683\r
  SRAM_max=0x4000 # 16k\r
  noSRAM_default_addr=0x5500\r
  noSRAM_min_addr=0xE00 # minimum supported by RELOCAT\r
  page=0x1900 # or 0xE00 for Master (but OK to just leave this at 0x1900 regardless of model; it harmlessly increases the range where special_relocate_instructions 'kick in')\r
  noSRAM_himem=0x7c00 # unless you're in a shadow mode or something (see comments on himem above), however leaving this at 0x7c00 is usually harmless (just causes the 'need to relocate' to 'kick in' earlier, although if memory is really full it might say 'too big' 1k too early)\r
  def special_relocate_instructions(reloc_addr):\r
    pagemove_min,pagemove_max = max(0xE00,page-0x1E00), page+0xE00 # if relocating to within this range, must move PAGE before loading RELOCAT. RELOCAT's supported range is 0xE00 to 0x5E00, omitting (PAGE-&1E00) to (PAGE+&E00)\r
    if reloc_addr < 0x1900: extra=" On a Model B with Acorn DFS you won't be able to use the disk after relocating below &1900, and you can't run star commands from tape so you have to initialise via CALL. (On a Master, DFS is not affected as it doesn't use &E00-&1900.)"\r
    else: extra = ""\r
    if not pagemove_min<=reloc_addr<pagemove_max:\r
      return extra # no other special instructions needed\r
    newpage = reloc_addr+0x1E00\r
    page_max = min(0x5E00,noSRAM_default_addr-0xE00)\r
    if newpage > page_max: return False # "Unfortunately RELOCAT can't put it at &%X even with PAGE changes." % reloc_addr\r
    return " Please run RELOCAT with PAGE in the range of &%X to &%X for this relocation to work.%s" % (newpage,page_max,extra)\r
  if noSRAM_default_addr+noSRAM_lex_offset+size > noSRAM_himem:\r
    reloc_addr = noSRAM_himem-noSRAM_lex_offset-size\r
    reloc_addr -= (reloc_addr%256)\r
    if reloc_addr >= noSRAM_min_addr:\r
      instr = special_relocate_instructions(reloc_addr)\r
      if instr==False: print ("This lexicon is too big for Speech in main RAM even with relocation, unless RELOCAT is rewritten to work from files.")\r
      else:\r
        bbcStart = reloc_addr+noSRAM_lex_offset\r
        reloc_call = reloc_addr + 0xB00\r
        print ("This lexicon is too big for Speech at its default address of &%X, but you could use RELOCAT to put a version at &%X and then initialise it with CALL %s (or do the suggested *SAVE, reset, and run *SP). Be sure to set HIMEM=&%X. Then *LOAD %s %X or change the relocated SP file from offset &%X.%s" % (noSRAM_default_addr,reloc_addr,bbcshortest(reloc_call),reloc_addr,fname,bbcStart,noSRAM_lex_offset,instr))\r
    else: print ("This lexicon is too big for Speech in main RAM even with relocation.")\r
  else: # fits at default location - no relocation needed\r
    bbcStart = noSRAM_default_addr+noSRAM_lex_offset\r
    print ("You can load this lexicon by *LOAD %s %X or change the SPEECH file from offset &%X. Suggest you also set HIMEM=&%X for safety." % (fname,bbcStart,noSRAM_lex_offset,noSRAM_default_addr))\r
  if bbcStart: # we managed to fit it into main RAM\r
     f = open(fname)\r
     keys = bbcKeystrokes(getBuf(f).read(),bbcStart)\r
     f = open(fname+".key","w")\r
     getBuf(f).write(keys)\r
     del f\r
     print ("For ease of transfer to emulators etc, a self-contained keystroke file for putting %s data at &%X has been written to %s.key" % (fname,bbcStart,fname))\r
     if len(keys) > 32767: print ("(This file looks too big for BeebEm to paste though)") # see comments elsewhere\r
  # Instructions for replacing lex in SRAM:\r
  if size > SRAM_max-SRAM_lex_offset: print ("This lexicon is too big for Speech in Sideways RAM.") # unless you can patch Speech to run in SRAM but read its lexicon from main RAM, or run in main RAM but page in multiple banks of SRAM for the lexicon (but even then there'll be a limit)\r
  else: print ("You can load this lexicon into Sideways RAM by *SRLOAD %s %X 7 (or whichever bank number you're using), or change the SP8000 file from offset &%X." % (fname,SRAM_lex_offset+0x8000,SRAM_lex_offset))\r
  if not os.environ.get("SPEECH_DISK",""): print ("If you want to append the default lexicon to this one, set SPEECH_DISK to the image of the original Speech disk before running lexconvert, e.g. export SPEECH_DISK=/usr/local/BeebEm3/diskimg/Speech.ssd")\r
  if size <= SRAM_max-SRAM_lex_offset: print ("You can also set MAKE_SPEECH_ROM=1 (along with SPEECH_DISK) to create a SPEECH.ROM file instead")\r
 print ("If you get 'Mistake in speech' when testing some words, try starting with '*SAY, ' (this seems to be a Speech bug)") # - can't track down which words it does and doesn't apply to\r
 print ("It might be better to load your lexicon into eSpeak and use lexconvert's --phones option to drive the BBC with phonemes.")\r
\r
def mainopt_version(i):\r
   # TODO: doc string for the help? (or would this option clutter it needlessly) - just print lexconvert's version number and nothing else\r
   print (__doc__.split("\n")[0].split(" - ")[0])\r
\r
def main():\r
    """Introspect the module to find the mainopt_ functions, and either call one of them or print the help.  Returns the error code to send back to the OS."""\r
    def funcToOpt(n): return "--"+n[n.index("_")+1:].replace("_","-")\r
    for k,v in globals().items():\r
        if k.startswith('mainopt_') and funcToOpt(k) in sys.argv:\r
           try: msg = v(sys.argv.index(funcToOpt(k)))\r
           except Message:\r
              # Python 2.6+ can have "except Message as e",\r
              # but Python 2.5 has to have "except Message,e"\r
              # which is disallowed in Python 3, so\r
              msg=sys.exc_info()[1].message\r
           if msg:\r
              sys.stdout.flush()\r
              sys.stderr.write(msg+"\n") ; return 1\r
           else: return 0\r
    html = ('--htmlhelp' in sys.argv) # (undocumented option used for my website, don't rely on it staying)\r
    def htmlify(h): return re.sub('(--[2A-Za-z-]*)',r'<kbd>\1</kbd>',h.replace('&','&amp;').replace('<','&lt;').replace('>','&gt;').replace('\n','<br>'))\r
    if not html: htmlify = lambda x:x\r
    print (htmlify(__doc__))\r
    if html: missALine = "<p>"\r
    else: missALine = ""\r
    print (missALine)\r
    if '--formats' in sys.argv: # non-HTML mode only (format descriptions are included in HTML anyway, and don't worry about the capability summary)\r
       print ("Available pronunciation formats (and support levels):")\r
       keys=list(lexFormats.keys()) ; keys.sort()\r
       for k in keys:\r
          types = []\r
          if not k=="example": types.append("phones")\r
          if k=="mac-uk": types.append("speaking")\r
          else:\r
             if checkSetting(k,"lex_read_function"): types.append("lex-read")\r
             if checkSetting(k,"lex_filename") and checkSetting(k,"lex_entry_format"):\r
                ltype = checkSetting(k,"lex_type")\r
                if ltype: ltype=" as "+ltype\r
                types.append("lex-write"+ltype)\r
          print ("\n"+k+" ("+", ".join(types)+")")\r
          print (getSetting(k,"doc"))\r
       return 0\r
    elif html:\r
       print ("Available pronunciation formats:")\r
       if html: print ('<table id="formats">')\r
       keys=list(lexFormats.keys()) ; keys.sort()\r
       for k in keys: print ('<tr><td valign="top"><nobr>'+k+'</nobr></td><td valign="top">'+htmlify(getSetting(k,"doc"))+"</td></tr>")\r
       print ("</table><script><!-- try to be more readable on some smartphones\nif(((screen && screen.width<600) || navigator.userAgent.slice(-6)==\"Gecko/\" /* UC Browser? */) && document.getElementById && document.getElementById('formats').outerHTML) document.getElementById('formats').outerHTML = document.getElementById('formats').outerHTML.replace(/<table/g,'<dl').replace(/<.table/g,'<'+'/dl').replace(/<tr><td/g,'<dt').replace(/<.td><td/g,'<'+'/dt><dd').replace(/<.td><.tr/g,'<'+'/dd');\n//--></script>")\r
    else: print ("Available pronunciation formats: "+", ".join(sorted(list(lexFormats.keys())))+"\n(Use --formats to see their descriptions)")\r
    print (missALine)\r
    print ("Program options:")\r
    print (missALine)\r
    if html: print ("<dl>")\r
    for _,opt,desc in sorted([(not not v.__doc__ and not v.__doc__.startswith('*'),k,v.__doc__) for k,v in globals().items()]):\r
       if not opt.startswith("mainopt_"): continue\r
       opt = funcToOpt(opt)\r
       if not desc: continue # undocumented option\r
       params,rest = desc.split("\n",1)\r
       if params.startswith('*'): params=params[1:]\r
       if params: opt += (' '+params)\r
       if html: print ("<dt>"+htmlify(opt)+"</dt><dd>"+htmlify(rest)+"</dd>")\r
       else: print (opt+"\n"+rest+"\n")\r
    if html: print ("</dl>")\r
    return 0\r
\r
catchingSigs = inSigHandler = False\r
def catchSignals():\r
  "We had better try to catch all signals if using MacBritish_System_Lexicon so we can safely clean it up. We raise KeyboardInterrupt instead (need to catch this). Might not work with multithreaded code."\r
  global catchingSigs\r
  if catchingSigs: return\r
  catchingSigs = True\r
  import signal\r
  def f(sigNo,*args):\r
    global inSigHandler\r
    if inSigHandler: return\r
    inSigHandler = True\r
    os.killpg(os.getpgrp(),sigNo)\r
    sys.stderr.write("\nCaught signal %d\n" % sigNo)\r
    raise KeyboardInterrupt\r
  for n in xrange(1,signal.NSIG):\r
    if not n in [\r
          signal.SIGCHLD, # sent on subprocess completion\r
          signal.SIGTSTP,signal.SIGCONT, # Ctrl-Z / fg\r
          signal.SIGWINCH, # window-size change\r
    ] and not signal.getsignal(n)==signal.SIG_IGN:\r
      try: signal.signal(n,f)\r
      except: pass\r
class MacBritish_System_Lexicon(object):\r
    """Overwrites some of the pronunciations in the system\r
    lexicon (after backing up the original).  Cannot\r
    change the actual words in the system lexicon, so just\r
    alters pronunciations of words you don't intend to use\r
    so you can substitute these into your texts.\r
    Restores the lexicon on close()."""\r
    instances = {}\r
    def __init__(self,text="",voice="Daniel"):\r
        """text is the text you want to speak (so that any\r
        words used in it that are not mentioned in your\r
        lexicon are unchanged in the system lexicon);\r
        text="" means you just want to speak phonemes.\r
        Special value of text=False means lexicon read only.\r
        voice can be Daniel, Emily or Serena."""\r
        self.voice = False\r
        if not text==False:\r
            assert not voice in MacBritish_System_Lexicon.instances, "There is already another instance of MacBritish_System_Lexicon for the "+voice+" voice"\r
            assert not os.system("lockfile -1 -r 10 /tmp/"+voice+".PCMWave.lock") # in case some other process has it (note: if you run with python -O, this check won't happen!)\r
            self.voice = voice # (don't set this if text==False, since we won't need cleanup on __del__)\r
        self.filename = "/System/Library/Speech/Voices/"+voice+".SpeechVoice/Contents/Resources/PCMWave"\r
        assert not (not os.path.exists(self.filename) and os.path.exists("/System/Library/Speech/Voices/"+voice+"Compact.SpeechVoice/Contents/Resources/PCMWave")), "The only installation of "+voice+" found on this system was the Compact one, which lexconvert does not yet support" # TODO: could try self.wordIndexStart = findW("Abiquiu"),self.phIndexStart = findW("'@b.Ik.ju"),self.wordIndexEnd = findW("www.youtube.com",1),self.phIndexEnd = findW("'d^b.l.ju.'d^b.l.ju.'d^b.l.ju.dA+t.'ju.'tjub.dA+t.kA+m",1), but "t" in phones should be ignored, "activesync" and "afterlife" have no phones, "aqua" has TWO sets of phonemes (aquarium ok) and there are other synchronization issues.\r
        # TODO: some sync issues persist even on the NON-Compact version in newer versions of macOS (e.g. 10.12).  This currently leads to exceptions in findW on such systems (which do say it could be due to wrong version of the voice); fixing would need looking at more sync issues as above\r
        assert os.path.exists(self.filename),"Cannot find an installation of '"+voice+"' on this system"\r
        if os.path.exists(self.filename+"0"):\r
            if text==False: self.filename += "0" # (use the backup file for read-only, if we created one before; this means we don't have to worry about locks)\r
        elif not text==False: # create a backup\r
            sys.stderr.write("Backing up "+self.filename+" to "+self.filename+"0...\n") # (you'll need a password if you're not running as root)\r
            err = os.system("sudo mv \""+self.filename+"\" \""+self.filename+"0\"; sudo cp \""+self.filename+"0\" \""+self.filename+"\"; sudo chown "+str(os.getuid())+" \""+self.filename+"\"")\r
            assert not err, "Error creating backup"\r
        lexFile = self.filename+".lexdir"\r
        if not os.path.exists(lexFile) and not text==False:\r
            sys.stderr.write("Creating lexdir file...\n")\r
            err = os.system("sudo touch \""+lexFile+"\" ; sudo chown "+str(os.getuid())+" \""+lexFile+"\"")\r
            assert not err, "Error creating lexdir"\r
        compat_err = "\nThis probably means your Mac has a new version of the voice that is no longer compatible with this system-lexicon patch."\r
        import cPickle\r
        if os.path.exists(lexFile) and os.stat(lexFile).st_size: self.wordIndexStart,self.wordIndexEnd,self.phIndexStart,self.phIndexEnd = cPickle.Unpickler(open(lexFile)).load()\r
        else:\r
            f = open(self.filename)\r
            dat = getBuf(f).read()\r
            def findW(word,rtnPastEnd=0):\r
                i = re.finditer(re.escape(word+chr(0)),dat)\r
                try: n = i.next()\r
                except StopIteration: raise Exception(word+" not found in voice file"+compat_err)\r
                try:\r
                    n2 = i.next()\r
                    raise Exception("%s does not uniquely identify a byte position (has at least %d and %d)%s" % (word,n.start(),n2.start(),compat_err))\r
                except StopIteration: pass\r
                if rtnPastEnd: return n.end()\r
                else: return n.start()\r
            self.wordIndexStart = findW("808s")\r
            self.phIndexStart = findW("'e&It.o&U.e&Its")\r
            self.wordIndexEnd = findW("zombie",1)\r
            self.phIndexEnd = findW("'zA+m.bI",1)\r
            if not text==False: cPickle.Pickler(open(lexFile,"w")).dump((self.wordIndexStart,self.wordIndexEnd,self.phIndexStart,self.phIndexEnd))\r
        if text==False: self.dFile = open(self.filename)\r
        else: self.dFile = open(self.filename,'r+')\r
        assert len(self.allWords()) == len(self.allPh()), str(len(self.allWords()))+" words but "+str(len(self.allPh()))+" phonemes"+compat_err\r
        self.textToAvoid = u""\r
        if text==False: return\r
        MacBritish_System_Lexicon.instances[voice] = self\r
        self.textToAvoid = text.decode('utf-8').replace(unichr(160),' ') ; self.restoreDic = {}\r
        catchSignals()\r
    def allWords(self):\r
        "Returns a list of words that are defined in the system lexicon (which won't be changed, but see allPh)"\r
        self.dFile.seek(self.wordIndexStart)\r
        return [x for x in getBuf(self.dFile).read(self.wordIndexEnd-self.wordIndexStart).split(chr(0)) if x]\r
    def allPh(self):\r
        "Returns a list of (file position, phoneme string) for each of the primary phoneme entries from the system lexicon.  These entries can be changed in-place by writing to the said file position, and then spoken by giving the voice the corresponding word from allWords (but see also usable_words)."\r
        self.dFile.seek(self.phIndexStart)\r
        def f(l):\r
            last = None ; r = [] ; pos = self.phIndexStart\r
            for i in l:\r
                if re.search(r'[ -~]',i) and not i in ["'a&I.'fo&Un","'lI.@n","'so&Un.j$"] and not (i==last and i in ["'tR+e&I.si"]): r.append((pos,i)) # (the listed pronunciations are secondary ones that for some reason are in the list)\r
                if re.search(r'[ -~]',i): last = i\r
                pos += (len(i)+1) # +1 for the \x00\r
            assert pos==self.phIndexEnd+1 # +1 because the last \00 will result in a "" item after; the above +1 will be incorrect for that item\r
            return r\r
        return f([x for x in getBuf(self.dFile).read(self.phIndexEnd-self.phIndexStart).split(chr(0))])\r
    def usable_words(self,words_ok_to_redefine=[]):\r
        "Returns a list of (word,phoneme_file_position,original_phonemes) by combining allWords with allPh, but omitting any words that don't seem 'usable' (for example words that contain spaces, since these lexicon entries don't seem to be actually used by the voice).  Words that occur in self.textToAvoid are also considered non-usable, unless they also occur in words_ok_to_redefine (user lexicon)."\r
        for word,(pos,phonemes) in zip(self.allWords(),self.allPh()):\r
            if not re.match("^[a-z0-9]*$",word): continue # it seems words not matching this regexp are NOT used by the engine\r
            if not (phonemes and 32<ord(phonemes[:1])<127): continue # better not touch those, just in case\r
            if word in self.textToAvoid and not word in words_ok_to_redefine: continue\r
            yield word,pos,phonemes\r
    def check_redef(self,wordsAndPhonemes):\r
        "Diagnostic function to list on standard error the 'redefinitions' we want to make.  wordsAndPhonemes is a list of (original system-lexicon word, proposed new phonemes).  The old phonemes are also listed, fetched from allPh."\r
        aw = self.allWords() ; ap = 0\r
        for w,p in wordsAndPhonemes:\r
          w = w.lower()\r
          if not re.match("^[a-z0-9]*$",w): continue\r
          if not w in aw: continue\r
          if not ap:\r
            ap = self.allPh()\r
            sys.stderr.write("Warning: some words were already in system lexicon\nword\told\tnew\n")\r
          sys.stderr.write(w+"\t"+ap[aw.index(w)][1]+"\t"+p+"\n")\r
    def speakPhones(self,phonesList):\r
        "Speaks every phonetic word in phonesList"\r
        words = [str(x)+"s" for x in range(len(phonesList))]\r
        d = self.setMultiple(words,phonesList)\r
        msc = os.popen(macSayCommand()+" -v \""+self.voice+"\"",'w')\r
        getBuf(msc).write(as_utf8(" ").join(d.get(w,as_utf8("")) for w in words))\r
    def readWithLex(self,lex):\r
        "Reads the text given in the constructor after setting up the lexicon with the given (word,phoneme) list"\r
        # self.check_redef(lex) # uncomment if you want to know about these\r
        textToPrint = u' '+self.textToAvoid+u' '\r
        tta = ' '+self.textToAvoid.replace(u'\u2019',"'").replace(u'\u2032','').replace(u'\u00b4','').replace(u'\u02b9','').replace(u'\u00b7','').replace(u'\u2014',' ')+' ' # (ignore pronunciation marks 2032 and b7 that might be in the text, but still print them in textToPrint; also normalise apostrophes but not in textToPrint, and be careful with dashes as lex'ing the word after a hyphen or em-dash won't work BUT we still want to support hyphenated words IN the lexicon, so em-dashes are replaced here and hyphens are included in nonWordBefore below)\r
        words2,phonemes2 = [],[] # keep only the ones actually used in the text (no point setting whole lexicon)\r
        nonWordBefore=r"(?i)(?<=[^A-Za-z"+chr(0)+"-])" # see below for why chr(0) is included, and see comment above for why hyphen is at the end; (?i) = ignore case\r
        nonWordAfter=r"(?=([^A-Za-z'"+unichr(0x2019)+"-]|['"+unichr(0x2019)+r"-][^A-Za-z]))" # followed by non-letter non-apostrophe, or followed by apostrophe non-letter (so not if followed by "'s", because the voice won't use our custom lex entry if "'s" is added to the lex'd word, TODO: automatically add "'s" versions to the lexicon via +s or +iz?) (also not if followed by hyphen-letters; hyphen before start is handled above, although TODO preceded by non-letter + hyphen might be OK)\r
        ttal = tta.lower()\r
        for ww,pp in lex:\r
          ww = ww.decode('utf-8') # so you can add words with accents etc (in utf-8) to the lexicon\r
          if ww.lower() in ttal and re.search(nonWordBefore+re.escape(ww)+nonWordAfter,tta):\r
            words2.append(ww) ; phonemes2.append(pp)\r
        for k,v in self.setMultiple(words2,phonemes2).iteritems():\r
           tta = re.sub(nonWordBefore+re.escape(k)+nonWordAfter,chr(0)+v,tta)\r
           textToPrint = re.sub(nonWordBefore+'('+u'[\u2032\u00b4\u02b9\u00b7]*'.join(re.escape(c) for c in k)+')'+nonWordAfter,chr(0)+r'\1'+chr(1),textToPrint)\r
        tta = tta.replace(chr(0),'')\r
        term = os.environ.get("TERM","")\r
        if ("xterm" in term or term=="screen") and sys.stdout.isatty(): # we can probably underline words (inverse is more widely supported than underline, e.g. should work even on an old Linux console in case someone's using that to control an OS X server, but there might be a *lot* of words, which wouldn't be very good in inverse if user needs dark background and inverse is bright.  Unlike Annogen, we're dealing primarily with Latin letters.)\r
           import textwrap\r
           textwrap.len = lambda x: len(x.replace(chr(0),"").replace(chr(1),"")) # a 'hack' to make (at least the 2.x implementations of) textwrap ignore our chr(0) and chr(1) markers in their calculations.  Relies on textwrap calling len().\r
           print (textwrap.fill(textToPrint,stdout_width_unix(),break_on_hyphens=False).encode('utf-8').replace(chr(0),"\x1b[4m").replace(chr(1),"\x1b[0m").strip()) # break_on_hyphens=False because we don't really want hyphenated NAMES to be split across lines, and anyway textwrap in (at least) Python 2.7 has a bug that sometimes causes a line breaks to be inserted before a syllable marker symbol like 'prime'\r
        # else don't print anything (saves confusion)\r
        msc = os.popen(macSayCommand()+" -v \""+self.voice+"\"",'w')\r
        getBuf(msc).write(tta.encode('utf-8'))\r
    def setMultiple(self,words,phonemes):\r
        "Sets phonemes for words, returning dict of word to substitute word.  Flushes file buffer before return."\r
        avail = [] ; needed = []\r
        for word,pos,phon in self.usable_words(words):\r
            avail.append((len(phon),word,pos,phon))\r
        for word,phon in zip(words,phonemes):\r
            needed.append((len(phon),word,phon))\r
        avail.sort() ; needed.sort() # shortest phon first\r
        i = 0 ; wDic = {} ; iDone=set() ; mustBeAlpha=True\r
        # mustBeAlpha: prefer alphabetical words, since\r
        # these can be capitalised at start of sentence\r
        # (the prosody doesn't always work if it isn't)\r
        for l,word,phon in needed:\r
            while avail[i][0] < l or (mustBeAlpha and not re.match(as_utf8("[A-Za-z]"),avail[i][1])) or i in iDone:\r
                i += 1\r
                if i==len(avail):\r
                    if mustBeAlpha: # desperate situation: we HAVE to use the non-alphabetical slots now (ideally we should pick words that never occur at start of sentence for them, but this branch is hopefully a rare situation in practice)\r
                       mustBeAlpha=False ; i=0; continue\r
                    sys.stderr.write("Could not find enough lexicon slots!\n") # TODO: we passed 'words' to usable_words's words_ok_to_redefine - this might not be the case if we didn't find enough slots\r
                    self.dFile.flush() ; return wDic\r
            iDone.add(i)\r
            _,wSubst,pos,oldPhon = avail[i] ; i += 1\r
            if avail[i][2] in self.restoreDic: oldPhon=None # shouldn't happen if setMultiple is called only once, but might be useful for small experiments in the Python interpreter etc\r
            self.set(pos,phon,oldPhon)\r
            wDic[word] = wSubst[:1].upper()+wSubst[1:] # always capitalise it so it can be used at start of sentence too (TODO: copy original capitalisation of each instance instead, in case it happens to come directly after a dotted abbreviation? although if it's something that's always capitalised anyway, e.g. most names, then this won't make any difference)\r
        self.dFile.flush() ; return wDic\r
    def set(self,phPos,val,old=None):\r
        """Sets phonemes at position phPos to new value.\r
        Caller should flush the file buffer when done."""\r
        # print "Debugger: setting %x to %s" % (phPos,val)\r
        if old:\r
            assert not phPos in self.restoreDic, "Cannot call set() twice on same phoneme while re-specifying 'old'"\r
            assert len(val) <= len(old), "New phoneme is too long!"\r
            self.restoreDic[phPos] = old\r
        else: assert phPos in self.restoreDic, "Must specify old values (for restore) when setting for first time"\r
        self.dFile.seek(phPos)\r
        getBuf(self.dFile).write(val+as_utf8(chr(0)))\r
    def __del__(self):\r
        "WARNING - this might not be called before exit - best to call close() manually"\r
        if not self.voice: return\r
        self.close()\r
    def close(self):\r
        for phPos,val in self.restoreDic.items():\r
            self.set(phPos,val)\r
        self.dFile.close()\r
        del MacBritish_System_Lexicon.instances[self.voice]\r
        assert not os.system("rm -f /tmp/"+self.voice+".PCMWave.lock")\r
        self.voice=None\r
def stdout_width_unix(): # assumes isatty\r
   import struct,fcntl,termios\r
   return struct.unpack('hh', fcntl.ioctl(1,termios.TIOCGWINSZ,'1234'))[1]\r
\r
lexFormats = LexFormats() # at end, in case it refers to anything that was defined later\r
\r
if __name__ == "__main__": sys.exit(main())\r