have to make the RIGHT calls to truncate ... conditional on the versi…

…on of Rowan being used ..
GsDevKit · Oct 26, 2023 · 5c5913c · 5c5913c
1 parent 1bffc24
commit 5c5913c
Show file tree

Hide file tree

Showing 5 changed files with 7 additions and 5 deletions.
diff --git a/src/GsDevKit_stones-Core.package/GDKAbstractRegistryStore.class/instance/exportTo..st b/src/GsDevKit_stones-Core.package/GDKAbstractRegistryStore.class/instance/exportTo..st
@@ -2,6 +2,6 @@ export
 exportTo: fileRef
 	fileRef
 		writeStreamDo: [ :fileStream | 
-			Rowan version >= ('3.0.0' asRwGemStoneVersionNumber)
+			Rowan version >= ('3.0.0' asRwSemanticVersionNumber)
 				ifTrue: [ fileStream truncate ].
 			STON put: self onStreamPretty: fileStream ]
diff --git a/src/GsDevKit_stones-Core.package/GDKRegistry.class/class/newRegistryNamed.ensure..st b/src/GsDevKit_stones-Core.package/GDKRegistry.class/class/newRegistryNamed.ensure..st
@@ -18,7 +18,7 @@ newRegistryNamed: registryName ensure: ensure
 	stonesRegistry at: registryName put: stoneRegistry registryPath.
 	self configFile
 		writeStreamDo: [ :fileStream | 
-			Rowan version >= ('3.0.0' asRwGemStoneVersionNumber)
+			Rowan version >= ('3.0.0' asRwSemanticVersionNumber)
 				ifTrue: [ fileStream truncate ].
 			STON put: stonesRegistry onStreamPretty: fileStream ].
 	stoneRegistry export.

diff --git a/src/GsDevKit_stones-Core.package/GDKRegistry.class/instance/export.st b/src/GsDevKit_stones-Core.package/GDKRegistry.class/instance/export.st
@@ -2,6 +2,6 @@ export
 export
 	self class configFile
 		writeStreamDo: [ :fileStream | 
-			Rowan version >= ('3.0.0' asRwGemStoneVersionNumber)
+			Rowan version >= ('3.0.0' asRwSemanticVersionNumber)
 				ifTrue: [ fileStream truncate ].
 			STON put: self onStreamPretty: fileStream ].
diff --git a/...sDevKit_stones-Core.package/GDKStoneDirectorySpec.class/instance/createStoneStructure..st b/...sDevKit_stones-Core.package/GDKStoneDirectorySpec.class/instance/createStoneStructure..st
@@ -113,7 +113,8 @@ createStoneStructure: stoneSpec
 				lf ].
 	stoneRoot / '.topazini'
 		writeStreamDo: [ :fileStream | 
-			fileStream truncate.
+			Rowan version >= ('3.0.0' asRwSemanticVersionNumber)
+				ifTrue: [fileStream truncate].
 			fileStream
 				nextPutAll: 'set GEMSTONE ' , stoneSpec stoneName;
 				lf;

diff --git a/src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/exportTo..st b/src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/exportTo..st
@@ -2,5 +2,6 @@ accessing
 exportTo: fileRef
 	fileRef
 		writeStreamDo: [ :fileStream | 
-			fileStream truncate.
+			Rowan version >= ('3.0.0' asRwSemanticVersionNumber)
+				ifTrue: [fileStream truncate].
 			STON put: self onStreamPretty: fileStream ]