#!@PERL@

#
# Jakelib2 - General purpose C++ library
# Copyright (C) 2001 Florian Wolff  (florian@donuz.de)
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Lesser General Public
# License as published by the Free Software Foundation; either
# version 2.1 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
# Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public
# License along with this library; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
#
# $Id: jakelib2-newclass.in,v 1.14 2003/02/09 12:39:09 florian Exp $
#


use Getopt::Long;
use Symbol;

my $SRC_DIR="src";
my $INCLUDE_DIR="src";
my $fullClassName;
my $PROJECTNAME="";
my $PROJECTABSTRACT="";
my $AUTHOR="";
my $EMAIL="email\@domain.org";
my $INCLUDEMACROPREFIX="INCLUDED_";
my $YEAR="2003";
my $LICENCE="gpl";
my $SKIPFIRST;

sub usage {
    print <<EOF
Usage: jakelib2-newclass <fully-qualified-classname>
          [--src=] [--inc=]
          [--proj=] [--abstract=] [--year=]
          [--author=] [--email=]
          [--license=gpl|lgpl]
          [--skipfirst]
EOF
  ;
    
    exit 1;
}


# Get command line options:
&GetOptions('src=s' => \$SRC_DIR,
            'include|inc=s' => \$INCLUDE_DIR,
            'proj=s' => \$PROJECTNAME,
            'abstract=s' => \$PROJECTABSTRACT,
            'year=s' => \$YEAR,
            'author=s' => \$AUTHOR,
            'email=s' => \$EMAIL,
            'license=s' => \$LICENSE,
            'skipfirst' => \$SKIPFIRST
           );

$fullClassName = $ARGV[0];

if (!defined $fullClassName) {
  usage();
}


# Check class name:
my @package = split("\\.|::|/", $fullClassName);
my $className;

foreach(@package) {
  if ($_ eq "") {
    print "Invalid classname: '$fullClassName'\n";
    exit 2;
  }
}


# Display info:

print <<EOF

Class name:  $fullClassName
  - Project: $PROJECTNAME - $PROJECTABSTRACT
  - Author:  $AUTHOR ($EMAIL)
  - License: $LICENSE
EOF
;


# Create directories:
$className = pop(@package);

my $includeDir = $INCLUDE_DIR;
my $srcDir = $SRC_DIR;
my $first = 0;

foreach(@package) {
  if ($first != 0 || !defined $SKIPFIRST) {
    $includeDir .= "/$_";
    $srcDir .= "/$_";
  }
  $first=1;
}


`mkdir -p $includeDir`;
`mkdir -p $srcDir`;


# Create .H file:
my $headerFile = "$includeDir/$className.h";
my $header;

print " . creating $headerFile\n";

my $includeMacro = $INCLUDEMACROPREFIX;
foreach(@package) {
  $includeMacro .= uc($_) . "_";
}
$includeMacro .= uc($className) . "_H";


$header = <<EOF
/*
 * $PROJECTNAME - $PROJECTABSTRACT
 * Copyright (C) $YEAR by $AUTHOR  ($EMAIL)
 *
EOF
;

if ($LICENSE eq "lgpl") {
  $header .= <<EOF
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
EOF
;
}
else {
  $header .= <<EOF
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2
 * of the License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
EOF
;
}

$header .= <<EOF
 *
 * \$Id\$
 */
EOF
  ;

$text = <<EOF
$header

#ifndef $includeMacro
# define $includeMacro
#include ".h"

EOF
  ;

foreach(@package) {
  $text .= "namespace $_ {\n";
}

$text .= <<EOF

    /**
     * \@brief 
     *
     * \@class $className
     * \@version \$Id\$
     * \@author $AUTHOR ($EMAIL)
     */
     class $className : public jakelib::lang::Object
      {
      public:

	/**
	 * \@brief 
	 */
        $className();

      protected:

	JAKELIB_DECLARE_CLASS($className);
      };

      JAKELIB_DECLARE_ARRAY($className);
EOF
  ;

foreach(@package) {
  $text .= "}\n";
}

$text .= <<EOF

#endif

EOF
  ;

#print $text;
my $output = &gensym;
open ($output, ">".$headerFile) || die;

print $output $text;

close ($output);



# Create .JLC file:
my $sourceFile = "$srcDir/$className.jlc";
my $text;

print " . creating $sourceFile\n";

my $jakelibPackage = "";
foreach(@package) {
  $jakelibPackage .= "$_.";
}
$jakelibPackage = substr($jakelibPackage, 0, length($jakelibPackage) -1) . "." . $className;

my $cppPackage = "";
foreach(@package) {
  $cppPackage .= $_ . "::";
}
$cppPackage = substr($cppPackage, 0, length($cppPackage) -2);

my $comment = " * $className"
  . substr("                                                                        ", 0, 75-length($className))
  . "|";

$text = <<EOF
// -*- c++ -*-

$header

#include <jakelib2.h>
#include <jakelib2/lang/all.h>
#include "$headerFile"

using namespace jakelib::lang;
using namespace $cppPackage;

JAKELIB_IMPLEMENT_CLASS("$jakelibPackage", $className,
                        Object);
JAKELIB_IMPLEMENT_ARRAY($className);


/*****************************************************************************\\
$comment
 *****************************************************************************/
${className}::$className()
{

}


EOF
  ;


my $output = &gensym;
open ($output, ">".$sourceFile) || die;

print $output $text;

close ($output);