The R13B03 release.OTP_R13B03

1 files changed, 239 insertions, 0 deletions

diff --git a/lib/ic/src/ic_sequence_java.erl b/lib/ic/src/ic_sequence_java.erl
new file mode 100644
index 0000000000..b57652fb82
--- /dev/null
+++ b/lib/ic/src/ic_sequence_java.erl
@@ -0,0 +1,239 @@
+%%
+%% %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
+%%---------------------------------------------------
+
+
+
+
+
+
+
+
+