#!/usr/bin/tclsh
#
# set template "/usr/lib/teTeX/texmf/tex/latex/susebuch/template"
# set newtemplate "/usr/lib/teTeX/texmf/tex/latex/susebuch/template.tex"

if { $argc != 2 } {

    puts "usage: $argv0 template.in template.out"
    exit 1
}

set argv1 [ lindex $argv 0 ]

if { ! [ file exists $argv1 ] } {

    puts "$argv0: error: file $argv1 does not exist!"
    exit 1
}

set template $argv1
set newtemplate [ lindex $argv 1 ]

set fileID [ open "$template" "r" ]
if { $fileID == -1 } {
    
    puts "open error"
    return
}

set writeID [ open "$newtemplate" "w" ]
if { $writeID == -1 } {
    
    puts "write open error"
    return
}

set buffer {}
while { [ gets $fileID buffer ] != -1 } {
    
    set dummy {}
    set value {}
    if { [ regexp {%% -----[\-]+(.*)} $buffer dummy value ] == 1 } {
	
	while { [ gets $fileID buffer ] != -1 } {
	
	    if { [ regexp {%% -----[\-]+} $buffer ] == 1 } {
		
		break
	    }
	}

	continue
    }

    puts $writeID $buffer
}

close $fileID
close $writeID

exit 0


