index 4333b2a..e3f2810 100644 (file)
@@ -9,22 +9,23 @@

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