ic/src/ic_cserver.erl

1710 emit_encoding_stmt(G, N, X, Fd, T, LName) when element(1, T) == scoped_id ->
1715 		 [LName]),
1721 		 [LName]),
1727 		 [LName]),
1733 		 [LName]),
1737 	    emit_encoding_stmt(G, N, X, Fd, FSN, LName);
1739 	    emit_encoding_stmt(G, N, X, Fd, FSN, LName)
1741 emit_encoding_stmt(G, N, X, Fd, T, LName) when is_list(T) ->
1743     case get_param_tk(LName, X) of
1746 		 [ic_util:mk_oe_name(G, "encode_"), T, LName]);
1752 			 [ic_util:mk_oe_name(G, "encode_"), T, LName]),
1766 					 [LName]),
1777 					 "~s)) < 0) {\n", [LName]),
1788 					 "~s)) < 0) {\n", [LName]),
1799 					 "(long) ~s)) < 0) {\n", [LName]),
1810 					 "~s)) < 0) {\n", [LName]),
1821 					 "~s)) < 0) {\n", [LName]),
1832 					 "(double) ~s)) < 0) {\n", [LName]),
1843 					 "~s)) < 0) {\n", [LName]),
1852 				    emit(Fd, "  switch(~s) {\n", [LName]),
1888 					 "~s)) < 0) {\n", [LName]),
1899 					 "~s)) < 0) {\n", [LName]),
1910 					 "~s)) < 0) {\n", [LName]),
1921 					 "~s)) < 0) {\n", [LName]),
1945 					  T, LName]),
1951 					  T, LName]),
1957 					  T, LName]),
1968 emit_encoding_stmt(G, N, _X, Fd, T, LName)  when is_record(T, string) ->
1971 	 [LName]),
1976 emit_encoding_stmt(G, N, _X, Fd, T, LName) when is_record(T, wstring) ->
1979 	 [LName]),
1984 emit_encoding_stmt(G, N, _X, Fd, T, LName) ->
1989 		 [LName]),
1997 		 [LName]),
2005 		 [LName]),
2013 		 [LName]),
2021 		 [LName]),
2029 		 [LName]),
2037 		 [LName]),
2045 		 [LName]),
2051 	    emit(Fd, "  switch(~s) {\n", [LName]),
2077 		 [LName]),
2085 		 [LName]),
2093 		 [LName]),
2113 		 [LName]),
2160 emit_decoding_stmt(G, N, Fd, T, LName, IndOp, InBuffer, Align, NextPos,
2166 		 [InBuffer, IndOp, LName]),
2174 		 [InBuffer, IndOp, LName]),
2182 		 [InBuffer, IndOp, LName]),
2190 		 [InBuffer, IndOp, LName]),
2196 	    emit_decoding_stmt(G, N, Fd, FSN, LName, IndOp,
2199 	    emit_decoding_stmt(G, N, Fd, FSN, LName, IndOp,
2202 emit_decoding_stmt(G, N, Fd, T, LName, IndOp, InBuffer, _Align, NextPos,
2209 					      LName, AllocedPars);
2225 		  T, NextPos, LName]),
2232 emit_decoding_stmt(G, N, Fd, T, LName, IndOp, InBuffer, _Align, _NextPos,
2236 	 [InBuffer, IndOp, LName]),
2241 emit_decoding_stmt(G, N, Fd, T, LName, IndOp, InBuffer, _Align, _NextPos,
2247 	 [InBuffer, IndOp, LName]),
2252 emit_decoding_stmt(G, N, Fd, T, LName, IndOp, InBuffer, _Align, _NextPos,
2257 					      LName, AllocedPars);
2277 			 [InBuffer, IndOp, LName]),
2288 				  LName, AllocedPars) ->
2322 	    emit(Fd, "    *~s = (unsigned short) oe_ulong;\n", [LName]),
2333 	    emit(Fd, "    *~s = (short) oe_long;\n", [LName]),
2344 	    emit(Fd, "    *~s = (float) oe_double;\n", [LName]),
2356 	    emit(Fd, "      *(~s) = 0;\n", [LName]),
2359 	    emit(Fd, "      *(~s) = 1;\n", [LName]),
2367 	    emit(Fd, Fmt, [Pre, DecType, InBuffer, IndOp, LName]),