* Bug #13093 fixed - Functions: fix head_comments 64/13164/2
Samuel GOUGEON [Mon, 18 Nov 2013 08:33:22 +0000 (09:33 +0100)]
Removing trailing "\n".

Change-Id: I2c9693babc88b98b770650d8c2106705d54db48a

scilab/modules/functions/macros/head_comments.sci
scilab/modules/functions/tests/nonreg_tests/bug_13093.dia.ref [new file with mode: 0644]
scilab/modules/functions/tests/nonreg_tests/bug_13093.tst [new file with mode: 0644]

index e18eb8a..4161919 100644 (file)
@@ -7,32 +7,34 @@
 // are also available at
 // http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
 
-function head_comments(name,%paths)
-    //displays the first comments of a function
-    if type(name)<>10 then
-        error(msprintf(gettext("%s: Wrong type for input argument #%d: A character string expected.\n"),"head_comments",1))
-    end
-    name=stripblanks(name)
-    if execstr("var="+name,"errcatch")<>0 then
-        error(msprintf(gettext("%s: Undefined variable %s.\n"),"head_comments",name )),
-    end
+function head_comments(name, %paths)
+  // Displays the first comments of a function
 
-    if type(var)==11 then comp(var);end
-    if type(var)<>13 then
-        error(msprintf(gettext("%s: Wrong value for input argument #%d: Name of a Scilab function expected.\n"),"head_comments",1))
-    end
-    ops=macr2lst(var);
-    syntax="function ["+strcat(ops(2),",")+"] = "+name+"("+strcat(ops(3),",")+")";
+  if type(name) <> 10 then
+     error(msprintf(gettext("%s: Wrong type for input argument #%d: A character string expected.\n"),"head_comments",1))
+  end
+  name = stripblanks(name)
+  if execstr('var='+name,'errcatch')<>0 then
+    error(msprintf(gettext("%s: Undefined variable %s.\n"),"head_comments",name )),
+  end
+
+  if type(var) == 11 then comp(var); end
+  if type(var) <> 13 then
+    error(msprintf(gettext("%s: Wrong value for input argument #%d: Name of a Scilab function expected.\n"),"head_comments",1))
+  end
+  ops = macr2lst(var);
+  syntax = 'function ['+strcat(ops(2),',')+'] = '+name+'('+strcat(ops(3),',')+')';
+
+  comm = [];
+  k = 4; if ops(4) == '15' then k = k+1; end
+  while ops(k)(1)=='31' then
+    comm = [comm; ops(k)(2)];
+    k = k+2;
+  end
+  if comm == [] then
+    mprintf("%s\n",[syntax;gettext("No comment available.")])
+  else
+    mprintf("%s\n",[syntax;comm])
+  end
 
-    comm=[];
-    k=4;if ops(4)=="15" then k=k+1;end
-    while ops(k)(1)=="31" then
-        comm=[comm;ops(k)(2)];
-        k=k+2;
-    end
-    if comm==[] then
-        mprintf("%s\n",[syntax;gettext("No comment available.\n")])
-    else
-        mprintf("%s\n",[syntax;comm])
-    end
 endfunction
diff --git a/scilab/modules/functions/tests/nonreg_tests/bug_13093.dia.ref b/scilab/modules/functions/tests/nonreg_tests/bug_13093.dia.ref
new file mode 100644 (file)
index 0000000..2cbc5f0
--- /dev/null
@@ -0,0 +1,21 @@
+// =============================================================================
+// 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 -->
+//
+// <-- CLI SHELL MODE -->
+//
+// <-- Non-regression test for bug 13093 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=13093
+//
+// <-- Short Description -->
+// head_comments displayed a trailing "\n" when the argument had no head comments.
+head_comments("resize_demo_gui");
+function [] = resize_demo_gui()
+No comment available.
diff --git a/scilab/modules/functions/tests/nonreg_tests/bug_13093.tst b/scilab/modules/functions/tests/nonreg_tests/bug_13093.tst
new file mode 100644 (file)
index 0000000..0c6c994
--- /dev/null
@@ -0,0 +1,20 @@
+// =============================================================================
+// 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 -->
+//
+// <-- CLI SHELL MODE -->
+//
+// <-- Non-regression test for bug 13093 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=13093
+//
+// <-- Short Description -->
+// head_comments displayed a trailing "\n" when the argument had no head comments.
+
+head_comments("resize_demo_gui");