summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/forms16be/forms16be.sty
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'.