Fix wrong fielname in Block definition. 47/12547/2
Bruno JOFRET [Mon, 16 Sep 2013 10:33:45 +0000 (12:33 +0200)]
Change-Id: I5befc54d40e22c6149942d97c6a635800ef3e4e0

12 files changed:
scilab/modules/scicos_blocks/macros/Sources/GENSIN_f.sci
scilab/modules/scicos_blocks/macros/Sources/GENSQR_f.sci
scilab/modules/scicos_blocks/macros/Sources/STEP.sci
scilab/modules/scicos_blocks/macros/Sources/STEP_FUNCTION.sci
scilab/modules/scicos_blocks/tests/unit_tests/GENSIN_f.dia.ref [new file with mode: 0644]
scilab/modules/scicos_blocks/tests/unit_tests/GENSIN_f.tst [new file with mode: 0644]
scilab/modules/scicos_blocks/tests/unit_tests/GENSQR_f.dia.ref [new file with mode: 0644]
scilab/modules/scicos_blocks/tests/unit_tests/GENSQR_f.tst [new file with mode: 0644]
scilab/modules/scicos_blocks/tests/unit_tests/STEP.dia.ref [new file with mode: 0644]
scilab/modules/scicos_blocks/tests/unit_tests/STEP.tst [new file with mode: 0644]
scilab/modules/scicos_blocks/tests/unit_tests/STEP_FUNCTION.dia.ref [new file with mode: 0644]
scilab/modules/scicos_blocks/tests/unit_tests/STEP_FUNCTION.tst [new file with mode: 0644]

index 6549ef1..b87e4bd 100644 (file)
 function [x,y,typ]=GENSIN_f(job,arg1,arg2)
     x=[];y=[];typ=[];
     select job
-    case "plot" then
-        standard_draw(arg1)
-    case "getinputs" then
-        x=[];y=[];typ=[];
-    case "getoutputs" then
-        [x,y,typ]=standard_outputs(arg1)
-    case "getorigin" then
-        [x,y]=standard_origin(arg1)
     case "set" then
         x=arg1;
         graphics=arg1.graphics;exprs=graphics.exprs
@@ -53,7 +45,7 @@ function [x,y,typ]=GENSIN_f(job,arg1,arg2)
                 //next two lines to fix invalid properties in scilab version
                 //prior 5.5.0
                 model.out2=1;
-                model.outtype=1;
+                model.outtyp=1;
 
                 graphics.exprs=exprs;
                 x.graphics=graphics;x.model=model
@@ -67,14 +59,12 @@ function [x,y,typ]=GENSIN_f(job,arg1,arg2)
         model.in=[]
         model.out=1
         model.out2=1
-        model.outtype=1
+        model.outtyp=1
         model.rpar=[1;1;0]
         model.blocktype="c"
         model.dep_ut=[%f %t]
-
         exprs=[string(rpar(1));string(rpar(2));string(rpar(3))]
-        gr_i=["txt=[''sinusoid'';''generator''];";
-        "xstringb(orig(1),orig(2),txt,sz(1),sz(2),''fill'');"]
+        gr_i=[]
         x=standard_define([3 2],model,exprs,gr_i)
     end
 endfunction
index f271c7d..bdeb79d 100644 (file)
 function [x,y,typ]=GENSQR_f(job,arg1,arg2)
     x=[];y=[];typ=[];
     select job
-    case "plot" then
-        standard_draw(arg1)
-    case "getinputs" then
-        [x,y,typ]=standard_inputs(arg1)
-    case "getoutputs" then
-        [x,y,typ]=standard_outputs(arg1)
-    case "getorigin" then
-        [x,y]=standard_origin(arg1)
     case "set" then
         x=arg1;
         graphics=arg1.graphics;exprs=graphics.exprs
@@ -46,7 +38,7 @@ function [x,y,typ]=GENSQR_f(job,arg1,arg2)
             //next two lines to fix invalid properties in scilab version
             //prior 5.5.0
             model.out2=1;
-            model.outtype=1;
+            model.outtyp=1;
 
             x.graphics=graphics;x.model=model
             break
@@ -57,15 +49,14 @@ function [x,y,typ]=GENSQR_f(job,arg1,arg2)
         model.sim="gensqr"
         model.out=1;
         model.out2=1;
-        model.outtype=1;
+        model.outtyp=1;
         model.evtin=1;
         model.dstate=Amplitude
         model.blocktype="d"
         model.dep_ut=[%f %f]
 
         exprs=string(Amplitude)
-        gr_i=["txt=[''square wave'';''generator''];";
-        "xstringb(orig(1),orig(2),txt,sz(1),sz(2),''fill'');"]
+        gr_i=[]
         x=standard_define([3 2],model,exprs,gr_i)
     end
 endfunction
index 07932ac..17d6818 100644 (file)
@@ -24,14 +24,6 @@ function [x,y,typ]=STEP(job,arg1,arg2)
     // Copyright INRIA
     x=[];y=[];typ=[];
     select job
-    case "plot" then
-        standard_draw(arg1)
-    case "getinputs" then
-        [x,y,typ]=standard_inputs(arg1)
-    case "getoutputs" then
-        [x,y,typ]=standard_outputs(arg1)
-    case "getorigin" then
-        [x,y]=standard_origin(arg1)
     case "set" then
         x=arg1;
         graphics=arg1.graphics;exprs=graphics.exprs
@@ -55,7 +47,7 @@ function [x,y,typ]=STEP(job,arg1,arg2)
             end
             if ok then
               model.out2=1;
-              model.outtype=1;
+              model.outtyp=1;
               [model,graphics,ok]=check_io(model,graphics,[],size(fi,"*"),1,1)
             end
             if ok then
@@ -79,15 +71,14 @@ function [x,y,typ]=STEP(job,arg1,arg2)
         model.evtout=1
         model.out=1
         model.out2=1;
-        model.outtype=1;
+        model.outtyp=1;
         model.firing=1
         model.rpar=rpar
         model.blocktype="c"
         model.dep_ut=[%f %f]
 
         exprs=[string(1);string(rpar)]
-        gr_i=["txt=[''Step''];";
-        "xstringb(orig(1),orig(2),txt,sz(1),sz(2),''fill'');"]
+        gr_i=[]
         x=standard_define([2 2],model,exprs,gr_i)
     end
 endfunction
index cbb73f8..af72df4 100644 (file)
 function [x,y,typ]=STEP_FUNCTION(job,arg1,arg2)
     x=[];y=[],typ=[]
     select job
-    case "plot" then
-        standard_draw(arg1)
-    case "getinputs" then
-        [x,y,typ]=standard_inputs(arg1)
-    case "getoutputs" then
-        [x,y,typ]=standard_outputs(arg1)
-    case "getorigin" then
-        [x,y]=standard_origin(arg1)
     case "set" then
         // look for the internal edge trigger block
         for i=1:length(arg1.model.rpar.objs) do
@@ -175,17 +167,11 @@ function [x,y,typ]=STEP_FUNCTION(job,arg1,arg2)
         model.sim = "csuper";
         model.out = 1;
         model.out2=1;
-        model.outtype=1;
+        model.outtyp=1;
 
         model.rpar = scs_m_1;
 
-        gr_i=[  "thick=xget(''thickness'')"
-        "pat=xget(''pattern'')"
-        "fnt=xget(''font'')"
-        "xpoly(orig(1)+[0.071;0.413;0.413;0.773]*sz(1),orig(2)+[0.195;0.195;0.635;0.635]*sz(2),'"lines"')";
-        "xset(''thickness'',thick)"
-        "xset(''pattern'',pat)"
-        "xset(''font'',fnt(1),fnt(2))"]
+        gr_i=[]
         x=standard_define([2 2],model,[],gr_i)
     end
 endfunction
diff --git a/scilab/modules/scicos_blocks/tests/unit_tests/GENSIN_f.dia.ref b/scilab/modules/scicos_blocks/tests/unit_tests/GENSIN_f.dia.ref
new file mode 100644 (file)
index 0000000..e66bc1a
--- /dev/null
@@ -0,0 +1,24 @@
+// ============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2013 - Scilab Enterprises - Bruno JOFRET
+//
+//  This file is distributed under the same license as the Scilab package.
+// ============================================================================
+//
+// <-- ENGLISH IMPOSED -->
+// <-- XCOS TEST -->
+//
+// <-- Short Description -->
+// Blocks must have valid dimensions for their settings.
+// Some dimensions were not coherents between theirs "set" and "define" method.
+funcprot(0);
+ilib_verbose(0);
+// Stubbing global scicos flags
+needcompile = 0;
+alreadyran = %f;
+%scicos_context = struct();
+[status, message] = xcosValidateBlockSet("GENSIN_f");
+if status == %f
+    disp(message)
+end
+assert_checktrue(status);
diff --git a/scilab/modules/scicos_blocks/tests/unit_tests/GENSIN_f.tst b/scilab/modules/scicos_blocks/tests/unit_tests/GENSIN_f.tst
new file mode 100644 (file)
index 0000000..8abbba9
--- /dev/null
@@ -0,0 +1,26 @@
+// ============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2013 - Scilab Enterprises - Bruno JOFRET
+//
+//  This file is distributed under the same license as the Scilab package.
+// ============================================================================
+//
+// <-- ENGLISH IMPOSED -->
+// <-- XCOS TEST -->
+//
+// <-- Short Description -->
+// Blocks must have valid dimensions for their settings.
+// Some dimensions were not coherents between theirs "set" and "define" method.
+
+funcprot(0);
+ilib_verbose(0);
+// Stubbing global scicos flags
+needcompile = 0;
+alreadyran = %f;
+%scicos_context = struct();
+
+[status, message] = xcosValidateBlockSet("GENSIN_f");
+if status == %f
+    disp(message)
+end
+assert_checktrue(status);
\ No newline at end of file
diff --git a/scilab/modules/scicos_blocks/tests/unit_tests/GENSQR_f.dia.ref b/scilab/modules/scicos_blocks/tests/unit_tests/GENSQR_f.dia.ref
new file mode 100644 (file)
index 0000000..70e129f
--- /dev/null
@@ -0,0 +1,24 @@
+// ============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2013 - Scilab Enterprises - Bruno JOFRET
+//
+//  This file is distributed under the same license as the Scilab package.
+// ============================================================================
+//
+// <-- ENGLISH IMPOSED -->
+// <-- XCOS TEST -->
+//
+// <-- Short Description -->
+// Blocks must have valid dimensions for their settings.
+// Some dimensions were not coherents between theirs "set" and "define" method.
+funcprot(0);
+ilib_verbose(0);
+// Stubbing global scicos flags
+needcompile = 0;
+alreadyran = %f;
+%scicos_context = struct();
+[status, message] = xcosValidateBlockSet("GENSQR_f");
+if status == %f
+    disp(message)
+end
+assert_checktrue(status);
diff --git a/scilab/modules/scicos_blocks/tests/unit_tests/GENSQR_f.tst b/scilab/modules/scicos_blocks/tests/unit_tests/GENSQR_f.tst
new file mode 100644 (file)
index 0000000..75c77cd
--- /dev/null
@@ -0,0 +1,26 @@
+// ============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2013 - Scilab Enterprises - Bruno JOFRET
+//
+//  This file is distributed under the same license as the Scilab package.
+// ============================================================================
+//
+// <-- ENGLISH IMPOSED -->
+// <-- XCOS TEST -->
+//
+// <-- Short Description -->
+// Blocks must have valid dimensions for their settings.
+// Some dimensions were not coherents between theirs "set" and "define" method.
+
+funcprot(0);
+ilib_verbose(0);
+// Stubbing global scicos flags
+needcompile = 0;
+alreadyran = %f;
+%scicos_context = struct();
+
+[status, message] = xcosValidateBlockSet("GENSQR_f");
+if status == %f
+    disp(message)
+end
+assert_checktrue(status);
\ No newline at end of file
diff --git a/scilab/modules/scicos_blocks/tests/unit_tests/STEP.dia.ref b/scilab/modules/scicos_blocks/tests/unit_tests/STEP.dia.ref
new file mode 100644 (file)
index 0000000..59f5ce9
--- /dev/null
@@ -0,0 +1,24 @@
+// ============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2013 - Scilab Enterprises - Bruno JOFRET
+//
+//  This file is distributed under the same license as the Scilab package.
+// ============================================================================
+//
+// <-- ENGLISH IMPOSED -->
+// <-- XCOS TEST -->
+//
+// <-- Short Description -->
+// Blocks must have valid dimensions for their settings.
+// Some dimensions were not coherents between theirs "set" and "define" method.
+funcprot(0);
+ilib_verbose(0);
+// Stubbing global scicos flags
+needcompile = 0;
+alreadyran = %f;
+%scicos_context = struct();
+[status, message] = xcosValidateBlockSet("STEP");
+if status == %f
+    disp(message)
+end
+assert_checktrue(status);
diff --git a/scilab/modules/scicos_blocks/tests/unit_tests/STEP.tst b/scilab/modules/scicos_blocks/tests/unit_tests/STEP.tst
new file mode 100644 (file)
index 0000000..a7bc148
--- /dev/null
@@ -0,0 +1,26 @@
+// ============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2013 - Scilab Enterprises - Bruno JOFRET
+//
+//  This file is distributed under the same license as the Scilab package.
+// ============================================================================
+//
+// <-- ENGLISH IMPOSED -->
+// <-- XCOS TEST -->
+//
+// <-- Short Description -->
+// Blocks must have valid dimensions for their settings.
+// Some dimensions were not coherents between theirs "set" and "define" method.
+
+funcprot(0);
+ilib_verbose(0);
+// Stubbing global scicos flags
+needcompile = 0;
+alreadyran = %f;
+%scicos_context = struct();
+
+[status, message] = xcosValidateBlockSet("STEP");
+if status == %f
+    disp(message)
+end
+assert_checktrue(status);
\ No newline at end of file
diff --git a/scilab/modules/scicos_blocks/tests/unit_tests/STEP_FUNCTION.dia.ref b/scilab/modules/scicos_blocks/tests/unit_tests/STEP_FUNCTION.dia.ref
new file mode 100644 (file)
index 0000000..c584be1
--- /dev/null
@@ -0,0 +1,24 @@
+// ============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2013 - Scilab Enterprises - Bruno JOFRET
+//
+//  This file is distributed under the same license as the Scilab package.
+// ============================================================================
+//
+// <-- ENGLISH IMPOSED -->
+// <-- XCOS TEST -->
+//
+// <-- Short Description -->
+// Blocks must have valid dimensions for their settings.
+// Some dimensions were not coherents between theirs "set" and "define" method.
+funcprot(0);
+ilib_verbose(0);
+// Stubbing global scicos flags
+needcompile = 0;
+alreadyran = %f;
+%scicos_context = struct();
+[status, message] = xcosValidateBlockSet("STEP_FUNCTION");
+if status == %f
+    disp(message)
+end
+assert_checktrue(status);
diff --git a/scilab/modules/scicos_blocks/tests/unit_tests/STEP_FUNCTION.tst b/scilab/modules/scicos_blocks/tests/unit_tests/STEP_FUNCTION.tst
new file mode 100644 (file)
index 0000000..0c4e3ef
--- /dev/null
@@ -0,0 +1,26 @@
+// ============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2013 - Scilab Enterprises - Bruno JOFRET
+//
+//  This file is distributed under the same license as the Scilab package.
+// ============================================================================
+//
+// <-- ENGLISH IMPOSED -->
+// <-- XCOS TEST -->
+//
+// <-- Short Description -->
+// Blocks must have valid dimensions for their settings.
+// Some dimensions were not coherents between theirs "set" and "define" method.
+
+funcprot(0);
+ilib_verbose(0);
+// Stubbing global scicos flags
+needcompile = 0;
+alreadyran = %f;
+%scicos_context = struct();
+
+[status, message] = xcosValidateBlockSet("STEP_FUNCTION");
+if status == %f
+    disp(message)
+end
+assert_checktrue(status);
\ No newline at end of file