#!/usr/bin/perl

# Parses Java source code from STDIN and generates script for BASH completion

# Input (in this order):

#	info/globalcode/sql/dk/Constants.java

#	info/globalcode/sql/dk/formatting/*

#	info/globalcode/sql/dk/CLIParser.java

use strict;

use warnings;

my $configDir = "~";

while (<>) {

	if (/"(.*?)".*? \/\/\s*bash-completion:dir/) {

		$configDir .= "/$1";

		last;

	}

}

print 'have sql-dk &&

_sql_dk()

{

	local cur prev

	COMPREPLY=()

	cur=${COMP_WORDS[COMP_CWORD]}

	prev=${COMP_WORDS[COMP_CWORD-1]}

	case "$prev" in

	--db)

		;;

	--formatter)

';

while (<>) {

	if (/"(.*?)".*? \/\/\s*bash-completion:formatter/) {

	}

	last if (/\/\/\s*bash-completion:options/);

}

		return 0

		;;

	esac;

	COMPREPLY=( $( compgen -W "

';

while (<>) {

	if (/"(.*?)".*? \/\/\s*bash-completion:option/) {

		print "			$1\n";

	}

}

print '		" -- $cur ) )

	return 0

}

complete -F _sql_dk sql-dk

';