[PATCH] gprofng: create a list of available views

[PATCH] gprofng: create a list of available views

[vladimir.mezentsev]

From: Vladimir Mezentsev <vladimir.mezentsev@oracle.com>

In our GUI project (https://savannah.gnu.org/projects/gprofng-gui), we use
the output of gp-display-text to display the data.
gp-display-text did not report available views.

gprofng/ChangeLog
2023-07-26  Vladimir Mezentsev  <vladimir.mezentsev@oracle.com>

	* src/Command.cc: Add commands for gprofng GUI.
	* src/gprofng.rc: Set defaults for gprofng GUI.
---
 gprofng/src/Command.cc | 12 +++++++++++-
 gprofng/src/gprofng.rc |  4 +++-
 2 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/gprofng/src/Command.cc b/gprofng/src/Command.cc
index 4faa5ec6736..cd6d19e85dc 100644
--- a/gprofng/src/Command.cc
+++ b/gprofng/src/Command.cc
@@ -40,7 +40,7 @@ const char *Command::DEFAULT_METRICS = "ei.user:name";  // if no .rc files read
 const char *Command::DEFAULT_SORT    = "e.user:name";   // if no .rc files read
 
 static char *fhdr, *cchdr, *lahdr, *iohdr, *sdhdr, *lsthdr, *lohdr;
-static char *methdr, *othdr, *mischdr, *deflthdr;
+static char *methdr, *othdr, *mischdr, *deflthdr, *andeflthdr;
 static char *selhdr, *filthdr, *outhdr, *exphdr, *obj_allhdr;
 static char *unsuphdr, *indxobjhdr;
 static char *helphdr, *rahdr, *ddhdr, *typehdr, *typehdr2;
@@ -177,6 +177,15 @@ static Cmdtable cmd_lst[] = {   // list of commands
   { DSORT, "dsort", NULL, "metric_spec", 1, &desc[DSORT]},
   { EN_DESC, "en_desc", NULL, "{on|off|=<regex>}", 1, &desc[EN_DESC]},
 
+  { NO_CMD, "", NULL, NULL, 0, &andeflthdr},
+  { TLMODE, "tlmode", NULL, "tl_mode", 1, &desc[TLMODE]},
+  { TLDATA, "tldata", NULL, "tl_data", 1, &desc[TLDATA]},
+  { TABS, "tabs", NULL, "tablist", 1, &desc[TABS]},
+  { CALLFLAME, "callflame", NULL, NULL, 0, &desc[CALLFLAME]},
+  { TIMELINE, "timeline", NULL, NULL, 0, &desc[TIMELINE]},
+  { DUALSOURCE, "dsrc", NULL, NULL, 0, &desc[DUALSOURCE]},
+  { SOURCEDISAM, "srcdis", NULL, NULL, 0, &desc[SOURCEDISAM]},
+
   { NO_CMD, "", NULL, NULL, 0, &mischdr},
   { DUMMY_CMD, "<type>", NULL, NULL, 0, &typehdr},
   { DUMMY_CMD, " ", NULL, NULL, 0, &typehdr2},
@@ -554,6 +563,7 @@ Command::init_desc ()
   mischdr = GTXT ("\nMiscellaneous commands:");
   exphdr = GTXT ("\nCommands for experiments (scripts and interactive mode only):");
   deflthdr = GTXT ("\nDefault-setting commands:");
+  andeflthdr = GTXT ("\nDefault-setting commands that only affect gprofng GUI");
   selhdr = GTXT ("\nCommands controlling old-style filters/selection:");
   filthdr = GTXT ("\nCommands controlling filters:");
   indxobjhdr = GTXT ("\nCommands controlling the index objects:");
diff --git a/gprofng/src/gprofng.rc b/gprofng/src/gprofng.rc
index 07f84c0d407..69534a77398 100644
--- a/gprofng/src/gprofng.rc
+++ b/gprofng/src/gprofng.rc
@@ -129,4 +129,6 @@ addpath $expts:.
 # Add controls for specific load objects
 #  object_hide <Unknown>
 
-# version "@(#)er.rc 1.62 11/10/31"
+# gprofng GUI tabs
+tabs dsrc:function:timeline:processes:threads:ctree:callflame:src:dis:leaks:ioactivity:ifreq:callers-callees:header
+
-- 
2.31.1