35 lines
702 B
Plaintext
35 lines
702 B
Plaintext
#--------------------------------------------------------------------
|
||
# 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} > ;
|
||
'--' <> — ;
|