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

Comparing kgsueme/doc/doc2messages.xsl (file contents):
Revision 1.4 by pcg, Fri Jun 6 05:50:32 2003 UTC vs.
Revision 1.10 by pcg, Sun Jul 20 01:29:20 2003 UTC

 # See doc/protocol.xml and doc/doc2messages.xsl
 package KGS::Messages;
+use KGS::Constants; # REPLACE by parsed file, too
 use strict;
 our %type;
 our %send;
 our %recv;
 sub enc_U64 {
    enc_U32 $_[0] & 0xffffffff;
    enc_U32 +($_[0] >> 32) & 0xffffffff;
 }
+sub enc_I8 {
+   $data .= pack "c", $_[0];
+}
+sub enc_I16 {
+   enc_U16 unpack "S", pack "s", $_[0];
+}
 sub enc_I32 {
    enc_U32 unpack "I", pack "i", $_[0];
 }
 sub enc_DATA {
 sub enc_STRING {
    # should use encode for speed and clarity ;)
    $data .= pack "v*", map ord, split //, $_[0];
 }
+sub enc_password {
+   require Math::BigInt; # I insist on 32-bit-perl.. should use C
+   # $hash must be 64 bit
+   my $hash = new Math::BigInt;
+   $hash = $hash * 1055 + ord for split //, $_[0];
+   enc_U64 $hash;
+}
 ]]>
 #############################################################################
 # types
 <xsl:apply-templates select="descendant::type"/>
 # 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];
+         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(?)
 <xsl:template match="member" mode="enc">
    <!-- #d#, remove when kgs is repaired --><xsl:if test="@type = 'username'">
       $_[0]{<xsl:value-of select="@name"/>} =~ /^[A-Za-z][A-Za-z0-9]{0,11}$/
          or Carp::confess "FATAL: tried to send illegal username '$_[0]{<xsl:value-of select="@name"/>}'";
-   </xsl:if><!--#d#-->
-   <!-- #d#, remove when kgs is repaired --><xsl:if test="@name = 'channel'">
-      $_[0]{<xsl:value-of select="@name"/>} > 0
-         or Carp::confess "FATAL: tried to send a zero channel id";
    </xsl:if><!--#d#-->
    enc_<xsl:value-of select="@type"/> defined $_[0]{<xsl:value-of select="@name"/>} ? $_[0]{<xsl:value-of select="@name"/>
    <xsl:text>} : (</xsl:text>
    <xsl:value-of select="@default"/>
    <xsl:text>);</xsl:text>

Diff Legend

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

Comparing kgsueme/doc/doc2messages.xsl (file contents): Revision 1.4 by pcg, Fri Jun 6 05:50:32 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.4 by pcg, Fri Jun 6 05:50:32 2003 UTC vs.
Revision 1.10 by pcg, Sun Jul 20 01:29:20 2003 UTC