Changeset 1b945e9 in tol

Timestamp:

Feb 1, 2011, 11:41:41 AM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

8addb71

Parents:

42f071f

Message:

New method TolShowStatus

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@3102 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tol/lang/language.cpp (modified) (2 diffs)

tol/lang/language.cpp

@@ -232 +232 @@
 
 //--------------------------------------------------------------------
+void TolShowStatus()
+//--------------------------------------------------------------------
+{
+  Std("\n------------------------------------------------------------------------------");
+  Std(BText("\nTOL Status "));
+  Std("\n------------------------------------------------------------------------------\n");
+
+  BTimer::PrintProcess();
+  Std("\n------------------------------------------------------------------------------");
+  Std(BText("\nStatus of hashed global symbol table "));
+  Std("\n------------------------------------------------------------------------------\n");
+  BGrammar::SymbolTable().Dump();
+
+
+  Std("\n------------------------------------------------------------------------------");
+  Std(BText("\nGeneral status"));
+  Std("\n------------------------------------------------------------------------------\n");
+  Std(DialogInfo());
+//Std(BText("\nGrammar hashing size    = ")<<BGrammarHashSize/1024.0<<" KBytes");
+  Std(BText("\nTime Set cache size     = ")<<BTimeSet::HashUsedKBytes()<<" KBytes");
+  Std(BText("\nTime Serie cache number = ")<<BData::Count());
+  Std(BText("\nTime Serie cache size   = ")<<BData::KBytes()<<" KBytes");
+  BVMat::ShowCholmodStats();
+
+#     ifdef TRACE_OPTINFO
+  Std(BText("\nOptional info. number   = ")<<BSyntaxObject::OptInfoCount()<<" of "<<(BSyntaxObject::NSyntaxObject()));
+  Std(BText("\nOptional info. named    = ")<<BSyntaxObject::OptInfoCountName());
+  Std(BText("\nOptional info. loc.nam. = ")<<BSyntaxObject::OptInfoCountExpression());
+  Std(BText("\nOptional info. desc.    = ")<<BSyntaxObject::OptInfoCountDescription());
+  Std(BText("\nOptional info. size     = ")<<BSyntaxObject::OptInfoKBytes()<<" KBytes");
+#     endif
+
+#if   (__USE_POOL__==__POOL_BFSMEM__)
+  void BFSMEM_ShowStatsOfAllInstances();
+  BFSMEM_ShowStatsOfAllInstances();
+#     endif 
+
+//#     define __USE_TOL_IEEE__
+#     ifdef __USE_TOL_IEEE__
+  BINT64& is_nan_num_call();
+  Std(BText("\nis_nan_num_call = ")<<is_nan_num_call());
+#     endif
+
+  void StatRealloc();
+  StatRealloc();
+  Std("\n------------------------------------------------------------------------------");
+  Std(BText("\nEnd of TOL Status "));
+  Std("\n------------------------------------------------------------------------------\n\n");
+}
+
+//--------------------------------------------------------------------
 void InteractiveTOL()
 
@@ -330 +381 @@
     else if(command=="$STATUS")
     {
-      Std("\n------------------------------------------------------------------------------");
-      Std(BText("\nStatus of hashed global symbol table "));
-      Std("\n------------------------------------------------------------------------------\n");
-      BGrammar::SymbolTable().Dump();
-
-      Std("\n------------------------------------------------------------------------------");
-      Std(BText("\nGeneral status"));
-      Std("\n------------------------------------------------------------------------------\n");
-      Std(DialogInfo());
-    //Std(BText("\nGrammar hashing size    = ")<<BGrammarHashSize/1024.0<<" KBytes");
-      Std(BText("\nTime Set cache size     = ")<<BTimeSet::HashUsedKBytes()<<" KBytes");
-      Std(BText("\nTime Serie cache number = ")<<BData::Count());
-      Std(BText("\nTime Serie cache size   = ")<<BData::KBytes()<<" KBytes");
-      BTimer::PrintProcess();
-      void StatRealloc();
-      StatRealloc();
-#if   (__USE_POOL__==__POOL_BFSMEM__)
-      void BFSMEM_ShowStatsOfAllInstances();
-      BFSMEM_ShowStatsOfAllInstances();
-#     endif 
-#     ifdef TRACE_OPTINFO
-      Std(BText("\nOptional info. number   = ")<<BSyntaxObject::OptInfoCount()<<" of "<<(BSyntaxObject::NSyntaxObject()-BDeadObject::DeadObjects()));
-      Std(BText("\nOptional info. named    = ")<<BSyntaxObject::OptInfoCountName());
-      Std(BText("\nOptional info. loc.nam. = ")<<BSyntaxObject::OptInfoCountLocalName());
-      Std(BText("\nOptional info. desc.    = ")<<BSyntaxObject::OptInfoCountDescription());
-      Std(BText("\nOptional info. size     = ")<<BSyntaxObject::OptInfoKBytes()<<" KBytes");
-#     endif
-//#     define __USE_TOL_IEEE__
-#     ifdef __USE_TOL_IEEE__
-      BINT64& is_nan_num_call();
-      Std(BText("\nis_nan_num_call = ")<<is_nan_num_call());
-#     endif
+      TolShowStatus();
     }
     else if(command=="$SHOW_CLASS_SIZES")