#! /usr/bin/ruby
#
#   $Id: helpparse.rb,v 1.3 2002/08/23 16:55:24 wrk Exp $
#   $Source: /home/cvs/opensource/rock/person/pjotr/guide.DEV/helpparse.rb,v $

usage = <<USAGE

  helpparse by Pjotr Prins (c) 2002

  Usage: helpparse filename search [-noindex]

USAGE

if ARGV.size < 2
  print usage
  exit 1
end

helpfn=ARGV.shift
search=ARGV.shift
noindex=ARGV.shift

stream = File.new(helpfn)

hasindex=false
if noindex != nil
  hasindex=true
end

def matched line
  return (line =~ /^\d+(\.\d+)+\. / || line =~ /^\s\d\./), $'  #'
end

while line = stream.gets
  found,title = matched(line) 
  if found
    if title =~ /#{search}/
      if hasindex
        if stream.gets   # skip one line
          while line = stream.gets
            found,title = matched(line)
	    if found
              break
            end
            print line
          end
          break
        else
          raise "Problem with file"
        end
      else
        hasindex = true
      end
    end
  end
end