The Inbox: Network-ct.245.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Inbox: Network-ct.245.mcz

commits-2
A new version of Network was added to project The Inbox:
http://source.squeak.org/inbox/Network-ct.245.mcz

==================== Summary ====================

Name: Network-ct.245
Author: ct
Time: 14 November 2020, 7:52:49.139394 pm
UUID: c84e2aa6-50a0-af4f-b039-e56ab9199838
Ancestors: Network-mt.243

Support absolute file paths in Url absoluteFromFileNameOrUrlString: as well. This functionality is required for ProjectLauncher, which might be explained in the best way by the next few commits that I am going to upload to the inbox ...

=============== Diff against Network-mt.243 ===============

Item was changed:
  ----- Method: FileUrl>>privateInitializeFromText:relativeTo: (in category 'private-initialization') -----
  privateInitializeFromText: pathString relativeTo: aUrl
  "<pathString> should be a filesystem path.
  This url is adjusted to be aUrl + the path."
 
+ | newPath |
- | bare newPath |
  self host: aUrl host.
  self initializeFromPathString: pathString.
+ self isAbsolute ifTrue: [^ self].
  self isAbsolute: aUrl isAbsolute.
+
-
  newPath := aUrl path copy.
  newPath removeLast. "empty string that says its a directory"
  path do: [ :token |
  ((token ~= '..') and: [token ~= '.']) ifTrue: [
  newPath addLast: token unescapePercents ].
  token = '..' ifTrue: [
  newPath isEmpty ifFalse: [
  newPath last = '..' ifFalse: [ newPath removeLast ] ] ].
  "token = '.' do nothing" ].
+ path := newPath.!
- path := newPath
-
- !