Packages April 2022

packages@lists.squeakfoundation.org

1 participants
184 discussions

The Trunk: Chronology-Core-dtl.79.mcz
by commits＠source.squeak.org 24 Apr '22

24 Apr '22

David T. Lewis uploaded a new version of Chronology-Core to project The Trunk: http://source.squeak.org/trunk/Chronology-Core-dtl.79.mcz ==================== Summary ==================== Name: Chronology-Core-dtl.79 Author: dtl Time: 24 April 2022, 1:42:51.885752 pm UUID: 6f7605b0-2d71-404a-bb89-0a18345f875a Ancestors: Chronology-Core-mt.78 Provide a better method comment for DateAndTime>>offset: to address a long-standing #FIXME flag. We now have #utcOffset: to complement #offset: so a better explanation of the behavior is sufficient to clarify the difference. =============== Diff against Chronology-Core-mt.78 =============== Item was changed: ----- Method: DateAndTime>>offset: (in category 'ansi protocol') ----- offset: anOffset + "Answer a DateAndTime for a different time zone offset that has the same + year, month, day, hour, minute, and second as this instance, and with + printString that matches except for time zone offset." - "Answer a <DateAndTime> equivalent to the receiver but with its local time - being offset from UTC by offset." - | newOffset newMicros | - self flag: #FIXME. "check the definition of this and of #utcOffset:" newOffset := anOffset asDuration asSeconds. newMicros := localOffsetSeconds - newOffset * 1000000 + utcMicroseconds. ^ self class utcMicroseconds: newMicros offset: newOffset !

1 0

The Trunk: KernelTests-nice.420.mcz
by commits＠source.squeak.org 24 Apr '22

24 Apr '22

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.420.mcz ==================== Summary ==================== Name: KernelTests-nice.420 Author: nice Time: 24 April 2022, 4:47:16.037785 pm UUID: e3105d5f-ab18-45ba-bc8c-634d1b07d39d Ancestors: KernelTests-ct.419 Test Complex sqrt =============== Diff against KernelTests-ct.419 =============== Item was added: + ----- Method: ComplexTest>>testSqrt (in category 'tests') ----- + testSqrt + -3 to: 3 do: [:re | -2 to: 2 do: [:im | + | c s t | + c := re asFloat + im asFloat i. + s := c sqrt. + t := s squared. + self assert: (t real - c real) abs / 4 < c abs asFloat ulp. + self assert: (t imaginary - c imaginary) abs / 4 < c abs asFloat ulp. + self assert: s imaginary signBit = c imaginary signBit]]!

1 0

The Trunk: Kernel-nice.1460.mcz
by commits＠source.squeak.org 24 Apr '22

24 Apr '22

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.1460.mcz ==================== Summary ==================== Name: Kernel-nice.1460 Author: nice Time: 24 April 2022, 4:40:46.56674 pm UUID: c06981bc-7eba-4a8e-a388-658d43b49ec8 Ancestors: Kernel-nice.1459 Oups fixup (2 i sqrt), not enough tests... Sorry for the noise. =============== Diff against Kernel-nice.1459 =============== Item was changed: ----- Method: Complex>>sqrt (in category 'mathematical functions') ----- sqrt + "Return the square root of the receiver with a positive real part. + This is the same as (Complex abs: self abs sqrt arg: self arg / 2). - "Return the square root of the receiver with a positive imaginary part. Implementation notes: the formulation used ensure a protection against floating point overflow/underflow. it also result in a reasonable precision (around 3 ulp). It is inspired by following reference, except that it uses pre-scaling rather than eception handling: Implementing Complex Elementary Function Using Exception Handling ACM Transactions on Mathematical Software - October 1994 Ping Tang and 3 other authors" | x y r s t scale | real isZero ifTrue: + [t := imaginary abs sqrt / 2 sqrt. - [t := imaginary abs sqrt. ^self class real: t imaginary: (imaginary copySignTo: t)]. scale := real abs max: imaginary abs. x := real / scale. y := imaginary / scale. r := (x squared + y squared) sqrt. s := scale sqrt. t := (r + x abs * 2) sqrt. ^real > 0 ifTrue: [self class real: t * s / 2 imaginary: y * s / t] ifFalse: [self class real: y abs * s / t imaginary: (y copySignTo: t * s / 2)]!

1 0

The Trunk: Kernel-nice.1459.mcz
by commits＠source.squeak.org 23 Apr '22

23 Apr '22

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.1459.mcz ==================== Summary ==================== Name: Kernel-nice.1459 Author: nice Time: 23 April 2022, 9:40:29.771092 pm UUID: 5aa845dd-8c95-4a0f-9b68-afdac84b11e7 Ancestors: Kernel-mt.1458 Fix some avoidable floating point overflow/underflow/divisionByZero in Complex>>#sqrt This was reported at: https://github.com/PolyMathOrg/PolyMath/issues/221 =============== Diff against Kernel-mt.1458 =============== Item was changed: ----- Method: Complex>>sqrt (in category 'mathematical functions') ----- sqrt + "Return the square root of the receiver with a positive imaginary part. + Implementation notes: + the formulation used ensure a protection against floating point overflow/underflow. + it also result in a reasonable precision (around 3 ulp). + It is inspired by following reference, except that it uses pre-scaling rather than eception handling: + Implementing Complex Elementary Function Using Exception Handling + ACM Transactions on Mathematical Software - October 1994 + Ping Tang and 3 other authors" - "Return the square root of the receiver with a positive imaginary part." + | x y r s t scale | + real isZero + ifTrue: + [t := imaginary abs sqrt. + ^self class real: t imaginary: (imaginary copySignTo: t)]. + scale := real abs max: imaginary abs. + x := real / scale. + y := imaginary / scale. + r := (x squared + y squared) sqrt. + s := scale sqrt. + t := (r + x abs * 2) sqrt. + ^real > 0 + ifTrue: [self class real: t * s / 2 imaginary: y * s / t] + ifFalse: [self class real: y abs * s / t imaginary: (y copySignTo: t * s / 2)]! - | u v | - (imaginary = 0 and: [real >= 0]) - ifTrue: [^self class real: real sqrt imaginary: 0]. - v := (self abs - real / 2) sqrt. - u := imaginary / 2 / v. - ^self class real: u imaginary: v!

1 0

The Trunk: NetworkTests-pre.62.mcz
by commits＠source.squeak.org 22 Apr '22

22 Apr '22

Patrick Rein uploaded a new version of NetworkTests to project The Trunk: http://source.squeak.org/trunk/NetworkTests-pre.62.mcz ==================== Summary ==================== Name: NetworkTests-pre.62 Author: pre Time: 22 April 2022, 9:06:34.386677 pm UUID: 218eaf21-1e2d-5c45-8df6-102ab6ee8892 Ancestors: NetworkTests-ct.61 Adds tests for equality of Urls and URIs. Unites the test classes for Url subclasses in one hierarchy. =============== Diff against NetworkTests-ct.61 =============== Item was changed: + UrlSubclassesTest subclass: #FileUrlTest - ClassTestCase subclass: #FileUrlTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'NetworkTests-Url'! Item was added: + ----- Method: FileUrlTest>>classToBeTested (in category 'coverage') ----- + classToBeTested + + ^ FileUrl! Item was added: + ----- Method: FileUrlTest>>createUrlFrom: (in category 'private') ----- + createUrlFrom: aString + + ^ FileUrl absoluteFromText: aString! Item was added: + ----- Method: FileUrlTest>>testEqual (in category 'tests') ----- + testEqual + + self + assertUrl: 'file:///C:/Users/Uniform%20Resource%20Identifier.html' + equals: 'file:///C:/Users/Uniform%20Resource%20Identifier.html'. + + self + denyUrl: 'file:///C:/Users/Uniform%20Resource%20Identifier.html' + equals: 'file:///C:/Users/Uniform%20Resource%20Identifier2.html'.! Item was added: + ----- Method: FileUrlTest>>testEqualWithHostAndFragment (in category 'tests') ----- + testEqualWithHostAndFragment + + self + assertUrl: 'file://localhost/C:/Users/Uniform%20Resource%20Identifier.html#heading1' + equals: 'file://localhost/C:/Users/Uniform%20Resource%20Identifier.html#heading1'. + + self + denyUrl: 'file://localhost/C:/Users/Uniform%20Resource%20Identifier.html#heading1' + equals: 'file://localhost/C:/Users/Uniform%20Resource%20Identifier.html#heading2'. + + self + denyUrl: 'file://localhost/C:/Users/Uniform%20Resource%20Identifier.html#heading1' + equals: 'file://localhost2/C:/Users/Uniform%20Resource%20Identifier.html#heading1'.! Item was changed: + UrlSubclassesTest subclass: #GenericUrlTest - ClassTestCase subclass: #GenericUrlTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'NetworkTests-Url'! Item was added: + ----- Method: GenericUrlTest>>classToBeTested (in category 'coverage') ----- + classToBeTested + + ^ GenericUrl! Item was added: + ----- Method: GenericUrlTest>>createUrlFrom: (in category 'private') ----- + createUrlFrom: aString + + ^ GenericUrl absoluteFromText: aString! Item was added: + ----- Method: GenericUrlTest>>testEqual (in category 'tests') ----- + testEqual + + self + assertUrl: 'http://nobody:password@example.org:8080/cgi-bin/script.php?action=submit&pa…' + equals: 'http://nobody:password@example.org:8080/cgi-bin/script.php?action=submit&pa…'. + + "Different port" + self + denyUrl: 'http://nobody:password@example.org:8080/cgi-bin/script.php?action=submit&pa…' + equals: 'http://nobody:password@example.org:8081/cgi-bin/script.php?action=submit&pa…'. + + "Different host" + self + denyUrl: 'http://nobody:password@example.org:8080/cgi-bin/script.php?action=submit&pa…' + equals: 'http://nobody:password@example2.org:8080/cgi-bin/script.php?action=submit&p…'. + + "Different query" + self + denyUrl: 'http://nobody:password@example.org:8080/cgi-bin/script.php?action=submit&pa…' + equals: 'http://nobody:password@example2.org:8080/cgi-bin/script.php?action=submit&p…'. + + "Different fragment" + self + denyUrl: 'http://nobody:password@example.org:8080/cgi-bin/script.php?action=submit&pa…' + equals: 'http://nobody:password@example2.org:8080/cgi-bin/script.php?action=submit&p…'. + + "Different authentication" + self + denyUrl: 'http://nobody:password@example.org:8080/cgi-bin/script.php?action=submit&pa…' + equals: 'http://someone:password@example2.org:8080/cgi-bin/script.php?action=submit&…'. + + "Different schema" + self + denyUrl: 'http://nobody:password@example.org:8080/cgi-bin/script.php?action=submit&pa…' + equals: 'sometp://someone:password@example2.org:8080/cgi-bin/script.php?action=submit&pageid=86392001#section_2'. + + ! Item was changed: + UrlSubclassesTest subclass: #HierarchicalUrlTest - ClassTestCase subclass: #HierarchicalUrlTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'NetworkTests-Url'! Item was added: + ----- Method: HierarchicalUrlTest>>classToBeTested (in category 'coverage') ----- + classToBeTested + + ^ HierarchicalUrl! Item was added: + ----- Method: HierarchicalUrlTest>>createUrlFrom: (in category 'private') ----- + createUrlFrom: aString + + ^ HierarchicalUrl absoluteFromText: aString! Item was added: + ----- Method: HierarchicalUrlTest>>testEqual (in category 'tests') ----- + testEqual + + self + assertUrl: 'ftp://localhost/path/to/file?aQuery' + equals: 'ftp://localhost/path/to/file?aQuery'. + + "Different Schema name" + self + denyUrl: 'ftp://localhost/path/to/file?aQuery' + equals: 'http://localhost/path/to/file?aQuery'. + + "Different Authority" + self + denyUrl: 'ftp://localhost/path/to/file?aQuery' + equals: 'ftp://remotehost/path/to/file?aQuery'. + + "Different Path" + self + denyUrl: 'ftp://localhost/path/to/file?aQuery' + equals: 'ftp://localhost/anotherpath/to/file?aQuery'. + + "Different Query" + self + denyUrl: 'ftp://localhost/path/to/file?aQuery' + equals: 'ftp://localhost/path/to/file?aQuery=aValue'. + ! Item was changed: + UrlSubclassesTest subclass: #HttpUrlTest - ClassTestCase subclass: #HttpUrlTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'NetworkTests-Url'! Item was added: + ----- Method: HttpUrlTest>>classToBeTested (in category 'coverage') ----- + classToBeTested + + ^ HttpUrl! Item was added: + ----- Method: HttpUrlTest>>createUrlFrom: (in category 'private') ----- + createUrlFrom: aString + + ^ HttpUrl absoluteFromText: aString! Item was added: + ----- Method: HttpUrlTest>>testEqual (in category 'tests') ----- + testEqual + + self + assertUrl: 'http://localhost/path/to/file?aQuery' + equals: 'http://localhost/path/to/file?aQuery'. + + "Different Schema name" + self + denyUrl: 'http://localhost/path/to/file?aQuery' + equals: 'https://localhost/path/to/file?aQuery'. + + "Different Authority" + self + denyUrl: 'http://localhost/path/to/file?aQuery' + equals: 'http://remotehost/path/to/file?aQuery'. + + "Different Path" + self + denyUrl: 'http://localhost/path/to/file?aQuery' + equals: 'http://localhost/anotherpath/to/file?aQuery'. + + "Different Query" + self + denyUrl: 'http://localhost/path/to/file?aQuery' + equals: 'http://localhost/path/to/file?aQuery=aValue'. + ! Item was changed: + ClassTestCase subclass: #TestURI - TestCase subclass: #TestURI instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'NetworkTests-URI'! + !TestURI commentStamp: 'pre 4/22/2022 21:05' prior: 0! + Some parsers allow the scheme name to be present in a relative URI if - !TestURI commentStamp: 'mir 2/27/2002 14:42' prior: 0! - Main comment stating the purpose of this class and relevant relationship to other classes. - - - Some parsers allow the scheme name to be present in a relative URI if it is the same as the base URI scheme. This is considered to be a loophole in prior specifications of partial URI [RFC1630]. Its use should be avoided. http:g = http:g ; for validating parsers | http://a/b/c/g ; for backwards compatibility ! Item was added: + ----- Method: TestURI>>classToBeTested (in category 'coverage') ----- + classToBeTested + + ^ URI! Item was added: + ----- Method: TestURI>>testEquals (in category 'tests - comparing') ----- + testEquals + + | uri uriString | + uri := [:string | URI fromString: string]. + + uriString := 'http://squeak.org/'. + self assert: (uri value: uriString) = (uri value: uriString). + uriString := 'http://squeak.org/index.html'. + self assert: (uri value: uriString) = (uri value: uriString). + uriString := 'mailto:somebody@somewhere.nowhere#fragment'. + self assert: (uri value: uriString) = (uri value: uriString). + + self deny: (uri value: 'http://squeak.org') = (uri value: 'http://website.com').! Item was added: + ClassTestCase subclass: #UrlSubclassesTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'NetworkTests-Url'! Item was added: + ----- Method: UrlSubclassesTest class>>isAbstract (in category 'Testing') ----- + isAbstract + + ^ self = UrlSubclassesTest! Item was added: + ----- Method: UrlSubclassesTest>>assertUrl:equals: (in category 'assertions') ----- + assertUrl: aString equals: anotherString + + self + assert: (self createUrlFrom: aString) = (self createUrlFrom: anotherString) + description: ('Url {1} is not equal to {2}' format: {aString . anotherString}).! Item was added: + ----- Method: UrlSubclassesTest>>createUrlFrom: (in category 'private') ----- + createUrlFrom: aString + + self subclassResponsibility.! Item was added: + ----- Method: UrlSubclassesTest>>denyUrl:equals: (in category 'assertions') ----- + denyUrl: aString equals: anotherString + + self + deny: (self createUrlFrom: aString) = (self createUrlFrom: anotherString) + description: ('Url {1} is equal to {2} but should not be.' format: {aString . anotherString}).! Item was changed: + ----- Method: UrlTest>>testAbsoluteBrowser (in category 'tests - absolute urls') ----- - ----- Method: UrlTest>>testAbsoluteBrowser (in category 'tests') ----- testAbsoluteBrowser url := Url absoluteFromText: 'browser:bookmarks#mainPart'. self assert: url schemeName = 'browser'. self assert: url locator = 'bookmarks'. self assert:url fragment = 'mainPart'. self assert: url class = BrowserUrl. ! Item was changed: + ----- Method: UrlTest>>testAbsoluteFILE (in category 'tests - absolute urls') ----- - ----- Method: UrlTest>>testAbsoluteFILE (in category 'tests') ----- testAbsoluteFILE url := Url absoluteFromText: 'file:/etc/passwd#foo'. self assert: url schemeName = 'file'. self assert: url path first = 'etc'. self assert: url path size = 2. self assert: url fragment = 'foo'.! Item was changed: + ----- Method: UrlTest>>testAbsoluteFILE2 (in category 'tests - absolute urls') ----- - ----- Method: UrlTest>>testAbsoluteFILE2 (in category 'tests') ----- testAbsoluteFILE2 url := 'fILE:/foo/bar//zookie/?fakequery/#fragger' asUrl. self assert: url schemeName = 'file'. self assert: url class = FileUrl. self assert: url path first ='foo'. self assert: url path size = 5. self assert: url fragment = 'fragger'.! Item was changed: + ----- Method: UrlTest>>testAbsoluteFILE3 (in category 'tests - absolute urls') ----- - ----- Method: UrlTest>>testAbsoluteFILE3 (in category 'tests') ----- testAbsoluteFILE3 "Just a few selected tests for FileUrl, not complete by any means." {'file:'. 'file:/'. 'file://'} do: [:s | url := FileUrl absoluteFromText: s. self assert: (url asString = 'file:///'). self assert: (url host = ''). self assert: url isAbsolute]. url := FileUrl absoluteFromText: 'file://localhost/dir/file.txt'. self assert: (url asString = 'file://localhost/dir/file.txt'). self assert: (url host = 'localhost'). url := FileUrl absoluteFromText: 'file://localhost/dir/file.txt'. self assert: (url asString = 'file://localhost/dir/file.txt'). self assert: (url host = 'localhost'). self assert: url isAbsolute. url := FileUrl absoluteFromText: 'file:///dir/file.txt'. self assert: (url asString = 'file:///dir/file.txt'). self assert: (url host = ''). self assert: url isAbsolute. url := FileUrl absoluteFromText: '/dir/file.txt'. self assert: (url asString = 'file:///dir/file.txt'). self assert: url isAbsolute. url := FileUrl absoluteFromText: 'dir/file.txt'. self assert: (url asString = 'file:///dir/file.txt'). self deny: url isAbsolute. url := FileUrl absoluteFromText: 'c:/dir/file.txt'. self assert: (url asString = 'file:///c%3A/dir/file.txt'). self assert: url isAbsolute. "Only a drive letter doesn't refer to a directory." url := FileUrl absoluteFromText: 'c:'. self assert: (url asString = 'file:///c%3A/'). self assert: url isAbsolute. url := FileUrl absoluteFromText: 'c:/'. self assert: (url asString = 'file:///c%3A/'). self assert: url isAbsolute! Item was changed: + ----- Method: UrlTest>>testAbsoluteFTP (in category 'tests - absolute urls') ----- - ----- Method: UrlTest>>testAbsoluteFTP (in category 'tests') ----- testAbsoluteFTP url := 'ftP://some.server/some/directory/' asUrl. self assert: url schemeName = 'ftp'. self assert: url class = FtpUrl. self assert: url authority = 'some.server'. self assert: url path first = 'some'. self assert: url path size = 3. ! Item was changed: + ----- Method: UrlTest>>testAbsoluteHTTP (in category 'tests - absolute urls') ----- - ----- Method: UrlTest>>testAbsoluteHTTP (in category 'tests') ----- testAbsoluteHTTP url := 'hTTp://chaos.resnet.gatech.edu:8000/docs/java/index.html?A%20query%20#part' asUrl. self assert: url schemeName = 'http'. self assert: url authority = 'chaos.resnet.gatech.edu'. self assert: url path first = 'docs'. self assert: url path size = 3. self assert: url query = 'A%20query%20'. self assert: url fragment = 'part'.! Item was changed: + ----- Method: UrlTest>>testAbsolutePortErrorFix (in category 'tests - absolute urls') ----- - ----- Method: UrlTest>>testAbsolutePortErrorFix (in category 'tests') ----- testAbsolutePortErrorFix "This should not throw an exception." Url absoluteFromText: 'http://swikis.ddo.jp:8823/'. self should: [Url absoluteFromText: 'http://swikis.ddo.jp:-1/'] raise: Error. self should: [Url absoluteFromText: 'http://swikis.ddo.jp:65536/'] raise: Error. self should: [Url absoluteFromText: 'http://swikis.ddo.jp:auau/'] raise: Error.! Item was changed: + ----- Method: UrlTest>>testAbsoluteTELNET (in category 'tests - absolute urls') ----- - ----- Method: UrlTest>>testAbsoluteTELNET (in category 'tests') ----- testAbsoluteTELNET url := 'telNet:chaos.resnet.gatech.edu#goo' asUrl. self assert: url schemeName = 'telnet'. self assert: url locator = 'chaos.resnet.gatech.edu'. self assert: url fragment = 'goo'. ! Item was changed: + ----- Method: UrlTest>>testRelativeFILE (in category 'tests - relative') ----- - ----- Method: UrlTest>>testRelativeFILE (in category 'tests') ----- testRelativeFILE | url2 | baseUrl := 'file:/some/dir#fragment1' asUrl. url := baseUrl newFromRelativeText: 'file:../another/dir/#fragment2'. self assert: url asText = 'file:///another/dir/#fragment2'. url := FileUrl absoluteFromText: 'file://localhost/dir/dir2/file.txt'. url2 := FileUrl absoluteFromText: 'file://hostname/flip/file.txt'. url2 privateInitializeFromText: '../file2.txt' relativeTo: url. self assert: (url2 asString = 'file://localhost/dir/file2.txt'). self assert: (url2 host = 'localhost'). self assert: url2 isAbsolute. url := FileUrl absoluteFromText: 'file://localhost/dir/dir2/file.txt'. url2 := FileUrl absoluteFromText: 'flip/file.txt'. self deny: url2 isAbsolute. url2 privateInitializeFromText: '.././flip/file.txt' relativeTo: url. self assert: (url2 asString = 'file://localhost/dir/flip/file.txt'). self assert: (url2 host = 'localhost'). self assert: url2 isAbsolute. ! Item was changed: + ----- Method: UrlTest>>testRelativeFTP (in category 'tests - relative') ----- - ----- Method: UrlTest>>testRelativeFTP (in category 'tests') ----- testRelativeFTP baseUrl := 'ftp://somewhere/some/dir/?query#fragment' asUrl. url := baseUrl newFromRelativeText: 'ftp://a.b'. self assert: url asString = 'ftp://a.b/'.! Item was changed: + ----- Method: UrlTest>>testRelativeFTP2 (in category 'tests - relative') ----- - ----- Method: UrlTest>>testRelativeFTP2 (in category 'tests') ----- testRelativeFTP2 baseUrl := 'ftp://somewhere/some/dir/?query#fragment' asUrl. url := baseUrl newFromRelativeText: 'ftp:xyz'. self assert: url asString = 'ftp://somewhere/some/dir/xyz'.! Item was changed: + ----- Method: UrlTest>>testRelativeFTP3 (in category 'tests - relative') ----- - ----- Method: UrlTest>>testRelativeFTP3 (in category 'tests') ----- testRelativeFTP3 baseUrl := 'ftp://somewhere/some/dir/?query#fragment' asUrl. url := baseUrl newFromRelativeText: 'http:xyz'. self assert: url asString = 'http://xyz/'.! Item was changed: + ----- Method: UrlTest>>testRelativeHTTP (in category 'tests - relative') ----- - ----- Method: UrlTest>>testRelativeHTTP (in category 'tests') ----- testRelativeHTTP baseUrl := 'http://some.where/some/dir?query1#fragment1' asUrl. url := baseUrl newFromRelativeText: '../another/dir/?query2#fragment2'. self assert: url asString = 'http://some.where/another/dir/?query2#fragment2'.!

1 0

The Trunk: Network-pre.259.mcz
by commits＠source.squeak.org 22 Apr '22

22 Apr '22

Patrick Rein uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-pre.259.mcz ==================== Summary ==================== Name: Network-pre.259 Author: pre Time: 22 April 2022, 9:04:29.632677 pm UUID: 2072b4ec-3168-4447-9348-51d1ec7178dc Ancestors: Network-mt.258 Refactors the implementation of #= in Url and its subclasses to remove the redundant parts from subclasses. =============== Diff against Network-mt.258 =============== Item was removed: - ----- Method: FileUrl>>= (in category 'comparing') ----- - = anObject - - self == anObject ifTrue: [^ true]. - - self class == anObject class ifFalse: [^ false]. - self fragment = anObject fragment ifFalse: [ ^ false ]. - - self host = anObject host ifFalse: [ ^ false ]. - self path = anObject path ifFalse: [ ^ false ]. - - ^ true! Item was added: + ----- Method: FileUrl>>hasSameSchemeSpecificPartAs: (in category 'comparing') ----- + hasSameSchemeSpecificPartAs: anotherUrl + + self host = anotherUrl host ifFalse: [^ false]. + self path = anotherUrl path ifFalse: [^ false]. + ^ true! Item was removed: - ----- Method: GenericUrl>>= (in category 'comparing') ----- - = anObject - - self == anObject ifTrue: [^ true]. - - self class == anObject class ifFalse: [^ false]. - self fragment = anObject fragment ifFalse: [ ^ false ]. - - self schemeName = anObject schemeName ifFalse: [ ^ false ]. - self locator = anObject locator ifFalse: [ ^ false ]. - - ^ true! Item was added: + ----- Method: GenericUrl>>hasSameSchemeSpecificPartAs: (in category 'comparing') ----- + hasSameSchemeSpecificPartAs: anotherUrl + + self locator = anotherUrl locator ifFalse: [^ false]. + ^ true! Item was removed: - ----- Method: HierarchicalUrl>>= (in category 'comparing') ----- - = anObject - - self == anObject ifTrue: [^ true]. - - self class == anObject class ifFalse: [^ false]. - self fragment = anObject fragment ifFalse: [ ^ false ]. - - self schemeName = anObject schemeName ifFalse: [ ^ false ]. - self authority = anObject authority ifFalse: [ ^ false ]. - self path = anObject path ifFalse: [ ^ false ]. - self query = anObject query ifFalse: [ ^ false ]. - self port = anObject port ifFalse: [ ^ false ]. - self username = anObject username ifFalse: [ ^ false ]. - self password = anObject password ifFalse: [ ^ false ]. - - ^ true! Item was added: + ----- Method: HierarchicalUrl>>hasSameSchemeSpecificPartAs: (in category 'comparing') ----- + hasSameSchemeSpecificPartAs: anotherUrl + + self authority = anotherUrl authority ifFalse: [^ false]. + self path = anotherUrl path ifFalse: [^ false]. + self query = anotherUrl query ifFalse: [^ false]. + self port = anotherUrl port ifFalse: [^ false]. + self username = anotherUrl username ifFalse: [^ false]. + self password = anotherUrl password ifFalse: [^ false]. + ^ true! Item was added: + ----- Method: HttpUrl>>hasSameSchemeSpecificPartAs: (in category 'comparing') ----- + hasSameSchemeSpecificPartAs: anotherUrl + + (super hasSameSchemeSpecificPartAs: anotherUrl) ifFalse: [^ false]. + self realm = anotherUrl realm ifFalse: [^ false]. + ^ true! Item was added: + ----- Method: Url>>= (in category 'comparing') ----- + = anotherUrl + + self == anotherUrl ifTrue: [^ true]. + self class == anotherUrl class ifFalse: [^ false]. + + self schemeName = anotherUrl schemeName ifFalse: [^ false]. + (self hasSameSchemeSpecificPartAs: anotherUrl) ifFalse: [^ false]. + self fragment = anotherUrl fragment ifFalse: [ ^ false ]. + + ^ true! Item was added: + ----- Method: Url>>hasSameSchemeSpecificPartAs: (in category 'comparing') ----- + hasSameSchemeSpecificPartAs: anotherUrl + "Should check whether this Url and the other Url are equal in their scheme specific parts. + This is hook is called by Url>>#=, which already checks schemeName and fragments, so no need to check them in your implementation of this method." + + self subclassResponsibility!

1 0

The Trunk: System-mt.1345.mcz
by commits＠source.squeak.org 22 Apr '22

22 Apr '22

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1345.mcz ==================== Summary ==================== Name: System-mt.1345 Author: mt Time: 22 April 2022, 9:37:12.260005 am UUID: 4fe85d79-a84e-584f-be76-d1c2741d32f2 Ancestors: System-mt.1344 Add #local extension to TimeZone via Locale plugin. =============== Diff against System-mt.1344 =============== Item was added: + ----- Method: Locale>>isDST (in category 'accessing - queries') ----- + isDST + + ^ self primDST! Item was added: + ----- Method: TimeZone class>>local (in category '*System-Localization') ----- + local + + | offset | + offset := Locale current offsetLocalToUTC minutes. + ^ (Locale current isDST + ifTrue: [self timeZonesDST] + ifFalse: [self timeZones]) + detect: [:tz | tz offset = offset] + ifNone: [ + TimeZone + offset: offset + name: 'Local Time' + abbreviation: 'LOCAL']!

1 0

The Trunk: Chronology-Core-mt.78.mcz
by commits＠source.squeak.org 22 Apr '22

22 Apr '22

Marcel Taeumel uploaded a new version of Chronology-Core to project The Trunk: http://source.squeak.org/trunk/Chronology-Core-mt.78.mcz ==================== Summary ==================== Name: Chronology-Core-mt.78 Author: mt Time: 22 April 2022, 9:35:26.762005 am UUID: 3ec1d482-74c8-b948-a63f-cef16bbbb768 Ancestors: Chronology-Core-mt.77 Separate #timeZones from timeZonesDST. Add CET and CEST. =============== Diff against Chronology-Core-mt.77 =============== Item was changed: ----- Method: TimeZone class>>timeZones (in category 'accessing') ----- timeZones ^{ self offset: 0 hours name: 'Universal Time' abbreviation: 'UTC'. self offset: 0 hours name: 'Greenwich Mean Time' abbreviation: 'GMT'. + self offset: 1 hours name: 'Central European Time' abbreviation: 'CET'. - self offset: 1 hours name: 'British Summer Time' abbreviation: 'BST'. self offset: 2 hours name: 'South African Standard Time' abbreviation: 'SAST'. self offset: -8 hours name: 'Pacific Standard Time' abbreviation: 'PST'. - self offset: -7 hours name: 'Pacific Daylight Time' abbreviation: 'PDT'. self offset: -7 hours name: 'Mountain Standard Time' abbreviation: 'MST'. - self offset: -6 hours name: 'Mountain Daylight Time' abbreviation: 'MDT'. self offset: -6 hours name: 'Central Standard Time' abbreviation: 'CST'. - self offset: -5 hours name: 'Central Daylight Time' abbreviation: 'CDT'. self offset: -5 hours name: 'Eastern Standard Time' abbreviation: 'EST'. - self offset: -4 hours name: 'Eastern Daylight Time' abbreviation: 'EDT'. }! Item was added: + ----- Method: TimeZone class>>timeZonesDST (in category 'accessing') ----- + timeZonesDST + ^{ + self offset: 1 hours name: 'British Summer Time' abbreviation: 'BST'. + self offset: 2 hours name: 'Central European Summer Time' abbreviation: 'CEST'. + self offset: -7 hours name: 'Pacific Daylight Time' abbreviation: 'PDT'. + self offset: -6 hours name: 'Mountain Daylight Time' abbreviation: 'MDT'. + self offset: -5 hours name: 'Central Daylight Time' abbreviation: 'CDT'. + self offset: -4 hours name: 'Eastern Daylight Time' abbreviation: 'EDT'. + }!

1 0

The Trunk: Network-mt.258.mcz
by commits＠source.squeak.org 21 Apr '22

21 Apr '22

Marcel Taeumel uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-mt.258.mcz ==================== Summary ==================== Name: Network-mt.258 Author: mt Time: 21 April 2022, 3:31:58.648745 pm UUID: d388d057-b316-514d-9611-399f0ba1eef7 Ancestors: Network-mt.257 Remove #= and #hash again from Url since it is abstract. =============== Diff against Network-mt.257 =============== Item was removed: - ----- Method: Url>>= (in category 'comparing') ----- - = anObject - - self == anObject ifTrue: [^ true]. - - self class == anObject class ifFalse: [^ false]. - self fragment = anObject fragment ifFalse: [ ^ false ]. - - ^ true! Item was removed: - ----- Method: Url>>hash (in category 'comparing') ----- - hash - - ^ fragment hash!

1 0

The Trunk: Network-mt.257.mcz
by commits＠source.squeak.org 21 Apr '22

21 Apr '22

Marcel Taeumel uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-mt.257.mcz ==================== Summary ==================== Name: Network-mt.257 Author: mt Time: 21 April 2022, 2:01:02.156671 pm UUID: 2f9afb01-b9a4-ef43-b0b6-e726ea38cc3f Ancestors: Network-tpr.256 Adds comparison protocol to Url and subclasses. =============== Diff against Network-tpr.256 =============== Item was added: + ----- Method: FileUrl>>= (in category 'comparing') ----- + = anObject + + self == anObject ifTrue: [^ true]. + + self class == anObject class ifFalse: [^ false]. + self fragment = anObject fragment ifFalse: [ ^ false ]. + + self host = anObject host ifFalse: [ ^ false ]. + self path = anObject path ifFalse: [ ^ false ]. + + ^ true! Item was added: + ----- Method: FileUrl>>hash (in category 'comparing') ----- + hash + + ^ (fragment hash bitXor: host hash) bitXor: path hash! Item was added: + ----- Method: GenericUrl>>= (in category 'comparing') ----- + = anObject + + self == anObject ifTrue: [^ true]. + + self class == anObject class ifFalse: [^ false]. + self fragment = anObject fragment ifFalse: [ ^ false ]. + + self schemeName = anObject schemeName ifFalse: [ ^ false ]. + self locator = anObject locator ifFalse: [ ^ false ]. + + ^ true! Item was added: + ----- Method: GenericUrl>>hash (in category 'comparing') ----- + hash + + ^ (fragment hash bitXor: schemeName hash) bitXor: locator hash! Item was added: + ----- Method: HierarchicalUrl>>= (in category 'comparing') ----- + = anObject + + self == anObject ifTrue: [^ true]. + + self class == anObject class ifFalse: [^ false]. + self fragment = anObject fragment ifFalse: [ ^ false ]. + + self schemeName = anObject schemeName ifFalse: [ ^ false ]. + self authority = anObject authority ifFalse: [ ^ false ]. + self path = anObject path ifFalse: [ ^ false ]. + self query = anObject query ifFalse: [ ^ false ]. + self port = anObject port ifFalse: [ ^ false ]. + self username = anObject username ifFalse: [ ^ false ]. + self password = anObject password ifFalse: [ ^ false ]. + + ^ true! Item was added: + ----- Method: HierarchicalUrl>>hash (in category 'comparing') ----- + hash + + ^ (((((((fragment hash + bitXor: schemeName hash) + bitXor: authority hash) + bitXor: path hash) + bitXor: query hash) + bitXor: port hash) + bitXor: username hash) + bitXor: password hash)! Item was added: + ----- Method: HttpUrl>>= (in category 'comparing') ----- + = anObject + + self == anObject ifTrue: [^ true]. + super = anObject ifFalse: [^ false]. + + self realm = anObject realm ifFalse: [^ false]. + + ^ true! Item was added: + ----- Method: HttpUrl>>hash (in category 'comparing') ----- + hash + + ^ super hash bitXor: realm hash! Item was added: + ----- Method: Url>>= (in category 'comparing') ----- + = anObject + + self == anObject ifTrue: [^ true]. + + self class == anObject class ifFalse: [^ false]. + self fragment = anObject fragment ifFalse: [ ^ false ]. + + ^ true! Item was added: + ----- Method: Url>>hash (in category 'comparing') ----- + hash + + ^ fragment hash!

1 0

← Newer
1
2
3
4
5
6
7
8
...
19
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages April 2022