scripts/weaponDocs.pl

   1 #!/usr/local/bin/perl
   2
   3 use strict;
   4
   5 opendir(DIR, ".") || die "ERROR: Cannot open dir";
   6 my @files = grep { /cpp$/ } readdir(DIR);
   7 closedir(DIR);
   8
   9 foreach my $file (@files)
  10 {
  11         my %result = parseFile($file);
  12         if (defined $result{"Class"})
  13         {
  14                 #print "----------\n";
  15                 print "<accessoryaction type=\"".$result{"Class"}."\">\n";
  16
  17                 #if ($result{"Extends"} ne "AccessoryPart")
  18                 if (($result{"Extends"} ne "") & ($result{"Extends"} ne "AccessoryPart"))
  19                 {
  20                         print "Extends - ".$result{"Extends"}."\n";
  21                 }
  22
  23                 if (defined $result{"Attribute"})
  24                 {
  25                         my @attrs = @{$result{"Attribute"}};
  26                         foreach my $attr (@attrs)
  27                         {
  28                                 my %attrh = %{$attr};
  29                                 print "=========" if ($attrh{"Type"} eq "");
  30                                 #print "Attribute : ".$attrh{"Type"}." ".$attrh{"Name"}." ".$attrh{"Rest"}."\n";
  31                                 print "\t<".$attrh{"Name"}.">".$attrh{"Type"}."</".$attrh{"Name"}.">\n";
  32                         }
  33                 }
  34                 print "</accessory>\n\n"
  35         }
  36 }
  37
  38 sub parseFile
  39 {
  40         my ($file) = @_;
  41
  42         open (FILE, "$file") || die "ERROR: Cannot open file $file";
  43         my @fileconts = <FILE>;
  44         close (FILE);
  45
  46         my @fns = grep { /\s+(\w+)::(parse|read)XML/ } @fileconts;
  47         return if ($#fns == -1);
  48
  49         my %result = ();
  50
  51         $fns[0] =~ /\s+(\w+)::(parse|read)XML/ or die "ERROR1";
  52         my $class = $1;
  53         $result{"Class"} = $class;
  54
  55         my $fileh = $file;
  56         $fileh =~ s/cpp$/h/;
  57
  58         my $extends = getExtends($fileh);
  59         $result{"Extends"} = $extends;
  60         if ($extends ne "")
  61         {
  62                 if ($extends eq "PlacementModelDefinition")
  63                 {
  64                         $extends = "../placement/PlacementModelDefinition";
  65                 }
  66                 my %newResult = parseFile($extends.".cpp");
  67                 $result{"Attribute"} = $newResult{"Attribute"};
  68
  69                 if ($newResult{"Extends"} ne "")
  70                 {
  71                         $result{"Extends"} = $newResult{"Extends"};
  72                 }
  73         }
  74
  75         my @nodes = grep { /getNamedChild/ } @fileconts;
  76         foreach my $node (@nodes)
  77         {
  78                 if ($node =~ /getNamedChild\(\"(\w+)\"\s*,\s*([\w_]+)(\s*,\s*false|)/)
  79                 {
  80                         my ($nodename, $var, $rest) = ($1, $2, $3);
  81
  82                         my $type = getType($fileh, $nodename);
  83                         $type = getType($fileh, $var) if ($type eq "");
  84                         $type = getType($file, $var) if ($type eq "");
  85
  86                         $rest = "(optional)" if ($rest ne "");
  87
  88                         my %attr = ();
  89                         $attr{"Name"} = $nodename;
  90                         $attr{"Type"} = $type;
  91                         $attr{"Rest"} = $rest;
  92
  93                         push @{$result{"Attribute"}}, { %attr };
  94                 }
  95         }
  96         @nodes = grep { /\.readXML\(/ } @fileconts;
  97         foreach my $node (@nodes)
  98         {
  99                 if ($node =~ /(\w+)\.readXML\(/)
 100                 {
 101                         my $var = ($1);
 102                         my $type = getType($fileh, $var);
 103
 104                         if ($type eq "TargetDefinition")
 105                         {
 106                                 my %newResult = parseFile("../target/TargetDefinition.cpp");
 107                                 push @{$result{"Attribute"}}, @{$newResult{"Attribute"}};
 108                         }
 109                 }
 110         }
 111
 112         return %result;
 113 }
 114
 115 sub getExtends
 116 {
 117         my ($file) = @_;
 118
 119         open (FILE, "$file") || die "ERROR: Cannot open file $file";
 120         my @fileconts = <FILE>;
 121         close (FILE);
 122
 123         my @extends = grep { /public \w+/i } @fileconts;
 124         foreach (@extends)
 125         {
 126                 if (/public (\w+)/)
 127                 {
 128                         my $extend = $1;
 129                         $extend =~ s/Callback//;
 130
 131                         return $extend;
 132                 }
 133         }
 134         return "";
 135 }
 136
 137 sub getType
 138 {
 139         my ($file, $var) = @_;
 140
 141         return "float" if (length($var) == 1);
 142
 143         open (FILE, "$file") || die "ERROR: Cannot open file $file";
 144         my @fileconts = <FILE>;
 145         close (FILE);
 146
 147         my @types = grep { /$var[_,\s;]+/i } @fileconts;
 148         foreach (@types)
 149         {
 150                 if (/^\s*([_\*\w:]+)/i)
 151                 {
 152                         return $1 if ($1 eq "float");
 153                         return $1 if ($1 eq "bool");
 154                         return $1 if ($1 eq "Explosion::DeformType");
 155                         return $1 if ($1 eq "std::string");
 156                         return $1 if ($1 eq "Vector");
 157                         return $1 if ($1 eq "int");
 158                         return $1 if ($1 eq "Weapon");
 159                         return $1 if ($1 eq "TargetDefinition");
 160                         return $1 if ($1 eq "AccessoryPart");
 161                         return $1 if ($1 eq "XMLNode");
 162                 }
 163         }
 164         return "ModelID" if ($var =~/model/);
 165
 166         return "";
 167 }