epl_inserter.tcl

#!/usr/bin/tclsh

proc find_initial fn {
	set author unknown
	set date 2011

	set rxp {revision 1.1[^.0-9]*date: ([0-9]+).*?author: ([A-Za-z0-9]+);}
	if {! [catch "exec cvs log $fn" res]} {
		regexp $rxp $res . date author
	}
	return [list $date $author]
}

proc dofile fn {
	set rxp {/\*\*\*\*.*?Copyright[^-0-9]*?([-0-9]+).*?Common Public License.*?\*\*\*\*/}

	set epl_header {/*************************************************************************
 * Copyright (c) $epl_date $epl_initial_copyright_owner $epl_other_copyright_owners
 * All rights reserved. This program and the accompanying materials
 * are made available under the terms of the Eclipse Public License v1.0
 * which accompanies this distribution, and is available at
 * http://www.eclipse.org/legal/epl-v10.html
 *
 * Contributors: See CVS logs. Details at http://www.graphviz.org/
 *************************************************************************/}

	set epl_date "2011"
	set epl_initial_copyright_owner "AT&T Intellectual Property"
	set epl_other_copyright_owners {}
	set epl_initial_author {unknown}

	set f [open $fn r]
	set t [read $f [file size $fn]]
	close $f

	if {[regexp -indices $rxp $t cpl cpl_date]} { 
#		puts "$fn $cpl $cpl_date [string length $t]"

		foreach {cpl_first cpl_last} $cpl {break}
#		puts [string range $t $cpl_first $cpl_last]

#		foreach {cpl_date_first cpl_date_last} $cpl_date {break}
#		puts [string range $t $cpl_date_first $cpl_date_last]

#		puts [find_initial $fn]

#		set epl_date [string range $t $cpl_date_first $cpl_date_last]

		set f [open $fn w]
		puts -nonewline $f [string range $t 0 $cpl_first-1]
		puts -nonewline $f [subst $epl_header]
		puts -nonewline $f [string range $t $cpl_last+1 end]
		close $f
	}
}

proc doname n {
	if [file isdirectory $n] {
		foreach gn [glob -nocomplain $n/*] {
			doname $gn
		}

	} {
		dofile $n
	}
}

foreach n $argv {
	doname $n
}