module Rake::StX

  # Simple utility to add records to smalltalk ChangeSet
  class ChangeSet
    def initialize(filename) 
      @filename = filename
    end

    # Evaluates a block for each standard changeset found in
    # given directory (BUILD_DIR usually)
    def self.standardChangesetsDo(root)
      yield(ChangeSet.new(f)) if block_given? if File.exist?(f = root / 'stx' / 'st.chg')
      yield(ChangeSet.new(f)) if block_given? if File.exist?(f = root / 'project' / 'smalltalk' / 'st.chg')
    end

    def addInfoChange(info)
      if unix?
        hostname = `hostname`.chop
        username = ENV['USER']
      else
        hostname = '???'
        username = ENV['USERNAME']
      end
      timestamp = Time.now.strftime("%d-%m-%Y %H:%M:%S")
      file = File.open(@filename, 'a')
      begin
        file.print("'---- #{info} #{username}@#{hostname} #{timestamp} ----'!\n")
      ensure
        file.close
      end
    end

    def addTimestampInfo  # ? why it does not follow ruby's camel case?
      addInfoChange('timestamp')
    end

    def addRakeUpdateInfo
      addInfoChange('rake update')
    end

    def addRakeCompileInfo
      addInfoChange('rake compile')
    end
  end
end