[XeTeX] getting \newXeTeXintercharclass to work

[Will Robertson]

On 2009-10-17 07:46:18 +1030, Michiel Kamermans 
<pomax at nihongoresources.com> said:

> Has anyone tried to retrofit Enrico's suggestion using XeTeX 
> 3.1415926-2.2-0.999.7? If so, with success? (if so, what did you do? =P)

This is part of TeX Live 2009 (and working); I've snipped out the 
relevant section of xelatex.ini at the end of this message if it helps.

Cheers,
Will

%
% Allocator for \XeTeXintercharclass values, from Enrico Gregorio
%
\catcode`\@=11
\newcount\xe at alloc@intercharclass % allocates intercharclass
\xe at alloc@intercharclass=\thr@@ % from 4 (1,2 and 3 are used by CJK, AFAIK)
\def\xe at alloc@#1#2#3#4#5{\global\advance#1\@ne
 \xe at ch@ck#1#4#2% make sure there's still room
 \allocationnumber#1%
 \global#3#5\allocationnumber
 \wlog{\string#5=\string#2\the\allocationnumber}}
\def\xe at ch@ck#1#2#3{%
 \ifnum#1<#2\else
  \errmessage{No room for a new #3}%
 \fi}
\def\newXeTeXintercharclass{%
 \xe at alloc@\xe at alloc@intercharclass\XeTeXintercharclass\chardef\@cclv} 
%at most 254
\catcode`\@=12
%