DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download
Index: T p

⟦298f9c5c8⟧ TextFile

    Length: 2256 (0x8d0)
    Types: TextFile
    Names: »printbib«

Derivation

└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12
    └─⟦c319c2751⟧ »unix3.0/TeX3.0.tar.Z« 
        └─⟦036c765ac⟧ 
            └─⟦this⟧ »TeX3.0/BibTeX.inputs/Contrib/printbib« 
└─⟦060c9c824⟧ Bits:30007080 DKUUG TeX 2/12/89
    └─⟦this⟧ »./tex82/LaTeX/LaTeXbibtex/Contrib/printbib« 
└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12
    └─⟦63303ae94⟧ »unix3.14/TeX3.14.tar.Z« 
        └─⟦c58930e5c⟧ 
            └─⟦this⟧ »TeX3.14/BibTeX.inputs/Contrib/printbib« 

TextFile

#! /bin/sh
# set -x
usage='usage: printbib[key] [-noprint|-nocheck|-style bibstyle|-title "title"|-output file|-predef "file,file,..."] bibfile...'
# you may have to change this for your site:
files=${predef-"/users/bib/predef"}
title=${title-", sorted by first author"}
style=${style-skey}
output=${output-test}
check=${check-true}
print=${print-true}

while :
do
   case "$1" in
	-p|-print) print=true; shift;;
	+p|-noprint) print=false; shift;;
	-c|-check) check=true; shift;;
	+c|-nocheck) check=false; shift;;
	-s|-style) style="$2"; shift 2;;
	-t|-title) title="$2"; shift 2;;
	-o|-output) output="$2"; shift 2;;
	-predef) files="$2"; shift 2;;
	-*|+*) echo "$usage" >&2; exit 1;;
	*) break;;
	esac
    done
if [ $# -lt 1 ]
   then echo $usage >&2
	exit 1
   fi

umask 0
rm -f ${output}.tex ${output}.aux ${output}.bbl ${output}.blg ${output}.log ${output}.dvi ${output}.DVI

echo "Outputting to ${output}.tex" >&2

cat > ${output}.tex << EOD

    % tex file to print bibliography file(s) $@
    % automatically generated by program $0
    \\documentstyle[proc]{article}
    \\begin{document}
    \\title{Bibliography file $@ $title}
    \\author{Version of `date '+%a %d-%h-%y %H:%M'`}
    \\maketitle
    \\renewcommand\\thebibliography[1]{\\section*{Bibliography\\markboth
      {BIBLIOGRAPHY}{BIBLIOGRAPHY}}\\list
      {[\\arabic{enumi}]}{\\settowidth\\labelwidth{12345678}\\leftmargin\\labelwidth
	\\advance\\leftmargin\\labelsep
	\\usecounter{enumi}}
	\\def\\newblock{\\hskip .11em plus .33em minus -.07em}
	\\sloppy
        \\sfcode\`\\.=1000\\relax}

    \\bibliography{$files}
    \\bibliographystyle{${style}}
    \\end{document}

EOD

echo '\relax' > ${output}.aux
while [ $# -gt 0 ]
do
  f=`basename $1 .bib`
  if [ ! -r $f.bib ]
   then echo $usage >&2
	exit 1
   fi

  sed -n -e 's+^[ 	]*@\([a-zA-Z]*\)[ 	]*[({][ 	]*\([-:_a-zA-Z0-9]*\),+\\citation{\2}+p' $f.bib >> ${output}.aux

  files="$files,$f"
  shift

  done

echo "\\bibdata{$files}" >> ${output}.aux
echo "\\bibstyle{$style}" >> ${output}.aux

bibtex ${output}
if egrep -l '(^ : |---)' ${output}.blg
   then echo "There are errors in the bibliography file(s) (see ${output}.blg)" >&2
	if $check; then exit 1; fi
   fi
latex ${output}
if $print; then lpr -d ${output}.dvi; fi