The R13B03 release.OTP_R13B03

9 files changed, 379 insertions, 0 deletions

diff --git a/erts/test/erlc_SUITE_data/include/erl_test.hrl b/erts/test/erlc_SUITE_data/include/erl_test.hrl
new file mode 100644
index 0000000000..fd89cb2f60
--- /dev/null
+++ b/erts/test/erlc_SUITE_data/include/erl_test.hrl
@@ -0,0 +1,19 @@
+%%
+%% %CopyrightBegin%
+%% 
+%% Copyright Ericsson AB 1997-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%
+%%
+-record(person, {name, shoe_size}).
diff --git a/erts/test/erlc_SUITE_data/src/BAD-MIB.mib b/erts/test/erlc_SUITE_data/src/BAD-MIB.mib
new file mode 100644
index 0000000000..93bde356f4
--- /dev/null
+++ b/erts/test/erlc_SUITE_data/src/BAD-MIB.mib
@@ -0,0 +1 @@
+All mibs are bad!
diff --git a/erts/test/erlc_SUITE_data/src/GOOD-MIB.mib b/erts/test/erlc_SUITE_data/src/GOOD-MIB.mib
new file mode 100644
index 0000000000..af350ba891
--- /dev/null
+++ b/erts/test/erlc_SUITE_data/src/GOOD-MIB.mib
@@ -0,0 +1,39 @@
+          GOOD-MIB DEFINITIONS ::= BEGIN
+
+          IMPORTS
+                  mgmt
+                      FROM RFC1155-SMI
+                  OBJECT-TYPE
+                          FROM RFC-1212;
+
+ 
+          -- textual conventions
+ 
+          DisplayString ::=
+              OCTET STRING
+
+          -- This data type is used to model textual information taken
+          -- from the NVT ASCII character set.  By convention, objects
+          -- with this syntax are declared as having
+          -- the System group
+ 
+          -- Implementation of the System group is mandatory for all
+          -- systems.  If an agent is not configured to have a value
+          -- for any of these variables, a string of length 0 is
+          -- returned.
+ 
+          sysDescr OBJECT-TYPE
+              SYNTAX  DisplayString (SIZE (0..255))
+              ACCESS  read-only
+              STATUS  mandatory
+ 
+              DESCRIPTION
+                      "A textual description of the entity.  This value
+                      should include the full name and version
+                      identification of the system's hardware type,
+                      software operating-system, and networking
+                      software.  It is mandatory that this only contain
+                      printable ASCII characters."
+              ::= { mgmt 1 }
+
+          END
diff --git a/erts/test/erlc_SUITE_data/src/erl_test_bad.erl b/erts/test/erlc_SUITE_data/src/erl_test_bad.erl
new file mode 100644
index 0000000000..fb62f835ca
--- /dev/null
+++ b/erts/test/erlc_SUITE_data/src/erl_test_bad.erl
@@ -0,0 +1,22 @@
+%%
+%% %CopyrightBegin%
+%% 
+%% Copyright Ericsson AB 1997-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(erl_test_bad).
+
+-export([non_existing/1]).
diff --git a/erts/test/erlc_SUITE_data/src/erl_test_ok.erl b/erts/test/erlc_SUITE_data/src/erl_test_ok.erl
new file mode 100644
index 0000000000..50fa063a94
--- /dev/null
+++ b/erts/test/erlc_SUITE_data/src/erl_test_ok.erl
@@ -0,0 +1,29 @@
+%% 
+%% %CopyrightBegin%
+%% 
+%% Copyright Ericsson AB 1997-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(erl_test_ok).
+-export([shoe_size/1]).
+
+-include("erl_test.hrl").
+
+shoe_size(#person{shoe_size=Size}) ->
+    Size.
+
+foo() ->
+    ok.
diff --git a/erts/test/erlc_SUITE_data/src/start_bad.script b/erts/test/erlc_SUITE_data/src/start_bad.script
new file mode 100644
index 0000000000..0cb903fabd
--- /dev/null
+++ b/erts/test/erlc_SUITE_data/src/start_bad.script
@@ -0,0 +1 @@
+script,{"OTP  APN 181 01","NT"}
diff --git a/erts/test/erlc_SUITE_data/src/start_ok.script b/erts/test/erlc_SUITE_data/src/start_ok.script
new file mode 100644
index 0000000000..4cd89f0439
--- /dev/null
+++ b/erts/test/erlc_SUITE_data/src/start_ok.script
@@ -0,0 +1,207 @@
+{script,{"OTP  APN 181 01","NT"},
+ [{preLoaded,[init,erl_prim_loader]},
+  {progress,preloaded},
+  {path,["$ROOT/lib/kernel/ebin",
+	 "$ROOT/lib/stdlib/ebin"]},
+  {primLoad,[error_handler,
+	     ets,
+	     lib,
+	     lists,
+	     heart,
+	     application_controller,
+	     application_master,
+	     application,
+	     auth,
+	     c,
+	     calendar,
+	     code,
+	     erlang,
+	     erl_distribution,
+	     erl_parse,
+	     erl_scan,
+	     io_lib,
+	     io_lib_format,
+	     io_lib_fread,
+	     io_lib_pretty,
+	     error_logger,
+	     file,
+	     filename,
+	     os,
+	     gen,
+	     gen_event,
+	     gen_server,
+	     global,
+	     kernel,
+	     net_kernel,
+	     proc_lib,
+	     rpc,
+	     supervisor,
+	     sys]},
+  {kernel_load_completed},
+  {progress,kernel_load_completed},
+  {primLoad,[group,
+	     user,
+	     user_drv,
+	     kernel_config,
+	     net,
+	     erl_boot_server,
+	     net_adm]},
+  {primLoad,[math,
+	     random,
+	     ordsets,
+	     shell_default,
+	     timer,
+	     gen_fsm,
+	     pg,
+	     unix,
+	     dict,
+	     pool,
+	     string,
+	     digraph,
+	     io,
+	     epp,
+	     queue,
+	     erl_eval,
+	     erl_id_trans,
+	     shell,
+	     erl_internal,
+	     erl_lint,
+	     edlin,
+	     erl_pp,
+	     error_logger_file_h,
+	     error_logger_tty_h,
+	     log_mf_h,
+	     dets,
+	     disk_log,
+	     regexp,
+	     slave,
+	     supervisor_bridge]},
+  {progress,modules_loaded},
+  {kernelProcess,heart,{heart,start,[]}},
+  {kernelProcess,error_logger,{error_logger,start_link,[]}},
+  {kernelProcess,application_controller,
+   {application_controller,
+    start,
+    [{application,
+      kernel,
+      [{description,"ERTS  CXC 138 10"},
+       {vsn,"NT"},
+       {modules,
+	[{application,1},
+	 {erlang,1},
+	 {group,1},
+	 {rpc,1},
+	 {application_controller,1},
+	 {error_handler,1},
+                                       {heart,1},
+                                       {application_master,1},
+                                       {error_logger,1},
+                                       {init,1},
+                                       {user,1},
+                                       {auth,1},
+                                       {kernel,1},
+                                       {user_drv,1},
+                                       {code,1},
+                                       {kernel_config,1},
+                                       {net,1},
+                                       {erl_boot_server,1},
+                                       {erl_prim_loader,1},
+                                       {file,1},
+                                       {net_adm,1},
+                                       {erl_distribution,1},
+                                       {global,1},
+                                       {net_kernel,1}]},
+                                  {registered,
+                                      [init,
+                                       erl_prim_loader,
+                                       heart,
+                                       error_logger,
+                                       application_controller,
+                                       kernel_sup,
+                                       kernel_config,
+                                       net_sup,
+                                       net_kernel,
+                                       auth,
+                                       code_server,
+                                       file_server,
+                                       boot_server,
+                                       global_name_server,
+                                       rex,
+                                       user]},
+                                  {applications,[]},
+                                  {env,
+                                      [{error_logger,tty},
+                                       {os, nt}]},
+                                  {maxT,infinity},
+                                  {maxP,infinity},
+                                  {mod,{kernel,[]}}]}]}},
+         {progress,init_kernel_started},
+         {apply,{application,load,
+                             [{application,
+                                  stdlib,
+                                  [{description,"ERTS  CXC 138 10"},
+                                   {vsn,"NT"},
+                                   {modules,
+                                       [{c,1},
+                                        {gen,1},
+                                        {io_lib_format,1},
+                                        {math,1},
+                                        {random,1},
+                                        {sys,1},
+                                        {calendar,1},
+                                        {gen_event,1},
+                                        {io_lib_fread,1},
+                                        {ordsets,1},
+                                        {shell_default,1},
+                                        {timer,1},
+                                        {gen_fsm,1},
+                                        {io_lib_pretty,1},
+                                        {pg,1},
+                                        {slave,1},
+                                        {unix,1},
+                                        {dict,1},
+                                        {gen_server,1},
+                                        {lib,1},
+                                        {pool,1},
+                                        {string,1},
+                                        {digraph,1},
+                                        {io,1},
+                                        {lists,1},
+                                        {proc_lib,1},
+                                        {supervisor,1},
+                                        {epp,1},
+                                        {io_lib,1},
+                                        {log_mf_h,1},
+                                        {queue,1},
+                                        {erl_eval,1},
+                                        {erl_id_trans,1},
+                                        {shell,1},
+                                        {erl_internal,1},
+                                        {erl_lint,1},
+                                        {error_logger_file_h,1},
+                                        {erl_parse,1},
+                                        {error_logger_tty_h,1},
+                                        {edlin,1},
+                                        {erl_pp,1},
+                                        {ets,1},
+                                        {dets,1},
+                                        {disk_log,1},
+                                        {regexp,1},
+                                        {erl_scan,1},
+                                        {supervisor_bridge,1}]},
+                                   {registered,
+                                       [timer_server,
+                                        rsh_starter,
+                                        take_over_monitor,
+                                        pool_master,
+                                        dets,
+                                        disk_log]},
+                                   {applications,[kernel]},
+                                   {env,[]},
+                                   {maxT,infinity},
+                                   {maxP,infinity}]}]}},
+         {progress,applications_loaded},
+         {apply,{application,start,[kernel,permanent]}},
+         {apply,{application,start,[stdlib,permanent]}},
+         {apply,{c,erlangrc,[]}},
+         {progress,started}]}.
diff --git a/erts/test/erlc_SUITE_data/src/yecc_test_bad.yrl b/erts/test/erlc_SUITE_data/src/yecc_test_bad.yrl
new file mode 100644
index 0000000000..409718e24c
--- /dev/null
+++ b/erts/test/erlc_SUITE_data/src/yecc_test_bad.yrl
@@ -0,0 +1,32 @@
+%%
+%% %CopyrightBegin%
+%% 
+%% Copyright Ericsson AB 1997-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%
+%%
+
+foo
+
+Nonterminals
+form.
+
+Terminals
+atom dot.
+
+Rootsymbol form.
+
+form -> atom dot : '$1'.
+
+Erlang code.
diff --git a/erts/test/erlc_SUITE_data/src/yecc_test_ok.yrl b/erts/test/erlc_SUITE_data/src/yecc_test_ok.yrl
new file mode 100644
index 0000000000..a96085ac2d
--- /dev/null
+++ b/erts/test/erlc_SUITE_data/src/yecc_test_ok.yrl
@@ -0,0 +1,29 @@
+%%
+%% %CopyrightBegin%
+%% 
+%% Copyright Ericsson AB 1997-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%
+%%
+Nonterminals
+form.
+
+Terminals
+atom dot.
+
+Rootsymbol form.
+
+form -> atom dot : '$1'.
+
+Erlang code.