/[mldonkey]/mldonkey/src/daemon/common/guiEncoding.ml
ViewVC logotype

Diff of /mldonkey/src/daemon/common/guiEncoding.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.39 by spiralvoice, Sun Aug 21 12:27:18 2005 UTC revision 1.40 by spiralvoice, Sun Sep 18 19:00:51 2005 UTC
# Line 227  let buf_client_type buf t = Line 227  let buf_client_type buf t =
227  let buf_bool buf b =  let buf_bool buf b =
228    buf_int8 buf (if b then 1 else 0)    buf_int8 buf (if b then 1 else 0)
229                
230    let buf_bool_option buf b =
231      buf_int8 buf
232      (match b with
233      | None -> 2
234      | Some b -> if b then 1 else 0)
235          
236  let buf_result proto buf r =  let buf_result proto buf r =
237    buf_int buf r.result_num;    buf_int buf r.result_num;
238    buf_int buf 0;    buf_int buf 0;
# Line 607  let buf_client proto buf c = Line 613  let buf_client proto buf c =
613        if proto >= 33 then begin        if proto >= 33 then begin
614          buf_string buf c.client_release          buf_string buf c.client_release
615        end;        end;
616          if proto >= 35 then begin
617            buf_bool_option buf c.client_sui_verified
618          end;
619      end      end
620            
621  let buf_network proto buf n =  let buf_network proto buf n =

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26