Gammon Forum

<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE muclient>

<muclient>
<plugin
   name="Fix_Umlautes"
   author="Nick Gammon"
   id="786d90b60afd7d2ae26eaa5b"
   language="Lua"
   purpose="Converts German Umlautes back"
   date_written="2012-10-27"
   requires="4.00"
   version="1.0"
   >

</plugin>

<!--  Script  -->

<script>

conversions = {
  ae = "ä",
  oe = "ö",
  ue = "ü",

  -- add more here
  }
  
function OnPluginPacketReceived (s)
  return (string.gsub (s, "[aAoOuUs][es]", conversions))
end -- function OnPluginPacketReceived
</script>

</muclient>

<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE muclient>

<muclient>
<plugin
   name="Fix_Umlautes"
   author="Nick Gammon"
   id="786d90b60afd7d2ae26eaa5b"
   language="Lua"
   purpose="Converts German Umlautes back"
   date_written="2012-10-27"
   date_modified="2012-10-28"
   requires="4.00"
   version="2.0"
   >

</plugin>

<!--  Script  -->

<script>

-- basic 2-letter conversions
conversions = {
  ae = "ä",
  oe = "ö",
  ue = "ü",

  -- add more here
  }  -- end of conversions table
  
-- exceptions words (put in *lower* case)
exceptions = {

  raffael = true,
  aero = true,
  
  -- add more here
  
  } -- end of exceptions table

-- dipthongs (3-letter sequences that will be ignored)
dipthongs = {

  aue = true,
  eue = true,

  -- add more here

  } -- end of dipthongs table
  
-- fix umlautes within a word (this function gets 2 or 3 letter sequences)
function fixer (str)
  
  -- if just two letters, look it up 
  if #str == 2 then
    return (string.gsub (str, "[aAoOuUs][es]", conversions))
  end -- if
  
  -- look for stuff like aue (dipthongs)
  if dipthongs [str] then
    return
  end -- if a dipthong
  
  -- ignore uXX etc.
  if str:match ("^u") then
    return
  end
  
  -- ignore quX
  if str:match ("^qu") then
    return
  end
  
  -- look up in table
  if conversions [str:sub (2)] then
    return str:sub (1, 1) .. conversions [str:sub (2)]
  end -- if
  
end -- fixer

-- here for whole words
function word_fixer (str)
  
  -- handle words like "aero"
  if exceptions [str:lower ()] then
    return
  end -- if
 
  return (string.gsub (str, ".?[aAoOuUs][es]", fixer))

end -- word_fixer

-- handle incoming packet
function OnPluginPacketReceived (s)
  return (string.gsub (s, "%f[%a]%a*%f[%A]", word_fixer))
end -- function OnPluginPacketReceived
</script>

</muclient>

<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE muclient>

<muclient>
<plugin
   name="Fix_Umlautes"
   author="Nick Gammon"
   id="786d90b60afd7d2ae26eaa5b"
   language="Lua"
   purpose="Converts German Umlautes back"
   date_written="2012-10-27"
   date_modified="2012-10-28"
   requires="4.00"
   version="3.0"
   >

</plugin>

<!--  Script  -->

<script>

-- basic 2-letter conversions
conversions = {
  ae = "ä",
  oe = "ö",
  ue = "ü",

  -- add more here
  }  -- end of conversions table
  
-- Exceptions strings (words or part words)
exceptions = {

  "Raffael",
  "aero",
  
  -- add more here
  
  } -- end of exceptions table

-- dipthongs (3-letter sequences that will be ignored)
dipthongs = {

  aue = true,
  eue = true,

  -- add more here

  } -- end of dipthongs table
  
-- fix umlautes within a word (this function gets 2 or 3 letter sequences)
function fixer (str)
  
  -- if just two letters, look it up 
  if #str == 2 then
    return (string.gsub (str, "[aAoOuUsS][eEsS]", conversions))
  end -- if
  
  -- look for stuff like aue (dipthongs)
  if dipthongs [str] then
    return
  end -- if a dipthong
  
  -- ignore uXX etc.
  if str:match ("^[Uu]") then
    return
  end
  
  -- ignore quX
  if str:match ("^[Qq][Uu]") then
    return
  end
  
  -- look up in table
  if conversions [str:sub (2)] then
    return str:sub (1, 1) .. conversions [str:sub (2)]
  end -- if
  
end -- fixer

-- here for whole words
function word_fixer (str)
  
  local lower_case_word = str:lower ()
  for k, v in ipairs (exceptions) do
    if string.match (lower_case_word, v) then
      return
    end  -- end of exception found somewhere in the word
  end -- for each exception
   
  return (string.gsub (str, ".?[aAoOuUs][es]", fixer))

end -- word_fixer

-- handle incoming packet
function OnPluginPacketReceived (s)
  return (string.gsub (s, "%f[%a]%a*%f[%A]", word_fixer))
end -- function OnPluginPacketReceived

-- run when plugin installed (loaded at runtime)
function OnPluginInstall ()

  -- make sure all exceptions are lower-case
  for k, v in ipairs (exceptions) do
     exceptions [k] = v:lower ()
  end -- for each exception
  
end -- OnPluginInstall

</script>

</muclient>