[BLACKBOX] [Fwd: Re: [BLACKBOX] Long running command and Dialog.ShowStatus]

From: [at]} <Robert>
Date: Thu, 3 Dec 2009 22:34:08 +0000

----boundary-LibPST-iamunique-1708161508_-_-
Content-type: text/plain

-------- Original Message --------
Subject: Re: [BLACKBOX] Long running command and Dialog.ShowStatus
Date: Thu, 03 Dec 2009 22:07:05 +0000
From: Robert <robert.campbell_{([at]})nowhere.xy
To: georgy.jikia{([at]})nowhere.xy
References: <DD798FE898174BA1A9A8B95D02CED25F{([at]})nowhere.xy
<5E2F0C70DD6F49BAB2E95DFA7D73ED00{([at]})nowhere.xy
<b1b4da1a0912031205m26f06589md0ae75210e634553{([at]})nowhere.xy

Georgy

I have used this approach myself.

Two comments:

1) There is an overhead, but it is a fixed overhead, not a fraction. It is a
coincidence that it is 50 % in this example (on my machine, a single core AMD
chip). If you increase the loop from 10000000 to 15000000 the utilisation
increases to 75 %, and if you increase it further the utilisation approaches 100
%. So for very big sums (minutes to hours to days) the overhead can be a
negligible fraction.

2) But the logic involved in using Actions can be very awkward. If the task is a
simple loop, as in this example, it is not too bad. But if the task is several
nested loops, and you need to be able to interrupt it partly through the inner
loop, it is less easy (but possible, and sometimes necessary).

Surely these problems (apparent hanging of BlackBox, and the fact that
Ctrl-Break does not work as advertised) can and should be solved at a lower
level than imposing lots of awkward logic into every application?


Regards

Robert




Georgy Jikia wrote:
> You can also use background processing service using Services.Action:
>
> MODULE TestLong;
> IMPORT Dialog, Services, Strings;
> TYPE LongFunc = POINTER TO RECORD (Services.Action)
> i: INTEGER;
> END;
> VAR func: LongFunc;
> PROCEDURE (func: LongFunc) Do;
> VAR j: INTEGER; s: ARRAY 20 OF CHAR;
> BEGIN
> INC(func.i);
> FOR j := 0 TO 10000000 DO
> END;
> Strings.IntToString(func.i, s);
> Dialog.ShowStatus("msg " + s);
> IF func.i < 300 THEN
> Services.DoLater(func, Services.now)
> ELSE
> func := NIL;
> END;
> END Do;
>
> PROCEDURE Interrupt*;
> VAR res: INTEGER;
> BEGIN
> Services.RemoveAction(func);
> Dialog.GetOK("interrupted", "", "", "", {Dialog.ok}, res);
> END Interrupt;
>
> PROCEDURE DoLong*;
> BEGIN
> NEW(func);
> Services.DoLater(func, Services.now);
> END DoLong;
> END TestLong.
>
> ^QTestLong.DoLong
> ^QTestLong.Interrupt
>
> Chris, that's probably what you were suggesting?
> This calculation takes more time however, as only 50% CPU is used by BlackBox.
>
> Regards,
> Georgy
>
>
> ----
> To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy
>
>
> ------------------------------------------------------------------------
>
>
> No virus found in this incoming message.
> Checked by AVG - www.avg.com
> Version: 9.0.709 / Virus Database: 270.14.91/2542 - Release Date: 12/03/09 07:32:00
>

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-1708161508_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIC0tLS0tLS0tIE9yaWdpbmFsIE1lc3NhZ2UgLS0t
LS0tLS1ccGFyDQpTdWJqZWN0OiBSZTogW0JMQUNLQk9YXSBMb25nIHJ1bm5pbmcgY29tbWFuZCBh
bmQgRGlhbG9nLlNob3dTdGF0dXNccGFyDQpEYXRlOiBUaHUsIDAzIERlYyAyMDA5IDIyOjA3OjA1
ICswMDAwXHBhcg0KRnJvbTogUm9iZXJ0IDxyb2JlcnQuY2FtcGJlbGxfQHRpc2NhbGkuY28udWs+
XHBhcg0KVG86IGdlb3JneS5qaWtpYUBnbWFpbC5jb21ccGFyDQpSZWZlcmVuY2VzOiA8REQ3OThG
RTg5ODE3NEJBMUE5QThCOTVEMDJDRUQyNUZARGVsbDUxNTA+IFxwYXINCjw1RTJGMEM3MERENkY0
OUJBQjJFOTVERkE3RDczRUQwMEBNT0RFQ1NKVD4gXHBhcg0KPGIxYjRkYTFhMDkxMjAzMTIwNW0y
NmYwNjU4OW1kMGFlNzUyMTBlNjM0NTUzQG1haWwuZ21haWwuY29tPlxwYXINClxwYXINCkdlb3Jn
eVxwYXINClxwYXINCkkgaGF2ZSB1c2VkIHRoaXMgYXBwcm9hY2ggbXlzZWxmLlxwYXINClxwYXIN
ClR3byBjb21tZW50czpccGFyDQpccGFyDQoxKSBUaGVyZSBpcyBhbiBvdmVyaGVhZCwgYnV0IGl0
IGlzIGEgZml4ZWQgb3ZlcmhlYWQsIG5vdCBhIGZyYWN0aW9uLiBJdCBpcyBhXHBhcg0KY29pbmNp
ZGVuY2UgdGhhdCBpdCBpcyA1MCAlIGluIHRoaXMgZXhhbXBsZSAob24gbXkgbWFjaGluZSwgYSBz
aW5nbGUgY29yZSBBTURccGFyDQpjaGlwKS4gSWYgeW91IGluY3JlYXNlIHRoZSBsb29wIGZyb20g
MTAwMDAwMDAgdG8gMTUwMDAwMDAgdGhlIHV0aWxpc2F0aW9uXHBhcg0KaW5jcmVhc2VzIHRvIDc1
ICUsIGFuZCBpZiB5b3UgaW5jcmVhc2UgaXQgZnVydGhlciB0aGUgdXRpbGlzYXRpb24gYXBwcm9h
Y2hlcyAxMDBccGFyDQolLiBTbyBmb3IgdmVyeSBiaWcgc3VtcyAobWludXRlcyB0byBob3VycyB0
byBkYXlzKSB0aGUgb3ZlcmhlYWQgY2FuIGJlIGFccGFyDQpuZWdsaWdpYmxlIGZyYWN0aW9uLlxw
YXINClxwYXINCjIpIEJ1dCB0aGUgbG9naWMgaW52b2x2ZWQgaW4gdXNpbmcgQWN0aW9ucyBjYW4g
YmUgdmVyeSBhd2t3YXJkLiBJZiB0aGUgdGFzayBpcyBhXHBhcg0Kc2ltcGxlIGxvb3AsIGFzIGlu
IHRoaXMgZXhhbXBsZSwgaXQgaXMgbm90IHRvbyBiYWQuIEJ1dCBpZiB0aGUgdGFzayBpcyBzZXZl
cmFsXHBhcg0KbmVzdGVkIGxvb3BzLCBhbmQgeW91IG5lZWQgdG8gYmUgYWJsZSB0byBpbnRlcnJ1
cHQgaXQgcGFydGx5IHRocm91Z2ggdGhlIGlubmVyXHBhcg0KbG9vcCwgaXQgaXMgbGVzcyBlYXN5
IChidXQgcG9zc2libGUsIGFuZCBzb21ldGltZXMgbmVjZXNzYXJ5KS5ccGFyDQpccGFyDQpTdXJl
bHkgdGhlc2UgcHJvYmxlbXMgKGFwcGFyZW50IGhhbmdpbmcgb2YgQmxhY2tCb3gsIGFuZCB0aGUg
ZmFjdCB0aGF0XHBhcg0KQ3RybC1CcmVhayBkb2VzIG5vdCB3b3JrIGFzIGFkdmVydGlzZWQpIGNh
biBhbmQgc2hvdWxkIGJlIHNvbHZlZCBhdCBhIGxvd2VyXHBhcg0KbGV2ZWwgdGhhbiBpbXBvc2lu
ZyBsb3RzIG9mIGF3a3dhcmQgbG9naWMgaW50byBldmVyeSBhcHBsaWNhdGlvbj9ccGFyDQpccGFy
DQpccGFyDQpSZWdhcmRzXHBhcg0KXHBhcg0KUm9iZXJ0XHBhcg0KXHBhcg0KXHBhcg0KXHBhcg0K
XHBhcg0KR2Vvcmd5IEppa2lhIHdyb3RlOlxwYXINCj4gWW91IGNhbiBhbHNvIHVzZSBiYWNrZ3Jv
dW5kIHByb2Nlc3Npbmcgc2VydmljZSB1c2luZyBTZXJ2aWNlcy5BY3Rpb246XHBhcg0KPiBccGFy
DQo+IE1PRFVMRSBUZXN0TG9uZztccGFyDQo+IFx0YWIgSU1QT1JUIERpYWxvZywgU2VydmljZXMs
IFN0cmluZ3M7XHBhcg0KPiBcdGFiIFRZUEUgTG9uZ0Z1bmMgPSBQT0lOVEVSIFRPIFJFQ09SRCAo
U2VydmljZXMuQWN0aW9uKVxwYXINCj4gXHRhYiBcdGFiIFx0YWIgaTogSU5URUdFUjtccGFyDQo+
IFx0YWIgXHRhYiBFTkQ7XHBhcg0KPiBcdGFiIFZBUiBmdW5jOiBMb25nRnVuYztccGFyDQo+IFx0
YWIgUFJPQ0VEVVJFIChmdW5jOiBMb25nRnVuYykgRG87XHBhcg0KPiBcdGFiIFx0YWIgVkFSIGo6
IElOVEVHRVI7IHM6IEFSUkFZIDIwIE9GIENIQVI7XHBhcg0KPiBcdGFiIEJFR0lOXHBhcg0KPiBc
dGFiIFx0YWIgSU5DKGZ1bmMuaSk7XHBhcg0KPiBcdGFiIFx0YWIgRk9SIGogOj0gMCBUTyAxMDAw
MDAwMCBET1xwYXINCj4gXHRhYiBcdGFiIEVORDtccGFyDQo+IFx0YWIgXHRhYiBTdHJpbmdzLklu
dFRvU3RyaW5nKGZ1bmMuaSwgcyk7XHBhcg0KPiBcdGFiIFx0YWIgRGlhbG9nLlNob3dTdGF0dXMo
Im1zZyAiICsgcyk7XHBhcg0KPiBcdGFiIFx0YWIgSUYgZnVuYy5pIDwgMzAwIFRIRU5ccGFyDQo+
IFx0YWIgXHRhYiBcdGFiIFNlcnZpY2VzLkRvTGF0ZXIoZnVuYywgU2VydmljZXMubm93KVxwYXIN
Cj4gXHRhYiBcdGFiIEVMU0VccGFyDQo+IFx0YWIgXHRhYiBcdGFiIGZ1bmMgOj0gTklMO1xwYXIN
Cj4gXHRhYiBcdGFiIEVORDtccGFyDQo+IFx0YWIgRU5EIERvO1xwYXINCj4gXHRhYiBccGFyDQo+
IFx0YWIgUFJPQ0VEVVJFIEludGVycnVwdCo7XHBhcg0KPiBcdGFiIFx0YWIgVkFSICAgcmVzOiBJ
TlRFR0VSO1xwYXINCj4gXHRhYiBCRUdJTlxwYXINCj4gXHRhYiBcdGFiIFNlcnZpY2VzLlJlbW92
ZUFjdGlvbihmdW5jKTtccGFyDQo+IFx0YWIgXHRhYiBEaWFsb2cuR2V0T0soImludGVycnVwdGVk
IiwgIiIsICIiLCAiIiwgXHtEaWFsb2cub2tcfSwgcmVzKTtccGFyDQo+IFx0YWIgRU5EIEludGVy
cnVwdDtccGFyDQo+IFx0YWIgXHBhcg0KPiBcdGFiIFBST0NFRFVSRSBEb0xvbmcqO1xwYXINCj4g
XHRhYiBCRUdJTlxwYXINCj4gXHRhYiBcdGFiIE5FVyhmdW5jKTtccGFyDQo+IFx0YWIgXHRhYiBT
ZXJ2aWNlcy5Eb0xhdGVyKGZ1bmMsIFNlcnZpY2VzLm5vdyk7XHBhcg0KPiBcdGFiIEVORCBEb0xv
bmc7XHBhcg0KPiBFTkQgVGVzdExvbmcuXHBhcg0KPiBccGFyDQo+IF5RVGVzdExvbmcuRG9Mb25n
XHBhcg0KPiBeUVRlc3RMb25nLkludGVycnVwdFxwYXINCj4gXHBhcg0KPiBDaHJpcywgdGhhdCdz
IHByb2JhYmx5IHdoYXQgeW91IHdlcmUgc3VnZ2VzdGluZz9ccGFyDQo+IFRoaXMgY2FsY3VsYXRp
b24gdGFrZXMgbW9yZSB0aW1lIGhvd2V2ZXIsIGFzIG9ubHkgNTAlIENQVSBpcyB1c2VkIGJ5IEJs
YWNrQm94LlxwYXINCj4gXHBhcg0KPiBSZWdhcmRzLFxwYXINCj4gR2Vvcmd5XHBhcg0KPiBccGFy
DQo+IFxwYXINCj4gLS0tLVxwYXINCj4gVG8gdW5zdWJzY3JpYmUsIHNlbmQgYSBtZXNzYWdlIHdp
dGggYm9keSAiU0lHTk9GRiBCTEFDS0JPWCIgdG8gTElTVFNFUlZATElTVFMuT0JFUk9OLkNIXHBh
cg0KPiBccGFyDQo+IFxwYXINCj4gLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tXHBhcg0KPiBccGFyDQo+IFxwYXIN
Cj4gTm8gdmlydXMgZm91bmQgaW4gdGhpcyBpbmNvbWluZyBtZXNzYWdlLlxwYXINCj4gQ2hlY2tl
ZCBieSBBVkcgLSB3d3cuYXZnLmNvbSBccGFyDQo+IFZlcnNpb246IDkuMC43MDkgLyBWaXJ1cyBE
YXRhYmFzZTogMjcwLjE0LjkxLzI1NDIgLSBSZWxlYXNlIERhdGU6IDEyLzAzLzA5IDA3OjMyOjAw
XHBhcg0KPiBccGFyDQpccGFyDQpccGFyDQotLS0tXHBhcg0KVG8gdW5zdWJzY3JpYmUsIHNlbmQg
YSBtZXNzYWdlIHdpdGggYm9keSAiU0lHTk9GRiBCTEFDS0JPWCIgdG8gTElTVFNFUlZATElTVFMu
T0JFUk9OLn19AGhlIHV0aQ==
----boundary-LibPST-iamunique-1708161508_-_---

Received on Thu Dec 03 2009 - 23:34:08 UTC