#!/usr/local/bin/ruby -W0
# -*- Mode:Ruby; Coding:us-ascii-unix; fill-column:158 -*-
################################################################################################################################################################
##
# @file      rcsManifest.rb
# @author    Mitch Richling <https://www.mitchr.me/>
# @brief     Create and update MANIFEST files for everything in the CWD.@EOL
# @std       Ruby1.8
# @copyright 
#  @parblock
#  Copyright (c) 1996,1998,2011,2015,2016, Mitchell Jay Richling <http://www.mitchr.me> All rights reserved.
#
#  Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met:
#
#  1. Redistributions of source code must retain the above copyright notice, this list of conditions, and the following disclaimer.
#
#  2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions, and the following disclaimer in the documentation
#     and/or other materials provided with the distribution.
#
#  3. Neither the name of the copyright holder nor the names of its contributors may be used to endorse or promote products derived from this software without
#     specific prior written permission.
#
#  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
#  IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
#  FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
#  SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR
#  TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
#  @endparblock
# @filedetails
#
#  MANIFEST files are great because they tie a "version number" (for the MANIFEST.txt file itself) to the version numbers and check sums for every file in a
#  directory.  This is a nice way to have versions for each release of a software system made up of many source files.  Only files in RCS with a working
#  version in the CWD make it into the MANIFEST.
#
################################################################################################################################################################

#---------------------------------------------------------------------------------------------------------------------------------------------------------------
require 'digest/sha1' 

#---------------------------------------------------------------------------------------------------------------------------------------------------------------
if (File.file?("MANIFEST.txt") || File.file?("RCS/MANIFEST.txt,v")) then
  system('co -q -f -l MANIFEST.txt')
end
open('MANIFEST.txt', 'w') do |ofile|
  ofile.printf("$Revision: 1.5 $\n")
  ofile.printf("$Date: 2015/01/30 21:50:25 $\n")
  ofile.printf("\n\n")
  ofile.printf("%-41s %7s %s\n", "SHA1", "Version", "File Name")  
  Dir.new('.').sort.each do |d|
    if (d != "MANIFEST.txt") then
      fileVersion = 'N/A'
      if (File.file?("RCS/#{d},v")) then
        IO.popen("rlog -h '#{d}'", 'r') do |pipe|
          pipe.each_line do |line|
            if (tmp=(line.match(/^head:\s+([0-9.]+)$/))) then
              fileVersion = tmp[1].to_f
            end
          end
        end
      end
      if ((fileVersion != 'N/A') && (File.file?(d))) then
        fileDigest = 'N/A'
        open(d, 'r') do |file|
          fileDigest = Digest::SHA1.hexdigest(file.read())
        end
        if ((fileVersion != 'N/A') && (fileDigest != 'N/A'))
          ofile.printf("%-41s %7s %s\n", fileDigest, fileVersion, d.inspect)
        end
      end
    end
  end
end
system('ci -q -t-MANIFEST -mAUTO_UPDATE -u MANIFEST.txt')
if (File.file?("MANIFEST.txt") || File.file?("RCS/MANIFEST.txt,v")) then
  IO.popen("rlog MANIFEST.txt", 'r') do |pipe|
    cnt = 0
    pipe.each_line do |line|
      puts(line)
      if (line.match(/^----------------------------$/)) then
        if ((cnt+=1) > 2) then
          break
        end
      end
    end
  end
end