The Trunk: Compiler-mt.359.mcz

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

The Trunk: Compiler-mt.359.mcz

Marcel Taeumel uploaded a new version of Compiler to project The Trunk:

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

Name: Compiler-mt.359
Author: mt
Time: 10 November 2017, 3:29:46.851435 pm
UUID: 322cf1dd-62e8-aa47-8cb2-3dc89c780138
Ancestors: Compiler-mt.358

Fix spacing. Still needs a better implementation, I guess.

=============== Diff against Compiler-mt.358 ===============

Item was changed:
  ----- Method: Compiler>>formatNoPattern:environment: (in category 'public access') -----
  formatNoPattern: textOrStream environment: env
  "Pretty-print a code snippet. Removes leading 'DoIt' and the '^' in the last statement. To be used in workspace-like tools."
  | aNode |
  self setCue: (CompilationCue
  source: textOrStream
  environment: env).
  aNode := self formatNoPattern: true ifFail: [^ nil].
  ^ (aNode decompileString lines allButFirst "DoIt" collect: [:ea |
+ ea allButFirst "tab" in: [:result | (result beginsWith: '^ ') ifTrue: [result allButFirst: 2] ifFalse: [result]]])
- ea allButFirst "tab" in: [:result | (result beginsWith: '^') ifTrue: [result allButFirst] ifFalse: [result]]])
  joinSeparatedBy: String cr!