#--------------------------------------------------------------------
# Copyright (c) 1999-2004, International Business Machines
# Corporation and others. All Rights Reserved.
#--------------------------------------------------------------------

# Only intended for internal use
:: fullwidth-halfwidth;

｡ > '.';

$terminalPunct = [\.\,\:\;\?\!．，：？！｡、；[:Pe:][:Pf:]];
$initialPunct = [:Ps:][:Pi:];

# add space between any Han or terminal punctuation and letters, and
# between letters and Han or initial punct

[[:Ideographic:] $terminalPunct] {} [:Letter:] > ' ' ;
[:Letter:] [:Mark:]* {} [[:Ideographic:] $initialPunct] > ' ' ;

# remove spacing between ideographs and other letters

 < [:Ideographic:] { ' ' } [:Letter:] ;
 < [:Letter:] [:Mark:]* { ' ' } [:Ideographic:] ;