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

Comparing kgsueme/doc/doc2messages.xsl (file contents):
Revision 1.3 by pcg, Thu Jun 5 10:40:17 2003 UTC vs.
Revision 1.7 by pcg, Fri Jun 13 22:11:50 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_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"/>
       } 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_score];
+         push @r, [score => $type - 17, dec_score16];
       } elsif ($type == 19) {
-         push @r, [result => dec_result];
+         push @r, [result => dec_result]; # not certain
       } elsif ($type == 30) {
          push @r, [active_player => dec_U8];
       } elsif ($type == 0) { # label(?)

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