#require 'time'



class CreateTime
  class << self   # singleton class
    ## simple version: connecting vertices as they are created
    def pop_month year = Date.today.year, month = Date.today.month
      timestamp = DateTime.new year, month,1
      if Monat.where( :value => month ).blank?
	der_monat= Monat.create value_string: timestamp.strftime("%B"), value: timestamp.month.to_i
	last_month_day =  (DateTime.new( year, month+1, 1)-1).day rescue 31  # rescue covers month > 12
	(0 .. last_month_day ).each do | tag |
	  der_tag = Tag.create value_string: "March #{timestamp.day}", value: tag 
	  print der_tag.value.to_s + " > "
	  ( 0 .. 23 ).each do | stunde |
	    die_stunde = Stunde.create value_string: "March #{timestamp.day} #{timestamp.hour}:00", value: stunde
	    print die_stunde.value.to_s + " .. "
	    TIME_OF.create_edge from: der_tag, to: die_stunde
	    timestamp += Rational(1,24)  # + 1 hour
	  end
	  print "\n"
	  DAY_OF.create_edge from: der_monat, to: der_tag
	end
      else
	"Month #{timestamp.strftime("%B %Y ") } exists "
      end
    end
    ## we populate the graph with a 1:n-Layer
    # month --> n[day --> n[hour] ]
    # thus creating edges is providing a static :from-vertex to numerous :to-vertices
    # the to:vertices are first created and fenced in an array. Then all edges are created at once. 
    # In Rest-Mode this is much quicker.
    def populate_month year = Date.today.year, month = Date.today.month
      timestamp = DateTime.new year, month,1
      days = []
      if Monat.where( :value => month ).blank?
	der_monat= Monat.create value_string: timestamp.strftime("%B"), value: timestamp.month.to_i
	last_month_day =  (DateTime.new( year, month+1, 1)-1).day rescue 31  # rescue covers month > 12
	(0 .. last_month_day ).each do | tag |
	  der_tag = Tag.create value_string: "March #{timestamp.day}", value: tag 
	  edges =  [] 
	  ( 0 .. 23 ).each do | stunde |
	    edges << Stunde.create( value_string: "March #{timestamp.day} #{timestamp.hour}:00", value: stunde)
	    timestamp += Rational(1,24)  # + 1 hour
	  end
	  ## insert all edges of the day as batch (in rest-mode)
	    TIME_OF.create from: der_tag, to: edges
	  days << der_tag
	end
	  DAY_OF.create from: der_monat, to: days 
      else
	"Month #{timestamp.strftime("%B %Y ") } exists "
      end
    end
  end
end # class

  ## here we start if the file is called from the command-lind
if $0 == __FILE__
  require './config/boot'
  ActiveOrient::OrientSetup.init_database   # --> config/init_db
  CreateTime.populate_month

  
  print "\n" * 4
  puts '-' * 40
  puts "Features of the DateTime Graph"
  puts '-' * 40
  puts
  puts "Allocated Month   => Monat.first.value:\t\t" + Monat.first.value.to_s
  puts
  puts "Adressing Days    => Monat.first.tag[2].value:\t" + Monat.first.tag[2].value.to_s
  puts
  puts "Display Date      => Monat.first.tag[13].datum:\t"+ Monat.first.tag[13].datum.to_s

  puts "Display next Date => Monat.first.tag[13].next.datum:\t"+ Monat.first.tag[13].next.datum.to_s




end