%%
%% %CopyrightBegin%
%%
%% Copyright Ericsson AB 1999-2009. All Rights Reserved.
%%
%% The contents of this file are subject to the Erlang Public License,
%% Version 1.1, (the "License"); you may not use this file except in
%% compliance with the License. You should have received a copy of the
%% Erlang Public License along with this software. If not, it can be
%% retrieved online at http://www.erlang.org/.
%%
%% Software distributed under the License is distributed on an "AS IS"
%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
%% the License for the specific language governing rights and limitations
%% under the License.
%%
%% %CopyrightEnd%
%%
%%
-module(ic_sequence_java).
-include("icforms.hrl").
-include("ic.hrl").
-include("ic_debug.hrl").
%%-----------------------------------------------------------------
%% External exports
%%-----------------------------------------------------------------
-export([gen/4]).
%%-----------------------------------------------------------------
%% Internal exports
%%-----------------------------------------------------------------
-export([]).
%%-----------------------------------------------------------------
%% External functions
%%-----------------------------------------------------------------
%%-----------------------------------------------------------------
%% Func: gen/4
%%-----------------------------------------------------------------
gen(G, N, X, SequenceName) when is_record(X, sequence) ->
emit_holder_class(G, N, X, SequenceName),
emit_helper_class(G, N, X, SequenceName);
gen(_G, _N, _X, _SequenceName) ->
ok.
%%-----------------------------------------------------------------
%% Internal functions
%%-----------------------------------------------------------------
%%-----------------------------------------------------------------
%% Func: emit_holder_class/4
%%-----------------------------------------------------------------
emit_holder_class(G, N, X, SequenceName) ->
SName = string:concat(SequenceName, "Holder"),
{Fd, _}= ic_file:open_java_file(G, N, SName),
SequenceType = ic_java_type:getType(G, N, X),
ic_codegen:emit(Fd, ["final public class ",SequenceName,"Holder {\n"
" // instance variables\n"
" public ",SequenceType," value;\n\n"
" // constructors\n"
" public ",SequenceName,"Holder() {}\n"
" public ",SequenceName,"Holder(",SequenceType," initial) {\n"
" value = initial;\n"
" }\n\n"
" // methods\n"
" public void _marshal(",?ERLANGPACKAGE,"OtpOutputStream out) throws java.lang.Exception{\n"
" ",SequenceName,"Helper.marshal(out, value);\n"
" }\n\n"
" public void _unmarshal(",?ERLANGPACKAGE,"OtpInputStream in) throws java.lang.Exception {\n"
" value = ",SequenceName,"Helper.unmarshal(in);\n"
" }\n\n"
"}\n"]),
file:close(Fd).
emit_helper_class(G, N, X, SequenceName) ->
SName = string:concat(SequenceName, "Helper"),
{Fd, _}= ic_file:open_java_file(G, N, SName),
SequenceType = ic_java_type:getType(G, N, X),
ElementType = ic_forms:get_type(X),
ic_codegen:emit(Fd, ["public class ",SequenceName,"Helper {\n"
" // constructors\n"
" private ",SequenceName,"Helper() {}\n\n"
" // methods\n"
" public static void marshal(",?ERLANGPACKAGE,"OtpOutputStream _out, ",SequenceType," _value) \n"
" throws java.lang.Exception {\n\n"]),
emit_sequence_marshal_function(G, N, X, Fd, SequenceName, ElementType),
ic_codegen:emit(Fd, [" }\n\n"
" public static ",SequenceType," unmarshal(",?ERLANGPACKAGE,"OtpInputStream _in) \n"
" throws java.lang.Exception {\n\n"]),
emit_sequence_unmarshal_function(G, N, X, Fd, SequenceName, ElementType),
ic_codegen:emit(Fd, [" }\n\n"
" public static String id() {\n"
" return \"",ic_pragma:scope2id(G, [SequenceName | N]),"\";\n"
" }\n\n"
" public static String name() {\n"
" return \"",SequenceName,"\";\n"
" }\n\n"]),
ic_jbe:emit_type_function(G, N, X, Fd),
ic_codegen:emit(Fd, [" public static void insert(",?ICPACKAGE,"Any _any, ",SequenceType," _this)\n"
" throws java.lang.Exception {\n\n"
" ",?ERLANGPACKAGE,"OtpOutputStream _os = \n"
" new ",?ERLANGPACKAGE,"OtpOutputStream();\n\n"
" _any.type(type());\n"
" marshal(_os, _this);\n"
" _any.insert_Streamable(_os);\n"
" }\n\n"
" public static ",SequenceType," extract(",?ICPACKAGE,"Any _any)\n"
" throws java.lang.Exception {\n\n"
" return unmarshal(_any.extract_Streamable());\n"
" }\n\n"
%% In corba mapping there is also a _type function here.
"}\n\n"]),
file:close(Fd).
%%-----------------------------------------------------------------
%% Func: emit_sequence_marshal_function/6
%%-----------------------------------------------------------------
emit_sequence_marshal_function(G, N, X, Fd, _SequenceName, ElementType) ->
ic_codegen:emit(Fd, [" int _length = _value.length;\n\n"
" _out.write_list_head(_length);\n\n"
" if (_length > 0) {\n"
" for(int _tmp = 0; _tmp < _length; _tmp++)\n"]),
case ic_java_type:isBasicType(G, N, ElementType) of
true ->
ic_codegen:emit(Fd, [" _out",ic_java_type:marshalFun(G, N, X, ElementType),"(_value[_tmp]);\n\n"]);
false ->
ic_codegen:emit(Fd, [" ",ic_java_type:marshalFun(G, N, X, ElementType),"(_out, _value[_tmp]);\n\n"])
end,
ic_codegen:emit(Fd, [" _out.write_nil();\n"
" }\n\n"]).
%%-----------------------------------------------------------------
%% Func: emit_sequence_unmarshal_function/6
%%-----------------------------------------------------------------
emit_sequence_unmarshal_function(G, N, X, Fd, _SequenceName, ElementType) ->
SequenceElementType = ic_java_type:getType(G, N, ElementType),
ic_codegen:emit(Fd, [" int _tag,_length;\n"
" ",SequenceElementType," _sequence[];\n"
" _tag = _in.peek();\n\n"]),
case ic_java_type:isIntegerType(G, N, ElementType) of
true ->
ic_codegen:emit(Fd, [" switch(_tag) {\n"
" case ",?ERLANGPACKAGE,"OtpExternal.stringTag:\n"
" byte _compressed[] = (_in.read_string()).getBytes();\n"
" _length = _compressed.length;\n"
" _sequence = new ",ic_java_type:getFullType(G,N,X),";\n\n"
" for(int _tmp = 0; _tmp < _length; _tmp++)\n"
" _sequence[_tmp] = (",ic_java_type:getType(G, N, ElementType),")(_compressed[_tmp] & 0xff);\n\n"
" break;\n"
" default:\n"
" _length = _in.read_list_head();\n"
" _sequence = new ",ic_java_type:getFullType(G,N,X),";\n\n"
" if(_length > 0) {\n"
" for(int _tmp = 0; _tmp < _length; _tmp++)\n"
" _sequence[_tmp] = _in",ic_java_type:unMarshalFun(G, N, X, ElementType),";\n\n"
" _in.read_nil();\n"
" }\n"
" }\n"]);
false ->
ic_codegen:emit(Fd, [" _length = _in.read_list_head();\n"
" _sequence = new ",ic_java_type:getFullType(G,N,X),";\n\n"
" if(_length > 0) {\n"
" for(int _tmp = 0; _tmp < _length; _tmp++)\n"]),
case ic_java_type:isBasicType(G, N, ElementType) of
true ->
ic_codegen:emit(Fd, [" _sequence[_tmp] = _in",ic_java_type:unMarshalFun(G, N, X, ElementType),";\n\n"]);
_ ->
ic_codegen:emit(Fd, [" _sequence[_tmp] = ",ic_java_type:getUnmarshalType(G, N, X, ElementType),".unmarshal(_in);\n\n"])
end,
ic_codegen:emit(Fd, [" _in.read_nil();\n"
" }\n\n"])
end,
ic_codegen:emit(Fd, " return _sequence;\n").
%%---------------------------------------------------
%% Utilities
%%---------------------------------------------------
