environ.rb

#!/bin/ruby

if __FILE__ == $0
  vars = {}
  Dir.glob("**/*") do |name|
    if File.file? name and name =~ /\.clj$/
      File.open(name,"r") do |f|
        content = f.read
        if content =~ /environ.core/
          content.scan(/\(env :([a-zA-Z\-]+) ("([^\)]+)")?\)/).each do |matches|
            $stderr.puts "Duplicated var #{matches[0]} in #{name}:current #{vars[matches[0]]},found:#{matches[2]}" if vars[matches[0]]
            vars[matches[0]]= matches[2]
          end
        end
      end
    end
  end
  vars.each do |k,v|
    puts "export #{k.gsub(/\-/,"_").upcase}=#{v.gsub(/\$/,"\\$")}"
  end
end