Author: dreiss
Date: Tue Jun 10 17:58:48 2008
New Revision: 666424
URL: http://svn.apache.org/viewvc?rev=666424&view=rev
Log:
allow writing binaries in thrift_binary_protocol
Summary: they come packed in {string, Bin} so pull them out
Modified:
incubator/thrift/trunk/lib/alterl/src/thrift_binary_protocol.erl
Modified: incubator/thrift/trunk/lib/alterl/src/thrift_binary_protocol.erl
URL:
http://svn.apache.org/viewvc/incubator/thrift/trunk/lib/alterl/src/thrift_binary_protocol.erl?rev=666424&r1=666423&r2=666424&view=diff
==============================================================================
--- incubator/thrift/trunk/lib/alterl/src/thrift_binary_protocol.erl (original)
+++ incubator/thrift/trunk/lib/alterl/src/thrift_binary_protocol.erl Tue Jun 10
17:58:48 2008
@@ -115,6 +115,10 @@
write(This, {i32, length(Str)}),
write(This, list_to_binary(Str));
+write(This, {string, Bin}) when is_binary(Bin) ->
+ write(This, {i32, size(Bin)}),
+ write(This, Bin);
+
write(This, Binary) when is_binary(Binary) ->
thrift_transport:write(This#binary_protocol.transport, Binary).
@@ -176,7 +180,7 @@
read(This, field_stop) ->
{ok, ?tType_STOP} = read(This, byte),
- ok;
+ ok;
%%
