#!/bin/sh
#\
exec wish -file $0 $*

#### Tex converter:

proc texClassOpen {file class} {
    set fd [open [string tolower /tmp/$class.tex] w]
    puts $fd "\\subsection{Class $class}"
    puts $fd "\\\#include\$<\$$file$>$"

}

proc setTex {} {
    global pClassOpen
    set pClassOpen texClassOpen
}

setTex

#### 

set FNAME util/gtopolgy.h

set fd [open $FNAME r]

while {[gets $fd li] != -1} {
    if {[lindex $li 0] == "class"} {
	set CNAME [lindex [split [lindex $li 1] :] 0] 
	$pClassOpen $FNAME $CNAME
    }
}

close $fd

exit
