blob: 5c36770f50d5591d909eca70833d8443e90a25f1 (
plain)
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
%%
%% This is file `forms16be.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% forms16be.dtx (with options: `copyright,package')
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% forms16be.sty package, %%
%% Copyright (C) 2017--2019 %%
%% dpstory@acrotex.net %%
%% %%
%% This program can redistributed and/or modified under %%
%% the terms of the LaTeX Project Public License %%
%% Distributed from CTAN archives in directory %%
%% macros/latex/base/lppl.txt; either version 1.2 of the%%
%% License, or (at your option) any later version. %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{forms16be}
[2019/03/20 v1.3 Provides UTF-16BE encoding for text strings (dps)]
\def\U@csarg#1#2{\expandafter#1\csname#2\endcsname}
\providecommand\aeb@exiii{\expandafter\expandafter\expandafter}
\def\fbe@sanitize{\@makeother\"\@makeother\#\@makeother\$%
\@makeother\%\@makeother~%
\@for\x:=ABCDEFabcdef()\do{\@makeother\x}}
\providecommand\convertChriiUnicode[2]{\U@csarg\gdef{uni@#1}{#2}}%
\def\aref(#1){\csname aeb@aDescript@#1\endcsname}
\providecommand{\displayUnicode}[1]{\csname uni@#1\endcsname}
\providecommand{\stringiiUnicode}{FEFF\expandafter\@stringiiUnicode}
\providecommand{\@stringiiUnicode}[1]{\ifx#1\relax\else
\ifx#1\u\aeb@exiii\getRawUnicode@tp\else
\displayUnicode{#1}\aeb@exiii\@stringiiUnicode\fi\fi}
\def\getRawUnicode@tp#1{\ifx#1(\aeb@exiii\getRawUnicode@p\else
\aeb@exiii\@getRawUnicode\fi#1}
\def\getRawUnicode@p(#1){\expandafter\@getRawUnicode#1}
\providecommand{\@getRawUnicode}[4]{#1#2#3#4\@stringiiUnicode}
\def\defUniStr#1{\def\U@uniStrName{#1}\bgroup\fbe@sanitize
\obeyspaces\getUniDescript}
{\obeyspaces\gdef\getUniDescript#1{\gdef\U@description{#1}%
\U@NameUniStr}}
\def\U@NameUniStr{\global\U@csarg\let
{aeb@aDescript@\U@uniStrName}\U@description\egroup
\U@csarg\xdef{expanded@\U@uniStrName}%
{\U@buildUnicodeStr(\U@uniStrName)}}
\def\U@buildUnicodeStr(#1){\expandafter
\ifx\csname aeb@aDescript@#1\endcsname\relax
\else\aeb@exiii\stringiiUnicode\aref(#1)\relax\fi}
\def\unicodeStr(#1){\expandafter
\ifx\csname aeb@aDescript@#1\endcsname\relax
FEFF#1\else\csname expanded@#1\endcsname\fi}
\InputIfFileExists{uni4basic-latin.def}{\PackageInfo{forms16be}
{Inputting uni4basic-latin.def\MessageBreak definitions}}
{\PackageError{forms16be}
{Cannot find the file uni4basic-latin.def}{}}
\endinput
%%
%% End of file `forms16be.sty'.
|
