* Bug #8211 fixed - Finalization of 'parameters' module demo 94/11394/12
Paul BIGNIER [Thu, 25 Apr 2013 08:00:36 +0000 (10:00 +0200)]
Change-Id: I112758c54d51c574f3b7307e279265c9b87b5707

scilab/CHANGES_5.5.X
scilab/modules/parameters/demos/parameters.dem.gateway.sce [new file with mode: 0644]
scilab/modules/parameters/demos/params_demo.sce

index 8cfb130..7617ca6 100644 (file)
@@ -280,6 +280,8 @@ Bug fixes
 
 * Bug #8264 fixed - Documentation for Matlab's atan2() equivalent fixed.
 
+* Bug #8211 fixed - Finalize 'parameters' module demo
+
 * Bug #8319 fixed - dbphi(hypermat) and phasemag(hypermat) returned a matrix instead of a hypermatrix.
 
 * Bug #8373 fixed - clear() can now take a matrix of strings argument.
diff --git a/scilab/modules/parameters/demos/parameters.dem.gateway.sce b/scilab/modules/parameters/demos/parameters.dem.gateway.sce
new file mode 100644 (file)
index 0000000..525c007
--- /dev/null
@@ -0,0 +1,18 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier
+//
+// This file is released under the 3-clause BSD license. See COPYING-BSD.
+
+function subdemolist = demo_gateway()
+
+    demopath = get_absolute_file_path("parameters.dem.gateway.sce");
+    add_demo(_("Parameters"), demopath + "parameters.dem.gateway.sce");
+
+    subdemolist = [_("plist handling")  ,"params_demo.sce"]
+
+    subdemolist(:,2) = demopath + subdemolist(:,2);
+
+endfunction
+
+subdemolist = demo_gateway();
+clear demo_gateway;
index d100d0e..37d8e40 100755 (executable)
@@ -1,39 +1,79 @@
-lines(0);
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier
+// Copyright (C) 2012 - DIGITEO
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
 
-test_list = init_param();
+function demo_param()
 
-test_list = add_param(test_list,"min");
-test_list = add_param(test_list,"max");
+    lines(0);
 
-printf("is_param(test_list,''min'') = %f\n",1.0*is_param(test_list,"min"));
-printf("is_param(test_list,''max'') = %f\n",1.0*is_param(test_list,"max"));
-printf("is_param(test_list,''mex'') = %f\n",1.0*is_param(test_list,"mex"));
+    messagebox(_("This demo shows examples of plist utilizations: creation, insertion, removal, ..."), "modal", "info");
 
-test_list = set_param(test_list,"min",[0 0 0]);
-test_list = set_param(test_list,"max",[1 1 1]);
+    printf(_("\nCreate a plist ''%s'' containing two fields ''min'' = [0 0 0] and ''max'' = [1 1 1].\n"), "test_list");
 
-printf("get_param(test_list,''min'') = "); disp(get_param(test_list,"min"));
-printf("get_param(test_list,''max'') = "); disp(get_param(test_list,"max"));
-printf("get_param(test_list,''mex'') = "); disp(get_param(test_list,"mex"));
+    test_list = init_param();
 
-printf("removing the parameter ''min'' from test_list \n");
-printf("list of parameters name before removing\n");
-disp(list_param(test_list));
+    test_list = add_param(test_list, "min");
+    test_list = add_param(test_list, "max");
+    disp(list_param(test_list));
 
-test_list = remove_param(test_list,"min");
+    printf(_("\nCheck fields: \n"));
+    printf("  is_param(test_list, ''min'') = %f\n", 1.0*is_param(test_list, "min"));
+    printf("  is_param(test_list, ''max'') = %f\n", 1.0*is_param(test_list, "max"));
+    printf("  is_param(test_list, ''mex'') = %f\n\n", 1.0*is_param(test_list, "mex"));
 
-printf("list of parameters name after removing\n");
-disp(list_param(test_list));
+    printf(_("Set ''min'' = [0 0 0] and ''max'' = [1 1 1]:\n"));
+    printf("  set_param(test_list, ''min'', [0 0 0]);\n");
+    printf("  set_param(test_list, ''max'', [1 1 1]);\n\n");
+    test_list = set_param(test_list, "min", [0 0 0]);
+    test_list = set_param(test_list, "max", [1 1 1]);
 
-printf("get_param(test_list,''min'') = "); disp(get_param(test_list,"min"));
+    printf(_("Check values: \n"));
+    printf("  get_param(test_list, ''min'') = "); disp(get_param(test_list, "min"));
+    printf("  get_param(test_list, ''max'') = "); disp(get_param(test_list, "max"));
+    printf("  get_param(test_list, ''mex'') = "); disp(get_param(test_list, "mex"));
 
-printf("typeof(test_list) = %s\n", typeof(test_list));
+    printf(_("\nRemove the parameter ''min'' from %s.\n"), "test_list");
+    printf(_("\nBefore remove_param: \n"));
+    disp(list_param(test_list));
 
-A = [];
+    printf("\n  test_list = remove_param(test_list, ''min'');\n")
+    test_list = remove_param(test_list, "min");
 
-printf("Add a parameter to a non plist. Before add_param: "); disp(A);
+    printf(_("\nAfter remove_param: \n"));
+    disp(list_param(test_list));
 
-[A,err] = add_param(A,"min");
+    printf(_("\nCheck removal: \n"));
+    printf("  get_param(test_list, ''min'') = ");
+    disp(get_param(test_list, "min"));
 
-printf("After add_param: "); disp(A);
-printf("Error = %f\n",1*err);
+    printf(_("\nCheck type: \n"));
+    printf("  typeof(test_list) = %s\n\n", typeof(test_list));
+
+    messagebox(_(["Now, show that parameters operators only apply to the plist type";
+    "by adding a parameter to an empty matrix."]), "modal", "info");
+
+    A = [];
+
+    printf(_("\nAdd a parameter to a non plist ''A''.\n"));
+    printf(_("\nBefore add_param: \n"));
+    disp(A, " A = ");
+
+    printf("\n  try [A, err] = add_param(A, ''min''); catch err = %%t; end;\n");
+    try
+        [A, err] = add_param(A, "min");
+    catch
+        err = %t;
+    end
+
+    printf(_("\nAfter add_param: \n"));
+    disp(A, " A = ");
+    printf(_("\nError = %f. If error <> 0, then the error has been caught.\n"), 1*err);
+
+endfunction
+
+demo_param();
+clear demo_params;