home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 March / PCWELT_3_2006.ISO / base / 05_common.mo / usr / share / elvis-2.2_0 / scripts / pig.ex < prev    next >
Encoding:
Text File  |  2004-02-22  |  443 b   |  11 lines
  1. " This script defines :piglatin, an English-to-pig-latin translator.
  2. " It translates the current line by default, or you can give it a range of
  3. " lines to translate.
  4. alias piglatin {
  5.  "Translate English to pig latin
  6.  local magic magicchar=^$.[* noignorecase
  7.  try !% s/\<[aeiouAEIOU][a-zA-Z]*\>/&way/g
  8.  try !% s/\<\([b-dfghj-np-tv-z]\+\)\([a-zA-Z]*\)\>/\2\1ay/g
  9.  try !% s/\<\([B-DFGHJ-NP-TV-Z][b-dfghj-np-tv-z]*\)\([a-zA-Z]*\)\>/\u\2\l\1ay/g
  10. }
  11.