index f9b775d..e3f2810 100644 (file)
@@ -1,20 +1,31 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+//
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+
+
function r=%i_p_s(a,n)
-if or(int(n)<>n)|or(n<0) then
-  r=double(a)^n
-else
-  if size(a,'*')==1 then
-    r=iconvert(double(a)^n,inttype(a))
-  else
-    if size(n,'*')<>1 then
-      error(43)
+    if or(int(n)<>n)|or(n<0) then
+        r=double(a)^n
else
-      r=a
-      if size(a,1)==size(a,2) then
-       for i=2:n,r=r*a,end
-      else
-       for i=2:n,r=r.*a,end
-      end
-    end
-  end
-end
+        if size(a,'*')==1 then
+            r=iconvert(double(a)^n,inttype(a))
+        else
+            if size(n,'*')<>1 then
+                error(43)
+            else
+                r=a
+                if size(a,1)==size(a,2) then
+                    for i=2:n,r=r*a,end
+                else
+                    mprintf(gettext("Warning: Syntax \""vector ^ scalar\"" is obsolete. It will be removed in Scilab 6.0.\n  Use \""vector .^ scalar\"" instead.\n"));
+                    for i=2:n,r=r.*a,end
+                end
+            end
+        end
+    end
endfunction