Merge branch 'master' of https://github.com/GsDevKit/Grease

repository/BaselineOfGrease.package/.filetree

@@ -1,4 +1,5 @@
 {
-	"noMethodMetaData" : true,
 	"separateMethodMetaAndSource" : false,
-	"useCypressPropertiesFile" : true }
+	"noMethodMetaData" : true,
+	"useCypressPropertiesFile" : true
+}

repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineCommon..st

@@ -1,5 +1,6 @@
 baselines
 baselineCommon: spec
+
 	spec
 		for: #common
 		do: [ spec blessing: #baseline.

repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineGemStone..st

@@ -1,5 +1,6 @@
 baselines
 baselineGemStone: spec
+
   spec
     for: #'gemstone'
     do: [ 

repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselinePharo..st

@@ -62,9 +62,9 @@ baselinePharo: spec
 						requires: #('Grease-Pharo100-Core');
 						includes: #('Grease-Tests-Pharo-Core') ];
 				package: 'Grease-Pharo100-Core' with: [ spec requires: #('Grease-Core') ];
-				package: 'Grease-Pharo90-Slime' with: [ spec requires: #('Grease-Core') ];
-				package: 'Grease-Tests-Slime' with: [ spec requires: #('Grease-Pharo90-Slime') ].
+				package: 'Grease-Pharo110-Slime' with: [ spec requires: #('Grease-Core') ];
+				package: 'Grease-Tests-Pharo-Slime' with: [ spec requires: #('Grease-Pharo110-Slime') ].
 
 			spec
-				group: 'Slime' with: #('Grease-Pharo90-Slime');
-				group: 'Slime Tests' with: #('Grease-Tests-Slime') ]
+				group: 'Slime' with: #('Grease-Pharo110-Slime');
+				group: 'Slime Tests' with: #('Grease-Tests-Pharo-Slime') ]

repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineSqueak..st

@@ -22,14 +22,7 @@ baselineSqueak: spec
 				package: 'Grease-Tests-Squeak-Core'
 					with: [ spec requires: #('Grease-Tests-Core') ];
 				package: 'Grease-Tests-Squeak5-Core'
-					with: [ spec requires: #('Grease-Tests-Squeak-Core') ];
-				package: 'Grease-Slime'
-					with: [ spec requires: #('Refactoring-Core' 'Grease-Core') ];
-				package: 'Grease-Tests-Slime'
-					with: [ spec requires: #('Grease-Slime') ].
-			spec
-				group: 'Slime' with: #('Grease-Slime');
-				group: 'Slime Tests' with: #('Grease-Tests-Slime') ].
+					with: [ spec requires: #('Grease-Tests-Squeak-Core') ] ].
 	spec
 		for: #(#'squeak6.x')
 		do: [
@@ -52,11 +45,4 @@ baselineSqueak: spec
 				package: 'Grease-Tests-Squeak-Core'
 					with: [ spec requires: #('Grease-Tests-Core') ];
 				package: 'Grease-Tests-Squeak6-Core'
-					with: [ spec requires: #('Grease-Tests-Squeak-Core') ];
-				package: 'Grease-Slime' 
-					with: [ spec requires: #('Refactoring-Core' 'Grease-Core') ];
-				package: 'Grease-Tests-Slime'
-					with: [ spec requires: #('Grease-Slime') ].
-			spec
-				group: 'Slime' with: #('Grease-Slime');
-				group: 'Slime Tests' with: #('Grease-Tests-Slime') ]
+					with: [ spec requires: #('Grease-Tests-Squeak-Core') ] ]

repository/BaselineOfGrease.package/BaselineOfGrease.class/properties.json

@@ -1,14 +1,11 @@
 {
-	"category" : "BaselineOfGrease",
-	"classinstvars" : [
-		 ],
-	"classvars" : [
-		 ],
 	"commentStamp" : "",
-	"instvars" : [
-		 ],
-	"name" : "BaselineOfGrease",
-	"pools" : [
-		 ],
 	"super" : "BaselineOf",
-	"type" : "normal" }
+	"category" : "BaselineOfGrease",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "BaselineOfGrease",
+	"type" : "normal"
+}

repository/BaselineOfGrease.package/monticello.meta/categories.st

@@ -1,2 +1 @@
 SystemOrganization addCategory: #BaselineOfGrease!
-SystemOrganization addCategory: #'BaselineOfGrease-Manifest'!

repository/BaselineOfGrease.package/properties.json

@@ -1,2 +1 @@
-{
-	 }
+{ }

repository/Grease-Core.package/GRPackage.class/instance/resolveWith..st

@@ -17,12 +17,14 @@ resolveWith: aDictionary
 									aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo90-') ifAbsent: [
 										"try -Pharo100-"
 										aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo100-') ifAbsent: [
-											"try -Squeak-"
-											aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Squeak-') ifAbsent: [
-												"try -Squeak5-"
-												aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Squeak5-') ifAbsent: [
-													"try -Squeak6-"
-													aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Squeak6-') ifAbsent: [
-														"specific for Grease-Slime"
-														aDictionary at: (each copyReplaceAll: 'Grease-Pharo-Slime' with: 'Grease-Slime') ifAbsent: [
-															self error: self name printString , ' depends on unknown package ' , each printString ] ] ] ] ] ] ] ] ] ] ] ] ]
+											"try -Pharo110-"
+											aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo110-') ifAbsent: [
+												"try -Squeak-"
+												aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Squeak-') ifAbsent: [
+													"try -Squeak5-"
+													aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Squeak5-') ifAbsent: [
+														"try -Squeak6-"
+														aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Squeak6-') ifAbsent: [
+															"specific for Grease-Slime"
+															aDictionary at: (each copyReplaceAll: 'Grease-Pharo-Slime' with: 'Grease-Slime') ifAbsent: [
+																self error: self name printString , ' depends on unknown package ' , each printString ] ] ] ] ] ] ] ] ] ] ] ] ] ]

repository/Grease-Core.package/GRPlatform.class/instance/newTemporaryFile.st

@@ -0,0 +1,6 @@
+files
+newTemporaryFile
+	"Create a new temporary file in the systems temp directory and answer its pathString.
+	It is the users responsibility to delete or move the file, it will not be cleaned up automatically 
+	(unless the host system has a policy for it)."
+	^ self subclassResponsibility

repository/Grease-Core.package/GRPlatform.class/instance/newTemporaryFileNamed..st

@@ -0,0 +1,6 @@
+files
+newTemporaryFileNamed: aName
+	"Create a new temporary file in the systems temp directory and answer its pathString.
+	It is the users responsibility to delete or move the file, it will not be cleaned up automatically 
+	(unless the host system has a policy for it)."
+	self subclassResponsibility

repository/Grease-Core.package/GRPlatform.class/instance/sizeOfFile..st

@@ -0,0 +1,4 @@
+files
+sizeOfFile: aString
+
+	self subclassResponsibility

repository/Grease-Core.package/GRPlatform.class/instance/version.st

@@ -2,5 +2,5 @@ version info
 version
 	"Answer the Grease version"
 
-	^ (GRVersion major: 1 minor: 12 revision: 2)
+	^ (GRVersion major: 1 minor: 16 revision: 0)
 		yourself

repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/base64Encode..st

@@ -1,3 +1,3 @@
 encoding
 base64Encode: aByteArray
-	^ (Base64MimeConverter mimeEncode: aByteArray readStream) contents
+	^ (Base64MimeConverter mimeEncode: aByteArray readStream) contents

repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/contentsOfFile.binary..st

@@ -1,3 +1,3 @@
-file-library
+files
 contentsOfFile: aString binary: aBoolean
 	^ self fileStreamOn: aString do: [ :stream | stream contents ] binary: aBoolean

repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/deleteFile..st

@@ -0,0 +1,4 @@
+files
+deleteFile: aPathString
+
+	GsFile removeServerFile: aPathString

repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/directoriesIn..st

@@ -1,4 +1,4 @@
-file-library
+files
 directoriesIn: aPathString
 	"Answer a collection of absolute paths for all the directories (no files) in the directory given by aPathString
 	must not include directory names that start with ."

repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/ensureExistenceOfFolder..st

@@ -1,4 +1,4 @@
-file-library
+files
 ensureExistenceOfFolder: aString
 	"creates a folder named aString in the default server directory"
 	ServerFileDirectory default assureExistenceOfPath: aString

repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/fileExists..st

@@ -1,3 +1,3 @@
-file-library
+files
 fileExists: aString
 	^ GsFile existsOnServer: aString

repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/filesIn..st

@@ -1,4 +1,4 @@
-file-library
+files
 filesIn: aPathString
 	"Return a collection of absolute paths for all the files (no directories) in the directory given by aPathString
 	must not include file names that start with ."

repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/localNameOf..st

@@ -1,3 +1,3 @@
-file-library
+files
 localNameOf: aFilename
 	^(ServerFileDirectory on: aFilename) localName

repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/newTemporaryFile.st

@@ -0,0 +1,4 @@
+files
+newTemporaryFile
+
+	^ self newTemporaryFileNamed: UUID new greaseString

repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/newTemporaryFileNamed..st

@@ -0,0 +1,7 @@
+files
+newTemporaryFileNamed: aName
+
+	| fileName |
+	fileName := GRPlatform current pathSeparator,'tmp', GRPlatform current pathSeparator, aName.
+	(self fileExists: fileName) ifTrue: [ GRError new signal: 'A (temporary) file with name ', aName, ' already exists.' ].
+	^ (GsFile openWriteOnServer: fileName) pathName

repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/pathSeparator.st

@@ -1,3 +1,3 @@
-file-library
+files
 pathSeparator
 	^ FileDirectory pathNameDelimiter asString

repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/readFileStreamOn.do.binary..st

@@ -1,4 +1,4 @@
-file-library
+files
 readFileStreamOn: aString do: aBlock binary: aBoolean
   | stream dir file |
   [ 

repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/sizeOfFile..st

@@ -0,0 +1,4 @@
+files
+sizeOfFile: aPathString
+
+	^ GsFile sizeOfOnServer: aPathString

repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/write.toFile.inFolder..st

@@ -1,4 +1,4 @@
-file-library
+files
 write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString
   "writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString"
 

repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/writeFileStreamOn.do.binary..st

@@ -1,4 +1,4 @@
-file-library
+files
 writeFileStreamOn: fileName do: aBlock binary: isBinary
   | stream |
   stream := BinaryOrTextFile open: fileName mode: 'w+b' onClient: false.

repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFile.st

@@ -0,0 +1,4 @@
+files
+newTemporaryFile
+
+	^ self newTemporaryFileNamed: UUID new greaseString

repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileNamed..st

@@ -0,0 +1,7 @@
+files
+newTemporaryFileNamed: aName
+
+	| newFile |
+	newFile := FileLocator temp / aName.
+	newFile exists ifTrue: [ GRError new signal: 'A (temporary) file with name ', aName, ' already exists.' ].
+	^ newFile pathString

repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st

@@ -5,4 +5,7 @@ newTemporaryFileReference
 	It is the users responsibility to delete or move the file,
 	it will not be cleaned up automatically (unless the host system
 	has a policy for it)."
+	self 
+		greaseDeprecatedApi: 'GRPlatform>>newTemporaryFileReference' 
+		details: 'Use newTemporaryFile'.
 	^ self newTemporaryFileReferenceNamed: UUID new asString

repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st

@@ -5,4 +5,7 @@ newTemporaryFileReferenceNamed: aName
 	It is the users responsibility to delete or move the file,
 	it will not be cleaned up automatically (unless the host system
 	has a policy for it)."
+	self
+		greaseDeprecatedApi: 'GRPlatform>>newTemporaryFileReferenceNamed:'
+		details: 'Use newTemporaryFileNamed:'.
 	^ FileLocator temp / aName

repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/sizeOfFile..st

@@ -0,0 +1,4 @@
+files
+sizeOfFile: aString
+
+	^ aString asFileReference size

repository/Grease-Pharo100-Core.package/monticello.meta/categories.st

@@ -1 +1 @@
-SystemOrganization addCategory: #'Grease-Pharo100-Core'!
+self packageOrganizer ensurePackage: #'Grease-Pharo100-Core' withTags: #()!

repository/Grease-Pharo110-Slime.package/.filetree

@@ -0,0 +1,5 @@
+{
+	"separateMethodMetaAndSource" : false,
+	"noMethodMetaData" : true,
+	"useCypressPropertiesFile" : true
+}

repository/Grease-Pharo110-Slime.package/GRAnsiBooleansRule.class/instance/group.st

@@ -0,0 +1,4 @@
+accessing
+group
+
+	^ 'ANSI Compatibility'

repository/Grease-Pharo110-Slime.package/GRAnsiBooleansRule.class/instance/initialize.st

@@ -0,0 +1,19 @@
+initialization
+initialize
+
+	super initialize.
+	self
+		replace: '``@expr1 and: [ | `@temp2 | ``@expr2 ] and: [ | `@temp3 | ``@expr3 ]'
+			with: '``@expr1 and: [ | `@temp2 | ``@expr2 and: [ | `@temp3 | ``@expr3 ] ]';
+		replace: '``@expr1 and: [ | `@temp2 | ``@expr2 ] and: [ | `@temp3 | ``@expr3 ] and: [ | `@temp4 | ``@expr4 ]'
+			with: '``@expr1 and: [ | `@temp2 | ``@expr2 and: [ | `@temp3 | ``@expr3 and: [ | `@temp4 | ``@expr4 ] ] ]';
+		replace: '``@expr1 and: [ | `@temp2 | ``@expr2 ] and: [ | `@temp3 | ``@expr3 ] and: [ | `@temp4 | ``@expr4 ] and: [  | `@temp5 | ``@expr5 ]'
+			with: '``@expr1 and: [ | `@temp2 | ``@expr2 and: [ | `@temp3 | ``@expr3 and: [ | `@temp4 | ``@expr4 and: [ | `@temp5 | ``@expr5 ] ] ] ]';
+		replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ]'
+			with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 ] ]';
+		replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ] or: [ | `@temp4 | ``@expr4 ]'
+			with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 or: [ | `@temp4 | ``@expr4 ] ] ]';
+		replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ] or: [ | `@temp4 | ``@expr4 ] or: [ | `@temp5 | ``@expr5 ]'
+			with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 or: [ | `@temp4 | ``@expr4 or: [ | `@temp5 | ``@expr5 ] ] ] ]';
+		replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ] or: [ | `@temp4 | ``@expr4 ] or: [ | `@temp5 | ``@expr5 ] or: [ | `@temp6 | ``@expr6 ]'
+			with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 or: [ | `@temp4 | ``@expr4 or: [ | `@temp5 | ``@expr5 or: [ | `@temp6 | ``@expr6 ] ] ] ] ]'

repository/Grease-Pharo110-Slime.package/GRAnsiBooleansRule.class/instance/name.st

@@ -0,0 +1,4 @@
+accessing
+name
+
+	^ 'Booleans'

repository/Grease-Pharo110-Slime.package/GRAnsiBooleansRule.class/instance/rationale.st

@@ -0,0 +1,4 @@
+accessing
+rationale
+
+	^ '#and:and: and #or:or: are not ANSI compatible.'

repository/Grease-Pharo110-Slime.package/GRAnsiBooleansRule.class/properties.json

@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "",
+	"super" : "GRSlimeTransformationRule",
+	"category" : "Grease-Pharo110-Slime",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "GRAnsiBooleansRule",
+	"type" : "normal"
+}

repository/Grease-Pharo110-Slime.package/GRAnsiCharactersRule.class/instance/group.st

@@ -0,0 +1,4 @@
+accessing
+group
+
+	^ 'ANSI Compatibility'

repository/Grease-Pharo110-Slime.package/GRAnsiCharactersRule.class/instance/initialize.st

@@ -0,0 +1,16 @@
+initialization
+initialize
+
+	super initialize.
+	self
+		replace: 'Character value: ``@expr'
+		with: 'Character codePoint: ``@expr'.
+	self
+		replace: '`#source `{:node | node value isCharacter }` to: `#target'
+		byEvaluating: [ :node |
+			(node receiver value isCharacter and: [
+				 node arguments first value isCharacter ])
+				ifTrue: [
+					RBLiteralNode value: (String streamContents: [ :stream |
+							 node receiver value codePoint to: node arguments first value codePoint do: [ :code | stream nextPut: (Character codePoint: code) ] ]) ]
+				ifFalse: [ node ] ]

repository/Grease-Pharo110-Slime.package/GRAnsiCharactersRule.class/instance/name.st

@@ -0,0 +1,4 @@
+accessing
+name
+
+	^ 'Characters'

repository/Grease-Pharo110-Slime.package/GRAnsiCharactersRule.class/instance/rationale.st

@@ -0,0 +1,4 @@
+accessing
+rationale
+
+	^ 'Character value: 64 and $a to: $b is not ANSI compatible.'