#!/usr/bin/perl -w
use Getopt::Long;


#
# Command-line options.
#
my $TODO = 1; # Defaults to 'true'.
GetOptions ( 'TODO!'  => \$TODO );

#
#  Obtain the author, class and namespace.
#
while( chomp($author = <>) ) { last if $author =~ /\S/ }
while( chomp($class  = <>) ) { last if $class  =~ /\S/ }

$class_definition = $class;
$class =~ s/\s*:.*//;
@class_fields = split( / /, $class);
$class = pop @class_fields;

@pwd = split("/", $ENV{PWD});
$namespace = pop @pwd;

$append='';

open(OUT,"| tee $class.cs");
select OUT;
$| = 1;   # this sets output to the last selected handle to be unbuffered
select STDOUT;

#
#  Print the header.
#

print OUT <<EOH
//
// $namespace.$class
//
// Author:
//   stubbed out by $author
//
// (C) 2002 Ximian, Inc
//

namespace $namespace
{
        public $class_definition
        {
EOH
;


#
#  Read all the subsequent lines into an array.
#  If a line ends in "\", It'll be interpreted as the text continuing
#  onto the next line.
$text = '';
while(<>) {
	chomp;
	if (/\\$/) {
		chop;
		$text .= $_;
	} else {
		$text .= $_;
		push @lines, $text;
		$text = '';
	}
}


#
#  Print the properties, classes, etc.
#
$exception = "throw new NotImplementedException ();";
foreach $line (@lines) {
	$line =~ s/\s+/ /g; 	     # catenate spaces to one space.

	unless ($line =~ /\S/) { # skip blank lines
		print OUT "\n";
		next;
	}
	if ($line =~ m[^\s*//]) {    # C# comments.
		print OUT "\t\t$line\n";
		next;
	}
	if ($line =~ m[^=]) {	     # =public, =protected, etc
		if ($line =~ m[^=(.+)]) { $append = "$1 " }
		else		 	{ $append = '' }
		next;
	}

	#
	# If we get this far than we have real code.
	#
	if ( $line =~ s/{(.*)}\s*// ) {	
		$contents = $1;
		print OUT "\t\t[MonoTODO]\n" if $TODO;
		print OUT "\t\t$append$line\n\t\t{\n";
		if ($contents =~ /g/i) { 
			print OUT "\t\t\tget { ", ($TODO? $exception:'')," }\n" 
		}
		if ($contents =~ /s/i) { 
			print OUT "\t\t\tset { ", ($TODO? $exception:'')," }\n" 
		}
		print OUT "\t\t}\n";
			
	} else {
		print OUT "\t\t[MonoTODO]\n" if $TODO;
		print OUT "\t\t$append$line\n".
			  "\t\t{\n".
			  "\t\t\t".($TODO?$exception:'')."\n".
			  "\t\t}\n";
	}
}

print OUT "\t}\n}\n";
close(OUT);