VM Maker: FileAttributesPlugin.oscog-akg.45.mcz

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

VM Maker: FileAttributesPlugin.oscog-akg.45.mcz

commits-2
 
Eliot Miranda uploaded a new version of FileAttributesPlugin to project VM Maker:
http://source.squeak.org/VMMaker/FileAttributesPlugin.oscog-akg.45.mcz

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

Name: FileAttributesPlugin.oscog-akg.45
Author: akg
Time: 5 November 2018, 3:16:37.404603 pm
UUID: b0e1cf62-47e3-4a3b-b95c-b639d96c615f
Ancestors: FileAttributesPlugin.oscog-eem.44

Handle numeric return codes from primOpenDir: in the simulator.

=============== Diff against FileAttributesPlugin.oscog-akg.43 ===============

Item was removed:
- ----- Method: FileAttributesPlugin class>>shouldBeTranslated (in category 'translation') -----
- shouldBeTranslated
- ^true!

Item was changed:
  ----- Method: FileAttributesPluginSimulator>>faOpenDirectory: (in category 'simulation') -----
  faOpenDirectory: faPath
  "Simulate the the call by actually calling the primitive and discarding the stat information (which will be retrieved again later in the simulation)."
 
  | result status |
 
  result := self primOpendir: faPath first.
+ result ifNil:
+ [status := self noMoreData]
+ ifNotNil:
+ [result isInteger ifTrue:
+ [status := result]
+ ifFalse:
+ [faPath
+ at: 2 put: (result at: 1);
+ at: 3 put: (result at: 3).
+ status := 0 ]].
- result ifNotNil: [
- faPath
- at: 2 put: (result at: 1);
- at: 3 put: (result at: 3).
- status := 0 ]
- ifNil: [status := self noMoreData].
  ^status
  !