# Convert letter and digits to morse code
#
# Author:  Sven Guckes   guckes-sed(at)guckes.net
# http://www.guckes.net/sed/scripts/morse.sed
# Latest change:  Thu Jan 12 05:23:00 CET 2006

# assume that one space is between words -
# expand that space to two spaces:
# s/ /  /g

# letters
s/[aA]/.- /g
s/[bB]/-... /g
s/[cC]/-.-. /g
s/[dD]/-.. /g
s/[eE]/. /g
s/[fF]/..-. /g
s/[gG]/--. /g
s/[hH]/.... /g
s/[iI]/.. /g
s/[jJ]/.--- /g
s/[kK]/-.- /g
s/[lL]/.-.. /g
s/[mM]/-- /g
s/[nN]/-. /g
s/[oO]/--- /g
s/[pP]/.--. /g
s/[qQ]/--.- /g
s/[rR]/.-. /g
s/[sS]/... /g
s/[tT]/- /g
s/[uU]/..- /g
s/[vV]/...- /g
s/[wW]/.-- /g
s/[xX]/-..- /g
s/[yY]/-.-- /g
s/[zZ]/--.. /g

# digits
s/0/----- /g
s/1/.---- /g
s/2/..--- /g
s/3/...-- /g
s/4/....- /g
s/5/..... /g
s/6/-.... /g
s/7/--... /g
s/8/---.. /g
s/9/----. /g

# todo:
# punctuation:
# source: http://home.alltel.net/johnshan/cw_ss_list_punc.html
# +-----------------------------------------------+
# |Symbol|Code group|            Name             |
# |  "   |  .-..-.  |Quotation mark               |
# |  $   | ...-..-  |Dollar sign                  |
# |  '   |  .----.  |Apostrophe                   |
# |  (   |  -.--.   |Open parenthesis (1)         |
# |  )   |  -.--.-  |Close parenthesis            |
# |  [   |  -.--.   |Open square bracket (1)      |
# |  ]   |  -.--.-  |Close square bracket         |
# |  +   |  .-.-.   |Plus sign (2)                |
# |  ,   |  --..--  |Comma                        |
# |  -   |  -....-  |Hyphen or single dash        |
# |  .   |  .-.-.-  |Period                       |
# |  /   |  -..-.   |Slant                        |
# |  :   |  ---...  |Colon                        |
# |  ;   |  -.-.-.  |Semicolon (3)                |
# |  =   |  -...-   |Equal sign or double dash (4)|
# |  ?   |  ..--..  |Question mark                |
# |  @   |  .--.-.  |At symbol (5)                |
# |  _   |  ..--.-  |Underline                    |
# |  ¶   |  .-.-..  |Paragraph                    |
# |  !   |   ---.   |Exclamation point (6)        |
# +-----------------------------------------------+
  s/"/.-..-. /g
s/\$/...-..- /g
  s/'/.----. /g
   s/(/-.--. /g
  s/)/-.--.- /g
  s/\[/-.--. /g
 s/\]/-.--.- /g
   s/+/.-.-. /g
  s/,/--..-- /g
# s/-/-....- /g
#s/\./.-.-.- /g
  s/\//-..-. /g
  s/:/---... /g
  s/;/-.-.-. /g
   s/=/-...- /g
  s/?/..--.. /g
  s/@/.--.-. /g
  s/_/..--.- /g
  s/¶/.-.-.. /g
   s/!/ ---. /g
# THPXRF EOF