sync with smalltalkhub: fixes for squeak and moving up to version 1.2.3

Johan Brichau · Johan Brichau · commit 9ca08cdb062f · 2015-10-24T18:18:28.000+02:00
diff --git a/repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/methodProperties.json b/repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/methodProperties.json
@@ -1,6 +1,6 @@
 {
 	"class" : {
-		"initialize" : "dkh 06/15/2015 15:15" },
+		"initialize" : "dkh 06/15/2015 10:48" },
 	"instance" : {
 		"crlf" : "dkh 11/06/2009 08:45",
 		"invalidUtf8" : "dkh 11/06/2009 08:45",
diff --git a/repository/Grease-GemStone300-Core.package/monticello.meta/version b/repository/Grease-GemStone300-Core.package/monticello.meta/version
@@ -1 +1 @@
-(name 'Grease-GemStone300-Core-dkh.7' message 'restore GRUtf8CodecStream class>>initialize as part fix for https://github.com/GsDevKit/GsDevKit/issues/27 ... will have to wait until backport to GLASS 1.0-beta9.2.1 is completed ...' id '8be8bc71-c4c5-4c56-8ab3-5301389fe266' date '06/15/2015' time '15:17:22' author 'dkh' ancestors ((name 'Grease-GemStone300-Core-dkh.6' message 'Missed some spots in Grease relating to the fix for https://github.com/GsDevKit/GsDevKit/issues/27' id 'af0b39f3-714b-4b01-9c72-7536a3c128e8' date '06/15/2015' time '10:56:56' author 'dkh' ancestors ((name 'Grease-GemStone300-Core-JohanBrichau.5' message 'Fix for slow handling of utf8 encoding in GS3.x (see https://github.com/GsDevKit/Grease/issues/2 )' id 'a1323a4e-ce99-4e85-bf25-ffeaaa9463f5' date '10/19/2014' time '08:40:18' author 'JohanBrichau' ancestors ((name 'Grease-GemStone300-Core-dkh.4' message '1.0.6.1 (dkh.159):- GemStone 3.0.1 fix for Issue 130: remote breakpoints don''''t work  http://code.google.com/p/glassdb/issues/detail?id=130' id '5c8d2bf0-4319-4099-b4b1-83abcc7195b0' date '10/14/2011' time '17:52:12' author 'dkh' ancestors ((name 'Grease-GemStone300-Core-dkh.3' message '1.0.6.1 (dkh.159):- port to GemStone 3.0.1 (#generatehardBreak changed for 3.0)' id '2c389d30-c4d2-4def-b488-82d82b241d1d' date '10/14/2011' time '17:04:58' author 'dkh' ancestors ((name 'Grease-GemStone300-Core-DaleHenrichs.2' message '- pick up some missing methods' id 'a36f8f57-31fc-4a76-84d8-d68331d70935' date '07/22/1910' time '16:42:48' author 'DaleHenrichs' ancestors ((name 'Grease-GemStone300-Core-DaleHenrichs.1' message '- Exception>>greaseString is gemstone version specific' id '0a2c8aaf-061e-45b6-8070-54e4b203adf3' date '07/22/1910' time '14:18:53' author 'DaleHenrichs' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())
+(name 'Grease-GemStone300-Core-dkh.6' message 'Missed some spots in Grease relating to the fix for https://github.com/GsDevKit/GsDevKit/issues/27' id 'af0b39f3-714b-4b01-9c72-7536a3c128e8' date '15 June 2015' time '10:56:56 am' author 'dkh' ancestors ((name 'Grease-GemStone300-Core-JohanBrichau.5' message 'Fix for slow handling of utf8 encoding in GS3.x (see https://github.com/GsDevKit/Grease/issues/2 )' id 'a1323a4e-ce99-4e85-bf25-ffeaaa9463f5' date '19 October 2014' time '8:40:18 am' author 'JohanBrichau' ancestors ((name 'Grease-GemStone300-Core-dkh.4' message '1.0.6.1 (dkh.159):- GemStone 3.0.1 fix for Issue 130: remote breakpoints don''''t work  http://code.google.com/p/glassdb/issues/detail?id=130' id '5c8d2bf0-4319-4099-b4b1-83abcc7195b0' date '14 October 2011' time '5:52:12 pm' author 'dkh' ancestors ((name 'Grease-GemStone300-Core-dkh.3' message '1.0.6.1 (dkh.159):- port to GemStone 3.0.1 (#generatehardBreak changed for 3.0)' id '2c389d30-c4d2-4def-b488-82d82b241d1d' date '14 October 2011' time '5:04:58 pm' author 'dkh' ancestors ((name 'Grease-GemStone300-Core-DaleHenrichs.2' message '- pick up some missing methods' id 'a36f8f57-31fc-4a76-84d8-d68331d70935' date '22 July 1910' time '4:42:48 pm' author 'DaleHenrichs' ancestors ((name 'Grease-GemStone300-Core-DaleHenrichs.1' message '- Exception>>greaseString is gemstone version specific' id '0a2c8aaf-061e-45b6-8070-54e4b203adf3' date '22 July 1910' time '2:18:53 pm' author 'DaleHenrichs' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())
diff --git a/repository/Grease-Pharo-Core.package/GRPharoPlatform.class/instance/fileExists..st b/repository/Grease-Pharo-Core.package/GRPharoPlatform.class/instance/fileExists..st
@@ -0,0 +1,3 @@
+file library
+fileExists: aString
+	^ (FileDirectory on: aString) exists
diff --git a/repository/Grease-Pharo-Core.package/GRPharoPlatform.class/instance/fileStreamOn.do.binary..st b/repository/Grease-Pharo-Core.package/GRPharoPlatform.class/instance/fileStreamOn.do.binary..st
@@ -0,0 +1,13 @@
+file library
+fileStreamOn: aString do: aBlock binary: aBoolean
+	^ aBoolean
+		ifTrue: [
+			FileStream oldFileNamed: aString do: [ :stream |
+				stream binary.
+				aBlock value: stream ] ]
+		ifFalse: [
+			MultiByteFileStream oldFileNamed: aString do: [ :stream |
+				stream
+					ascii;
+					wantsLineEndConversion: true.
+					aBlock value: stream ] ]
diff --git a/repository/Grease-Pharo-Core.package/GRPharoPlatform.class/methodProperties.json b/repository/Grease-Pharo-Core.package/GRPharoPlatform.class/methodProperties.json
@@ -18,6 +18,8 @@
 		"directoriesIn:" : "NickAger 3/9/2012 11:33",
 		"doSilently:" : "JohanBrichau 9/10/2013 11:39",
 		"ensureExistenceOfFolder:" : "jf 1/21/2009 17:31",
+		"fileExists:" : "pmm 7/16/2015 16:36",
+		"fileStreamOn:do:binary:" : "pmm 7/16/2015 16:39",
 		"filesIn:" : "lr 7/25/2011 19:51",
 		"isProcessTerminated:" : "jf 2/6/2009 15:58",
 		"label" : "jf 2/9/2010 00:56",
diff --git a/repository/Grease-Pharo-Core.package/monticello.meta/version b/repository/Grease-Pharo-Core.package/monticello.meta/version
diff --git a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/defaultDirectoryPathString.st b/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/defaultDirectoryPathString.st
@@ -0,0 +1,3 @@
+file library
+defaultDirectoryPathString
+	^ FileDirectory default fullName
diff --git a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/fileNameFor..st b/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/fileNameFor..st
@@ -0,0 +1,7 @@
+file library
+fileNameFor: aPathString
+	| path |
+	path := FileDirectory default fullPathFor: aPathString.
+	^ (path size > 1 and: [ path endsWith: FileDirectory slash ])
+		ifTrue: [ path allButLast: FileDirectory slash size ]
+		ifFalse: [ path ]
diff --git a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/fileStreamOn.do.binary..st b/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/fileStreamOn.do.binary..st
@@ -0,0 +1,13 @@
+file library
+fileStreamOn: aString do: aBlock binary: aBoolean
+	^ aBoolean
+		ifTrue: [
+			FileStream fileNamed: aString do: [ :stream |
+				stream binary.
+				aBlock value: stream ] ]
+		ifFalse: [
+			MultiByteFileStream fileNamed: aString do: [ :stream |
+				stream
+					ascii;
+					wantsLineEndConversion: true.
+					aBlock value: stream ] ]
diff --git a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/isDirectory..st b/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/isDirectory..st
@@ -0,0 +1,3 @@
+file library
+isDirectory: aPathString
+	^ (FileDirectory forFileName: aPathString) directoryEntry isDirectory
diff --git a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/methodProperties.json b/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/methodProperties.json
@@ -2,12 +2,16 @@
 	"class" : {
 		"initialize" : "JohnMcKeon 3/19/2015 22:16" },
 	"instance" : {
+		"defaultDirectoryPathString" : "pmm 7/15/2015 15:07",
 		"deleteFile:inFolder:" : "JohnMcKeon 12/26/2014 19:35",
 		"directoriesIn:" : "JohnMcKeon 12/31/2014 09:23",
 		"doSilently:" : "JohnMcKeon 12/26/2014 19:36",
 		"ensureExistenceOfFolder:" : "JohnMcKeon 12/31/2014 09:32",
 		"fileExists:" : "JohnMcKeon 12/31/2014 09:35",
+		"fileNameFor:" : "pmm 7/15/2015 16:48",
+		"fileStreamOn:do:binary:" : "pmm 7/15/2015 14:47",
 		"filesIn:" : "JohnMcKeon 12/26/2014 19:35",
+		"isDirectory:" : "pmm 7/15/2015 15:21",
 		"localNameOf:" : "JohnMcKeon 12/27/2014 11:04",
 		"pathSeparator" : "JohnMcKeon 12/26/2014 19:35",
 		"write:toFile:inFolder:" : "JohnMcKeon 12/26/2014 19:36" } }
diff --git a/repository/Grease-Squeak-Core.package/Object.extension/instance/sizeInMemory.st b/repository/Grease-Squeak-Core.package/Object.extension/instance/sizeInMemory.st
@@ -0,0 +1,23 @@
+*grease-squeak-core
+sizeInMemory
+    "Answer the number of bytes consumed by this instance including object header."
+    | contentBytes |
+
+	contentBytes := Smalltalk wordSize. "base header"
+	contentBytes := contentBytes + (self class instSize * Smalltalk wordSize). "instance vars"
+
+	self class isVariable ifTrue:[ | bytesPerElement | "indexed elements"
+		bytesPerElement := self class isBytes ifTrue: [1] ifFalse: [4].
+		contentBytes := (contentBytes + (self basicSize * bytesPerElement)).
+		"If we are not filling an ammount of bytes multiple of the wordSize, we do it"
+		(contentBytes \\ Smalltalk wordSize) = 0 ifFalse: [
+			| extraBytesToFillAWord |
+			extraBytesToFillAWord := Smalltalk wordSize - (contentBytes \\ Smalltalk wordSize).
+			contentBytes := contentBytes + extraBytesToFillAWord.
+		]
+	].
+
+	contentBytes > 255 ifTrue:	[ contentBytes := contentBytes +  (2 * Smalltalk wordSize) ]
+						ifFalse:	[ contentBytes := contentBytes + Smalltalk wordSize
+								].
+	^contentBytes
diff --git a/repository/Grease-Squeak-Core.package/Object.extension/methodProperties.json b/repository/Grease-Squeak-Core.package/Object.extension/methodProperties.json
@@ -0,0 +1,5 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"sizeInMemory" : "cmm 10/7/2015 10:22" } }
diff --git a/repository/Grease-Squeak-Core.package/Object.extension/properties.json b/repository/Grease-Squeak-Core.package/Object.extension/properties.json
@@ -0,0 +1,2 @@
+{
+	"name" : "Object" }
diff --git a/repository/Grease-Squeak-Core.package/SmallInteger.extension/instance/sizeInMemory.st b/repository/Grease-Squeak-Core.package/SmallInteger.extension/instance/sizeInMemory.st
@@ -0,0 +1,4 @@
+*grease-squeak-core
+sizeInMemory
+    "SmallInteger occupy 0 bytes since the only space occupied by a SmallInteger is the space of the slot containing it.  There is no SmallInteger object beyond the slot. From another POV, it could be 4, the size of the slot. But we don't count the size of the slots, they are already counted in the containing object, that's why it should answer 0."
+   ^0.
diff --git a/repository/Grease-Squeak-Core.package/SmallInteger.extension/methodProperties.json b/repository/Grease-Squeak-Core.package/SmallInteger.extension/methodProperties.json
@@ -0,0 +1,5 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"sizeInMemory" : "pmm 7/15/2015 16:31" } }
diff --git a/repository/Grease-Squeak-Core.package/SmallInteger.extension/properties.json b/repository/Grease-Squeak-Core.package/SmallInteger.extension/properties.json
@@ -0,0 +1,2 @@
+{
+	"name" : "SmallInteger" }
diff --git a/repository/Grease-Squeak-Core.package/monticello.meta/version b/repository/Grease-Squeak-Core.package/monticello.meta/version
@@ -1 +1 @@
-(name 'Grease-Squeak-Core-JohnMcKeon.2' message '-add override of class initialize method' id '22c9a55a-0754-2a4c-8028-482fa4ffc669' date '19 March 2015' time '10:18:53.936 pm' author 'JohnMcKeon' ancestors ((name 'Grease-Squeak-Core-JohnMcKeon.1' message '-grease for squeak' id '76e50246-7376-7f43-9e50-daa9d7108db6' date '16 March 2015' time '9:14:49.119 pm' author 'JohnMcKeon' ancestors () stepChildren ())) stepChildren ())
+(name 'Grease-Squeak-Core-JohanBrichau.6' message 'Object>>#sizeInMemory asks #isCompact to determine the number ofbytes, but this has been removed from Squeak. Thanks Chris Muller' id '5899d218-fe39-41b2-880a-d052b41d0d63' date '24 October 2015' time '5:24:10.125 pm' author 'JB' ancestors ((name 'Grease-Squeak-Core-pmm.5' message '- add #sizeInMemory to Squeak' id '407fc250-3664-4ffb-ae92-17102efa6e47' date '15 July 2015' time '6:09:33.359 pm' author 'pmm' ancestors ((name 'Grease-Squeak-Core-pmm.4' message '- add more missing methods' id '1e5dee9a-f686-43eb-91e2-5942fe6143d5' date '15 July 2015' time '3:34:35.74 pm' author 'pmm' ancestors ((name 'Grease-Squeak-Core-pmm.3' message '- implement missing method' id '3683851e-6da7-4972-afa0-f4928390b3a9' date '15 July 2015' time '2:48:40.968 pm' author 'pmm' ancestors ((name 'Grease-Squeak-Core-JohnMcKeon.2' message '-add override of class initialize method' id '22c9a55a-0754-2a4c-8028-482fa4ffc669' date '19 March 2015' time '10:18:53.936 pm' author 'JohnMcKeon' ancestors ((name 'Grease-Squeak-Core-JohnMcKeon.1' message '-grease for squeak' id '76e50246-7376-7f43-9e50-daa9d7108db6' date '16 March 2015' time '9:14:49.119 pm' author 'JohnMcKeon' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())
diff --git a/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/setUp.st b/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/setUp.st
@@ -1,4 +1,5 @@
 running
 setUp
+	| codecStream |
 	codecStream := ((GRCodec forEncoding: 'utf-8') encoderFor: (WriteStream on: String new)).
 	countingStream := GRCountingStream on: codecStream
diff --git a/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/methodProperties.json
@@ -2,7 +2,7 @@
 	"class" : {
 		 },
 	"instance" : {
-		"setUp" : "pmm 8/19/2014 09:37",
+		"setUp" : "pmm 7/16/2015 16:32",
 		"testInitialSize" : "pmm 6/25/2012 20:51",
 		"testNextPut" : "pmm 8/19/2014 09:29",
 		"testNextPutAll" : "pmm 8/19/2014 09:29",
diff --git a/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/properties.json b/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/properties.json
@@ -6,8 +6,7 @@
 		 ],
 	"commentStamp" : "",
 	"instvars" : [
-		"countingStream",
-		"codecStream" ],
+		"countingStream" ],
 	"name" : "GRCountingStreamTest",
 	"pools" : [
 		 ],
diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseString.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseString.st
@@ -25,5 +25,5 @@ testGreaseString
 	self assert: Object new greaseString isString.
 	"Printing scaled decimals (https://github.com/SeasideSt/Grease/issues/1)"
 	self assert: 1.21s3 greaseString = '1.210'.
-	self assert: -1.21s3 greaseString = '-1.210'.
+	self assert: -1.21s3 greaseString = '-1.210'
 	
diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRPlatformTest.class/methodProperties.json
@@ -23,7 +23,7 @@
 		"testGreaseIntegerOnCharacterSmp" : "pmm 12/26/2010 21:16",
 		"testGreaseIntegerOnNumber" : "jf 9/30/2009 01:07",
 		"testGreaseIntegerOnString" : "jf 9/30/2009 01:08",
-		"testGreaseString" : "JohanBrichau 5/25/2015 09:04",
+		"testGreaseString" : "pmm 7/16/2015 15:58",
 		"testIfNil" : "pmm 11/10/2007 17:19",
 		"testIfTrueIfFalse" : "lr 12/3/2009 10:54",
 		"testIsCharacter" : "pmm 5/2/2009 17:18",
diff --git a/repository/Grease-Tests-Core.package/monticello.meta/version b/repository/Grease-Tests-Core.package/monticello.meta/version

Original file line number	Diff line number	Diff line change
`@@ -1,6 +1,6 @@`
`1`	`1`	`{`
`2`	`2`	`"class" : {`
`3`		`- "initialize" : "dkh 06/15/2015 15:15" },`
	`3`	`+ "initialize" : "dkh 06/15/2015 10:48" },`
`4`	`4`	`"instance" : {`
`5`	`5`	`"crlf" : "dkh 11/06/2009 08:45",`
`6`	`6`	`"invalidUtf8" : "dkh 11/06/2009 08:45",`
Original file line number	Diff line number	Diff line change
`@@ -1 +1 @@`
`1`		-(name 'Grease-GemStone300-Core-dkh.7' message 'restore GRUtf8CodecStream class>>initialize as part fix for https://github.com/GsDevKit/GsDevKit/issues/27 ... will have to wait until backport to GLASS 1.0-beta9.2.1 is completed ...' id '8be8bc71-c4c5-4c56-8ab3-5301389fe266' date '06/15/2015' time '15:17:22' author 'dkh' ancestors ((name 'Grease-GemStone300-Core-dkh.6' message 'Missed some spots in Grease relating to the fix for https://github.com/GsDevKit/GsDevKit/issues/27' id 'af0b39f3-714b-4b01-9c72-7536a3c128e8' date '06/15/2015' time '10:56:56' author 'dkh' ancestors ((name 'Grease-GemStone300-Core-JohanBrichau.5' message 'Fix for slow handling of utf8 encoding in GS3.x (see https://github.com/GsDevKit/Grease/issues/2 )' id 'a1323a4e-ce99-4e85-bf25-ffeaaa9463f5' date '10/19/2014' time '08:40:18' author 'JohanBrichau' ancestors ((name 'Grease-GemStone300-Core-dkh.4' message '1.0.6.1 (dkh.159):- GemStone 3.0.1 fix for Issue 130: remote breakpoints don''''t work http://code.google.com/p/glassdb/issues/detail?id=130' id '5c8d2bf0-4319-4099-b4b1-83abcc7195b0' date '10/14/2011' time '17:52:12' author 'dkh' ancestors ((name 'Grease-GemStone300-Core-dkh.3' message '1.0.6.1 (dkh.159):- port to GemStone 3.0.1 (#generatehardBreak changed for 3.0)' id '2c389d30-c4d2-4def-b488-82d82b241d1d' date '10/14/2011' time '17:04:58' author 'dkh' ancestors ((name 'Grease-GemStone300-Core-DaleHenrichs.2' message '- pick up some missing methods' id 'a36f8f57-31fc-4a76-84d8-d68331d70935' date '07/22/1910' time '16:42:48' author 'DaleHenrichs' ancestors ((name 'Grease-GemStone300-Core-DaleHenrichs.1' message '- Exception>>greaseString is gemstone version specific' id '0a2c8aaf-061e-45b6-8070-54e4b203adf3' date '07/22/1910' time '14:18:53' author 'DaleHenrichs' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())
	`1`	+(name 'Grease-GemStone300-Core-dkh.6' message 'Missed some spots in Grease relating to the fix for https://github.com/GsDevKit/GsDevKit/issues/27' id 'af0b39f3-714b-4b01-9c72-7536a3c128e8' date '15 June 2015' time '10:56:56 am' author 'dkh' ancestors ((name 'Grease-GemStone300-Core-JohanBrichau.5' message 'Fix for slow handling of utf8 encoding in GS3.x (see https://github.com/GsDevKit/Grease/issues/2 )' id 'a1323a4e-ce99-4e85-bf25-ffeaaa9463f5' date '19 October 2014' time '8:40:18 am' author 'JohanBrichau' ancestors ((name 'Grease-GemStone300-Core-dkh.4' message '1.0.6.1 (dkh.159):- GemStone 3.0.1 fix for Issue 130: remote breakpoints don''''t work http://code.google.com/p/glassdb/issues/detail?id=130' id '5c8d2bf0-4319-4099-b4b1-83abcc7195b0' date '14 October 2011' time '5:52:12 pm' author 'dkh' ancestors ((name 'Grease-GemStone300-Core-dkh.3' message '1.0.6.1 (dkh.159):- port to GemStone 3.0.1 (#generatehardBreak changed for 3.0)' id '2c389d30-c4d2-4def-b488-82d82b241d1d' date '14 October 2011' time '5:04:58 pm' author 'dkh' ancestors ((name 'Grease-GemStone300-Core-DaleHenrichs.2' message '- pick up some missing methods' id 'a36f8f57-31fc-4a76-84d8-d68331d70935' date '22 July 1910' time '4:42:48 pm' author 'DaleHenrichs' ancestors ((name 'Grease-GemStone300-Core-DaleHenrichs.1' message '- Exception>>greaseString is gemstone version specific' id '0a2c8aaf-061e-45b6-8070-54e4b203adf3' date '22 July 1910' time '2:18:53 pm' author 'DaleHenrichs' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+file library`
	`2`	`+fileExists: aString`
	`3`	`+ ^ (FileDirectory on: aString) exists`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+file library`
	`2`	`+defaultDirectoryPathString`
	`3`	`+ ^ FileDirectory default fullName`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+file library`
	`2`	`+isDirectory: aPathString`
	`3`	`+ ^ (FileDirectory forFileName: aPathString) directoryEntry isDirectory`