formatter.indent.to.add_objects.generic.rb

=begin

Abbreviations,  AO = archival object (Everything's an AO, but there's also uri "archive_objects". It's confusing...)
                TC = top container
                IT = instance type
                AS = ArchivesSpace
                _H = Hash
                _A = Array
                _O = Object
               _0R = Zero Relative

Usage: format_for_add_object.rb --help


=end

require 'json'
require 'optparse'

require 'class.Array.extend.rb'
require 'class.String.extend.rb'
require 'module.SE.rb'

require 'class.ArchivesSpace.rb'
require 'class.formatter.Record_Grouping_Indent.rb'

def put_indent( level_number_A, level_title_A )
    output_record_H={}
    output_record_H[ K.fmtr_record ] = {}
    case level_number_A.length 
    when 0
        SE.puts "#{SE.lineno}: =============================="
        SE.puts "Wasn't expecting param1 level_number_A to be empty"
        raise
    when 1 .. @cmdln_option_H[ :max_series ]
        output_record_H[ K.fmtr_record ][ K.level ] = K.series
        stringer = "Series"
        if ( level_number_A.length <= @cmdln_option_H[ :max_levels ] ) then
            stringer += " #{level_number_A.join( "." )}" 
            output_record_H[ K.fmtr_record ][ K.component_id ] = level_number_A.join( "." )
        end
        stringer += ": #{level_title_A.join( ". " )}"  
        output_record_H[ K.fmtr_record ][ K.title ] = stringer
    
    when 2 .. @cmdln_option_H[ :max_series ] 
        output_record_H[ K.fmtr_record ][ K.level ] = K.subseries
        stringer = "Subseries"
        if ( level_number_A.length <= @cmdln_option_H[ :max_levels ] ) then
            stringer += " #{level_number_A.join( "." )}" 
            output_record_H[ K.fmtr_record ][ K.component_id ] = level_number_A.join( "." ) 
        end
        stringer += ": #{level_title_A.join( ". " )}"  
        output_record_H[ K.fmtr_record ][ K.title ] = stringer        
    else     
        output_record_H[ K.fmtr_record ][ K.level ] = K.recordgrp
        stringer = ""
#       if ( level_number_A.length <= @cmdln_option_H[ :max_levels ] )
#           stringer += "#{level_number_A.join( "." )}: " 
#           output_record_H[ K.fmtr_record ][ K.component_id ] = level_number_A.join( "." ) 
#       end
        stringer += "#{level_title_A.join( ". " )}"
        output_record_H[ K.fmtr_record ][ K.title ] = stringer
    end
    puts output_record_H.to_json
end

def put_record( stack_record_H )

    output_record_H={}
    output_record_H[ K.fmtr_record ] = {}
    output_record_H[ K.fmtr_record ][ K.level ] = stack_record_H[ K.level ]
    stringer = stack_record_H[ K.fmtr_record_indent_keys ].join( ". " ) +
               ". " +
               stack_record_H[ K.fmtr_record_values ][ K.fmtr_record_values__text_idx ]
    output_record_H[ K.fmtr_record ][ K.title ] = stringer.strip.gsub( /[\.\,]$/,'' )
    
    output_record_H[ K.fmtr_record ][ K.dates ] = [ ]
    date_A_A = stack_record_H[ K.fmtr_record_values ][ K.fmtr_record_values__dates_idx ]
    if ( date_A_A.maxindex >= 0 ) then
        date_A_A.each do | date_A |
            if ( date_A.maxindex == 0 ) then
                inclusive_dates_O = Record_Format.new( :inclusive_dates )
                inclusive_dates_O.record_H[ K.label ] = K.creation 
                inclusive_dates_O.record_H[ K.begin ] = date_A[ 0 ]
                inclusive_dates_O.record_H[ K.end ] = date_A[ 0 ]
                inclusive_dates_O.record_H[ K.expression] = date_A[ 0 ]
                output_record_H[ K.fmtr_record ][ K.dates ].push( inclusive_dates_O.record_H )
            end
            if ( date_A.maxindex == 1 ) then
                inclusive_dates_O = Record_Format.new( :inclusive_dates )
                inclusive_dates_O.record_H[ K.label ] = K.creation 
                inclusive_dates_O.record_H[ K.begin ] = date_A[ 0 ]
                inclusive_dates_O.record_H[ K.end ] = date_A[ 1 ]
                output_record_H[ K.fmtr_record ][ K.dates ].push( inclusive_dates_O.record_H )
            end
            if ( date_A.maxindex > 1 ) then
                SE.puts "#{SE.lineno}: Didn't expect date_A.maxindex to be > 1, the value is: #{date_A.maxindex}"
                SE.pp "date_A=", date_A
                raise
            end
        end
    end

    output_record_H[ K.fmtr_record ][ K.notes ] = [ ]
    note_A = stack_record_H[ K.fmtr_record_values ][ K.fmtr_record_values__notes_idx ]
    if ( note_A.maxindex >= 0 ) then
        note_A.each do | note |
            note_singlepart_O = Record_Format.new( :note_singlepart )
            note_singlepart_O.record_H = { K.type  => K.materialspec }
            note_singlepart_O.record_H = { K.content => [ "#{note}" ] }
            output_record_H[ K.fmtr_record ][ K.notes ].push( note_singlepart_O.record_H )
        end
    end
    puts output_record_H.to_json
end

def put_new_parent( title )
    output_record_H={}
    output_record_H[ K.fmtr_record ] = {}
    output_record_H[ K.fmtr_record ][ K.level ] = K.fmtr_new_parent
    output_record_H[ K.fmtr_record ][ K.title ] = title
    puts output_record_H.to_json
end

BEGIN {}
END {}

myself_name = File.basename( $0 )

#   Note that:  The "Class variables" can be used in "programs", which means that
#               the program itself is somewhat like a class.
@cmdln_option_H = { :combine_like_records => false,
                    :min_group_size => 4, 
                    :max_series => 0,
                    :max_levels => nil,
                    :parent_title => nil,
                    :r => nil,
                  }
OptionParser.new do |option|
    option.banner = "Usage: #{myself_name} [options] [file]"
    option.on( "--combine-like-records", "Combine records with the same text." ) do |opt_arg|
        @cmdln_option_H[ :combine_like_records ] = true
    end
    option.on( "--min-group-size n", OptionParser::DecimalInteger, "Min records in a Series/Subseries/Record-group (default = 10)" ) do |opt_arg|
        @cmdln_option_H[ :min_group_size ] = opt_arg
    end
    option.on( "--max-series n", OptionParser::DecimalInteger, "Max number of Series/Subseries (default = 0)" ) do |opt_arg|
        @cmdln_option_H[ :max_series ] = opt_arg
    end
    option.on( "--max-levels n", OptionParser::DecimalInteger, "Max number of N.N.N things to show (default --max-series)" ) do |opt_arg|
        @cmdln_option_H[ :max_levels ] = opt_arg
    end
    option.on( "--parent-title x", "The title of the record to attach the rest of the records too" ) do |opt_arg|
        @cmdln_option_H[ :parent_title ] = opt_arg
    end
    option.on( "-r n", OptionParser::DecimalInteger, "Stop after N input records" ) do |opt_arg|
        @cmdln_option_H[ :r ] = opt_arg
    end
    option.on( "-h", "--help" ) do
        warn option
        exit
    end
end.parse!  # Bang because ARGV is altered
@cmdln_option_H[ :min_group_size ] -= 1                   # min-group-size is zero relative.
@cmdln_option_H[ :min_group_size ] = 0 if ( @cmdln_option_H[ :min_group_size ] < 0 )

if ( not @cmdln_option_H[ :max_levels] ) then
    @cmdln_option_H[ :max_levels ] = @cmdln_option_H[ :max_series]
end

if ( @cmdln_option_H[ :parent_title ] ) then
    put_new_parent( @cmdln_option_H[ :parent_title ] )
end
Record_Grouping_Indent.new_with_flush( method( :put_record ), method( :put_indent ), @cmdln_option_H[ :min_group_size ] ) do |rgi_O|
    rgi_O.combine_like_records = @cmdln_option_H[ :combine_like_records ]
    
    ARGF.each_line do | input_record_J |
        input_record_H = JSON.parse( input_record_J )
        if ( @cmdln_option_H[ :r ] and $. > @cmdln_option_H[ :r ] ) then 
            break
        end

        SE.ap "input_record_H:",  input_record_H if ( $DEBUG )
        rgi_O.add_record( input_record_H )   

    end

end