newsource.pl

   1 #!/usr/bin/env perl
   2
   3 sub openNamespace {
   4         print FILE  "namespace @_[1] {\n";
   5 }
   6
   7 sub closeNamespace {
   8         print FILE "} // namespace @_[1]\n";
   9 }
  10
  11 sub classDefinition {
  12         print FILE "class @_[1] {\n";
  13         print FILE "public:\n";
  14         print FILE "\t@_[1]();\n";
  15         print FILE "\t~@_[1]();\n";
  16         print FILE "};\n";
  17 }
  18
  19 sub printCopyright {
  20         # Copyright notice . . .
  21         print FILE <<EOF;
  22 /**
  23         Aesalon, a tool to visualize a program's behaviour at run-time.
  24         Copyright (C) 2010, Aesalon Development Team.
  25
  26         Aesalon is distributed under the terms of the GNU GPLv3. For more
  27         licensing information, see the file LICENSE included with the distribution.
  28
  29         \@file @_[0]
  30 */
  31
  32 EOF
  33 }
  34
  35 sub createHeader {
  36         if(@_[1] ne "") {
  37                 $filename = @_[0] . (lc @_[1]) . "/" . @_[2] . ".h\n";
  38         }
  39         else {
  40                 $filename = @_[0] . "/" . @_[2] . ".h\n";
  41         }
  42
  43         open(FILE, ">$filename") or die("Can't open $filename . . .");
  44
  45         printCopyright($filename);
  46
  47         # Inclusion guard . . .
  48         #$guard = "Aesalon" . @_[3] . "_" . @_[1] . "_" . @_[2] . "_H";
  49         if(@_[1] ne "") {
  50                 $guard = "Aesalon@_[3]_@_[1]_@_[2]_H";
  51         }
  52         else {
  53                 $guard = "Aesalon@_[3]_@_[2]_H";
  54         }
  55
  56         # Remove duplicate . . .
  57         #$guard =~ s/@_[1]@_[1]/@_[1]/e;
  58
  59         print FILE "#ifndef $guard\n";
  60         print FILE "#define $guard\n\n";
  61
  62         openNamespace(FILE, @_[3]);
  63         openNamespace(FILE, @_[1]) if @_[1] ne "";
  64
  65         print FILE "\n";
  66
  67         classDefinition(FILE, @_[2]);
  68
  69         print FILE "\n";
  70
  71         closeNamespace(FILE, @_[1]) if @_[1] ne "";
  72         closeNamespace(FILE, @_[3]);
  73
  74         print FILE "\n#endif\n";
  75
  76         close(FILE);
  77 }
  78
  79 sub createSource {
  80         $filename = @_[0] . (lc @_[1]) . "/" . @_[2] . ".cpp\n";
  81
  82         open(FILE, ">$filename") or die("Can't open $filename . . .");
  83
  84         printCopyright($filename);
  85
  86         if(@_[1] ne "") {
  87                 print FILE "#include \"" . (lc @_[1]) . "/@_[2].h\"\n\n";
  88         }
  89         else {
  90                 print FILE "#include \"@_[2].h\"\n\n";
  91         }
  92
  93         openNamespace(FILE, @_[3]);
  94         openNamespace(FILE, @_[1]) if @_[1] ne "";
  95
  96         print FILE "\n\n\n";
  97
  98         closeNamespace(FILE, @_[1]) if @_[1] ne "";
  99         closeNamespace(FILE, @_[3]);
 100
 101         close(FILE);
 102 }
 103
 104 sub extractNamespace {
 105         if(!(@_[0] =~ m/(.+)\:\:(.+)/)) { return "", @_[0]; }
 106
 107 #       print "1: $1, 2: $2\n";
 108
 109         if($2 eq "") { return "", $1; }
 110         return $1, $2
 111 }
 112
 113 $argumentCount = $#ARGV + 1;
 114
 115 if($argumentCount < 1) {
 116         die("Not enough arguments given");
 117 }
 118
 119 $mode = "";
 120
 121 # Parse mode . . .
 122 if($argumentCount == 1) {
 123         $mode = "common";
 124 }
 125 else {
 126         if(lc $ARGV[0] eq "monitor") { $mode = "monitor"; }
 127         elsif(lc $ARGV[0] eq "visualizer") { $mode = "visualizer"; }
 128         elsif(lc $ARGV[0] eq "common") { $mode = "common"; }
 129         else {
 130                 die "Unknown mode";
 131         }
 132 }
 133
 134 if($mode eq "monitor") {
 135         createHeader("include/monitor/", extractNamespace($ARGV[1]), "Monitor");
 136         createSource("monitor/src/", extractNamespace($ARGV[1]), "Monitor");
 137 }
 138 elsif($mode eq "visualizer") {
 139
 140 }
 141 elsif($mode eq "common") {
 142         createHeader("include/common", extractNamespace($ARGV[1]), "Common");
 143 }