diff scripts/general/profexplore.m @ 21634:96518f623c91

Backed out changeset dcf8922b724b
author Mike Miller <mtmiller@octave.org>
date Wed, 20 Apr 2016 11:06:03 -0700
parents dcf8922b724b
children ffad2baa90f7
line wrap: on
line diff
--- a/scripts/general/profexplore.m	Wed Apr 20 17:53:10 2016 +0200
+++ b/scripts/general/profexplore.m	Wed Apr 20 11:06:03 2016 -0700
@@ -68,16 +68,16 @@
 
   while (true)
 
-    fprintf ("\n%s", parents);
+    printf ("\n%s", parents);
     strings = cell (length (tree), 1);
     for i = 1 : length (tree)
       strings{i} = sprintf ("%s: %d calls, %.3f total, %.3f self", ...
                             fcn_table(tree(i).Index).FunctionName, ...
                             tree(i).NumCalls, ...
                             tree(i).TotalTime, tree(i).SelfTime);
-      fprintf ("%s%d) %s\n", prefix, i, strings{i});
+      printf ("%s%d) %s\n", prefix, i, strings{i});
     endfor
-    fprintf ("\n");
+    printf ("\n");
 
     cmd = input ("profexplore> ", "s");
     option = fix (str2double (cmd));
@@ -86,15 +86,15 @@
       rv = 0;
       return;
     elseif (strcmp (cmd, "help"))
-      fprintf ("\nCommands for profile explorer:\n\n");
-      fprintf ("exit   Return to Octave prompt.\n");
-      fprintf ("quit   Return to Octave prompt.\n");
-      fprintf ("help   Display this help message.\n");
-      fprintf ("up [N] Go up N levels, where N is an integer.  Default is 1.\n");
-      fprintf ("N      Go down a level into option N.\n");
+      printf ("\nCommands for profile explorer:\n\n");
+      printf ("exit   Return to Octave prompt.\n");
+      printf ("quit   Return to Octave prompt.\n");
+      printf ("help   Display this help message.\n");
+      printf ("up [N] Go up N levels, where N is an integer.  Default is 1.\n");
+      printf ("N      Go down a level into option N.\n");
     elseif (! isnan (option))
       if (option < 1 || option > length (tree))
-        fprintf ("The chosen option is out of range!\n");
+        printf ("The chosen option is out of range!\n");
       else
         newParents = sprintf ("%s%s%s\n", parents, prefix, strings{option});
         newPrefix = sprintf ("%s  ", prefix);
@@ -126,11 +126,11 @@
         endif
       endif
 
-      fprintf ("Invalid 'up' command.  Type 'help' for further");
-      fprintf (" information.\n");
+      printf ("Invalid 'up' command.  Type 'help' for further");
+      printf (" information.\n");
     else
-      fprintf ("Unrecognized input.  Type 'help' to get a list of possible");
-      fprintf (" commands.\n");
+      printf ("Unrecognized input.  Type 'help' to get a list of possible");
+      printf (" commands.\n");
     endif
 
   endwhile