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} > ;
|
|||
|
|
'--' <> — ;
|