]>
Commit | Line | Data |
---|---|---|
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 | '--' <> — ; |