#!/usr/bin/env ruby
Version = '0.00'
if ARGV[0] == '-V'; puts Version; exit end

<<'DOC'
= cvged - convert gedcom file making linked notes inline

= Synopsis
	cvged old.ged > new.ged

= Description
cvged replaces linked notes in a GEDCOM file with inline notes.
At the same time it inserts proper indentation. By default the
indentation is two spaces per level. This can be chaged by setting
INDENT to another value.

= Author
[Wybo Dekker](wybo@dekkerdocumenten.nl)

= Copyright
Released under the [GNU General Public License](www.gnu.org/copyleft/gpl.html)
DOC

INDENT = ' '

# print a line indented properly
def pr(s)
  s.chomp!
  if s[/\s*(\d)\s*(.*)/]
    puts INDENT*$1.to_i + $1 + ' ' + $2
  else 
    # lines not starting with a \s*\d are simply copied:
    puts s
  end
end

notes = {}
notekey = nil

ARGV.size == 1 or raise "Need 1 input file"
ged = open(ARGV[0]) or raise "Couldn't open: #{$!}"

# scan the file for non-internal notes and save those in a hash:
while line = ged.gets do
  case line
  when /^\s*0\s+@N(.*)@/
    notekey = $1
    STDERR.print notekey + ' '
    notes[notekey] = []
  when /^\s*\d\s+(CON.*)/
    notes[notekey].push($1) if notekey
  else
    notekey = nil
  end
end
STDERR.puts ''

# scan the file again, replacing linked notes woth inline notes:
ged.rewind
while line = ged.gets do
  case line
  when /^\s*0\s+@N/
    # linked notes are supposed to have been defined at the end!!:
    pr('0 TRLR')
    exit 0
  when /^\s*(\d)\s+NOTE\s+@N(.*)@/
    depth,notekey = $1,$2
    notes[notekey] or raise "Unknown note #{notekey} at line #{$.}" 
    pr("#{depth} NOTE")
    notes[notekey].each do |n| pr("#{depth.to_i+1} #{n}") end
  else
    pr(line)
  end
end