generic 1

git-svn-id: svn://tug.org/texlive/trunk@613 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 48 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/generic/tex4ht/bibtex2.4ht b/Master/texmf-dist/tex/generic/tex4ht/bibtex2.4ht
new file mode 100644
index 00000000000..d5e6e2986f8
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/tex4ht/bibtex2.4ht
@@ -0,0 +1,48 @@
+
+\catcode`\/=0
+\catcode`\\=12
+/edef/bibstyle{\bibstyle}
+/catcode`/\=0
+/catcode`//=12
+\catcode`\&=12
+
+\def\get{%
+  \immediate\read15 to \line
+  \ifeof15 \else
+     \expandafter\scan\line @@@@@@@@@&&&&
+     \expandafter\get
+  \fi
+}
+\def\scan#1#2#3#4#5#6#7#8#9{\def\first{#1#2#3#4#5#6#7#8#9}\put}
+\def\put#1&&&&{%
+    \immediate\write15{\ifx \first\bibstyle
+           \ifx \style\empty \line \else \bibstyle{\style}\fi
+        \else  \line\fi}}
+\newcount\c
+\def\Cats#1#2#3{\edef\temp{\the\c}%
+  \c=#3
+  \def\next{\catcode\c=#1
+    \ifnum \c=#2 \let\next=\relax \fi
+    \advance\c by  -1 \next}\next
+  \c=\temp  }
+
+\def\jaux#1#2{%
+  \bgroup
+    \def\style{#2}%
+\hshow{2222222222222222222222}%
+      \Cats{12}{0}{255}%
+      \Cats{11}{65}{90}%
+      \Cats{11}{97}{122}%
+    \immediate\openin15=#1.aux
+    \ifeof15 \else
+      \catcode`\^^M=5
+      \immediate\openout15=#1j.aux
+      \get
+      \immediate\write15{}
+      \closeout15
+    \fi
+  \egroup
+}
+
+
+