[ViewVC] Diff of: cvs/deliantra/server/server/genacc

Comparing deliantra/server/server/genacc (file contents):
Revision 1.5 by root, Sat Dec 30 10:16:11 2006 UTC vs.
Revision 1.8 by root, Sat Jul 28 00:15:03 2007 UTC

 #! perl
-# actually geninterface
+# used to automatically create accessors/mutators and method interfaces
+# to C++ classes for Perl.
 my $class = shift;
 my $curclass = "";
 my (@scalar_member, @array_member);
+# convert c member name to perl
+sub c2perl($) {
+   local $_ = shift;
+   s/^([^.]+)\.\1_/$1\_/g; # tcpi.tcpi_xxx => tcpi_xxx
+   $_
+}
 for my $file (@ARGV) {
    open my $fh, "<:utf8", $file
       or die "$file: $!";
    while (<$fh>) {
+      next if /^\s*\//; # skip lines starting with /
       if ($curclass eq $class) {
          while (/ACC\s*\(R([WO])\s*,\s*([^)\]]+)(?:\[(\S+)\])?\)/g) {
             if ($3) {
                push @array_member, [$1, $2, $3];
             } else {
    print "\tPROTOTYPE: \$;\$\n";
    if (@scalar_member > 1) {
       print "\tALIAS:\n";
       for (1 .. $#scalar_member) {
-         print "\t\t$scalar_member[$_][1]\t= $_\n";
+         print "\t\t" . (c2perl $scalar_member[$_][1]) . "\t= $_\n";
       }
    }
    print "\tCODE:\n";
    print "\tPROTOTYPE: \$;\$\n";
    if (@array_member > 1) {
       print "\tALIAS:\n";
       for (1 .. $#array_member) {
-         print "\t\t$array_member[$_][1]\t= $_\n";
+         print "\t\t" . (c2perl $array_member[$_][1]) . "\t= $_\n";
       }
    }
    print "\tCODE:\n";

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines