icuSources/data/translit/Any_Publishing.txt

   1 #--------------------------------------------------------------------
   2 # Copyright (c) 1999-2004, International Business Machines
   3 # Corporation and others. All Rights Reserved.
   4 #--------------------------------------------------------------------
   5
   6 # Test case
   7 # "The" "(quick)" ('brown') `fox' ` jumped --     "over?"
   8
   9 # Variables
  10
  11 $single = \' ;
  12 $space = ' ' ;
  13 $double = \" ;
  14 $back = \` ;
  15 $tab = '\u0008' ;
  16 $makeRight = [[:Z:][:Ps:][:Pi:]$] ;
  17
  18 # fix UNIX quotes
  19
  20 $back $back > “ ;
  21 $back > ‘ ;
  22
  23 # fix typewriter quotes, by context
  24
  25 $makeRight {$double} <> “ ;
  26 $double <> ” ;
  27
  28 $makeRight {$single} <> ‘ ;
  29 $single <> ’;
  30
  31 # fix multiple spaces and hyphens
  32
  33 $space {$space} > ;
  34 '--' <> — ;