gistfile1.erl

decode(Segment) ->
    case Segment of 
  << SourcePort:16, DestinationPort:16,
	   SequenceNumber:32,
	   AckNumber:32,
	   DataOffset:4, _Reserved:4, Flags:8, WindowSize:16,
	   Checksum:16, UrgentPointer:16,
	   Payload/binary>> when DataOffset>4
	->
	    OptSize = (DataOffset - 5)*32,
	    << Options:OptSize, Message/binary >> = Payload,
	    <> = <>,
 	    %% Can now process the Message according to the
	    %% Options (if any) and the flags CWR, ..., FIN. 
	    binary_to_list(Message)
    end.