Xcos tests: fix most of them and regen dia.ref 63/20563/2
Clement DAVID [Mon, 15 Oct 2018 09:37:45 +0000 (11:37 +0200)]
Change-Id: Ifb22bda9ebe06e5b79fc05715e9ab709ddcbb1b6

32 files changed:
scilab/modules/scicos/src/c/scicos.c
scilab/modules/scicos/src/cpp/extractblklist.cpp
scilab/modules/scicos_blocks/src/c/cscope.c
scilab/modules/xcos/tests/nonreg_tests/bug_11975.win.dia.ref
scilab/modules/xcos/tests/nonreg_tests/bug_12384.win.dia.ref
scilab/modules/xcos/tests/nonreg_tests/bug_12751.dia.ref [new file with mode: 0644]
scilab/modules/xcos/tests/nonreg_tests/bug_13011.win.dia.ref
scilab/modules/xcos/tests/nonreg_tests/bug_13396.win.dia.ref
scilab/modules/xcos/tests/nonreg_tests/bug_15024.tst
scilab/modules/xcos/tests/unit_tests/Integer/clear_bit.dia.ref
scilab/modules/xcos/tests/unit_tests/Integer/dflipflop.dia.ref
scilab/modules/xcos/tests/unit_tests/Integer/dlatch.dia.ref
scilab/modules/xcos/tests/unit_tests/Integer/extract_bits.dia.ref
scilab/modules/xcos/tests/unit_tests/Integer/intmul.dia.ref
scilab/modules/xcos/tests/unit_tests/Integer/iselect.dia.ref
scilab/modules/xcos/tests/unit_tests/Integer/jkflipflop.dia.ref
scilab/modules/xcos/tests/unit_tests/Integer/logic.dia.ref
scilab/modules/xcos/tests/unit_tests/Integer/matmul.dia.ref
scilab/modules/xcos/tests/unit_tests/Integer/samphold.dia.ref
scilab/modules/xcos/tests/unit_tests/Integer/select.dia.ref
scilab/modules/xcos/tests/unit_tests/Integer/set_bit.dia.ref
scilab/modules/xcos/tests/unit_tests/Integer/shift.dia.ref
scilab/modules/xcos/tests/unit_tests/Integer/srflipflop.dia.ref
scilab/modules/xcos/tests/unit_tests/Integer/summation.dia.ref
scilab/modules/xcos/tests/unit_tests/Integer/switch2_m.dia.ref
scilab/modules/xcos/tests/unit_tests/block_tests/CLOCK_c.dia.ref
scilab/modules/xcos/tests/unit_tests/block_tests/DEBUG_SCICOS.dia.ref
scilab/modules/xcos/tests/unit_tests/block_tests/ESELECT_f/sinus.dia.ref
scilab/modules/xcos/tests/unit_tests/blocks_link.dia.ref
scilab/modules/xcos/tests/unit_tests/scicos_filesassociation.tst [deleted file]
scilab/modules/xcos/tests/unit_tests/scicos_filesassociation.unix.dia.ref [deleted file]
scilab/modules/xcos/tests/unit_tests/scicos_filesassociation.win.dia.ref [deleted file]

index 27b679d..7fbc55c 100644 (file)
@@ -912,7 +912,7 @@ int C2F(scicos)(double *x_in, int *xptr_in, double *z__,
     {
         phase = 1;
         idoit(t0);
-        if (*ierr == 0)
+        if (*ierr == 0 && Max(nx, ng) > 0)
         {
             if ((W = MALLOC(sizeof(double) * (Max(nx, ng)))) == NULL )
             {
index d372376..869149d 100644 (file)
@@ -3,6 +3,7 @@
 *  Copyright (C) INRIA - Alan LAYEC
 *  Copyright (C) 2013 - Scilab Enterprises - Clement DAVID
 *  Copyright (C) 2015 - Scilab Enterprises - Antoine ELIAS
+*  Copyright (C) 2018 - ESI Group - Antoine ELIAS
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
@@ -358,7 +359,7 @@ bool extractblklist(types::TList* t, scicos_block* const Block)
 
     /* 11 - oz */
     pIT = t->getField(L"oz");
-    if (pIT->isList())
+    if (pIT->isList() && Block->noz > 0)
     {
         types::List* ozptr = pIT->getAs<types::List>();
         if (ozptr->getSize() != Block->noz)
@@ -425,7 +426,7 @@ bool extractblklist(types::TList* t, scicos_block* const Block)
 
     /* 18 - inptr */
     pIT = t->getField(L"inptr");
-    if (pIT->isList())
+    if (pIT->isList() && Block->nin > 0)
     {
         types::List* inptr = pIT->getAs<types::List>();
         if (inptr->getSize() != Block->nin)
@@ -468,7 +469,7 @@ bool extractblklist(types::TList* t, scicos_block* const Block)
 
     /* 21 - outptr */
     pIT = t->getField(L"outptr");
-    if (pIT->isList())
+    if (pIT->isList() && Block->nout > 0)
     {
         types::List* outptr = pIT->getAs<types::List>();
         if (outptr->getSize() != Block->nout)
@@ -553,7 +554,7 @@ bool extractblklist(types::TList* t, scicos_block* const Block)
 
     /* 31 - opar */
     pIT = t->getField(L"opar");
-    if (pIT->isList())
+    if (pIT->isList() && Block->nopar > 0)
     {
         types::List* opar = pIT->getAs<types::List>();
         if (opar->getSize() != Block->nopar)
index b149507..84f6e6d 100644 (file)
@@ -466,28 +466,31 @@ static sco_data *reallocHistoryBuffer(scicos_block * block, int numberOfPoints)
         }
     }
 
-    for (i = 0; i < block->insz[0]; i++)
+    if (allocatedNumberOfPoints > 0)
     {
-        ptr = (double *)MALLOC(3 * allocatedNumberOfPoints * sizeof(double));
-        if (ptr == NULL)
+        for (i = 0; i < block->insz[0]; i++)
         {
-            goto error_handler;
-        }
+            ptr = (double *)MALLOC(3 * allocatedNumberOfPoints * sizeof(double));
+            if (ptr == NULL)
+            {
+                goto error_handler;
+            }
 
-        // memcpy existing X-axis values from the history
-        memcpy(ptr, sco->internal.historyCoordinates[0][i], previousNumberOfPoints * sizeof(double));
-        // memcpy existing Y-axis values from the history
-        memcpy(ptr + allocatedNumberOfPoints, sco->internal.historyCoordinates[0][i] + previousNumberOfPoints, previousNumberOfPoints * sizeof(double));
-        // clear the last points, the Z-axis values
-        memset(ptr + 2 * allocatedNumberOfPoints, 0, allocatedNumberOfPoints * sizeof(double));
+            // memcpy existing X-axis values from the history
+            memcpy(ptr, sco->internal.historyCoordinates[0][i], previousNumberOfPoints * sizeof(double));
+            // memcpy existing Y-axis values from the history
+            memcpy(ptr + allocatedNumberOfPoints, sco->internal.historyCoordinates[0][i] + previousNumberOfPoints, previousNumberOfPoints * sizeof(double));
+            // clear the last points, the Z-axis values
+            memset(ptr + 2 * allocatedNumberOfPoints, 0, allocatedNumberOfPoints * sizeof(double));
 
-        // then set the last points to the last values for X-axis and Y-axis values from the buffer points
-        buffer = sco->internal.bufferCoordinates[0][i];
-        memcpy(ptr + previousNumberOfPoints, buffer + bufferNewPointInc, (numberOfCopiedPoints - bufferNewPointInc) * sizeof(double));
-        memcpy(ptr + allocatedNumberOfPoints + previousNumberOfPoints, buffer + bufferNumberOfPoints + bufferNewPointInc, (numberOfCopiedPoints - bufferNewPointInc) * sizeof(double));
+            // then set the last points to the last values for X-axis and Y-axis values from the buffer points
+            buffer = sco->internal.bufferCoordinates[0][i];
+            memcpy(ptr + previousNumberOfPoints, buffer + bufferNewPointInc, (numberOfCopiedPoints - bufferNewPointInc) * sizeof(double));
+            memcpy(ptr + allocatedNumberOfPoints + previousNumberOfPoints, buffer + bufferNumberOfPoints + bufferNewPointInc, (numberOfCopiedPoints - bufferNewPointInc) * sizeof(double));
 
-        FREE(sco->internal.historyCoordinates[0][i]);
-        sco->internal.historyCoordinates[0][i] = ptr;
+            FREE(sco->internal.historyCoordinates[0][i]);
+            sco->internal.historyCoordinates[0][i] = ptr;
+        }
     }
 
     sco->internal.maxNumberOfPoints = allocatedNumberOfPoints;
index 5411889..7f65194 100644 (file)
@@ -31,19 +31,40 @@ assert_checktrue(ok);
 assert_checktrue(importXcosDiagram("SCI/modules/xcos/demos/IF_block.zcos"));
 [cpr, ok] = xcos_compile(scs_m);
 assert_checktrue(ok);
-// Redefining messagebox() to avoid popup
-prot = funcprot();
-funcprot(0);
-function messagebox(msg, msg_title)
-endfunction
-funcprot(prot);
 // Hydraulics
 assert_checktrue(importXcosDiagram("SCI/modules/xcos/demos/ModelicaBlocks/Hydraulics.zcos"));
 [cpr, ok] = xcos_compile(scs_m);
 --------------------------------------------\
  Main Modelica : TMPDIR\Hydraulics_im.mo
-
  Flat Modelica : TMPDIR\Hydraulics_imf.mo
  Simulation C code :TMPDIR\Hydraulics_im.c
+!messagebox: Modelica blocks are reduced to a block with:              !
+!                                                                      !
+!messagebox: Number of differential states: 2                          !
+!                                                                      !
+!messagebox: Number of algebraic states: 5                             !
+!                                                                      !
+!messagebox: Number of discrete time states  : 0                       !
+!                                                                      !
+!messagebox: Number of zero-crossing surfaces: 19                      !
+!                                                                      !
+!messagebox: Number of modes  : 19                                     !
+!                                                                      !
+!messagebox: Number of inputs : 1                                      !
+!                                                                      !
+!messagebox: Number of outputs: 2                                      !
+!                                                                      !
+!messagebox: Input/output dependency:[F]                               !
+!                                                                      !
+!messagebox: Analytical Jacobian: enabled  (%Jacobian=%t)              !
+!                                                                      !
+!messagebox: Parameter embedding mode: enabled (%Modelica_ParEmb=%t)   !
+!                                                                      !
+!messagebox:                                                           !
+!                                                                      !
+!messagebox: Generated files path: C:\Users\cdd\AppData\Local\Temp\SCI_!
+!TMP_24944_2926\                                                       !
+!                                                                      !
+!messagebox:                                                           !
 WARNING: Diagram contains implicit blocks, compiling for implicit Solver.
 assert_checktrue(ok);
index 3c27c8b..dd50f6a 100644 (file)
 // http://bugzilla.scilab.org/show_bug.cgi?id=12384
 //
 // <-- Short Description -->
-// Algebraic loop error while compiling a diagram with a modelica part linked 
+// Algebraic loop error while compiling a diagram with a modelica part linked
 // to another modelica part with an explicit link (using a sensor).
 ilib_verbose(0);
 importXcosDiagram(SCI+"/modules/xcos/tests/nonreg_tests/bug_12384.zcos");
 Info = scicos_simulate(scs_m,list());
 --------------------------------------------\
  Main Modelica : TMPDIR\Loop_im.mo
-
  Flat Modelica : TMPDIR\Loop_imf.mo
  Simulation C code :TMPDIR\Loop_im.c
+!messagebox: Modelica blocks are reduced to a block with:              !
+!                                                                      !
+!messagebox: Number of differential states: 0                          !
+!                                                                      !
+!messagebox: Number of algebraic states: 1                             !
+!                                                                      !
+!messagebox: Number of discrete time states  : 0                       !
+!                                                                      !
+!messagebox: Number of zero-crossing surfaces: 0                       !
+!                                                                      !
+!messagebox: Number of modes  : 0                                      !
+!                                                                      !
+!messagebox: Number of inputs : 0                                      !
+!                                                                      !
+!messagebox: Number of outputs: 1                                      !
+!                                                                      !
+!messagebox: Input/output dependency:[T]                               !
+!                                                                      !
+!messagebox: Analytical Jacobian: enabled  (%Jacobian=%t)              !
+!                                                                      !
+!messagebox: Parameter embedding mode: enabled (%Modelica_ParEmb=%t)   !
+!                                                                      !
+!messagebox:                                                           !
+!                                                                      !
+!messagebox: Generated files path: C:\Users\cdd\AppData\Local\Temp\SCI_!
+!TMP_28512_3135\                                                       !
+!                                                                      !
+!messagebox:                                                           !
diff --git a/scilab/modules/xcos/tests/nonreg_tests/bug_12751.dia.ref b/scilab/modules/xcos/tests/nonreg_tests/bug_12751.dia.ref
new file mode 100644 (file)
index 0000000..3c75063
--- /dev/null
@@ -0,0 +1,39 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2014 - Scilab Enterprises - Vladislav TRUBKIN
+//
+// This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- XCOS TEST -->
+//
+// <-- ENGLISH IMPOSED -->
+//
+// <-- Non-regression test for bug 12751 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=12751
+//
+// <-- Short Description -->
+// cdummy_ entry point not found when using Code Generation
+//
+assert_checktrue(importXcosDiagram(SCI + "/modules/xcos/tests/nonreg_tests/bug_12751.zcos"));
+xcos_simulate(scs_m, 4);
+prot = funcprot();
+funcprot(0);
+function str = x_mdialog(desc, labels, ini)
+    str = ["bug_12751"; TMPDIR+"/bug_12751/"; ""];
+endfunction
+funcprot(prot);
+[ok, XX] = do_compile_superblock42(scs_m.objs(1), [], [], %f);
+   Generate a loader file
+   Generate a Makefile
+   Running the Makefile
+   Compilation of bug_12751.c
+   Compilation of bug_12751_void_io.c
+   Compilation of bug_12751_Cblocks.c
+   Building shared library (be patient)
+   Generate a cleaner file
+Shared archive loaded.
+Link done.
+assert_checktrue(ok);
+rmdir(TMPDIR+"/bug_12751/","s");
index ca4e6f0..e8a4c9d 100644 (file)
 // <-- Short Description -->
 // Fails under Mac OS X 10.9
 ilib_verbose(0);
-prot = funcprot();
-funcprot(0);
-// Stubbing the messagebox method
-function messagebox(msg, msg_title)
-endfunction
-funcprot(prot);
 importXcosDiagram(SCI+"/modules/xcos/tests/nonreg_tests/bug_12384.zcos");
 xcos_simulate(scs_m, 4);
 --------------------------------------------\
  Main Modelica : TMPDIR\Loop_im.mo
-
  Flat Modelica : TMPDIR\Loop_imf.mo
  Simulation C code :TMPDIR\Loop_im.c
+!messagebox: Modelica blocks are reduced to a block with:              !
+!                                                                      !
+!messagebox: Number of differential states: 0                          !
+!                                                                      !
+!messagebox: Number of algebraic states: 1                             !
+!                                                                      !
+!messagebox: Number of discrete time states  : 0                       !
+!                                                                      !
+!messagebox: Number of zero-crossing surfaces: 0                       !
+!                                                                      !
+!messagebox: Number of modes  : 0                                      !
+!                                                                      !
+!messagebox: Number of inputs : 0                                      !
+!                                                                      !
+!messagebox: Number of outputs: 1                                      !
+!                                                                      !
+!messagebox: Input/output dependency:[T]                               !
+!                                                                      !
+!messagebox: Analytical Jacobian: enabled  (%Jacobian=%t)              !
+!                                                                      !
+!messagebox: Parameter embedding mode: enabled (%Modelica_ParEmb=%t)   !
+!                                                                      !
+!messagebox:                                                           !
+!                                                                      !
+!messagebox: Generated files path: C:\Users\cdd\AppData\Local\Temp\SCI_!
+!TMP_27048_3452\                                                       !
+!                                                                      !
+!messagebox:                                                           !
 WARNING: Diagram contains implicit blocks, compiling for implicit Solver.
index 214992e..dc2f759 100644 (file)
@@ -48,8 +48,6 @@ function str = x_mdialog(desc, labels, ini)
         str = []; // cancelling
     end
 endfunction
-function messagebox(msg, msg_title)
-endfunction
 // set the path for external file
 for i = 1:size(scs_m.objs)
     if typeof(scs_m.objs(i)) == "Block" & scs_m.objs(i).gui == "MBLOCK" then
@@ -63,22 +61,75 @@ end
 [cpr, ok] = xcos_compile(scs_m);
 --------------------------------------------\
  Main Modelica : TMPDIR\bug_13396_im.mo
-
  Flat Modelica : TMPDIR\bug_13396_imf.mo
  Simulation C code :TMPDIR\bug_13396_im.c
+!messagebox: Modelica blocks are reduced to a block with:              !
+!                                                                      !
+!messagebox: Number of differential states: 0                          !
+!                                                                      !
+!messagebox: Number of algebraic states: 1                             !
+!                                                                      !
+!messagebox: Number of discrete time states  : 0                       !
+!                                                                      !
+!messagebox: Number of zero-crossing surfaces: 1                       !
+!                                                                      !
+!messagebox: Number of modes  : 1                                      !
+!                                                                      !
+!messagebox: Number of inputs : 0                                      !
+!                                                                      !
+!messagebox: Number of outputs: 1                                      !
+!                                                                      !
+!messagebox: Input/output dependency:[T]                               !
+!                                                                      !
+!messagebox: Analytical Jacobian: enabled  (%Jacobian=%t)              !
+!                                                                      !
+!messagebox: Parameter embedding mode: enabled (%Modelica_ParEmb=%t)   !
+!                                                                      !
+!messagebox:                                                           !
+!                                                                      !
+!messagebox: Generated files path: C:\Users\cdd\AppData\Local\Temp\SCI_!
+!TMP_25080_3547\                                                       !
+!                                                                      !
+!messagebox:                                                           !
 WARNING: Diagram contains implicit blocks, compiling for implicit Solver.
 assert_checktrue(ok);
 // simulate the diagram
 xcos_simulate(scs_m, 4);
 --------------------------------------------\
  Main Modelica : TMPDIR\bug_13396_im.mo
-
  Flat Modelica : TMPDIR\bug_13396_imf.mo
  Simulation C code :TMPDIR\bug_13396_im.c
+!messagebox: Modelica blocks are reduced to a block with:              !
+!                                                                      !
+!messagebox: Number of differential states: 0                          !
+!                                                                      !
+!messagebox: Number of algebraic states: 1                             !
+!                                                                      !
+!messagebox: Number of discrete time states  : 0                       !
+!                                                                      !
+!messagebox: Number of zero-crossing surfaces: 1                       !
+!                                                                      !
+!messagebox: Number of modes  : 1                                      !
+!                                                                      !
+!messagebox: Number of inputs : 0                                      !
+!                                                                      !
+!messagebox: Number of outputs: 1                                      !
+!                                                                      !
+!messagebox: Input/output dependency:[T]                               !
+!                                                                      !
+!messagebox: Analytical Jacobian: enabled  (%Jacobian=%t)              !
+!                                                                      !
+!messagebox: Parameter embedding mode: enabled (%Modelica_ParEmb=%t)   !
+!                                                                      !
+!messagebox:                                                           !
+!                                                                      !
+!messagebox: Generated files path: C:\Users\cdd\AppData\Local\Temp\SCI_!
+!TMP_25080_3547\                                                       !
+!                                                                      !
+!messagebox:                                                           !
 WARNING: Diagram contains implicit blocks, compiling for implicit Solver.
 WARNING: Diagram has been compiled for implicit solver
-         switching to implicit Solver
-
+WARNING: switching to implicit Solver
 funcprot(prot);
 ilib_verbose(level);
 mdelete(TMPDIR+"/bug_13396.mo");
index f44708f..b9b1b61 100644 (file)
@@ -27,9 +27,9 @@ assert_checkequal(scs_m.objs(4).id, "link1");
 assert_checkequal(scs_m.objs(5).id, "link2");
 
 // labels inside the superblock
-assert_checkequal(scs_m.objs(3).model.rpar.objs(1).model.label, "bigsom_label")
-assert_checkequal(scs_m.objs(3).model.rpar.objs(2).model.label, "input1")
-assert_checkequal(scs_m.objs(3).model.rpar.objs(3).model.label, "input2")
+assert_checkequal(scs_m.objs(3).model.rpar.objs(1).graphics.id, "bigsom_label")
+assert_checkequal(scs_m.objs(3).model.rpar.objs(2).graphics.id, "input1")
+assert_checkequal(scs_m.objs(3).model.rpar.objs(3).graphics.id, "input2")
 
 // save a copy and recheck
 xcosDiagramToScilab(TMPDIR + "/bug_15024.zcos", scs_m);
@@ -40,7 +40,7 @@ assert_checkequal(scs_m.objs(4).id, "link1");
 assert_checkequal(scs_m.objs(5).id, "link2");
 
 // labels inside the superblock
-assert_checkequal(scs_m.objs(3).model.rpar.objs(1).model.label, "bigsom_label")
-assert_checkequal(scs_m.objs(3).model.rpar.objs(2).model.label, "input1")
-assert_checkequal(scs_m.objs(3).model.rpar.objs(3).model.label, "input2")
+assert_checkequal(scs_m.objs(3).model.rpar.objs(1).graphics.id, "bigsom_label")
+assert_checkequal(scs_m.objs(3).model.rpar.objs(2).graphics.id, "input1")
+assert_checkequal(scs_m.objs(3).model.rpar.objs(3).graphics.id, "input2")
 
index 8e9f7b1..2396ffc 100644 (file)
@@ -1,13 +1,13 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- ENGLISH IMPOSED -->
-// <-- XCOS TEST -->
-// Import diagram
-assert_checktrue(importXcosDiagram("SCI/modules/xcos/tests/unit_tests/Integer/clear_bit.zcos"));
-A_ref = int16(36*ones(128,1));
-try scicos_simulate(scs_m, 'nw'); catch disp(lasterror()); end
-assert_checkequal(A.values, A_ref);
+// =============================================================================\r
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab\r
+// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier\r
+//\r
+//  This file is distributed under the same license as the Scilab package.\r
+// =============================================================================\r
+// <-- ENGLISH IMPOSED -->\r
+// <-- XCOS TEST -->\r
+// Import diagram\r
+assert_checktrue(importXcosDiagram("SCI/modules/xcos/tests/unit_tests/Integer/clear_bit.zcos"));\r
+A_ref = int16(36*ones(128,1));\r
+try scicos_simulate(scs_m, 'nw'); catch disp(lasterror()); end\r
+assert_checkequal(A.values, A_ref);\r
index 33a3c8f..8c46994 100644 (file)
@@ -1,26 +1,26 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- ENGLISH IMPOSED -->
-// <-- XCOS TEST -->
-// Import diagram
-assert_checktrue(importXcosDiagram("SCI/modules/xcos/tests/unit_tests/Integer/dflipflop.zcos"));
-A_ref = int8(zeros(128,1));
-try scicos_simulate(scs_m, "nw"); catch disp(lasterror()); end
-!messagebox: No continuous-time state. Thresholds are ignored; this    !
-!                                                                      !
-!messagebox: may be OK if you don't generate external events with them.!
-!                                                                      !
-!messagebox: If you want to reactivate the thresholds, then you need   !
-!                                                                      !
-!messagebox:                                                           !
-!                                                                      !
-!messagebox: to include a block with continuous-time state in your diag!
-!ram.                                                                  !
-!                                                                      !
-!messagebox:    You can for example include DUMMY CLSS block (linear pa!
-!lette).                                                               !
-assert_checkequal(A.values, A_ref);
+// =============================================================================\r
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab\r
+// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier\r
+//\r
+//  This file is distributed under the same license as the Scilab package.\r
+// =============================================================================\r
+// <-- ENGLISH IMPOSED -->\r
+// <-- XCOS TEST -->\r
+// Import diagram\r
+assert_checktrue(importXcosDiagram("SCI/modules/xcos/tests/unit_tests/Integer/dflipflop.zcos"));\r
+A_ref = int8(zeros(128,1));\r
+try scicos_simulate(scs_m, "nw"); catch disp(lasterror()); end\r
+!messagebox: No continuous-time state. Thresholds are ignored; this    !\r
+!                                                                      !\r
+!messagebox: may be OK if you don't generate external events with them.!\r
+!                                                                      !\r
+!messagebox: If you want to reactivate the thresholds, then you need   !\r
+!                                                                      !\r
+!messagebox:                                                           !\r
+!                                                                      !\r
+!messagebox: to include a block with continuous-time state in your diag!\r
+!ram.                                                                  !\r
+!                                                                      !\r
+!messagebox:    You can for example include DUMMY CLSS block (linear pa!\r
+!lette).                                                               !\r
+assert_checkequal(A.values, A_ref);\r
index 83a1cfa..d98fdd1 100644 (file)
@@ -1,32 +1,32 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- ENGLISH IMPOSED -->
-// <-- XCOS TEST -->
-// Import diagram
-assert_checktrue(importXcosDiagram("SCI/modules/xcos/tests/unit_tests/Integer/dlatch.zcos"));
-A_ref1 = int8(ones(7,1));
-A_ref2 = int8(zeros(24,1));
-A_ref3 = int8(ones(15,1));
-A_ref4 = int8(zeros(26,1));
-try scicos_simulate(scs_m, "nw"); catch disp(lasterror()); end
-!messagebox: No continuous-time state. Thresholds are ignored; this    !
-!                                                                      !
-!messagebox: may be OK if you don't generate external events with them.!
-!                                                                      !
-!messagebox: If you want to reactivate the thresholds, then you need   !
-!                                                                      !
-!messagebox:                                                           !
-!                                                                      !
-!messagebox: to include a block with continuous-time state in your diag!
-!ram.                                                                  !
-!                                                                      !
-!messagebox:    You can for example include DUMMY CLSS block (linear pa!
-!lette).                                                               !
-assert_checkequal(A.values(1:7),   A_ref1);
-assert_checkequal(A.values(8:31),  A_ref2);
-assert_checkequal(A.values(32:46), A_ref3);
-assert_checkequal(A.values(47:72), A_ref4);
+// =============================================================================\r
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab\r
+// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier\r
+//\r
+//  This file is distributed under the same license as the Scilab package.\r
+// =============================================================================\r
+// <-- ENGLISH IMPOSED -->\r
+// <-- XCOS TEST -->\r
+// Import diagram\r
+assert_checktrue(importXcosDiagram("SCI/modules/xcos/tests/unit_tests/Integer/dlatch.zcos"));\r
+A_ref1 = int8(ones(7,1));\r
+A_ref2 = int8(zeros(24,1));\r
+A_ref3 = int8(ones(15,1));\r
+A_ref4 = int8(zeros(26,1));\r
+try scicos_simulate(scs_m, "nw"); catch disp(lasterror()); end\r
+!messagebox: No continuous-time state. Thresholds are ignored; this    !\r
+!                                                                      !\r
+!messagebox: may be OK if you don't generate external events with them.!\r
+!                                                                      !\r
+!messagebox: If you want to reactivate the thresholds, then you need   !\r
+!                                                                      !\r
+!messagebox:                                                           !\r
+!                                                                      !\r
+!messagebox: to include a block with continuous-time state in your diag!\r
+!ram.                                                                  !\r
+!                                                                      !\r
+!messagebox:    You can for example include DUMMY CLSS block (linear pa!\r
+!lette).                                                               !\r
+assert_checkequal(A.values(1:7),   A_ref1);\r
+assert_checkequal(A.values(8:31),  A_ref2);\r
+assert_checkequal(A.values(32:46), A_ref3);\r
+assert_checkequal(A.values(47:72), A_ref4);\r
index 32847fe..55afcb2 100644 (file)
@@ -1,13 +1,13 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- ENGLISH IMPOSED -->
-// <-- XCOS TEST -->
-// Import diagram
-assert_checktrue(importXcosDiagram("SCI/modules/xcos/tests/unit_tests/Integer/extract_bits.zcos"));
-A_ref = 32*ones(128,1);
-try scicos_simulate(scs_m, 'nw'); catch disp(lasterror()); end
-assert_checkequal(A.values, A_ref);
+// =============================================================================\r
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab\r
+// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier\r
+//\r
+//  This file is distributed under the same license as the Scilab package.\r
+// =============================================================================\r
+// <-- ENGLISH IMPOSED -->\r
+// <-- XCOS TEST -->\r
+// Import diagram\r
+assert_checktrue(importXcosDiagram("SCI/modules/xcos/tests/unit_tests/Integer/extract_bits.zcos"));\r
+A_ref = 32*ones(128,1);\r
+try scicos_simulate(scs_m, 'nw'); catch disp(lasterror()); end\r
+assert_checkequal(A.values, A_ref);\r
index 2f8b1d0..60410db 100644 (file)
@@ -1,15 +1,15 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- ENGLISH IMPOSED -->
-// <-- XCOS TEST -->
-// Import diagram
-assert_checktrue(importXcosDiagram("SCI/modules/xcos/tests/unit_tests/Integer/intmul.zcos"));
-A_ref = int16([19 22 ; 43 50]);
-try scicos_simulate(scs_m, 'nw'); catch disp(lasterror()); end
-for i = 1:128
-    assert_checkequal(A.values(:,:,i), A_ref);
-end
+// =============================================================================\r
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab\r
+// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier\r
+//\r
+//  This file is distributed under the same license as the Scilab package.\r
+// =============================================================================\r
+// <-- ENGLISH IMPOSED -->\r
+// <-- XCOS TEST -->\r
+// Import diagram\r
+assert_checktrue(importXcosDiagram("SCI/modules/xcos/tests/unit_tests/Integer/intmul.zcos"));\r
+A_ref = int16([19 22 ; 43 50]);\r
+try scicos_simulate(scs_m, 'nw'); catch disp(lasterror()); end\r
+for i = 1:128\r
+    assert_checkequal(A.values(:,:,i), A_ref);\r
+end\r
index 12ccc6b..9a3d0e0 100644 (file)
@@ -1,13 +1,13 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier
-//
-//This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- ENGLISH IMPOSED -->
-// <-- XCOS TEST -->
-// Import diagram
-assert_checktrue(importXcosDiagram("SCI/modules/xcos/tests/unit_tests/Integer/iselect.zcos"));
-A_ref = int32([0;0;0;0;1;1;1;2;2;2;3;3;3;3;3;3;3;3;3;3;3;3;3;3;3;2;2;2;1;1;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0]);
-try scicos_simulate(scs_m, 'nw'); catch disp(lasterror()); end
-assert_checkequal(A.values, A_ref);
+// =============================================================================\r
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab\r
+// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier\r
+//\r
+//This file is distributed under the same license as the Scilab package.\r
+// =============================================================================\r
+// <-- ENGLISH IMPOSED -->\r
+// <-- XCOS TEST -->\r
+// Import diagram\r
+assert_checktrue(importXcosDiagram("SCI/modules/xcos/tests/unit_tests/Integer/iselect.zcos"));\r
+A_ref = int32([0;0;0;0;1;1;1;2;2;2;3;3;3;3;3;3;3;3;3;3;3;3;3;3;3;2;2;2;1;1;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0]);\r
+try scicos_simulate(scs_m, 'nw'); catch disp(lasterror()); end\r
+assert_checkequal(A.values, A_ref);\r
index bf3d280..17d406b 100644 (file)
@@ -1,18 +1,18 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- ENGLISH IMPOSED -->
-// <-- XCOS TEST -->
-// Import diagram
-assert_checktrue(importXcosDiagram("SCI/modules/xcos/tests/unit_tests/Integer/jkflipflop.zcos"));
-A_ref1 = int8(ones(8,1));
-A_ref2 = int8(zeros(20,1));
-A_ref3 = int8(ones(20,1));
-try scicos_simulate(scs_m, 'nw'); catch disp(lasterror()); end
-assert_checkequal(A.values(1:8),   A_ref1);
-assert_checkequal(A.values(9:28),  A_ref2);
-assert_checkequal(A.values(29:48), A_ref3);
-assert_checkequal(A.values(49:68), A_ref2);
+// =============================================================================\r
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab\r
+// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier\r
+//\r
+//  This file is distributed under the same license as the Scilab package.\r
+// =============================================================================\r
+// <-- ENGLISH IMPOSED -->\r
+// <-- XCOS TEST -->\r
+// Import diagram\r
+assert_checktrue(importXcosDiagram("SCI/modules/xcos/tests/unit_tests/Integer/jkflipflop.zcos"));\r
+A_ref1 = int8(ones(8,1));\r
+A_ref2 = int8(zeros(20,1));\r
+A_ref3 = int8(ones(20,1));\r
+try scicos_simulate(scs_m, 'nw'); catch disp(lasterror()); end\r
+assert_checkequal(A.values(1:8),   A_ref1);\r
+assert_checkequal(A.values(9:28),  A_ref2);\r
+assert_checkequal(A.values(29:48), A_ref3);\r
+assert_checkequal(A.values(49:68), A_ref2);\r
index d46c6bb..00577a4 100644 (file)
@@ -1,18 +1,18 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- ENGLISH IMPOSED -->
-// <-- XCOS TEST -->
-// Import diagram
-assert_checktrue(importXcosDiagram("SCI/modules/xcos/tests/unit_tests/Integer/logic.zcos"));
-A_ref1 = int8(zeros(8,1));
-A_ref2 = int8(ones(10,1));
-A_ref3 = int8(zeros(10,1));
-try scicos_simulate(scs_m, 'nw'); catch disp(lasterror()); end
-assert_checkequal(A.values(1:8),   A_ref1);
-assert_checkequal(A.values(9:18),  A_ref2);
-assert_checkequal(A.values(19:28), A_ref3);
-assert_checkequal(A.values(29:38), A_ref2);
+// =============================================================================\r
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab\r
+// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier\r
+//\r
+//  This file is distributed under the same license as the Scilab package.\r
+// =============================================================================\r
+// <-- ENGLISH IMPOSED -->\r
+// <-- XCOS TEST -->\r
+// Import diagram\r
+assert_checktrue(importXcosDiagram("SCI/modules/xcos/tests/unit_tests/Integer/logic.zcos"));\r
+A_ref1 = int8(zeros(8,1));\r
+A_ref2 = int8(ones(10,1));\r
+A_ref3 = int8(zeros(10,1));\r
+try scicos_simulate(scs_m, 'nw'); catch disp(lasterror()); end\r
+assert_checkequal(A.values(1:8),   A_ref1);\r
+assert_checkequal(A.values(9:18),  A_ref2);\r
+assert_checkequal(A.values(19:28), A_ref3);\r
+assert_checkequal(A.values(29:38), A_ref2);\r
index d6e6b98..93d0ae9 100644 (file)
@@ -1,15 +1,15 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- ENGLISH IMPOSED -->
-// <-- XCOS TEST -->
-// Import diagram
-assert_checktrue(importXcosDiagram("SCI/modules/xcos/tests/unit_tests/Integer/matmul.zcos"));
-A_ref = int16([19 22 ; 43 50]);
-try scicos_simulate(scs_m, 'nw'); catch disp(lasterror()); end
-for i = 1:128
-    assert_checkequal(A.values(:,:,i), A_ref);
-end
+// =============================================================================\r
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab\r
+// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier\r
+//\r
+//  This file is distributed under the same license as the Scilab package.\r
+// =============================================================================\r
+// <-- ENGLISH IMPOSED -->\r
+// <-- XCOS TEST -->\r
+// Import diagram\r
+assert_checktrue(importXcosDiagram("SCI/modules/xcos/tests/unit_tests/Integer/matmul.zcos"));\r
+A_ref = int16([19 22 ; 43 50]);\r
+try scicos_simulate(scs_m, 'nw'); catch disp(lasterror()); end\r
+for i = 1:128\r
+    assert_checkequal(A.values(:,:,i), A_ref);\r
+end\r
index 2a81a96..3ce6702 100644 (file)
@@ -1,18 +1,18 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- ENGLISH IMPOSED -->
-// <-- XCOS TEST -->
-// Import diagram
-assert_checktrue(importXcosDiagram("SCI/modules/xcos/tests/unit_tests/Integer/samphold.zcos"));
-Zero = zeros(71, 1);
-MinusOne   = -1*ones(4, 1);
-MinusTwo   = -2*ones(5, 1);
-MinusThree = -3*ones(5, 1);
-MinusFour  = -4*ones(8, 1);
-A_ref = int32([MinusFour; MinusThree; MinusTwo; MinusOne; Zero; MinusOne; MinusTwo; MinusThree; MinusFour]);
-try scicos_simulate(scs_m, 'nw'); catch disp(lasterror()); end
-assert_checkequal(A.values, A_ref);
+// =============================================================================\r
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab\r
+// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier\r
+//\r
+//  This file is distributed under the same license as the Scilab package.\r
+// =============================================================================\r
+// <-- ENGLISH IMPOSED -->\r
+// <-- XCOS TEST -->\r
+// Import diagram\r
+assert_checktrue(importXcosDiagram("SCI/modules/xcos/tests/unit_tests/Integer/samphold.zcos"));\r
+Zero = zeros(71, 1);\r
+MinusOne   = -1*ones(4, 1);\r
+MinusTwo   = -2*ones(5, 1);\r
+MinusThree = -3*ones(5, 1);\r
+MinusFour  = -4*ones(8, 1);\r
+A_ref = int32([MinusFour; MinusThree; MinusTwo; MinusOne; Zero; MinusOne; MinusTwo; MinusThree; MinusFour]);\r
+try scicos_simulate(scs_m, 'nw'); catch disp(lasterror()); end\r
+assert_checkequal(A.values, A_ref);\r
index 6907096..1b5a547 100644 (file)
@@ -1,13 +1,13 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier
-//
-//This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- ENGLISH IMPOSED -->
-// <-- XCOS TEST -->
-// Import diagram
-assert_checktrue(importXcosDiagram("SCI/modules/xcos/tests/unit_tests/Integer/select.zcos"));
-A_ref = int32([1;1;0;0;1;1;1;2;2;2;3;3;3;3;3;3;3;3;3;3;3;3;3;3;3;2;2;2;1;1;1;0;0;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1]);
-try scicos_simulate(scs_m, 'nw'); catch disp(lasterror()); end
-assert_checkequal(A.values, A_ref);
+// =============================================================================\r
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab\r
+// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier\r
+//\r
+//This file is distributed under the same license as the Scilab package.\r
+// =============================================================================\r
+// <-- ENGLISH IMPOSED -->\r
+// <-- XCOS TEST -->\r
+// Import diagram\r
+assert_checktrue(importXcosDiagram("SCI/modules/xcos/tests/unit_tests/Integer/select.zcos"));\r
+A_ref = int32([1;1;0;0;1;1;1;2;2;2;3;3;3;3;3;3;3;3;3;3;3;3;3;3;3;2;2;2;1;1;1;0;0;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1]);\r
+try scicos_simulate(scs_m, 'nw'); catch disp(lasterror()); end\r
+assert_checkequal(A.values, A_ref);\r
index b312230..001e1e8 100644 (file)
@@ -1,13 +1,13 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- ENGLISH IMPOSED -->
-// <-- XCOS TEST -->
-// Import diagram
-assert_checktrue(importXcosDiagram("SCI/modules/xcos/tests/unit_tests/Integer/set_bit.zcos"));
-A_ref = int16(37*ones(128,1));
-try scicos_simulate(scs_m, 'nw'); catch disp(lasterror()); end
-assert_checkequal(A.values, A_ref);
+// =============================================================================\r
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab\r
+// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier\r
+//\r
+//  This file is distributed under the same license as the Scilab package.\r
+// =============================================================================\r
+// <-- ENGLISH IMPOSED -->\r
+// <-- XCOS TEST -->\r
+// Import diagram\r
+assert_checktrue(importXcosDiagram("SCI/modules/xcos/tests/unit_tests/Integer/set_bit.zcos"));\r
+A_ref = int16(37*ones(128,1));\r
+try scicos_simulate(scs_m, 'nw'); catch disp(lasterror()); end\r
+assert_checkequal(A.values, A_ref);\r
index c5ac266..bc79e90 100644 (file)
@@ -1,13 +1,13 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- ENGLISH IMPOSED -->
-// <-- XCOS TEST -->
-// Import diagram
-assert_checktrue(importXcosDiagram("SCI/modules/xcos/tests/unit_tests/Integer/shift.zcos"));
-A_ref = int16(148*ones(128,1));
-try scicos_simulate(scs_m, 'nw'); catch disp(lasterror()); end
-assert_checkequal(A.values, A_ref);
+// =============================================================================\r
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab\r
+// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier\r
+//\r
+//  This file is distributed under the same license as the Scilab package.\r
+// =============================================================================\r
+// <-- ENGLISH IMPOSED -->\r
+// <-- XCOS TEST -->\r
+// Import diagram\r
+assert_checktrue(importXcosDiagram("SCI/modules/xcos/tests/unit_tests/Integer/shift.zcos"));\r
+A_ref = int16(148*ones(128,1));\r
+try scicos_simulate(scs_m, 'nw'); catch disp(lasterror()); end\r
+assert_checkequal(A.values, A_ref);\r
index 3c57e70..742cf57 100644 (file)
@@ -1,15 +1,15 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- ENGLISH IMPOSED -->
-// <-- XCOS TEST -->
-// Import diagram
-assert_checktrue(importXcosDiagram("SCI/modules/xcos/tests/unit_tests/Integer/srflipflop.zcos"));
-A_ref1 = int8(zeros(28,1));
-A_ref2 = int8(ones(172,1));
-try scicos_simulate(scs_m, 'nw'); catch disp(lasterror()); end
-assert_checkequal(A.values(1:28), A_ref1);
-assert_checkequal(A.values(29:$), A_ref2);
+// =============================================================================\r
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab\r
+// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier\r
+//\r
+//  This file is distributed under the same license as the Scilab package.\r
+// =============================================================================\r
+// <-- ENGLISH IMPOSED -->\r
+// <-- XCOS TEST -->\r
+// Import diagram\r
+assert_checktrue(importXcosDiagram("SCI/modules/xcos/tests/unit_tests/Integer/srflipflop.zcos"));\r
+A_ref1 = int8(zeros(28,1));\r
+A_ref2 = int8(ones(172,1));\r
+try scicos_simulate(scs_m, 'nw'); catch disp(lasterror()); end\r
+assert_checkequal(A.values(1:28), A_ref1);\r
+assert_checkequal(A.values(29:$), A_ref2);\r
index 025b369..9595b25 100644 (file)
@@ -1,15 +1,15 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- ENGLISH IMPOSED -->
-// <-- XCOS TEST -->
-// Import diagram
-assert_checktrue(importXcosDiagram("SCI/modules/xcos/tests/unit_tests/Integer/summation.zcos"));
-A_ref = int16([-4 -4 ; -5 -6]);
-try scicos_simulate(scs_m, 'nw'); catch disp(lasterror()); end
-for i = 1:128
-    assert_checkequal(A.values(:,:,i), A_ref);
-end
+// =============================================================================\r
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab\r
+// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier\r
+//\r
+//  This file is distributed under the same license as the Scilab package.\r
+// =============================================================================\r
+// <-- ENGLISH IMPOSED -->\r
+// <-- XCOS TEST -->\r
+// Import diagram\r
+assert_checktrue(importXcosDiagram("SCI/modules/xcos/tests/unit_tests/Integer/summation.zcos"));\r
+A_ref = int16([-4 -4 ; -5 -6]);\r
+try scicos_simulate(scs_m, 'nw'); catch disp(lasterror()); end\r
+for i = 1:128\r
+    assert_checkequal(A.values(:,:,i), A_ref);\r
+end\r
index fddd1ad..4b8e13a 100644 (file)
@@ -1,33 +1,33 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- ENGLISH IMPOSED -->
-// <-- XCOS TEST -->
-// Import diagram
-assert_checktrue(importXcosDiagram("SCI/modules/xcos/tests/unit_tests/Integer/switch2_m.zcos"));
-// In the diagram, SWITCH2_m block is given int32, double and int32 as input types (3, 1 and 3).
-// This test ensures that a block can have heterogeneous input types.
-Five  = 5*ones(29, 1);
-A_ref = int32([-Five; Five; 5; 5; -Five; -5; -5; -5; 5; 5; 5; 5; 5]);
-try scicos_simulate(scs_m); catch disp(lasterror()); end
-assert_checkequal(A.values, A_ref);
-try xcos_simulate(scs_m, 4); catch disp(lasterror()); end
-assert_checkequal(A.values, A_ref);
-// Now, try with int16 inputs. select_mode = 1 does not produce any change in this case.
-scs_m.props.context = ["a=int16(-5)"; "b=int16(5)"; "input_type=4"; "select_mode=1"; "buffsize=97"];
-A_ref = int16(A_ref);
-try scicos_simulate(scs_m); catch disp(lasterror()); end
-assert_checkequal(A.values, A_ref);
-try xcos_simulate(scs_m, 4); catch disp(lasterror()); end
-assert_checkequal(A.values, A_ref);
-// Finally, with int8 inputs, and select_mode = 2, we set buffsize to 100 to catch the first zero of the sine function.
-// After that first zero, the sine will not be exactly zero at the testing points anymore.
-scs_m.props.context = ["a=int8(-5)"; "b=int8(5)"; "input_type=5"; "select_mode=2"; "buffsize=100"];
-A_ref = int8([5; -5*ones(99, 1)]);
-try scicos_simulate(scs_m); catch disp(lasterror()); end
-assert_checkequal(A.values, A_ref);
-try xcos_simulate(scs_m, 4); catch disp(lasterror()); end
-assert_checkequal(A.values, A_ref);
+// =============================================================================\r
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab\r
+// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier\r
+//\r
+//  This file is distributed under the same license as the Scilab package.\r
+// =============================================================================\r
+// <-- ENGLISH IMPOSED -->\r
+// <-- XCOS TEST -->\r
+// Import diagram\r
+assert_checktrue(importXcosDiagram("SCI/modules/xcos/tests/unit_tests/Integer/switch2_m.zcos"));\r
+// In the diagram, SWITCH2_m block is given int32, double and int32 as input types (3, 1 and 3).\r
+// This test ensures that a block can have heterogeneous input types.\r
+Five  = 5*ones(29, 1);\r
+A_ref = int32([-Five; Five; 5; 5; -Five; -5; -5; -5; 5; 5; 5; 5; 5]);\r
+try scicos_simulate(scs_m); catch disp(lasterror()); end\r
+assert_checkequal(A.values, A_ref);\r
+try xcos_simulate(scs_m, 4); catch disp(lasterror()); end\r
+assert_checkequal(A.values, A_ref);\r
+// Now, try with int16 inputs. select_mode = 1 does not produce any change in this case.\r
+scs_m.props.context = ["a=int16(-5)"; "b=int16(5)"; "input_type=4"; "select_mode=1"; "buffsize=97"];\r
+A_ref = int16(A_ref);\r
+try scicos_simulate(scs_m); catch disp(lasterror()); end\r
+assert_checkequal(A.values, A_ref);\r
+try xcos_simulate(scs_m, 4); catch disp(lasterror()); end\r
+assert_checkequal(A.values, A_ref);\r
+// Finally, with int8 inputs, and select_mode = 2, we set buffsize to 100 to catch the first zero of the sine function.\r
+// After that first zero, the sine will not be exactly zero at the testing points anymore.\r
+scs_m.props.context = ["a=int8(-5)"; "b=int8(5)"; "input_type=5"; "select_mode=2"; "buffsize=100"];\r
+A_ref = int8([5; -5*ones(99, 1)]);\r
+try scicos_simulate(scs_m); catch disp(lasterror()); end\r
+assert_checkequal(A.values, A_ref);\r
+try xcos_simulate(scs_m, 4); catch disp(lasterror()); end\r
+assert_checkequal(A.values, A_ref);\r
index c2ac6e1..3b7590a 100644 (file)
@@ -1,30 +1,30 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2016 - Scilab Enterprises - Clement DAVID
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-//
-// <-- ENGLISH IMPOSED -->
-// <-- XCOS TEST -->
-//
-// <-- Unit test for CLOCK_c -->
-//
-// <-- Short Description -->
-// The block should have a valid sub-diagram
-//
-loadXcosLibs();
-blk = CLOCK_c("define");
-d = blk.model.rpar;
-assert_checkequal(d.objs(1).gui, "CLKOUT_f");
-assert_checkequal(d.objs(2).gui, "EVTDLY_c");
-assert_checkequal(typeof(d.objs(3)), "Link");
-assert_checkequal(d.objs(4).gui, "CLKSPLIT_f");
-assert_checkequal(typeof(d.objs(5)), "Link");
-assert_checkequal(typeof(d.objs(6)), "Link");
-assert_checkequal(d.objs(3).from, [2 1 0]);
-assert_checkequal(d.objs(3).to,   [4 1 1]);
-assert_checkequal(d.objs(5).from, [4 1 0]);
-assert_checkequal(d.objs(5).to,   [1 1 1]);
-assert_checkequal(d.objs(6).from, [4 2 0]);
-assert_checkequal(d.objs(6).to,   [2 1 1]);
+// =============================================================================\r
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab\r
+// Copyright (C) 2016 - Scilab Enterprises - Clement DAVID\r
+//\r
+//  This file is distributed under the same license as the Scilab package.\r
+// =============================================================================\r
+//\r
+// <-- ENGLISH IMPOSED -->\r
+// <-- XCOS TEST -->\r
+//\r
+// <-- Unit test for CLOCK_c -->\r
+//\r
+// <-- Short Description -->\r
+// The block should have a valid sub-diagram\r
+//\r
+loadXcosLibs();\r
+blk = CLOCK_c("define");\r
+d = blk.model.rpar;\r
+assert_checkequal(d.objs(1).gui, "CLKOUT_f");\r
+assert_checkequal(d.objs(2).gui, "EVTDLY_c");\r
+assert_checkequal(typeof(d.objs(3)), "Link");\r
+assert_checkequal(d.objs(4).gui, "CLKSPLIT_f");\r
+assert_checkequal(typeof(d.objs(5)), "Link");\r
+assert_checkequal(typeof(d.objs(6)), "Link");\r
+assert_checkequal(d.objs(3).from, [2 1 0]);\r
+assert_checkequal(d.objs(3).to,   [4 1 1]);\r
+assert_checkequal(d.objs(5).from, [4 1 0]);\r
+assert_checkequal(d.objs(5).to,   [1 1 1]);\r
+assert_checkequal(d.objs(6).from, [4 2 0]);\r
+assert_checkequal(d.objs(6).to,   [2 1 1]);\r
index 3db19f9..8ac6c13 100644 (file)
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2011 - Scilab Enterprises - Clément DAVID
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-//
-// <-- ENGLISH IMPOSED -->
-// <-- XCOS TEST -->
-//
-// <-- Unit test for DEBUG_SCICOS -->
-//
-// <-- Short Description -->
-// The debug block is called before each real block call
-//
-global Result;Result=[];
-importXcosDiagram('SCI/modules/xcos/tests/nonreg_tests/bug_8480.zcos');
-Info=scicos_simulate(scs_m,list());
-block 1 [7b9ce3ac:12d299ba8fe:-7fd7] is called with flag 4 at time 0.000000 
-Entering the block 
-Leaving block 1 
-block 2 [7b9ce3ac:12d299ba8fe:-7fcd] is called with flag 4 at time 0.000000 
-Entering the block 
-Leaving block 2 
-block 3 [7b9ce3ac:12d299ba8fe:-7fc1] is called with flag 4 at time 0.000000 
-Entering the block 
-Leaving block 3 
-block 4 [7b9ce3ac:12d299ba8fe:-7fb4] is called with flag 4 at time 0.000000 
-Entering the block 
-Leaving block 4 
-block 6 [-10054033:12d2c0f9f25:-7f6c] is called with flag 4 at time 0.000000 
-Entering the block 
-Leaving block 6 
-block 1 [7b9ce3ac:12d299ba8fe:-7fd7] is called with flag 6 at time 0.000000 
-Entering the block 
-Leaving block 1 
-block 2 [7b9ce3ac:12d299ba8fe:-7fcd] is called with flag 6 at time 0.000000 
-Entering the block 
-Leaving block 2 
-block 3 [7b9ce3ac:12d299ba8fe:-7fc1] is called with flag 6 at time 0.000000 
-Entering the block 
-Leaving block 3 
-block 4 [7b9ce3ac:12d299ba8fe:-7fb4] is called with flag 6 at time 0.000000 
-Entering the block 
-Leaving block 4 
-block 6 [-10054033:12d2c0f9f25:-7f6c] is called with flag 6 at time 0.000000 
-Entering the block 
-Leaving block 6 
-block 1 [7b9ce3ac:12d299ba8fe:-7fd7] is called with flag 6 at time 0.000000 
-Entering the block 
-Leaving block 1 
-block 2 [7b9ce3ac:12d299ba8fe:-7fcd] is called with flag 6 at time 0.000000 
-Entering the block 
-Leaving block 2 
-block 3 [7b9ce3ac:12d299ba8fe:-7fc1] is called with flag 6 at time 0.000000 
-Entering the block 
-Leaving block 3 
-block 4 [7b9ce3ac:12d299ba8fe:-7fb4] is called with flag 6 at time 0.000000 
-Entering the block 
-Leaving block 4 
-block 6 [-10054033:12d2c0f9f25:-7f6c] is called with flag 6 at time 0.000000 
-Entering the block 
-Leaving block 6 
-Event: 1 activated at t=0.000000
-**mod**
-block 1 [7b9ce3ac:12d299ba8fe:-7fd7] is called with flag 1 at time 0.000000 
-Entering the block 
-Leaving block 1 
-block 2 [7b9ce3ac:12d299ba8fe:-7fcd] is called with flag 1 at time 0.000000 
-Entering the block 
-Leaving block 2 
-block 4 [7b9ce3ac:12d299ba8fe:-7fb4] is called with flag 1 at time 0.000000 
-Entering the block 
-Leaving block 4 
-block 6 [-10054033:12d2c0f9f25:-7f6c] is called with flag 1 at time 0.000000 
-Entering the block 
-Leaving block 6 
-block 3 [7b9ce3ac:12d299ba8fe:-7fc1] is called with flag 1 at time 0.000000 
-Entering the block 
-Leaving block 3 
-block 1 [7b9ce3ac:12d299ba8fe:-7fd7] is called with flag 2 at time 0.000000 
-Entering the block 
-Leaving block 1 
-block 4 [7b9ce3ac:12d299ba8fe:-7fb4] is called with flag 2 at time 0.000000 
-Entering the block 
-Leaving block 4 
-block 6 [-10054033:12d2c0f9f25:-7f6c] is called with flag 3 at time 0.000000 
-Entering the block 
-Leaving block 6 
-block 6 [-10054033:12d2c0f9f25:-7f6c] is called with flag 2 at time 0.000000 
-Entering the block 
-Leaving block 6 
-End of activation
-Event: 1 activated at t=0.500000
-**mod**
-block 1 [7b9ce3ac:12d299ba8fe:-7fd7] is called with flag 1 at time 0.500000 
-Entering the block 
-Leaving block 1 
-block 2 [7b9ce3ac:12d299ba8fe:-7fcd] is called with flag 1 at time 0.500000 
-Entering the block 
-Leaving block 2 
-block 4 [7b9ce3ac:12d299ba8fe:-7fb4] is called with flag 1 at time 0.500000 
-Entering the block 
-Leaving block 4 
-block 6 [-10054033:12d2c0f9f25:-7f6c] is called with flag 1 at time 0.500000 
-Entering the block 
-Leaving block 6 
-block 3 [7b9ce3ac:12d299ba8fe:-7fc1] is called with flag 1 at time 0.500000 
-Entering the block 
-Leaving block 3 
-block 1 [7b9ce3ac:12d299ba8fe:-7fd7] is called with flag 2 at time 0.500000 
-Entering the block 
-Leaving block 1 
-block 4 [7b9ce3ac:12d299ba8fe:-7fb4] is called with flag 2 at time 0.500000 
-Entering the block 
-Leaving block 4 
-block 6 [-10054033:12d2c0f9f25:-7f6c] is called with flag 3 at time 0.500000 
-Entering the block 
-Leaving block 6 
-block 6 [-10054033:12d2c0f9f25:-7f6c] is called with flag 2 at time 0.500000 
-Entering the block 
-Leaving block 6 
-End of activation
-block 1 [7b9ce3ac:12d299ba8fe:-7fd7] is called with flag 5 at time 1.000000 
-Entering the block 
-Leaving block 1 
-block 2 [7b9ce3ac:12d299ba8fe:-7fcd] is called with flag 5 at time 1.000000 
-Entering the block 
-Leaving block 2 
-block 3 [7b9ce3ac:12d299ba8fe:-7fc1] is called with flag 5 at time 1.000000 
-Entering the block 
-Leaving block 3 
-block 4 [7b9ce3ac:12d299ba8fe:-7fb4] is called with flag 5 at time 1.000000 
-Entering the block 
-Leaving block 4 
-block 6 [-10054033:12d2c0f9f25:-7f6c] is called with flag 5 at time 1.000000 
-Entering the block 
-Leaving block 6 
-guis = [];
-for i=1:length(scs_m.objs) do
-    o = scs_m.objs(i);
-    if typeof(o) == "Block" then
-        gui=o.gui;
-        
-        guis = [guis ; gui];
-        execstr(gui + "_index = i;");
-    end
-end
-Result_ref = [CLOCK_c_index 4 0;
-CLOCK_c_index 4 0;
-GENSQR_f_index 4 0;
-GENSQR_f_index 4 0;
-DOLLAR_f_index 4 0;
-DOLLAR_f_index 4 0;
-MUX_index 4 0;
-MUX_index 4 0;
-TRASH_f_index 4 0;
-TRASH_f_index 4 0;
-CLOCK_c_index 6 0;
-CLOCK_c_index 6 0;
-GENSQR_f_index 6 0;
-GENSQR_f_index 6 0;
-DOLLAR_f_index 6 0;
-DOLLAR_f_index 6 0;
-MUX_index 6 0;
-MUX_index 6 0;
-TRASH_f_index 6 0;
-TRASH_f_index 6 0;
-CLOCK_c_index 6 0;
-CLOCK_c_index 6 0;
-GENSQR_f_index 6 0;
-GENSQR_f_index 6 0;
-DOLLAR_f_index 6 0;
-DOLLAR_f_index 6 0;
-MUX_index 6 0;
-MUX_index 6 0;
-TRASH_f_index 6 0;
-TRASH_f_index 6 0;
-CLOCK_c_index 1 0;
-CLOCK_c_index 1 0;
-GENSQR_f_index 1 0;
-GENSQR_f_index 1 0;
-DOLLAR_f_index 1 0;
-DOLLAR_f_index 1 0;
-TRASH_f_index 1 0;
-TRASH_f_index 1 0;
-MUX_index 1 0;
-MUX_index 1 0;
-CLOCK_c_index 3 0;
-CLOCK_c_index 3 0;
-CLOCK_c_index 2 0;
-CLOCK_c_index 2 0;
-GENSQR_f_index 2 0;
-GENSQR_f_index 2 0;
-DOLLAR_f_index 2 0;
-DOLLAR_f_index 2 0;
-CLOCK_c_index 1 0.5;
-CLOCK_c_index 1 0.5;
-GENSQR_f_index 1 0.5;
-GENSQR_f_index 1 0.5;
-DOLLAR_f_index 1 0.5;
-DOLLAR_f_index 1 0.5;
-TRASH_f_index 1 0.5;
-TRASH_f_index 1 0.5;
-MUX_index 1 0.5;
-MUX_index 1 0.5;
-CLOCK_c_index 3 0.5;
-CLOCK_c_index 3 0.5;
-CLOCK_c_index 2 0.5;
-CLOCK_c_index 2 0.5;
-GENSQR_f_index 2 0.5;
-GENSQR_f_index 2 0.5;
-DOLLAR_f_index 2 0.5;
-DOLLAR_f_index 2 0.5;
-CLOCK_c_index 5 1;
-CLOCK_c_index 5 1;
-GENSQR_f_index 5 1;
-GENSQR_f_index 5 1;
-DOLLAR_f_index 5 1;
-DOLLAR_f_index 5 1;
-MUX_index 5 1;
-MUX_index 5 1;
-TRASH_f_index 5 1;
-TRASH_f_index 5 1];
-if Result <> Result_ref then bugmes();quit;end
-clearglobal Result
+// =============================================================================\r
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab\r
+// Copyright (C) 2011 - Scilab Enterprises - Clément DAVID\r
+//\r
+//  This file is distributed under the same license as the Scilab package.\r
+// =============================================================================\r
+//\r
+// <-- ENGLISH IMPOSED -->\r
+// <-- XCOS TEST -->\r
+//\r
+// <-- Unit test for DEBUG_SCICOS -->\r
+//\r
+// <-- Short Description -->\r
+// The debug block is called before each real block call\r
+//\r
+global Result;Result=[];\r
+importXcosDiagram('SCI/modules/xcos/tests/nonreg_tests/bug_8480.zcos');\r
+Info=scicos_simulate(scs_m,list());\r
+block 1 [7b9ce3ac:12d299ba8fe:-7fd7] is called with flag 4 at time 0.000000 \r
+Entering the block \r
+Leaving block 1 \r
+block 2 [7b9ce3ac:12d299ba8fe:-7fcd] is called with flag 4 at time 0.000000 \r
+Entering the block \r
+Leaving block 2 \r
+block 3 [7b9ce3ac:12d299ba8fe:-7fc1] is called with flag 4 at time 0.000000 \r
+Entering the block \r
+Leaving block 3 \r
+block 4 [7b9ce3ac:12d299ba8fe:-7fb4] is called with flag 4 at time 0.000000 \r
+Entering the block \r
+Leaving block 4 \r
+block 6 [-10054033:12d2c0f9f25:-7f6c] is called with flag 4 at time 0.000000 \r
+Entering the block \r
+Leaving block 6 \r
+block 1 [7b9ce3ac:12d299ba8fe:-7fd7] is called with flag 6 at time 0.000000 \r
+Entering the block \r
+Leaving block 1 \r
+block 2 [7b9ce3ac:12d299ba8fe:-7fcd] is called with flag 6 at time 0.000000 \r
+Entering the block \r
+Leaving block 2 \r
+block 3 [7b9ce3ac:12d299ba8fe:-7fc1] is called with flag 6 at time 0.000000 \r
+Entering the block \r
+Leaving block 3 \r
+block 4 [7b9ce3ac:12d299ba8fe:-7fb4] is called with flag 6 at time 0.000000 \r
+Entering the block \r
+Leaving block 4 \r
+block 6 [-10054033:12d2c0f9f25:-7f6c] is called with flag 6 at time 0.000000 \r
+Entering the block \r
+Leaving block 6 \r
+block 1 [7b9ce3ac:12d299ba8fe:-7fd7] is called with flag 6 at time 0.000000 \r
+Entering the block \r
+Leaving block 1 \r
+block 2 [7b9ce3ac:12d299ba8fe:-7fcd] is called with flag 6 at time 0.000000 \r
+Entering the block \r
+Leaving block 2 \r
+block 3 [7b9ce3ac:12d299ba8fe:-7fc1] is called with flag 6 at time 0.000000 \r
+Entering the block \r
+Leaving block 3 \r
+block 4 [7b9ce3ac:12d299ba8fe:-7fb4] is called with flag 6 at time 0.000000 \r
+Entering the block \r
+Leaving block 4 \r
+block 6 [-10054033:12d2c0f9f25:-7f6c] is called with flag 6 at time 0.000000 \r
+Entering the block \r
+Leaving block 6 \r
+Event: 1 activated at t=0.000000\r
+**mod**\r
+block 1 [7b9ce3ac:12d299ba8fe:-7fd7] is called with flag 1 at time 0.000000 \r
+Entering the block \r
+Leaving block 1 \r
+block 2 [7b9ce3ac:12d299ba8fe:-7fcd] is called with flag 1 at time 0.000000 \r
+Entering the block \r
+Leaving block 2 \r
+block 4 [7b9ce3ac:12d299ba8fe:-7fb4] is called with flag 1 at time 0.000000 \r
+Entering the block \r
+Leaving block 4 \r
+block 6 [-10054033:12d2c0f9f25:-7f6c] is called with flag 1 at time 0.000000 \r
+Entering the block \r
+Leaving block 6 \r
+block 3 [7b9ce3ac:12d299ba8fe:-7fc1] is called with flag 1 at time 0.000000 \r
+Entering the block \r
+Leaving block 3 \r
+block 1 [7b9ce3ac:12d299ba8fe:-7fd7] is called with flag 2 at time 0.000000 \r
+Entering the block \r
+Leaving block 1 \r
+block 4 [7b9ce3ac:12d299ba8fe:-7fb4] is called with flag 2 at time 0.000000 \r
+Entering the block \r
+Leaving block 4 \r
+block 6 [-10054033:12d2c0f9f25:-7f6c] is called with flag 3 at time 0.000000 \r
+Entering the block \r
+Leaving block 6 \r
+block 6 [-10054033:12d2c0f9f25:-7f6c] is called with flag 2 at time 0.000000 \r
+Entering the block \r
+Leaving block 6 \r
+End of activation\r
+Event: 1 activated at t=0.500000\r
+**mod**\r
+block 1 [7b9ce3ac:12d299ba8fe:-7fd7] is called with flag 1 at time 0.500000 \r
+Entering the block \r
+Leaving block 1 \r
+block 2 [7b9ce3ac:12d299ba8fe:-7fcd] is called with flag 1 at time 0.500000 \r
+Entering the block \r
+Leaving block 2 \r
+block 4 [7b9ce3ac:12d299ba8fe:-7fb4] is called with flag 1 at time 0.500000 \r
+Entering the block \r
+Leaving block 4 \r
+block 6 [-10054033:12d2c0f9f25:-7f6c] is called with flag 1 at time 0.500000 \r
+Entering the block \r
+Leaving block 6 \r
+block 3 [7b9ce3ac:12d299ba8fe:-7fc1] is called with flag 1 at time 0.500000 \r
+Entering the block \r
+Leaving block 3 \r
+block 1 [7b9ce3ac:12d299ba8fe:-7fd7] is called with flag 2 at time 0.500000 \r
+Entering the block \r
+Leaving block 1 \r
+block 4 [7b9ce3ac:12d299ba8fe:-7fb4] is called with flag 2 at time 0.500000 \r
+Entering the block \r
+Leaving block 4 \r
+block 6 [-10054033:12d2c0f9f25:-7f6c] is called with flag 3 at time 0.500000 \r
+Entering the block \r
+Leaving block 6 \r
+block 6 [-10054033:12d2c0f9f25:-7f6c] is called with flag 2 at time 0.500000 \r
+Entering the block \r
+Leaving block 6 \r
+End of activation\r
+block 1 [7b9ce3ac:12d299ba8fe:-7fd7] is called with flag 5 at time 1.000000 \r
+Entering the block \r
+Leaving block 1 \r
+block 2 [7b9ce3ac:12d299ba8fe:-7fcd] is called with flag 5 at time 1.000000 \r
+Entering the block \r
+Leaving block 2 \r
+block 3 [7b9ce3ac:12d299ba8fe:-7fc1] is called with flag 5 at time 1.000000 \r
+Entering the block \r
+Leaving block 3 \r
+block 4 [7b9ce3ac:12d299ba8fe:-7fb4] is called with flag 5 at time 1.000000 \r
+Entering the block \r
+Leaving block 4 \r
+block 6 [-10054033:12d2c0f9f25:-7f6c] is called with flag 5 at time 1.000000 \r
+Entering the block \r
+Leaving block 6 \r
+guis = [];\r
+for i=1:length(scs_m.objs) do\r
+    o = scs_m.objs(i);\r
+    if typeof(o) == "Block" then\r
+        gui=o.gui;\r
+        \r
+        guis = [guis ; gui];\r
+        execstr(gui + "_index = i;");\r
+    end\r
+end\r
+Result_ref = [CLOCK_c_index 4 0;\r
+CLOCK_c_index 4 0;\r
+GENSQR_f_index 4 0;\r
+GENSQR_f_index 4 0;\r
+DOLLAR_f_index 4 0;\r
+DOLLAR_f_index 4 0;\r
+MUX_index 4 0;\r
+MUX_index 4 0;\r
+TRASH_f_index 4 0;\r
+TRASH_f_index 4 0;\r
+CLOCK_c_index 6 0;\r
+CLOCK_c_index 6 0;\r
+GENSQR_f_index 6 0;\r
+GENSQR_f_index 6 0;\r
+DOLLAR_f_index 6 0;\r
+DOLLAR_f_index 6 0;\r
+MUX_index 6 0;\r
+MUX_index 6 0;\r
+TRASH_f_index 6 0;\r
+TRASH_f_index 6 0;\r
+CLOCK_c_index 6 0;\r
+CLOCK_c_index 6 0;\r
+GENSQR_f_index 6 0;\r
+GENSQR_f_index 6 0;\r
+DOLLAR_f_index 6 0;\r
+DOLLAR_f_index 6 0;\r
+MUX_index 6 0;\r
+MUX_index 6 0;\r
+TRASH_f_index 6 0;\r
+TRASH_f_index 6 0;\r
+CLOCK_c_index 1 0;\r
+CLOCK_c_index 1 0;\r
+GENSQR_f_index 1 0;\r
+GENSQR_f_index 1 0;\r
+DOLLAR_f_index 1 0;\r
+DOLLAR_f_index 1 0;\r
+TRASH_f_index 1 0;\r
+TRASH_f_index 1 0;\r
+MUX_index 1 0;\r
+MUX_index 1 0;\r
+CLOCK_c_index 3 0;\r
+CLOCK_c_index 3 0;\r
+CLOCK_c_index 2 0;\r
+CLOCK_c_index 2 0;\r
+GENSQR_f_index 2 0;\r
+GENSQR_f_index 2 0;\r
+DOLLAR_f_index 2 0;\r
+DOLLAR_f_index 2 0;\r
+CLOCK_c_index 1 0.5;\r
+CLOCK_c_index 1 0.5;\r
+GENSQR_f_index 1 0.5;\r
+GENSQR_f_index 1 0.5;\r
+DOLLAR_f_index 1 0.5;\r
+DOLLAR_f_index 1 0.5;\r
+TRASH_f_index 1 0.5;\r
+TRASH_f_index 1 0.5;\r
+MUX_index 1 0.5;\r
+MUX_index 1 0.5;\r
+CLOCK_c_index 3 0.5;\r
+CLOCK_c_index 3 0.5;\r
+CLOCK_c_index 2 0.5;\r
+CLOCK_c_index 2 0.5;\r
+GENSQR_f_index 2 0.5;\r
+GENSQR_f_index 2 0.5;\r
+DOLLAR_f_index 2 0.5;\r
+DOLLAR_f_index 2 0.5;\r
+CLOCK_c_index 5 1;\r
+CLOCK_c_index 5 1;\r
+GENSQR_f_index 5 1;\r
+GENSQR_f_index 5 1;\r
+DOLLAR_f_index 5 1;\r
+DOLLAR_f_index 5 1;\r
+MUX_index 5 1;\r
+MUX_index 5 1;\r
+TRASH_f_index 5 1;\r
+TRASH_f_index 5 1];\r
+if Result <> Result_ref then bugmes();quit;end\r
+clearglobal Result\r
index 110babb..2cf2699 100644 (file)
@@ -1,24 +1,24 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2010 DIGITEO Clément DAVID
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- ENGLISH IMPOSED -->
-// <-- XCOS TEST -->
-//
-// <-- Short Description -->
-// This script validate the eselect functionality with a sinus input.
-// The associated diagram (sinus.zcos) is run and export data to the workspace.
-// These data are then compared to the default.
-//
-currentPath = SCI + "/modules/xcos/tests/unit_tests/block_tests/ESELECT_f/";
-// Import the reference data (A_ref)
-ierr = execstr("load(currentPath + ""sinus_ref.sod"");", "errcatch");
-assert_checktrue(ierr == 0);
-// Import the diagram structure
-ierr = importXcosDiagram(currentPath + "sinus.zcos");
-if ierr <> %t then bugmes();quit;end
-// launch the simulation
-scicos_simulate(scs_m);
-assert_checkalmostequal(A_ref("values"), A("values"));
+// =============================================================================\r
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab\r
+// Copyright (C) 2010 DIGITEO Clément DAVID\r
+//\r
+//  This file is distributed under the same license as the Scilab package.\r
+// =============================================================================\r
+// <-- ENGLISH IMPOSED -->\r
+// <-- XCOS TEST -->\r
+//\r
+// <-- Short Description -->\r
+// This script validate the eselect functionality with a sinus input.\r
+// The associated diagram (sinus.zcos) is run and export data to the workspace.\r
+// These data are then compared to the default.\r
+//\r
+currentPath = SCI + "/modules/xcos/tests/unit_tests/block_tests/ESELECT_f/";\r
+// Import the reference data (A_ref)\r
+ierr = execstr("load(currentPath + ""sinus_ref.sod"");", "errcatch");\r
+assert_checktrue(ierr == 0);\r
+// Import the diagram structure\r
+ierr = importXcosDiagram(currentPath + "sinus.zcos");\r
+if ierr <> %t then bugmes();quit;end\r
+// launch the simulation\r
+scicos_simulate(scs_m);\r
+assert_checkalmostequal(A_ref("values"), A("values"));\r
index 018fc00..9b1af5c 100644 (file)
@@ -32,8 +32,8 @@ notTested = ["SUPER_f", "DSUPER", ..              // Specific blocks
 "PENDULUM_ANIM", "BPLATFORM", "MBLOCK", ..
 "TKSCALE", "BARXY", ..
 "SLIDER_f", "WFILE_f", "func_block", "SOM_f", ..  // Deprecated blocks
-"MPBLOCK", "fortran_block", ..       // blocks with code generation
-"CBLOCK", "scifunc_block", "scifunc_block_m"];
+"MPBLOCK", "c_block", "fortran_block", ..       // blocks with code generation
+"CBLOCK", "CBLOCK4", "scifunc_block", "scifunc_block_m"];
 invalidFunctions = unique(gsort(["csuper", "junk", ..
 "clkfrom", "clkgoto", ..
 "goto", "from", "gotomo", "frommo", ..
diff --git a/scilab/modules/xcos/tests/unit_tests/scicos_filesassociation.tst b/scilab/modules/xcos/tests/unit_tests/scicos_filesassociation.tst
deleted file mode 100644 (file)
index 17aae57..0000000
+++ /dev/null
@@ -1,16 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2005-2008 - INRIA - Allan CORNET <allan.cornet@inria.fr>
-// Copyright (C) 2005-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-if getos() == 'Windows' then
-  
-  ierr = execstr('res = winqueryreg(''HKEY_CLASSES_ROOT'',''Scilab5.cos'')','errcatch');
-  if ierr <> 0 then pause,end
-  
-  ierr = execstr('res = winqueryreg(''HKEY_CLASSES_ROOT'',''Scilab5.cosf'')','errcatch');
-  if ierr <> 0 then pause,end
-  
-end
\ No newline at end of file
diff --git a/scilab/modules/xcos/tests/unit_tests/scicos_filesassociation.unix.dia.ref b/scilab/modules/xcos/tests/unit_tests/scicos_filesassociation.unix.dia.ref
deleted file mode 100644 (file)
index 2b5439d..0000000
+++ /dev/null
@@ -1,16 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2005-2008 - INRIA - Allan CORNET <allan.cornet@inria.fr>
-// Copyright (C) 2005-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-if getos() == 'Windows' then
-  
-  ierr = execstr('res = winqueryreg(''HKEY_CLASSES_ROOT'',''Scilab5.cos'')','errcatch');
-  if ierr <> 0 then bugmes();quit;end
-  
-  ierr = execstr('res = winqueryreg(''HKEY_CLASSES_ROOT'',''Scilab5.cosf'')','errcatch');
-  if ierr <> 0 then bugmes();quit;end
-  
-end
diff --git a/scilab/modules/xcos/tests/unit_tests/scicos_filesassociation.win.dia.ref b/scilab/modules/xcos/tests/unit_tests/scicos_filesassociation.win.dia.ref
deleted file mode 100644 (file)
index 04bff1a..0000000
+++ /dev/null
@@ -1,13 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2005-2008 - INRIA - Allan CORNET <allan.cornet@inria.fr>
-// Copyright (C) 2005-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-if getos() == 'Windows' then
-  ierr = execstr('res = winqueryreg(''HKEY_CLASSES_ROOT'',''Scilab5.cos'')','errcatch');
-  if ierr <> 0 then bugmes();quit;end
-  ierr = execstr('res = winqueryreg(''HKEY_CLASSES_ROOT'',''Scilab5.cosf'')','errcatch');
-  if ierr <> 0 then bugmes();quit;end
-end