#!/bin/sh
# Copyright for the Uniform Repository Service (c) 1997,
# by Gerald Banon. All rights reserved.
# Version 1.1
# isis2bib.tcl \
exec ../../../../../dpi.inpe.br/banon/1997/10.21.17.24/doc/tcl8.0/unix/tclsh "$0" ${1+"$@"}

lappend auto_path ../../../../../dpi.inpe.br/banon/1997/12.04.12.04/doc
package require URLib 1.1

set a1 [lindex $argv 0]
set a2 [lindex $argv 1]

if [catch {open $a1 r} inputFileId] {
	puts stderr "Cannot open $a1: $inputFileId"
} else {
	set outputFileId [open $a2 w]
	puts $outputFileId [Isis2Bib [read $inputFileId]]
	close $outputFileId
	close $inputFileId
}