The R13B03 release.OTP_R13B03

3 files changed, 111 insertions, 0 deletions

diff --git a/lib/ic/examples/erl-plain/ReadMe b/lib/ic/examples/erl-plain/ReadMe
new file mode 100644
index 0000000000..26440b4d4f
--- /dev/null
+++ b/lib/ic/examples/erl-plain/ReadMe
@@ -0,0 +1,27 @@
+This is a short description on the use of the erl-plain demo,
+a client that initiates and uses a random number generator
+that lies on an  Erlang-genserver.
+
+Instructions.
+
+    On the erlang shell type :
+    --------------------------
+
+    ic:gen(random,[{be,erl_plain}]).  ( generates the plain code )
+
+    make:all().                       ( compiles the erlang code )
+
+    
+    Running the example :
+    ---------------------
+ 
+    rmod_random:init(1,2,3).           ( initializes the generator )
+
+    rmod_random:produce().             ( generates a random number )
+
+
+
+
+
+
+
diff --git a/lib/ic/examples/erl-plain/random.idl b/lib/ic/examples/erl-plain/random.idl
new file mode 100644
index 0000000000..f7762236ca
--- /dev/null
+++ b/lib/ic/examples/erl-plain/random.idl
@@ -0,0 +1,52 @@
+// ``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 via the world wide web 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.
+// 
+// The Initial Developer of the Original Code is Ericsson Utvecklings AB.
+// Portions created by Ericsson are Copyright 1999, Ericsson Utvecklings
+// AB. All Rights Reserved.''
+// 
+//     $Id$
+//
+#pragma CODEOPT "[{be,c_genserv}]"
+
+
+#ifndef _RANDOM_IDL
+#define _RANDOM_IDL
+ 
+
+module rmod {
+ 
+  interface random {
+ 
+    double produce();
+ 
+    oneway void init(in long seed1, in long seed2, in long seed3);
+	
+  };
+ 
+};
+ 
+#endif
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/lib/ic/examples/erl-plain/rmod_random_impl.erl b/lib/ic/examples/erl-plain/rmod_random_impl.erl
new file mode 100644
index 0000000000..7e7b2f0821
--- /dev/null
+++ b/lib/ic/examples/erl-plain/rmod_random_impl.erl
@@ -0,0 +1,32 @@
+%%
+%% %CopyrightBegin%
+%% 
+%% Copyright Ericsson AB 1998-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('rmod_random_impl').
+
+-export([produce/0,init/3]).
+
+
+produce()  ->
+    random:uniform().
+
+
+init(S1,S2,S3)  ->
+    random:seed(S1,S2,S3),
+    ok.
+