summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/plain/fp
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-12 23:46:46 +0000
committerKarl Berry <karl@freefriends.org>2006-01-12 23:46:46 +0000
commitb1c871653d37d9c6fd0f97b048dca051b5b1db27 (patch)
tree3f925e95aa3461b9ecb75df861259a7f71bc3f23 /Master/texmf-dist/tex/plain/fp
parent82770e7491344072d5dd54ce9a78546eebe99c3f (diff)
trunk/Master/texmf-dist/tex/plain
git-svn-id: svn://tug.org/texlive/trunk@621 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/plain/fp')
-rw-r--r--Master/texmf-dist/tex/plain/fp/fp.tex49
1 files changed, 49 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/plain/fp/fp.tex b/Master/texmf-dist/tex/plain/fp/fp.tex
new file mode 100644
index 00000000000..39f62d60b38
--- /dev/null
+++ b/Master/texmf-dist/tex/plain/fp/fp.tex
@@ -0,0 +1,49 @@
+%load the fp-package for TeX
+\chardef\FPcatamp=\the\catcode`\@
+\catcode`@=11
+
+\def\NeedsTeXFormat#1{}
+\def\ProvidesPackage#1[#2]{}
+\def\DeclareOption#1#2{}
+\let\ProcessOptions\relax
+
+%the for-loop of latex2e
+\def\@nnil{\@nil}
+\def\@empty{}
+\def\@fornoop#1\@@#2#3{}
+
+\def\@for#1:=#2\do#3{\edef\@fortmp{#2}\ifx\@fortmp\@empty \else
+ \expandafter\@forloop#2,\@nil,\@nil\@@#1{#3}\fi}
+
+\def\@forloop#1,#2,#3\@@#4#5{\def#4{#1}\ifx #4\@nnil \else
+ #5\def#4{#2}\ifx #4\@nnil \else#5\@iforloop #3\@@#4{#5}\fi\fi}
+
+\def\@iforloop#1,#2\@@#3#4{\def#3{#1}\ifx #3\@nnil
+ \let\@nextwhile\@fornoop \else
+ #4\relax\let\@nextwhile\@iforloop\fi\@nextwhile#2\@@#3{#4}}
+
+\edef\FP@loadedfiles{fp.tex}
+
+\def\FP@alreadyloaded#1{}
+\def\FP@notyetloaded#1{
+ \edef\FP@loadedfiles{\FP@loadedfiles,#1}
+ \input #1.sty
+}
+\def\RequirePackage#1{%
+ \let\FP@in@\FP@notyetloaded%
+ \edef\@tempb{#1}%
+ \@for\@tempa:=\FP@loadedfiles\do{%
+ \ifx\@tempa\@tempb%
+ \let\FP@in@\FP@alreadyloaded%
+ \fi%
+ }%
+ \FP@in@{#1}%
+}
+
+\def\loop#1\repeat{\def\iterate{#1\relax\expandafter\iterate\fi}%
+ \iterate \let\iterate\relax}
+\let\repeat=\fi
+
+\RequirePackage{fp}
+
+\catcode`\@=\FPcatamp