#!/bin/sh

# Copyright for the scripts in this file (c) 1997,
# 1998,
# by Gerald Banon / INPE. All rights reserved.

# Converts the bibStyle.bib file into a BibTeX file for URLib
# called @reference.bib

# run.tcl \
exec ../../../../../\
dpi.inpe.br/banon/1997/10.21.17.24/doc/tcl8.0/unix/tclsh "$0" ${1+"$@"}

lappend auto_path ../../../../../../col/dpi.inpe.br/banon/1998/10.21.10.07/doc

package require dpi.inpe.br/banon/1998/10.21.10.07 1.1

if [catch {open .t/bibStyle.bib r} fileId] {
	puts stderr "Cannot open .t/bibStyle.bib: $fileId"
} else {
	set entryList ""
	set fileContent [read $fileId]
	close $fileId
}

set fileId [open ../not_sent/.t/urlib.bib w]
if [catch {Bib2Bib $fileContent} output] {
	puts stderr \
"A syntax error has been detected in the bibliographic reference:
$output"
}
puts $fileId $output
close $fileId