#--------------------------------------------------------------------
# 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