1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% arababel.sty
% protect against a conflict with the BABEL package
% as suggested by Olaf Kummer and Johannes Braams
% 10.03.98
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% (c) Klaus Lagally
% Institut fuer Informatik
% Universitaet Stuttgart
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\a@ident {arababel.sty}{3.07 BABEL compatibility } {10.03.1998}
\def\peek@token#1#2{%
\expandafter\let\expandafter\bbl@nexta\csname #1\string#2\endcsname
\expandafter\let\expandafter\bbl@nextb
\csname system@active\string#2\endcsname
\futurelet\bbl@token\bbl@test@token}
\def\bbl@test@token{%
\let\bbl@next\bbl@nexta
\ifcat\noexpand\bbl@token a%
\else
\ifcat\noexpand\bbl@token=%
\else
\ifcat\noexpand\bbl@token\noexpand\bbl@next
\else
\let\bbl@next\bbl@nextb
\fi
\fi
\fi
\bbl@next}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\endinput
%%%%%%%%%%%%%%%%%%%%%%%%%%%%% EOF %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
