1 files changed, 120 insertions, 0 deletions
diff --git a/tool/extlibs.rb b/tool/extlibs.rb
new file mode 100755
index 0000000000..116964c2af
--- /dev/null
+++ b/tool/extlibs.rb
@@ -0,0 +1,120 @@
+#!/usr/bin/ruby
+require 'fileutils'
+require 'digest'
+require_relative 'downloader'
+
+cache_dir = ".downloaded-cache"
+FileUtils.mkdir_p(cache_dir)
+
+def do_download(url, base, cache_dir)
+  Downloader.download(url, base, cache_dir, nil)
+end
+
+def do_checksum(cache, chksums)
+  chksums.each do |sum|
+    name, sum = sum.split(/:/)
+    if $VERBOSE
+      $stdout.print "checking #{name} of #{cache} ..."
+      $stdout.flush
+    end
+    hd = Digest(name.upcase).file(cache).hexdigest
+    if hd == sum
+      if $VERBOSE
+        $stdout.puts " OK"
+        $stdout.flush
+      end
+    else
+      if $VERBOSE
+        $stdout.puts " NG"
+        $stdout.flush
+      end
+      raise "checksum mismatch: #{cache}, #{name}:#{hd}, expected #{sum}"
+    end
+  end
+end
+
+def do_extract(cache, dir)
+  if $VERBOSE
+    $stdout.puts "extracting #{cache} into #{dir}"
+    $stdout.flush
+  end
+  Process.wait(Process.spawn("tar", "xpf", "-", in: cache, chdir: dir))
+  $?.success? or raise "failed to extract #{cache}"
+end
+
+def do_patch(dest, patch, args)
+  if $VERBOSE
+    $stdout.puts "applying #{patch} under #{dest}"
+    $stdout.flush
+  end
+  Process.wait(Process.spawn("patch", *args, in: File.join(dest, patch), chdir: dest))
+  $?.success? or raise "failed to patch #{patch}"
+end
+
+case ARGV[0]
+when '--download'
+  mode = :download
+  ARGV.shift
+when '--extract'
+  mode = :extract
+  ARGV.shift
+when '--patch'
+  mode = :patch
+  ARGV.shift
+when '--all'
+  mode = :all
+  ARGV.shift
+else
+  mode = :all
+end
+
+success = true
+ARGV.each do |dir|
+  Dir.glob("#{dir}/**/extlibs") do |list|
+    if $VERBOSE
+      $stdout.puts "downloading for #{list}"
+      $stdout.flush
+    end
+    extracted = false
+    dest = File.dirname(list)
+    IO.foreach(list) do |line|
+      line.sub!(/\s*#.*/, '')
+      if /^\t/ =~ line
+        if extracted and (mode == :all or mode == :patch)
+          patch, *args = line.split
+          do_patch(dest, patch, args)
+        end
+        next
+      end
+      url, *chksums = line.split(' ')
+      next unless url
+      extracted = false
+      base = File.basename(url)
+      cache = File.join(cache_dir, base)
+      target = File.join(dest, base[/.*(?=\.tar(?:\.\w+)?\z)/])
+      begin
+        case mode
+        when :download
+          do_download(url, base, cache_dir)
+          do_checksum(cache, chksums)
+        when :extract
+          unless File.directory?(target)
+            do_checksum(cache, chksums)
+            extracted = do_extract(cache, dest)
+          end
+        when :all
+          do_download(url, base, cache_dir)
+          unless File.directory?(target)
+            do_checksum(cache, chksums)
+            extracted = do_extract(cache, dest)
+          end
+        end
+      rescue => e
+        warn e.inspect
+        success = false
+      end
+    end
+  end
+end
+
+exit(success)