add --hard option to gs flushCaches command

repository/Tode-GemStone-Server-Core.package/TDGemStoneTool.class/class/gsflushCachesManPage.st

@@ -9,7 +9,7 @@ gsflushCachesManPage
   gs flushCaches - Flush GLASS/GsDevKit caches
 
 SYNOPSIS
-  gs flushCaches 
+  gs flushCaches [--hard]
          
 DESCRIPTION
   Run the following exppressions to clear the "standard gemstone caches":
@@ -23,9 +23,14 @@ DESCRIPTION
     MethodVersionHistory uniqueInstance cleanUp.
     TDTopezServer clearPersistentElementCacheStack
 
+  With --hard option, a more thorough flus of caches is done, which may cause loss of some (non-critical) data:
+
+    MethodVersionHistory reset  # wipe out persisten method version history
+
 OPTIONS
 
 EXAMPLES
   gs flushCaches
+  gs flushCaches --hard
 '.
   ^ manPage

repository/Tode-GemStone-Server-Core.package/TDGemStoneTool.class/instance/gsFlushCaches..2.st

@@ -1,10 +1,3 @@
 as yet unclassified
 gsFlushCaches
-  ObjectLogEntry initialize.
-  MCRepositoryGroup default repositoriesDo: [ :rep | rep flushCache ].
-  MCDefinition clearInstances.
-  MCMethodDefinition cachedDefinitions
-    removeKeys: MCMethodDefinition cachedDefinitions keys.
-  MCMethodDefinition shutDown.
-  MethodVersionHistory uniqueInstance cleanUp.
-  TDTopezServer clearPersistentElementCacheStack
+  ^ self gsFlushCaches: false

repository/Tode-GemStone-Server-Core.package/TDGemStoneTool.class/instance/gsFlushCaches..st

@@ -0,0 +1,12 @@
+as yet unclassified
+gsFlushCaches: hardFlush
+  ObjectLogEntry initialize.
+  MCRepositoryGroup default repositoriesDo: [ :rep | rep flushCache ].
+  MCDefinition clearInstances.
+  MCMethodDefinition cachedDefinitions
+    removeKeys: MCMethodDefinition cachedDefinitions keys.
+  MCMethodDefinition shutDown.
+  TDTopezServer clearPersistentElementCacheStack.
+  hardFlush
+    ifTrue: [ MethodVersionHistory reset ]
+    ifFalse: [ MethodVersionHistory uniqueInstance cleanUp ]

repository/Tode-GemStone-Server-Core.package/TDGemStoneTool.class/instance/gsflushCaches..1.st

@@ -1,8 +1,8 @@
 as yet unclassified
 gsflushCaches
   "
-  gs flushCaches 
+  gs flushCaches [--hard]
 "
 
-  self getSubcommandOptsMixedLongShort: {}.
-  self gsFlushCaches
+  self getSubcommandOptsMixedLongShort: {#('hard' nil #'none')}.
+  self gsFlushCaches: (subOptions includesKey: 'hard')

repository/Tode-GemStone-Server-Core.package/TDGemStoneTool.class/methodProperties.json

@@ -19,7 +19,7 @@
 		"gsconfigurationManPage" : "dkh 10/23/2015 11:58",
 		"gsfileSizeReportManPage" : "dkh 10/23/2015 11:58",
 		"gsfileoutManPage" : "dkh 10/23/2015 11:58",
-		"gsflushCachesManPage" : "dkh 02/08/2016 12:08",
+		"gsflushCachesManPage" : "dkh 03/25/2016 13:47",
 		"gsgemtoolsManPage" : "dkh 10/23/2015 11:58",
 		"gshaltManPage" : "dkh 10/23/2015 11:58",
 		"gsmfcManPage" : "dkh 10/23/2015 11:58",
@@ -72,7 +72,8 @@
 		"fullBackupTo:safely:" : "dkh 09/16/2015 14:45",
 		"fullBackupTo:safely:uncompressed:" : "dkh 09/16/2015 14:49",
 		"gsFileSizeReportOn:" : "dkh 02/08/2015 09:05",
-		"gsFlushCaches" : "dkh 01/09/2016 12:34",
+		"gsFlushCaches" : "dkh 03/25/2016 13:46",
+		"gsFlushCaches:" : "dkh 03/25/2016 13:46",
 		"gsMfc" : "dkh 02/08/2015 15:44",
 		"gsMfc:wait:buffer:cpu:" : "dkh 02/08/2015 11:06",
 		"gsReclaimAll" : "dkh 02/08/2016 15:57",
@@ -97,7 +98,7 @@
 		"gsfileoutClass:header:on:" : "dkh 12/21/2013 09:49",
 		"gsfileoutClass:on:" : "dkh 02/07/2014 07:51",
 		"gsfileoutExtractHeaderFor:in:" : "dkh 10/01/2013 20:57",
-		"gsflushCaches" : "dkh 01/08/2016 18:15",
+		"gsflushCaches" : "dkh 03/25/2016 13:45",
 		"gsgemtools" : "dkh 02/04/2015 11:33",
 		"gshalt" : "dkh 02/08/2015 15:44",
 		"gshaltOnOutOfMemory:" : "dkh 12/18/2013 20:11",