[Nym3-commit] r19 - trunk

[nym3-devel@lists.noreply.org]

Author: laurent
Date: 2004-05-13 18:52:38 +0200 (Thu, 13 May 2004)
New Revision: 19

Modified:
   trunk/message.ml
Log:
Set Id expansion.


Modified: trunk/message.ml
===================================================================
--- trunk/message.ml	2004-05-13 13:54:20 UTC (rev 18)
+++ trunk/message.ml	2004-05-13 16:52:38 UTC (rev 19)
@@ -1,9 +1,7 @@
-(*let sign_message m () =
-  ();;*)
+(* $Id$ *)
 
 let sig_length = 256;;
 
-
 type header = { sign : string; nl : int; nym : string; seqno : string };;
 
 let read_header buffer start len=
@@ -13,6 +11,7 @@
   let seqno = String.sub buffer (start + sig_length + 1 + nl) 20 in
   { sign = sign; nl = nl; nym = nym; seqno = seqno };;
 
+(* Prepare an unsigned header *)
 let make_header nym seq_no =
   let nl = String.length nym in
   assert( nl < 256 && String.length seq_no = 20);


Property changes on: trunk/message.ml
___________________________________________________________________
Name: svn:keywords
   + Id