[ViewVC] Diff of: cvs/kgsueme/doc/doc2messages.xsl

Comparing kgsueme/doc/doc2messages.xsl (file contents):
Revision 1.9 by pcg, Sat Jul 19 14:19:39 2003 UTC vs.
Revision 1.10 by pcg, Sun Jul 20 01:29:20 2003 UTC

 # this was the most horrible thing to decode. still not everything is decoded correctly(?)
 sub dec_TREE {
    my @r;
    while (length $data) {
       my $type = dec_U8;
+      my $add = $type < 128;
+      $type &= 127;
-      if ($type == 255) {
+      if ($type == 127) {
+         dec_U8; # unused?? *sigh*
-         push @r, [add_child => dec_I32];
+         push @r, [add_node => dec_I32];
+      } elsif ($type == 126) {
+         push @r, [set_node => dec_I32];
+      } elsif ($type == 125) {
+         push @r, [set_current => dec_I32];
+      } elsif ($type == 34) {
+         push @r, [score => dec_U8, dec_score1000];
-      } elsif ($type == 254) {
+      } elsif ($type == 25) {
-         push @r, ["done"];
+         push @r, [result => dec_result];
-      } elsif ($type == 253) {
+      } elsif ($type == 23) {
-         push @r, ["type253"];
+         push @r, [mark => $add, MARK_GRAYED, dec_U8, dec_U8];
-         # ????
-      } elsif ($type == 252) { # even less clear
+      } elsif ($type == 22) {
+         push @r, [mark => $add, (&dec_U8 ? MARK_SMALL_W : MARK_SMALL_B), dec_U8, dec_U8];
+      } elsif ($type == 21) {
+         push @r, [mark => $add, MARK_CIRCLE, dec_U8, dec_U8];
+      } elsif ($type == 17) {
+         push @r, [set_timer => (dec_U8, dec_U32, dec_time)[0,2,1]];
+      } elsif ($type == 16) {
+         push @r, [set_stone => $add, dec_U8, dec_U8, dec_U8];
+      } elsif ($type == 14) {
+         push @r, [move => $add, dec_U8, dec_U8, dec_U8];
+      } elsif (($type >= 4 && $type <= 9)
+               || ($type >= 11 && $type <= 13)
+               || $type == 24) {
-         push @r, ["more"];
+         push @r, [({
+               4 => "date",
+               5 => "unknown_comment5",
+               6 => "unknown_comment6",
+               7 => "unknown_comment7",
+               8 => "unknown_comment8",
+               9 => "copyright", #?
+              11 => "unknown_comment11",
+              12 => "unknown_comment12",
+              13 => "unknown_comment13",
+              24 => "comment",
+               })->{$type} => dec_STRING];
+      } elsif ($type == 3) {
+         push @r, [rank => dec_U8, dec_U32];
+      } elsif ($type == 2) {
+         push @r, [player => dec_U8, dec_STRING];
-      } elsif ($type == 10) {
+      } elsif ($type == 0) {
          # as usual, wms finds yet another way to duplicate code... oh well, what a mess.
-         # (no wonder he is so keen on keeping it secret...)
+         # (no wonder he is so keen on keeping it a secret...)
          push @r, [rules => dec_rules];
-      } elsif ($type == 9 || $type == 22 || $type == 25 || $type == 31 || $type == 32) {
+      # OLD
-         push @r, [({
-               9  => "comment",
-               22 => "unknown_comment22",
-               25 => "copyright", #?
-               31 => "date",
-               32 => "unknown_comment32",
-               })->{$type} => dec_STRING];
-      } elsif ($type == 11 || $type == 12) {
-         push @r, [player => $type - 11, dec_STRING];
-      } elsif ($type == 13 || $type == 14) {
-         push @r, [rank => $type - 13, dec_U32];
-      } elsif ($type == 15 || $type == 16) {
-         push @r, [set_timer => $type - 15, dec_time, dec_U16];
-      } elsif ($type == 17 || $type == 18) {
-         push @r, [score => $type - 17, dec_score16];
-      } elsif ($type == 19) {
+      } elsif (1) {
-         push @r, [result => dec_result]; # not certain
+         print STDERR KGS::Listener::Debug::dumpval(\@r);
+         open XTYPE, "|xtype"; print XTYPE $data; close XTYPE;
+         die "unknown type $type";
       } elsif ($type == 30) {
          push @r, [active_player => dec_U8];
       } elsif ($type == 0) { # label(?)

Diff Legend

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

Comparing kgsueme/doc/doc2messages.xsl (file contents): Revision 1.9 by pcg, Sat Jul 19 14:19:39 2003 UTC vs. Revision 1.10 by pcg, Sun Jul 20 01:29:20 2003 UTC

Diff Legend

Comparing kgsueme/doc/doc2messages.xsl (file contents):
Revision 1.9 by pcg, Sat Jul 19 14:19:39 2003 UTC vs.
Revision 1.10 by pcg, Sun Jul 20 01:29:20 2003 UTC