Revises #base and #extension for complex extensions so that plonk.tar.gz is splitted up into base=plonk.tar and extension=gz.

For the original request, see: http://lists.squeakfoundation.org/pipermail/squeak-dev/2020-November/212899.html

I did not find any relevant senders in FileSystems-Git nor in Squot. All tests in these packages still pass.

Author: LinqLover

src/FS-Core.package/FSPath.class/instance/base.st

@@ -1,4 +1,4 @@
 accessing
 base
-	"Returns the base of the basename, i.e. /foo/gloops.taz basename is 'gloops'"
-	^ self basename copyUpTo: self extensionDelimiter
+	"Returns the base of the basename, i.e. /foo/gloops.tar.gz basename is 'gloops.tar'"
+	^ self basename copyUpToLast: self extensionDelimiter

src/FS-Core.package/FSPath.class/instance/extension.st

@@ -1,5 +1,5 @@
 accessing
 extension
-	"Return the extension of path basename i.e., /foo/gloops.taz extension is 'taz'"
+	"Return the extension of path basename i.e., /foo/gloops.tar.gz extension is 'gz'"
 
-	^ self basename copyAfter: self extensionDelimiter
+	^ self basename copyAfterLast: self extensionDelimiter

src/FS-Core.package/FSPath.class/methodProperties.json

@@ -23,15 +23,15 @@
 		"asPathWith:" : "cwp 10/10/2009 18:04",
 		"asReference" : "jr 3/2/2017 17:39",
 		"asResolvedBy:" : "cwp 9/22/2009 09:08",
-		"base" : "StephaneDucasse 2/15/2010 18:06",
+		"base" : "ct 12/29/2021 20:43",
 		"basename" : "CamilloBruni 8/9/2011 16:11",
 		"contains:" : "cwp 10/26/2009 01:03",
 		"containsPath:" : "cwp 10/25/2009 22:59",
 		"containsReference:" : "cwp 10/25/2009 23:05",
 		"copyFrom:" : "cwp 12/13/2008 21:08",
 		"delimiter" : "cwp 10/11/2009 11:05",
 		"do:" : "cwp 7/18/2009 01:13",
-		"extension" : "StephaneDucasse 2/15/2010 18:04",
+		"extension" : "ct 12/29/2021 20:34",
 		"extensionDelimiter" : "cwp 12/23/2008 11:25",
 		"fullName" : "sd 2/11/2011 21:02",
 		"hash" : "cwp 12/14/2008 17:06",

src/FS-Core.package/FSReference.class/instance/extension.st

@@ -1,7 +1,7 @@
 accessing
 extension
-	"Returns the extension of the basename, i.e. /foo/gloops.taz extension is 'taz'. 
-	Note that compound extensions are returned completely: 
-	/foo/gloops.taz.txt extension is 'taz.txt'"
+	"Returns the extension of the basename, i.e. /foo/gloops.taz extension is 'taz'.
+	Note that for compound extensions, only the last segment is returned:
+	/foo/gloops.tar.gz extension is 'gz'"
 
 	^ path extension

src/FS-Core.package/FSReference.class/methodProperties.json

@@ -67,7 +67,7 @@
 		"entries" : "CamilloBruni 1/19/2012 13:46",
 		"entry" : "sd 2/11/2011 19:58",
 		"exists" : "cwp 1/13/2009 20:52",
-		"extension" : "cwp 3/29/2011 16:56",
+		"extension" : "ct 12/29/2021 20:42",
 		"fileStreamDo:" : "CamilloBruni 2/6/2012 09:36",
 		"fileStreamWritable:do:" : "CamilloBruni 2/6/2012 09:36",
 		"fileSystem" : "jr 10/22/2016 23:11",

src/FS-Tests-Core.package/FSReferenceTest.class/instance/testBaseAndExtension.st

@@ -9,6 +9,6 @@ testBaseAndExtension
 	self assert: ref extension = 'taz'.
 
 	"Note that the extension of a complex extension starts from the first period up until the end"
-	ref := filesystem * 'plonk' / 'griffle.taz.txt'.
-	self assert: ref base = 'griffle'.
-	self assert: ref extension = 'taz.txt'.
+	ref := filesystem * 'plonk' / 'griffle.tar.gz'.
+	self assert: ref base = 'griffle.tar'.
+	self assert: ref extension = 'gz'.

src/FS-Tests-Core.package/FSReferenceTest.class/methodProperties.json

@@ -10,7 +10,7 @@
 		"testAsAbsoluteConverted" : "CamilloBruni 8/12/2011 15:44",
 		"testAsAbsoluteIdentity" : "CamilloBruni 8/12/2011 15:44",
 		"testAsReference" : "CamilloBruni 8/12/2011 15:44",
-		"testBaseAndExtension" : "CamilloBruni 8/12/2011 15:44",
+		"testBaseAndExtension" : "ct 12/29/2021 20:42",
 		"testBasename" : "CamilloBruni 8/12/2011 15:43",
 		"testChildDirectories" : "CamilloBruni 8/12/2011 15:43",
 		"testChildFiles" : "CamilloBruni 8/12/2011 15:43",