blob: df4ef91d7d43860fc105097e193bea8c427cd6f3 [file] [log] [blame]
#--------------------------------------------------------------------
# Copyright (c) 1999-2001, International Business Machines
# Corporation and others. All Rights Reserved.
#--------------------------------------------------------------------
# Date: Tue Jan 23 12:42:07 2001
#--------------------------------------------------------------------
# StraightQuotes-CurlyQuotes
# Rewritten using character codes [LIU]
$white=[[:Zs:][:Zl:][:Zp:]];
$black=[^$white];
$open=[:Ps:];
### $dquote='\"';
### $lAng=〈;
### $ldAng=《;
### $lBrk='[';
### $lBrc='{';
### $lquote=‘;
### $rquote=’;
### $ldquote=“;
### $rdquote=”;
### $ldguill=«;
### $rdguill=»;
### $lguill=‹;
### $rguill=›;
### $mdash=—;
########################################
# Conversions from input
########################################
# join single quotes
‘''>“;
‘‘>“;
’''>”;
’’>”;
#smart single quotes
$white{''>‘;
$open{''>‘;
$black{''>’;
''>‘;
#smart doubles
$white{'\"'>“;
$open{'\"'>“;
$black{'\"'>”;
'\"'>“;
# join single guillemets
››>»;
'>>'>»;
‹‹>«;
'<<'>«;
# prevent double spaces
\\ {\\ >;
# join hyphens into dash ### BIDIRECTIONAL ###
'--'<>—;
########################################
# Conversions back to input
########################################
#smart quotes
''<‘;
''<’;
'\"'<“;
'\"'<”;
# eof