<div dir="ltr">And yet another, shouldn't we rather integrate the excellent work that Camillo Bruni did in Pharo?<br><br>See System-CommandLine at<br><br>MCHttpRepository<br> location: '<a href="http://smalltalkhub.com/mc/Pharo/Pharo30/main">http://smalltalkhub.com/mc/Pharo/Pharo30/main</a>'<br>
user: ''<br> password: ''<br></div><div class="gmail_extra"><br><br><div class="gmail_quote">2013/10/27 Nicolas Cellier <span dir="ltr"><<a href="mailto:nicolas.cellier.aka.nice@gmail.com" target="_blank">nicolas.cellier.aka.nice@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div>Another question, why do: ?<br></div>I find this a false polymorphism and its usage is rather hard to trace...<br>
</div><div class="gmail_extra"><br><br><div class="gmail_quote">2013/10/26 <span dir="ltr"><<a href="mailto:commits@source.squeak.org" target="_blank">commits@source.squeak.org</a>></span><div><div class="h5"><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Chris Muller uploaded a new version of System to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/System-cmm.610.mcz" target="_blank">http://source.squeak.org/trunk/System-cmm.610.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: System-cmm.610<br>
Author: cmm<br>
Time: 26 October 2013, 2:17:09.114 pm<br>
UUID: a27149c5-0fd6-4bef-a34a-57db707aec83<br>
Ancestors: System-dtl.609<br>
<br>
Consider valueWithAllPossibleArguments: special enough to inline, for now.<br>
<br>
=============== Diff against System-dtl.609 ===============<br>
<br>
Item was changed:<br>
----- Method: SmalltalkImage>>do: (in category 'command line') -----<br>
do: aBlock<br>
+ [ [ (aBlock numArgs = 1 and: [ self arguments size > 1 ])<br>
+ ifTrue: [ aBlock value: self arguments ]<br>
+ ifFalse: [ aBlock valueWithEnoughArguments: self arguments ] ]<br>
- [ [ aBlock valueWithAllPossibleArguments: self arguments ]<br>
on: ProgressInitiationException<br>
do:<br>
[ : pie | "Don't want to log this notification."<br>
pie defaultAction ] ]<br>
on: Notification , Warning<br>
do:<br>
[ : noti | StandardFileStream stdout<br>
nextPutAll: DateAndTime now asString ;<br>
space ;<br>
nextPutAll: noti description ;<br>
cr.<br>
noti resume ]<br>
on: SyntaxErrorNotification<br>
do:<br>
[ : err | StandardFileStream stdout<br>
nextPutAll: err errorCode ;<br>
cr.<br>
self haltOrQuit ]<br>
on: Error<br>
do:<br>
[ : err | err printVerboseOn: StandardFileStream stderr.<br>
self haltOrQuit.<br>
err isResumable ifTrue: [ err resume ] ]!<br>
<br>
<br>
</blockquote></div></div></div><br></div>
</blockquote></div><br></div>