[squeak-dev] The Trunk: Network-mt.254.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Dec 8 15:39:05 UTC 2021
Marcel Taeumel uploaded a new version of Network to project The Trunk:
http://source.squeak.org/trunk/Network-mt.254.mcz
==================== Summary ====================
Name: Network-mt.254
Author: mt
Time: 8 December 2021, 4:39:04.003213 pm
UUID: ea8179f1-4801-7f42-ba46-23647dacfb1d
Ancestors: Network-mt.253
Removes two (explicit) dependencies:
- MorphicExtras
- XML-Parser
=============== Diff against Network-mt.253 ===============
Item was changed:
----- Method: HTTPServerDirectory>>entries (in category 'file directory') -----
entries
| answer ftpEntries |
answer := HTTPSocket httpGetDocument: self dirListUrl.
answer isString
ifTrue: [^self error: 'Listing failed: ' , answer]
ifFalse: [answer := answer content].
answer first = $< ifTrue:
[(answer first: 5) = '<?xml' ifTrue:
+ [(self environment classNamed: #XMLDOMParser) ifNotNil:
+ [:parserClass | ^ self parseFTPEntriesFromXML: (parserClass parseDocumentFrom: answer readStream useNamespaces: true)]].
- [(Smalltalk classNamed: #XMLDOMParser) ifNotNil:
- [^self parseFTPEntriesFromXML: (XMLDOMParser parseDocumentFrom: answer readStream useNamespaces: true)]].
self error: 'Listing failed: ' , answer].
ftpEntries := answer lines.
^ ftpEntries
collect:[:ftpEntry | self class parseFTPEntry: ftpEntry]
thenSelect: [:entry | entry notNil]!
Item was added:
+ ----- Method: MIMEDocument>>url (in category 'accessing') -----
+ url
+ "Answer the URL the receiver was downloaded from. It may legitimately be nil."
+
+ ^ url!
More information about the Squeak-dev
mailing list
|