#!/bin/sh
# The next line restarts using tclsh8.0 \
exec tclsh8.0 $0 ${1+"$@"}

set dirs "."
set package "+"
set version "3.4.37"
set date "11/2/97"

#
# This is a tcl-script that will search a list of directories
# for ".orig"-files. For all of these it will make a "diff",
# and create a patch-file.
#
#	Written by:	Jan Nijtmans
#			CMG (Computer Managemeng Group) Arnhem B.V.
#			email: nijtmans@worldaccess.nl (private)
#			       Jan.Nijtmans@cmg.nl (work)
#			url:   http://www.worldaccess.nl/~nijtmans/

set dfiles ""

foreach dir $dirs {
    set files [eval exec ls $dir]
    foreach file $files {
	if {[regexp ".*\.orig" $file]} {
	    set file $dir/[string range $file 0 [expr [string length $file]-6]]
	    lappend dfiles $file.diff
	    set file [string range $file 2 [string length $file]]
	    puts stdout "creating $file.diff"
	    catch "exec diff -c $file.orig $file >$file.diff"
	}
    }
}

puts stdout "creating libtiff${version}plus.patch"
set file [open libtiff${version}plus.patch w]
puts $file "
libtiff${version}.patch -   $date

[eval exec cat $dfiles]"
close $file
