diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/latex/contrib/dvdcoll/dcwrtbib.sty |
Initial commit
Diffstat (limited to 'macros/latex/contrib/dvdcoll/dcwrtbib.sty')
-rw-r--r-- | macros/latex/contrib/dvdcoll/dcwrtbib.sty | 50 |
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 |