read and write stream methods for GemStone

Johan Brichau · Johan Brichau · commit 5d15eb8478f2 · 2020-07-03T11:59:40.000Z
diff --git a/repository/Grease-GemStone-Core.package/Array.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/Array.extension/methodProperties.json
@@ -0,0 +1,5 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"beMutable" : " 06/08/2020 12:26:37" } }
diff --git a/repository/Grease-GemStone-Core.package/Behavior.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/Behavior.extension/methodProperties.json
@@ -0,0 +1,6 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"fullName" : " 06/08/2020 12:26:37",
+		"removeSelectorSilently:" : " 06/08/2020 12:26:37" } }
diff --git a/repository/Grease-GemStone-Core.package/BinaryFloat.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/BinaryFloat.extension/methodProperties.json
@@ -0,0 +1,5 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"greaseString" : " 06/08/2020 12:26:37" } }
diff --git a/repository/Grease-GemStone-Core.package/ByteArray.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/ByteArray.extension/methodProperties.json
@@ -0,0 +1,5 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"greaseString" : " 06/08/2020 12:26:37" } }
diff --git a/repository/Grease-GemStone-Core.package/Character.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/Character.extension/methodProperties.json
@@ -0,0 +1,5 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"greaseInteger" : " 06/08/2020 12:26:37" } }
diff --git a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/CharacterCollection.extension/methodProperties.json
@@ -0,0 +1,21 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"excerpt:" : " 06/08/2020 12:26:37",
+		"excerpt:radius:" : " 06/08/2020 12:26:37",
+		"excerpt:radius:ellipsis:" : " 06/08/2020 12:26:37",
+		"greaseInteger" : " 06/08/2020 12:26:37",
+		"pluralize" : " 06/08/2020 12:26:37",
+		"print:on:" : " 06/08/2020 12:26:37",
+		"substrings:" : " 07/03/2020 03:01:56",
+		"trimBoth" : " 06/08/2020 12:26:37",
+		"trimBoth:" : " 06/08/2020 12:26:37",
+		"trimLeft" : " 06/08/2020 12:26:37",
+		"trimLeft:" : " 06/08/2020 12:26:37",
+		"trimLeft:right:" : " 06/08/2020 12:26:37",
+		"trimRight" : " 06/08/2020 12:26:37",
+		"trimRight:" : " 06/08/2020 12:26:37",
+		"truncate" : " 06/08/2020 12:26:37",
+		"truncate:" : " 06/08/2020 12:26:37",
+		"truncate:ellipsis:" : " 06/08/2020 12:26:37" } }
diff --git a/repository/Grease-GemStone-Core.package/Collection.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/Collection.extension/methodProperties.json
@@ -0,0 +1,7 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"any" : " 06/08/2020 12:26:37",
+		"sorted" : " 06/08/2020 12:26:37",
+		"sorted:" : " 06/08/2020 12:26:37" } }
diff --git a/repository/Grease-GemStone-Core.package/Date.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/Date.extension/methodProperties.json
@@ -0,0 +1,5 @@
+{
+	"class" : {
+		"daysInMonthNumber:forYear:" : " 06/08/2020 12:26:37" },
+	"instance" : {
+		 } }
diff --git a/repository/Grease-GemStone-Core.package/Dictionary.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/Dictionary.extension/methodProperties.json
@@ -0,0 +1,5 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"copyFrom:" : " 06/08/2020 12:26:37" } }
diff --git a/repository/Grease-GemStone-Core.package/DoubleByteString.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/DoubleByteString.extension/methodProperties.json
@@ -0,0 +1,5 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"greaseString" : " 06/08/2020 12:26:37" } }
diff --git a/repository/Grease-GemStone-Core.package/Duration.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/Duration.extension/methodProperties.json
@@ -0,0 +1,6 @@
+{
+	"class" : {
+		"milliseconds:" : " 06/08/2020 12:26:37" },
+	"instance" : {
+		"asMilliseconds" : " 06/08/2020 12:26:37",
+		"milliseconds" : " 06/08/2020 12:26:37" } }
diff --git a/repository/Grease-GemStone-Core.package/Exception.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/Exception.extension/methodProperties.json
@@ -0,0 +1,7 @@
+{
+	"class" : {
+		"raiseSignal" : " 06/08/2020 12:26:37",
+		"raiseSignal:" : " 06/08/2020 12:26:37" },
+	"instance" : {
+		"raiseSignal" : " 06/08/2020 12:26:37",
+		"raiseSignal:" : " 06/08/2020 12:26:37" } }
diff --git a/repository/Grease-GemStone-Core.package/GRDynamicVariable.class/methodProperties.json b/repository/Grease-GemStone-Core.package/GRDynamicVariable.class/methodProperties.json
@@ -0,0 +1,8 @@
+{
+	"class" : {
+		"default" : " 06/08/2020 12:26:37",
+		"defaultValue" : " 06/08/2020 12:26:37",
+		"use:during:" : " 06/08/2020 12:26:37",
+		"value" : " 06/08/2020 12:26:37" },
+	"instance" : {
+		 } }
diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/fileStreamOn.do.binary..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/fileStreamOn.do.binary..st
diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/readFileStreamOn.do.binary..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/readFileStreamOn.do.binary..st
@@ -0,0 +1,13 @@
+file-library
+readFileStreamOn: aString do: aBlock binary: aBoolean
+  | stream dir file |
+  [ 
+  file := GsFile openReadOnServer: aString.
+  [ 
+  stream := RWBinaryOrTextStream on: file contents.
+  aBoolean
+    ifTrue: [ stream binary ]
+    ifFalse: [ stream ascii ].
+  ^ aBlock value: stream ]
+    ensure: [ stream close ] ]
+    ensure: [ file close ]
diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/write.toFile.inFolder..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/write.toFile.inFolder..st
@@ -1,12 +1,13 @@
 file-library
 write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString
-	"writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString"
-	| folder stream fullFilePath |
-	fullFilePath := ServerFileDirectory default fullNameFor: aFolderString.
-	folder := ServerFileDirectory on: fullFilePath.
-	stream := folder forceNewFileNamed: aFileNameString.
-	stream := aStringOrByteArray isString
-		ifTrue: [ stream ascii ]
-		ifFalse: [ stream binary ].
-	[ stream nextPutAll: aStringOrByteArray ]
-		ensure: [ stream close ]
+  "writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString"
+
+  | folder fullFilePath |
+  fullFilePath := ServerFileDirectory default fullNameFor: aFolderString.
+  folder := ServerFileDirectory on: fullFilePath.
+  (folder fileExists: aFileNameString)
+    ifTrue: [ folder deleteFileNamed: aFileNameString ].
+  ^ self
+    writeFileStreamOn: (folder / aFileNameString) fullName
+    do: [ :stream | stream nextPutAll: aStringOrByteArray ]
+    binary: aStringOrByteArray isString not
diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/writeFileStreamOn.do.binary..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/writeFileStreamOn.do.binary..st
@@ -0,0 +1,9 @@
+file-library
+writeFileStreamOn: fileName do: aBlock binary: isBinary
+  | stream |
+  stream := BinaryOrTextFile open: fileName mode: 'w+b' onClient: false.
+  stream := isBinary
+    ifTrue: [ stream binary ]
+    ifFalse: [ stream ascii ].
+  [ aBlock value: stream ]
+    ensure: [ stream close ]
diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/methodProperties.json b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/methodProperties.json
@@ -0,0 +1,50 @@
+{
+	"class" : {
+		"initialize" : " 06/08/2020 12:26:37",
+		"unload" : " 06/08/2020 12:26:37" },
+	"instance" : {
+		"addToShutDownList:" : " 06/08/2020 12:26:37",
+		"addToStartUpList:" : " 06/08/2020 12:26:37",
+		"asMethodReturningByteArray:named:" : " 06/08/2020 12:26:37",
+		"asMethodReturningString:named:" : " 06/08/2020 12:26:37",
+		"base64Decode:" : " 06/08/2020 12:26:37",
+		"compile:into:classified:" : " 06/08/2020 12:26:37",
+		"contentsOfFile:binary:" : " 06/08/2020 12:26:37",
+		"defaultDispatcherName" : " 06/08/2020 12:26:37",
+		"deprecationExceptionSet" : " 06/08/2020 12:26:37",
+		"directoriesIn:" : " 06/08/2020 12:26:37",
+		"doAbortTransaction" : " 06/08/2020 12:26:37",
+		"doBeginTransaction" : " 06/08/2020 12:26:37",
+		"doCommitTransaction" : " 06/08/2020 12:26:37",
+		"doTransaction:" : " 06/08/2020 12:26:37",
+		"ensureExistenceOfFolder:" : " 06/08/2020 12:26:37",
+		"fileExists:" : " 06/08/2020 12:26:37",
+		"filesIn:" : " 06/08/2020 12:26:37",
+		"isProcessTerminated:" : " 06/08/2020 12:26:37",
+		"label" : " 06/08/2020 12:26:37",
+		"localNameOf:" : " 06/08/2020 12:26:37",
+		"logError:title:" : " 06/08/2020 12:26:37",
+		"logError:title:shouldCommit:" : " 06/08/2020 12:26:37",
+		"newRandom" : " 06/08/2020 12:26:37",
+		"newline" : " 06/08/2020 12:26:37",
+		"openDebuggerOn:" : " 06/08/2020 12:26:37",
+		"pathSeparator" : " 06/08/2020 12:26:37",
+		"readFileStreamOn:do:binary:" : "JohanBrichau 07/03/2020 04:07",
+		"readWriteByteStream" : " 06/08/2020 12:26:37",
+		"readWriteCharacterStream" : " 06/08/2020 12:26:37",
+		"reducedConflictDictionary" : " 06/08/2020 12:26:37",
+		"removeFromShutDownList:" : " 06/08/2020 12:26:37",
+		"removeFromStartUpList:" : " 06/08/2020 12:26:37",
+		"removeSelector:from:" : " 06/08/2020 12:26:37",
+		"saveLogEntry:shouldCommit:" : " 06/08/2020 12:26:37",
+		"secureHashFor:" : " 06/08/2020 12:26:37",
+		"semaphoreClass" : " 06/08/2020 12:26:37",
+		"smtpServer" : " 06/08/2020 12:26:37",
+		"stackDepth" : " 06/08/2020 12:26:37",
+		"terminateProcess:" : " 06/08/2020 12:26:37",
+		"thisContext" : " 06/08/2020 12:26:37",
+		"transactionMutex" : " 06/08/2020 12:26:37",
+		"weakDictionaryOfSize:" : " 06/08/2020 12:26:37",
+		"write:toFile:inFolder:" : "JohanBrichau 07/03/2020 04:55",
+		"writeCharacterStreamOn:" : " 06/08/2020 12:26:37",
+		"writeFileStreamOn:do:binary:" : "JohanBrichau 07/03/2020 04:57" } }
diff --git a/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/methodProperties.json b/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/methodProperties.json
@@ -0,0 +1,11 @@
+{
+	"class" : {
+		"generator" : " 06/08/2020 12:26:37",
+		"initialize" : " 06/08/2020 12:26:37",
+		"mutex" : " 06/08/2020 12:26:37",
+		"nextInt:" : " 06/08/2020 12:26:37",
+		"randomClass" : " 06/08/2020 12:26:37",
+		"randomFrom:" : " 06/08/2020 12:26:37",
+		"sessionStart" : " 06/08/2020 12:26:37" },
+	"instance" : {
+		 } }
diff --git a/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/methodProperties.json b/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/methodProperties.json
@@ -0,0 +1,12 @@
+{
+	"class" : {
+		"basicForEncoding:" : " 06/08/2020 12:26:37",
+		"supportsEncoding:" : " 06/08/2020 12:26:37" },
+	"instance" : {
+		"decode:" : " 06/08/2020 12:26:37",
+		"encode:" : " 06/08/2020 12:26:37",
+		"encodeUrl:" : " 06/08/2020 12:26:37",
+		"encoderFor:" : " 06/08/2020 12:26:37",
+		"name" : " 06/08/2020 12:26:37",
+		"name:" : " 06/08/2020 12:26:37",
+		"url" : " 06/08/2020 12:26:37" } }
diff --git a/repository/Grease-GemStone-Core.package/GRPackage.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/GRPackage.extension/methodProperties.json
@@ -0,0 +1,5 @@
+{
+	"class" : {
+		"greaseGemStoneCore" : " 06/08/2020 12:26:37" },
+	"instance" : {
+		"gemstoneUrl" : " 06/08/2020 12:26:37" } }
diff --git a/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/methodProperties.json b/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/methodProperties.json
@@ -0,0 +1,14 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"binary" : " 06/08/2020 12:26:37",
+		"contents" : " 06/08/2020 12:26:37",
+		"flush" : " 06/08/2020 12:26:37",
+		"initializeOn:" : " 06/08/2020 12:26:37",
+		"next" : " 06/08/2020 12:26:37",
+		"next:" : " 06/08/2020 12:26:37",
+		"nextPut:" : " 06/08/2020 12:26:37",
+		"nextPutAll:" : " 06/08/2020 12:26:37",
+		"size" : " 06/08/2020 12:26:37",
+		"text" : " 06/08/2020 12:26:37" } }
diff --git a/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/methodProperties.json b/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/methodProperties.json
@@ -0,0 +1,13 @@
+{
+	"class" : {
+		"basicForEncoding:" : " 06/08/2020 12:26:37",
+		"supportsEncoding:" : " 06/08/2020 12:26:37" },
+	"instance" : {
+		"decode:" : " 06/08/2020 12:26:37",
+		"decoderFor:" : " 06/08/2020 12:26:37",
+		"encode:" : " 06/08/2020 12:26:37",
+		"encodeUrl:" : " 06/08/2020 12:26:37",
+		"encoderFor:" : " 06/08/2020 12:26:37",
+		"initialize" : " 06/08/2020 12:26:37",
+		"name" : " 06/08/2020 12:26:37",
+		"url" : " 06/08/2020 12:26:37" } }
diff --git a/repository/Grease-GemStone-Core.package/GsContext.class/methodProperties.json b/repository/Grease-GemStone-Core.package/GsContext.class/methodProperties.json
@@ -0,0 +1,15 @@
+{
+	"class" : {
+		"fromContinuation:atLevel:" : " 07/03/2020 03:01:56",
+		"fromLevel:" : " 07/03/2020 03:01:56" },
+	"instance" : {
+		"=" : " 07/03/2020 03:01:56",
+		"asString" : " 07/03/2020 03:01:56",
+		"continuation:level:" : " 07/03/2020 03:01:56",
+		"fullPrintString" : " 07/03/2020 03:01:56",
+		"greaseString" : " 07/03/2020 03:01:56",
+		"method" : " 07/03/2020 03:01:56",
+		"receiver" : " 07/03/2020 03:01:56",
+		"sender" : " 07/03/2020 03:01:56",
+		"tempAt:" : " 07/03/2020 03:01:56",
+		"tempNames" : " 07/03/2020 03:01:56" } }
diff --git a/repository/Grease-GemStone-Core.package/Interval.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/Interval.extension/methodProperties.json
@@ -0,0 +1,5 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"any" : " 06/08/2020 12:26:37" } }
diff --git a/repository/Grease-GemStone-Core.package/MessageSend.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/MessageSend.extension/methodProperties.json
@@ -0,0 +1,10 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"argumentCount" : " 06/08/2020 12:26:37",
+		"evaluateWithArguments:" : " 06/08/2020 12:26:37",
+		"value:" : " 06/08/2020 12:26:37",
+		"value:value:" : " 06/08/2020 12:26:37",
+		"valueWithPossibleArgument:" : " 06/08/2020 12:26:37",
+		"valueWithPossibleArguments:" : " 06/08/2020 12:26:37" } }
diff --git a/repository/Grease-GemStone-Core.package/Number.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/Number.extension/methodProperties.json
@@ -0,0 +1,5 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"milliseconds" : " 06/08/2020 12:26:37" } }
diff --git a/repository/Grease-GemStone-Core.package/Object.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/Object.extension/methodProperties.json
@@ -0,0 +1,7 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"displayString" : " 06/08/2020 12:26:37",
+		"greaseString" : " 06/08/2020 12:26:37",
+		"isMessageSend" : " 06/08/2020 12:26:37" } }
diff --git a/repository/Grease-GemStone-Core.package/PackageInfo.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/PackageInfo.extension/methodProperties.json
@@ -0,0 +1,5 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"versionString" : " 06/08/2020 12:26:37" } }
diff --git a/repository/Grease-GemStone-Core.package/PositionableStream.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/PositionableStream.extension/methodProperties.json
@@ -0,0 +1,5 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"greaseUpToAll:" : " 06/08/2020 12:26:37" } }
diff --git a/repository/Grease-GemStone-Core.package/SequenceableCollection.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/SequenceableCollection.extension/methodProperties.json
@@ -0,0 +1,6 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"beginsWithSubCollection:" : " 06/08/2020 12:26:37",
+		"endsWithSubCollection:" : " 06/08/2020 12:26:37" } }
diff --git a/repository/Grease-GemStone-Core.package/String.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/String.extension/methodProperties.json
@@ -0,0 +1,5 @@
+{
+	"class" : {
+		"fromString:" : " 06/08/2020 12:26:37" },
+	"instance" : {
+		 } }
diff --git a/repository/Grease-GemStone-Core.package/Symbol.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/Symbol.extension/methodProperties.json
@@ -0,0 +1,5 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"greaseAsMutator" : " 07/03/2020 03:12:14" } }
diff --git a/repository/Grease-GemStone-Core.package/Symbol.extension/properties.json b/repository/Grease-GemStone-Core.package/Symbol.extension/properties.json
@@ -1,3 +1,2 @@
 {
-	"name" : "Symbol"
-}
+	"name" : "Symbol" }
diff --git a/repository/Grease-GemStone-Core.package/SystemAbortTransaction.class/methodProperties.json b/repository/Grease-GemStone-Core.package/SystemAbortTransaction.class/methodProperties.json
@@ -0,0 +1,7 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"alternatives" : " 06/08/2020 12:26:37",
+		"defaultAction" : " 06/08/2020 12:26:37",
+		"transaction" : " 06/08/2020 12:26:37" } }
diff --git a/repository/Grease-GemStone-Core.package/SystemBeginTransaction.class/methodProperties.json b/repository/Grease-GemStone-Core.package/SystemBeginTransaction.class/methodProperties.json
@@ -0,0 +1,7 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"alternatives" : " 06/08/2020 12:26:37",
+		"defaultAction" : " 06/08/2020 12:26:37",
+		"transaction" : " 06/08/2020 12:26:37" } }
diff --git a/repository/Grease-GemStone-Core.package/SystemCommitTransaction.class/methodProperties.json b/repository/Grease-GemStone-Core.package/SystemCommitTransaction.class/methodProperties.json
@@ -0,0 +1,7 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"alternatives" : " 06/08/2020 12:26:37",
+		"defaultAction" : " 06/08/2020 12:26:37",
+		"transaction" : " 06/08/2020 12:26:37" } }
diff --git a/repository/Grease-GemStone-Core.package/SystemTransactionNotification.class/methodProperties.json b/repository/Grease-GemStone-Core.package/SystemTransactionNotification.class/methodProperties.json
@@ -0,0 +1,6 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"alternatives" : " 06/08/2020 12:26:37",
+		"transaction" : " 06/08/2020 12:26:37" } }
diff --git a/repository/Grease-GemStone-Core.package/UnorderedCollection.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/UnorderedCollection.extension/methodProperties.json
@@ -0,0 +1,5 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"copyFrom:" : " 06/08/2020 12:26:37" } }
diff --git a/repository/Grease-GemStone-Core.package/WriteStream.extension/methodProperties.json b/repository/Grease-GemStone-Core.package/WriteStream.extension/methodProperties.json
diff --git a/repository/Grease-GemStone-Core.package/monticello.meta/version b/repository/Grease-GemStone-Core.package/monticello.meta/version
