gui/newclass.pl

   1 #!/usr/bin/perl
   2 # Perl script by DWK to create a new .cpp/.h combination template
   3
   4 if(scalar(@ARGV) < 1) {
   5     die "Usage: $0 <C++-name-of-class>\n" .
   6         "\te.g. $0 Engine::TerrainCoordinate\n";
   7 }
   8
   9 process_class($ARGV[0]);
  10
  11 sub process_class {
  12     my $class = shift;
  13     my $prefix = "src/";
  14
  15     while($class =~ /([^:]+)::/g) {
  16         $prefix .= lc($1) . '/';
  17     }
  18
  19     $class =~ /([^:]+)$/;
  20     $prefix .= $1;
  21
  22     print "Class prefix: \"$prefix\"\n";
  23     create_cpp_file($class, $prefix . ".cpp");
  24     create_h_file($class, $prefix . ".h");
  25 }
  26
  27 sub create_cpp_file {
  28     my $class = shift;
  29     my $file = shift;
  30     open(FILE, ">$file") or die;
  31
  32     $class =~ /([^:]+)$/;
  33     print FILE "#include \"$1.h\"\n";
  34     print FILE "\n";
  35     print FILE open_namespaces(generate_namespaces($class));
  36     print FILE "\n";
  37     print FILE close_namespaces(generate_namespaces($class));
  38
  39     close FILE;
  40 }
  41
  42 sub create_h_file {
  43     my $class = shift;
  44     my $file = shift;
  45     open(FILE, ">$file") or die;
  46
  47     my $guard = $class;
  48     $guard =~ s/([A-Z]+)/substr($1, 0, 1) . lc(substr($1, 1))/eg;
  49     $guard =~ s/:://g;
  50     $guard =~ s/([A-Z])/'_' . lc($1)/eg;
  51     $guard = uc($guard);
  52     print FILE "#ifndef AESALON$guard" . "_H\n";
  53     print FILE "#define AESALON$guard" . "_H\n";
  54     print FILE "\n";
  55     print FILE open_namespaces(generate_namespaces($class));
  56     print FILE "\n";
  57     $class =~ /([^:]+)$/;
  58     print FILE "class $1 {\n";
  59     print FILE "public:\n";
  60     print FILE "};\n";
  61     print FILE "\n";
  62     print FILE close_namespaces(generate_namespaces($class));
  63     print FILE "\n";
  64     print FILE "#endif\n";
  65
  66     close FILE;
  67 }
  68
  69 sub generate_namespaces {
  70     my $class = shift;
  71     my @spaces = ('Aesalon');
  72
  73     while($class =~ /([^:]+)::/g) {
  74         push(@spaces, $1);
  75     }
  76
  77     return @spaces;
  78 }
  79
  80 sub open_namespaces {
  81     my $return = '';
  82     for my $namespace (@_) {
  83         $return .= "namespace $namespace {\n";
  84     }
  85
  86     return $return;
  87 }
  88
  89 sub close_namespaces {
  90     my $return = '';
  91     for my $namespace (reverse @_) {
  92         $return .= "} // namespace $namespace\n";
  93     }
  94
  95     return $return;
  96 }