[thrift] preliminary Erlang support (initial import)
Summary:
* missing {list,map,set}s, inheritance is spotty
* loose source code, plus everything is one process (application / gen_server behavior is forthcoming)
* codegen is a mess, need t_fp_generator
Test Plan:
* codegen invoked without -erl generates identical code for test/
* calculatorHandler plus 'thrift -erl -r tutorial.thrift' more or less works
Revert Plan: ok
git-svn-id: https://svn.apache.org/repos/asf/incubator/thrift/trunk@665146 13f79535-47bb-0310-9956-ffa450edef68
diff --git a/lib/erl/src-loose/protocol/tProtocol.erl b/lib/erl/src-loose/protocol/tProtocol.erl
new file mode 100644
index 0000000..a36ca11
--- /dev/null
+++ b/lib/erl/src-loose/protocol/tProtocol.erl
@@ -0,0 +1,69 @@
+-module(tProtocol).
+
+-include("thrift/thrift.hrl").
+-include("thrift/protocol/tProtocol.hrl").
+
+-export([new/1, skip/2]).
+
+skip_struct_loop(This) ->
+ { Name, Type, Id } = ?M0(This, readFieldBegin),
+ Name, Id, % suppress unused warnings
+ if
+ Type == ?tType_STOP ->
+ ok;
+ true ->
+ skip(This, Type),
+ ?M0(This, readFieldEnd),
+
+ %% this is here in original tprotocol.rb, but i think it's a bug
+ % ?M0(This, readStructEnd),
+ skip_struct_loop(This)
+ end.
+
+skip_map_repeat(This, Ktype, Vtype, Times) ->
+ skip(This, Ktype),
+ skip(This, Vtype),
+ skip_map_repeat(This, Ktype, Vtype, Times-1).
+
+skip_set_repeat(This, Etype, Times) ->
+ skip(This, Etype),
+ skip_set_repeat(This, Etype, Times-1).
+
+new(Trans) ->
+ #tProtocol{trans=Trans}.
+
+skip(This, Type) ->
+ case Type of
+ ?tType_STOP -> nil; % WATCH
+ ?tType_BOOL -> ?M0(This, readBool);
+ ?tType_BYTE -> ?M0(This, readByte);
+ ?tType_I16 -> ?M0(This, readI16);
+ ?tType_I32 -> ?M0(This, readI32);
+ ?tType_I64 -> ?M0(This, readI64);
+ ?tType_DOUBLE -> ?M0(This, readDouble);
+ ?tType_STRING -> ?M0(This, readString);
+
+ ?tType_STRUCT ->
+ ?M0(This, readStructBegin),
+ skip_struct_loop(This),
+
+ %% this isn't here in the original tprotocol.rb, but i think it's a bug
+ ?M0(This, readStructEnd);
+
+ ?tType_MAP ->
+ {Ktype, Vtype, Size} = ?M0(This, readMapBegin),
+ skip_map_repeat(This, Ktype, Vtype, Size),
+ ?M0(This, readMapEnd);
+
+ ?tType_SET ->
+ {Etype, Size} = ?M0(This, readSetBegin),
+ skip_set_repeat(This, Etype, Size),
+ ?M0(This, readSetEnd);
+
+ ?tType_LIST ->
+ {Etype, Size} = ?M0(This, readListBegin),
+ skip_set_repeat(This, Etype, Size), % [sic] skipping same as for SET
+ ?M0(This, readListEnd)
+ end.
+
+