| #-------------------------------------------------------------------- |
| # Copyright (c) 1999-2004, International Business Machines |
| # Corporation and others. All Rights Reserved. |
| #-------------------------------------------------------------------- |
| |
| # Test case |
| # "The" "(quick)" ('brown') `fox' ` jumped -- "over?" |
| |
| # Variables |
| |
| $single = \' ; |
| $space = ' ' ; |
| $double = \" ; |
| $back = \` ; |
| $tab = '\u0008' ; |
| $makeRight = [[:Z:][:Ps:][:Pi:]$] ; |
| |
| # fix UNIX quotes |
| |
| $back $back > “ ; |
| $back > ‘ ; |
| |
| # fix typewriter quotes, by context |
| |
| $makeRight {$double} <> “ ; |
| $double <> ” ; |
| |
| $makeRight {$single} <> ‘ ; |
| $single <> ’; |
| |
| # fix multiple spaces and hyphens |
| |
| $space {$space} > ; |
| '--' <> — ; |
