summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/dvdcoll/dcwrtbib.sty
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/dvdcoll/dcwrtbib.sty')
-rw-r--r--macros/latex/contrib/dvdcoll/dcwrtbib.sty50
1 files changed, 50 insertions, 0 deletions
diff --git a/macros/latex/contrib/dvdcoll/dcwrtbib.sty b/macros/latex/contrib/dvdcoll/dcwrtbib.sty
new file mode 100644
index 0000000000..c18ad273aa
--- /dev/null
+++ b/macros/latex/contrib/dvdcoll/dcwrtbib.sty
@@ -0,0 +1,50 @@
+%%
+%% Copyright (C) 2007-2008 by:
+%% Josef Kleber
+%% <josef.kleber@gmx.net>
+%%
+%% This file may be distributed and/or modified under the conditions of
+%% the LaTeX Project Public License, either version 1.3 of this license
+%% or (at your option) any later version. The latest version of this
+%% license is in:
+%%
+%% http://www.latex-project.org/lppl.txt
+%%
+%% and version 1.3 or later is part of all distributions of LaTeX version
+%% 2003/12/01 or later.
+%%
+%% This work has the LPPL maintenance status "author-maintained".
+%%
+%% This Current Maintainer of this work is Josef Kleber.
+%%
+%% This work consists of all files listed in manifest.txt.
+%%
+%
+\ProvidesPackage{dcwrtbib}[2007/04/12 dcwrtbib.sty v1.0adev - Josef Kleber (C) 2007]%
+%
+\RequirePackage{afterpage}%
+%
+\newwrite\dc@bibout%
+%
+\immediate\openout\dc@bibout=dc_\jobname.bib\relax%
+%
+\newcommand*{\bibwrite}[1]{%
+ \begingroup
+ \csname @safe@activestrue\endcsname % babel's shorthands
+ \count@=128 %
+ \loop
+ \ifnum\count@<256
+ \lccode`\~=\count@
+ \lowercase{\edef~{\string~}}%
+ \advance\count@ by 1 %
+ \repeat
+ \immediate\write\dc@bibout{#1}%
+ \endgroup
+ %\immediate\write\dc@bibout{\detokenize{#1}}%
+}%
+%
+\AtEndDocument%
+{%
+ \afterpage{\closeout\dc@bibout}%
+}%
+% \ No newline at end of file