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