ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/kgsueme/doc/doc2messages.xsl
(Generate patch)

Comparing kgsueme/doc/doc2messages.xsl (file contents):
Revision 1.7 by pcg, Fri Jun 13 22:11:50 2003 UTC vs.
Revision 1.11 by pcg, Sun Jul 20 15:01:24 2003 UTC

… …
17use KGS::Constants; # REPLACE by parsed file, too 17use KGS::Constants; # REPLACE by parsed file, too
18 18
19use strict; 19use strict;
20 20
21our %type; 21our %type;
22our %send; 22
23our %recv; 23our %dec_send; # decode messages send to server
24our %enc_send; # encode messages send to server
25our %dec_recv; # decode messages received from server
26our %enc_recv; # encode messages received from server
24 27
25{ 28{
26 29
27my $data; # stores currently processed decoding/encoding packet 30my $data; # stores currently processed decoding/encoding packet
28 31
… …
74 77
75sub dec_CONSTANT { 78sub dec_CONSTANT {
76 $_[0]; 79 $_[0];
77} 80}
78 81
82sub dec_password {
83 dec_U64;
84}
85
79sub dec_HEX { # for debugging 86sub dec_HEX { # for debugging
80 "HEX: " . unpack "H*", $data;#d# 87 "HEX: " . unpack "H*", $data;#d#
81}
82
83sub enc_HEX {
84 die "enc_HEX not defined for good";
85} 88}
86 89
87############################################################################# 90#############################################################################
88 91
89sub enc_U8 { 92sub enc_U8 {
… …
101sub enc_U64 { 104sub enc_U64 {
102 enc_U32 $_[0] & 0xffffffff; 105 enc_U32 $_[0] & 0xffffffff;
103 enc_U32 +($_[0] >> 32) & 0xffffffff; 106 enc_U32 +($_[0] >> 32) & 0xffffffff;
104} 107}
105 108
109sub enc_I8 {
110 $data .= pack "c", $_[0];
111}
112
106sub enc_I16 { 113sub enc_I16 {
107 enc_U16 unpack "S", pack "s", $_[0]; 114 enc_U16 unpack "S", pack "s", $_[0];
108} 115}
109 116
110sub enc_I32 { 117sub enc_I32 {
… …
117} 124}
118 125
119sub enc_STRING { 126sub enc_STRING {
120 # should use encode for speed and clarity ;) 127 # should use encode for speed and clarity ;)
121 $data .= pack "v*", map ord, split //, $_[0]; 128 $data .= pack "v*", map ord, split //, $_[0];
129}
130
131sub enc_CONSTANT {
132 # nop
122} 133}
123 134
124sub enc_password { 135sub enc_password {
125 require Math::BigInt; # I insist on 32-bit-perl.. should use C 136 require Math::BigInt; # I insist on 32-bit-perl.. should use C
126 # $hash must be 64 bit 137 # $hash must be 64 bit
127 my $hash = new Math::BigInt; 138 my $hash = new Math::BigInt;
128 $hash = $hash * 1055 + ord for split //, $_[0]; 139 $hash = $hash * 1055 + ord for split //, $_[0];
129 enc_U64 $hash; 140 enc_U64 $hash;
141}
142
143sub enc_HEX {
144 die "enc_HEX not defined for good";
130} 145}
131 146
132]]> 147]]>
133 148
134############################################################################# 149#############################################################################
… …
158# this was the most horrible thing to decode. still not everything is decoded correctly(?) 173# this was the most horrible thing to decode. still not everything is decoded correctly(?)
159sub dec_TREE { 174sub dec_TREE {
160 my @r; 175 my @r;
161 while (length $data) { 176 while (length $data) {
162 my $type = dec_U8; 177 my $type = dec_U8;
178 my $add = $type < 128;
163 179
180 $type &= 127;
181
164 if ($type == 255) { 182 if ($type == 127) {
183 dec_U8; # unused?? *sigh*
165 push @r, [add_child => dec_I32]; 184 push @r, [add_node => dec_I32];
166 185
186 } elsif ($type == 126) {
187 push @r, [set_node => dec_I32];
188
189 } elsif ($type == 125) {
190 push @r, [set_current => dec_I32];
191
192 } elsif ($type == 34) {
193 push @r, [score => dec_U8, dec_score1000];
194
167 } elsif ($type == 254) { 195 } elsif ($type == 25) {
168 push @r, ["done"]; 196 push @r, [result => dec_result];
169 197
170 } elsif ($type == 253) { 198 } elsif ($type == 23) {
171 push @r, ["type253"]; 199 push @r, [mark => $add, MARK_GRAYED, dec_U8, dec_U8];
172 # ????
173 200
174 } elsif ($type == 252) { # even less clear 201 } elsif ($type == 22) {
202 push @r, [mark => $add, (&dec_U8 ? MARK_SMALL_W : MARK_SMALL_B), dec_U8, dec_U8];
203
204 } elsif ($type == 21) {
205 push @r, [mark => $add, MARK_CIRCLE, dec_U8, dec_U8];
206
207 } elsif ($type == 20) {
208 push @r, [mark => $add, MARK_SQUARE, dec_U8, dec_U8];
209
210 } elsif ($type == 19) {
211 push @r, [mark => $add, MARK_TRIANGLE, dec_U8, dec_U8];
212
213 } elsif ($type == 18) {
214 push @r, [mark => $add, MARK_LABEL, dec_U8, dec_U8, dec_STRING];
215
216 } elsif ($type == 17) {
217 push @r, [set_timer => (dec_U8, dec_U32, dec_time)[0,2,1]];
218
219 } elsif ($type == 16) {
220 push @r, [set_stone => $add, dec_U8, dec_U8, dec_U8];
221
222 } elsif ($type == 14) {
223 push @r, [move => $add, dec_U8, dec_U8, dec_U8];
224
225 } elsif (($type >= 4 && $type <= 9)
226 || ($type >= 11 && $type <= 13)
227 || $type == 24) {
228
175 push @r, ["more"]; 229 push @r, [({
230 4 => "date",
231 5 => "unknown_comment5",
232 6 => "unknown_comment6",
233 7 => "unknown_comment7",
234 8 => "unknown_comment8",
235 9 => "copyright", #?
236 11 => "unknown_comment11",
237 12 => "unknown_comment12",
238 13 => "unknown_comment13",
239 24 => "comment",
240 })->{$type} => dec_STRING];
176 241
242 } elsif ($type == 3) {
243 push @r, [rank => dec_U8, dec_U32];
244
245 } elsif ($type == 2) {
246 push @r, [player => dec_U8, dec_STRING];
247
177 } elsif ($type == 10) { 248 } elsif ($type == 0) {
178 # as usual, wms finds yet another way to duplicate code... oh well, what a mess. 249 # as usual, wms finds yet another way to duplicate code... oh well, what a mess.
179 # (no wonder he is so keen on keeping it secret...) 250 # (no wonder he is so keen on keeping it a secret...)
180 251
181 push @r, [rules => dec_rules]; 252 push @r, [rules => dec_rules];
182 253
183 } elsif ($type == 9 || $type == 22 || $type == 25 || $type == 31 || $type == 32) { 254 # OLD
184 push @r, [({
185 9 => "comment",
186 22 => "unknown_comment22",
187 25 => "copyright", #?
188 31 => "date",
189 32 => "unknown_comment32",
190 })->{$type} => dec_STRING];
191 255
192 } elsif ($type == 11 || $type == 12) {
193 push @r, [player => $type - 11, dec_STRING];
194
195 } elsif ($type == 13 || $type == 14) {
196 push @r, [rank => $type - 13, dec_U32];
197
198 } elsif ($type == 15 || $type == 16) {
199 push @r, [set_timer => $type - 15, dec_time, dec_U16];
200
201 } elsif ($type == 17 || $type == 18) {
202 push @r, [score => $type - 17, dec_score16];
203
204 } elsif ($type == 19) { 256 } elsif (1) {
205 push @r, [result => dec_result]; # not certain 257 print STDERR KGS::Listener::Debug::dumpval(\@r);
258 open XTYPE, "|xtype"; print XTYPE $data; close XTYPE;
259 die "unknown type $type";
206 260
207 } elsif ($type == 30) { 261 } elsif ($type == 30) {
208 push @r, [active_player => dec_U8]; 262 push @r, [active_player => dec_U8];
209 263
210 } elsif ($type == 0) { # label(?) 264 } elsif ($type == 0) { # label(?)
… …
237 } 291 }
238 \@r; 292 \@r;
239} 293}
240 294
241sub enc_TREE { 295sub enc_TREE {
296 die "tree encoding not yet supported again";
242 for (@{$_[0]}) { 297 for (@{$_[0]}) {
243 my ($type, @arg) = @$_; 298 my ($type, @arg) = @$_;
244 299
245 if ($type eq "add_child") { 300 if ($type eq "add_child") {
246 enc_U8 255; 301 enc_U8 255;
… …
338 393
339<xsl:template match="member" mode="enc"> 394<xsl:template match="member" mode="enc">
340 <!-- #d#, remove when kgs is repaired --><xsl:if test="@type = 'username'"> 395 <!-- #d#, remove when kgs is repaired --><xsl:if test="@type = 'username'">
341 $_[0]{<xsl:value-of select="@name"/>} =~ /^[A-Za-z][A-Za-z0-9]{0,11}$/ 396 $_[0]{<xsl:value-of select="@name"/>} =~ /^[A-Za-z][A-Za-z0-9]{0,11}$/
342 or Carp::confess "FATAL: tried to send illegal username '$_[0]{<xsl:value-of select="@name"/>}'"; 397 or Carp::confess "FATAL: tried to send illegal username '$_[0]{<xsl:value-of select="@name"/>}'";
343 </xsl:if><!--#d#-->
344 <!-- #d#, remove when kgs is repaired --><xsl:if test="@name = 'channel'">
345 $_[0]{<xsl:value-of select="@name"/>} > 0
346 or Carp::confess "FATAL: tried to send a zero channel id";
347 </xsl:if><!--#d#--> 398 </xsl:if><!--#d#-->
348 enc_<xsl:value-of select="@type"/> defined $_[0]{<xsl:value-of select="@name"/>} ? $_[0]{<xsl:value-of select="@name"/> 399 enc_<xsl:value-of select="@type"/> defined $_[0]{<xsl:value-of select="@name"/>} ? $_[0]{<xsl:value-of select="@name"/>
349 <xsl:text>} : (</xsl:text> 400 <xsl:text>} : (</xsl:text>
350 <xsl:value-of select="@default"/> 401 <xsl:value-of select="@default"/>
351 <xsl:text>);</xsl:text> 402 <xsl:text>);</xsl:text>
… …
366} 417}
367</xsl:template> 418</xsl:template>
368 419
369<xsl:template match="message"> 420<xsl:template match="message">
370# <xsl:value-of select="@name"/> 421# <xsl:value-of select="@name"/>
371<xsl:if test="@recv='yes'"> 422$dec_<xsl:value-of select="@dir"/>{0x<xsl:value-of select="@type"/>} = sub {
372$recv{0x<xsl:value-of select="@type"/>} = sub {
373 $data = $_[0]; 423 $data = $_[0];
374 my $r; 424 my $r;
375 $r->{type} = "<xsl:value-of select="@name"/>"; 425 $r->{type} = "<xsl:value-of select="@name"/>";
376 <xsl:apply-templates select="member" mode="dec"/> 426 <xsl:apply-templates select="member" mode="dec"/>
377 $r; 427 $r;
378}; 428};
379</xsl:if> 429$enc_<xsl:value-of select="@dir"/>{<xsl:value-of select="@name"/>} = sub {
380<xsl:if test="@send='yes'">
381$send{<xsl:value-of select="@name"/>} = sub {
382 $data = ""; 430 $data = "";
383 enc_U16 0x<xsl:value-of select="@type"/>; 431 enc_U16 0x<xsl:value-of select="@type"/>;
384 <xsl:apply-templates select="member" mode="enc"/> 432 <xsl:apply-templates select="member" mode="enc"/>
385 $data; 433 $data;
386}; 434};
387</xsl:if>
388</xsl:template> 435</xsl:template>
389 436
390<xsl:template match="member"> 437<xsl:template match="member">
391 [<xsl:value-of select="@name"/> 438 [<xsl:value-of select="@name"/>
392 <xsl:text>=> "</xsl:text> 439 <xsl:text>=> "</xsl:text>

Diff Legend

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