[apple/icu.git] / icuSources / data / translit / Any_Publishing.txt

#--------------------------------------------------------------------
# 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} > ;
'--' <> — ;
Commit	Line	Data
374ca955 A	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	'--' <> — ;