#!/usr/bin/env tclkit
# onesrc -- merge source file includes into a single one
# 02/02/2001 info@equi4.com
set verbose 0
if {[lindex $argv 0] == "-v"} {
  set verbose 1
  set argv [lrange $argv 1 end]
}
set inf [lindex $argv 0]
set outf [lindex $argv 1]
set paths [lrange $argv 2 end]
if {$outf == "" || ![file exists $inf]} {
  puts stderr "Usage: onesrc ?-v? infile outfile ?paths?"
  exit 1
}
set ofd [open $outf w]
array set files {}
foreach x $paths {
  if {[file isdir $x]} {
    set x [file join $x *.*]
  }
  foreach f [glob $x] {
    set files([file tail $f]) $f
  }
}
set total 0
array set seen {}
array set remain {}
proc emit {s {n ""}} {
  puts $::ofd $s
  incr ::total
  if {$n != ""} {
    upvar $n i
    incr i
  }
}
emit "/* $outf - generated from $inf by onesrc"
emit " * paths: $paths"
emit " * [clock format [clock seconds]]"
emit " */"
emit ""
proc expand {fn} {
  set fd [open $fn]
  set n 0
  while {[gets $fd line] >= 0} {
    if {[regexp {^\s*#\s*include\s*[<"]([^"]+)[>"]} $line - path]} { ;# "
      set f [file tail $path]
      if {[info exists ::files($f)]} {
	if {[info exists ::seen($f)]} {
	  emit "/* skipped: $path - see $::seen($f) */" n
	} else {
	  emit "/* include: $path */" n
	  set ::seen($f) $fn
	  expand $::files($f)
	  emit "/* resumed: $fn */" n
	}
	continue
      }
      lappend ::remain($f) $fn
    }
    emit $line n
  }
  if {$::verbose} {
    puts [format "%6d\t%s" $n $fn]
  }
}
if {$verbose} {
  puts "files merged:"
}
expand $inf
if {$::verbose} {
  puts "includes left:"
  foreach f [lsort [array names remain]] {
    puts "  $f"
  }
}
puts "$outf ($total lines): [array size seen] files merged,\
			    [array size remain] includes left"
# vim: set sw=2 :