The Inbox: System-kks.1037.mcz

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

The Inbox: System-kks.1037.mcz

A new version of System was added to project The Inbox:

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

Name: System-kks.1037
Author: kks
Time: 2 July 2018, 2:40:57.804608 pm
UUID: 4fb3133d-f8f9-49aa-8c56-c423c4af0827
Ancestors: System-kfr.1036

Return empty stream if project file is not found

=============== Diff against System-kfr.1036 ===============

Item was changed:
  ----- Method: ProjectLoading class>>projectStreamFromArchive: (in category 'accessing') -----
  projectStreamFromArchive: archive
  | ext prFiles entry unzipped |
  ext := FileDirectory dot, Project projectExtension.
  prFiles := archive members select:[:any| any fileName endsWith: ext].
  prFiles isEmpty ifTrue:
  [ext := FileDirectory dot, 'sexp'.
  prFiles := archive members select:[:any| any fileName endsWith: ext]].
+ prFiles isEmpty ifTrue: [^''].
- prFiles isEmpty ifTrue: [''].
  entry := prFiles first.
  unzipped := MultiByteBinaryOrTextStream on: (ByteArray new: entry uncompressedSize).
  entry extractTo: unzipped.
  ^unzipped reset!