1
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2
% frenchb.4ht 2001-12-14-17:07 %
3
% Copyright (C) 2001 Eitan M. Gurari %
5
% This program can redistributed and/or modified under %
6
% the terms of the LaTeX Project Public License %
7
% Distributed from CTAN archives in directory %
8
% macros/latex/base/lppl.txt; either version 1 of the %
9
% License, or (at your option) any later version. %
11
% However, you are allowed to modify this program %
12
% without changing its name, if you modify its %
13
% signature. Changes to the signature can be introduced %
14
% with a directive of the form %
15
% \message{signature} %
17
% gurari@cis.ohio-state.edu %
18
% http://www.cis.ohio-state.edu/~gurari %
19
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
20
\immediate\write-1{version 2001-12-14-17:07}
22
\def\frenchb:shorthand#1#2#3#4{%
24
\ifdim \lastskip >\z@ \unskip \penalty \@M
25
\csname a:#1-#2\endcsname#3\csname b:#1-#2\endcsname
27
\csname a:#1-#2\endcsname#4\csname b:#1-#2\endcsname
30
\def\:temp{\leavevmode \nobreak \csname a:system-nbsp\endcsname\ \csname
31
b:system-nbsp\endcsname}
32
\expandafter\HLet\csname \system@group @sh@\string ~@\endcsname=\:temp
34
\def\:temp{\frenchb:shorthand{frenchb}{nbsp}{\ }{\FDP@space}\string :}%
35
\expandafter\HLet\csname\language@group @sh@\string :@\endcsname=\:temp
36
\def\:temp{\frenchb:shorthand{frenchb}{thinspace}
37
{\thinspace }{\FDP@thinspace}\string ;}%
38
\expandafter\HLet\csname\language@group @sh@\string ;@\endcsname=\:temp
39
\def\:temp{\frenchb:shorthand{frenchb}{thinspace}
40
{\thinspace }{\FDP@thinspace}\string !}%
41
\expandafter\HLet\csname\language@group @sh@\string !@\endcsname=\:temp
42
\def\:temp{\frenchb:shorthand{frenchb}{thinspace}
43
{\thinspace }{\FDP@thinspace}\string ?}%
44
\expandafter\HLet\csname\language@group @sh@\string ?@\endcsname=\:temp
46
\NewConfigure{frenchb-nbsp}{2}
47
\NewConfigure{frenchb-thinspace}{2}
48
\NewConfigure{system-nbsp}{2}
50
\expandafter\let\csname protect\string:\endcsname=:
51
\expandafter\def\csname active\string
52
:prefix\endcsname#1{\protect#1\ifx#1:{}\fi}