- Pascal to Component Pascal translator

From: CFB Software <"CFB>
Date: Tue, 18 Oct 2005 11:24:39 +0930

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

 -----Original Message-----
> From: blackbox{([at]})nowhere.xy
> Behalf Of Rex Couture
> Sent: Tuesday, 18 October 2005 2:58 AM
> To: BlackBox Mailing List
> Subject: [BlackBox] - Pascal to Component Pascal translator
>
>
> At 11:33 AM 10/17/2005, you wrote:
> >>Is anybody interested in using a Pascal to Component Pascal
> >>translator? I have a prototype written in Component Pascal which is
> >>working and seems to handle J&W / Standard Pascal programs
> reasonably
> >>well.
>
> Urk. It's a tower of Babel, unfortunately. I gave
> up even trying to convert my Borland Pascal library to
> Delphi, just for lack of time. Even at that I had to buy a
> whole package just to get a KeyPressed function. A Borland
> Pascal to BB would be very welcome, but Borland went so far
> beyond J&W that I can understand that it would be a major problem.
>

Agreed - I use Delphi every day and spend 90% of the time being
irritated by the syntax. After you've been spoilt by Modula-2 / Oberon-2
/ Component Pascal it is very difficult to go backwards.

> But it would definitely be welcome here. Legacy
> software is definitely THE major impediment to even
> considering a change in language.
>

That's good to hear!

> I would be VERY interested, however, in how you
> implemented I/O, since the BB library lacks basic READ and
> WRITE statements.
>

I suspect you might not be so interested when you find out ;-)

The translator only attempts to modify any 'non-controversial' parts of
the source code. It is designed to eliminate about 80%, say, of the
effort of a porting task. i.e. the tedious, repetitious, brainless
editing work that would otherwise be required.

It does not attempt to mess with anything that needs creative thought.
For example, non-zero based arrays are left untouched. A mechanical
translation was considered, but rejected, as although it is possible,
the result would be very inelegant. Similarly, Pascal Read and Write
statements are passed straight through, unmodified.

If you are porting a Pascal program with I/O scattered through it, it is
best to redesign it by creating an IO-specific module and just make
calls to that. It is then easier to maintain into the future and port to
other systems. The Pascal to Oberon Translator (P2O) itself was written
in that way, following the original work done on the Modula-2 to Oberon
Translator by Bernhard Treutwein.

Consequently P2O now runs on .NET (using the Gardens Point compiler) and
on Win32 (using BlackBox) with virtually all of the source code apart
from two very small modules, *identical* for both. The
framework-specific I/O calls are isolated to a separate system-specific
module. The GPCP version contains about a dozen statements and the BB
version contains just about twice that number.

Chris Burrows
CFB Software
http://www.cfbsoftware.com/gpcp

--- BlackBox
--- send subject HELP or UNSUBSCRIBE to blackbox{([at]})nowhere.xy



----boundary-LibPST-iamunique-1048555821_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"

e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwICAtLS0tLU9yaWdpbmFsIE1lc3NhZ2UtLS0tLVxw
YXINCj4gRnJvbTogYmxhY2tib3hAb2Jlcm9uLmNoIFttYWlsdG86YmxhY2tib3hAb2Jlcm9uLmNo
XSBPbiBccGFyDQo+IEJlaGFsZiBPZiBSZXggQ291dHVyZVxwYXINCj4gU2VudDogVHVlc2RheSwg
MTggT2N0b2JlciAyMDA1IDI6NTggQU1ccGFyDQo+IFRvOiBCbGFja0JveCBNYWlsaW5nIExpc3Rc
cGFyDQo+IFN1YmplY3Q6IFtCbGFja0JveF0gLSBQYXNjYWwgdG8gQ29tcG9uZW50IFBhc2NhbCB0
cmFuc2xhdG9yXHBhcg0KPiBccGFyDQo+IFxwYXINCj4gQXQgMTE6MzMgQU0gMTAvMTcvMjAwNSwg
eW91IHdyb3RlOlxwYXINCj4gPj5JcyBhbnlib2R5IGludGVyZXN0ZWQgaW4gdXNpbmcgYSBQYXNj
YWwgdG8gQ29tcG9uZW50IFBhc2NhbCBccGFyDQo+ID4+dHJhbnNsYXRvcj8gSSBoYXZlIGEgcHJv
dG90eXBlIHdyaXR0ZW4gaW4gQ29tcG9uZW50IFBhc2NhbCB3aGljaCBpcyBccGFyDQo+ID4+d29y
a2luZyBhbmQgc2VlbXMgdG8gaGFuZGxlIEomVyAvIFN0YW5kYXJkIFBhc2NhbCBwcm9ncmFtcyBc
cGFyDQo+IHJlYXNvbmFibHkgXHBhcg0KPiA+PndlbGwuXHBhcg0KPiBccGFyDQo+ICAgICAgICAg
VXJrLiAgSXQncyBhIHRvd2VyIG9mIEJhYmVsLCB1bmZvcnR1bmF0ZWx5LiAgSSBnYXZlIFxwYXIN
Cj4gdXAgZXZlbiB0cnlpbmcgdG8gY29udmVydCBteSBCb3JsYW5kIFBhc2NhbCBsaWJyYXJ5IHRv
IFxwYXINCj4gRGVscGhpLCBqdXN0IGZvciBsYWNrIG9mIHRpbWUuICBFdmVuIGF0IHRoYXQgSSBo
YWQgdG8gYnV5IGEgXHBhcg0KPiB3aG9sZSBwYWNrYWdlIGp1c3QgdG8gZ2V0IGEgS2V5UHJlc3Nl
ZCBmdW5jdGlvbi4gIEEgQm9ybGFuZCBccGFyDQo+IFBhc2NhbCB0byBCQiB3b3VsZCBiZSB2ZXJ5
IHdlbGNvbWUsIGJ1dCBCb3JsYW5kIHdlbnQgc28gZmFyIFxwYXINCj4gYmV5b25kIEomVyB0aGF0
IEkgY2FuIHVuZGVyc3RhbmQgdGhhdCBpdCB3b3VsZCBiZSBhIG1ham9yIHByb2JsZW0uXHBhcg0K
PiBccGFyDQpccGFyDQpBZ3JlZWQgLSBJIHVzZSBEZWxwaGkgZXZlcnkgZGF5IGFuZCBzcGVuZCA5
MCUgb2YgdGhlIHRpbWUgYmVpbmdccGFyDQppcnJpdGF0ZWQgYnkgdGhlIHN5bnRheC4gQWZ0ZXIg
eW91J3ZlIGJlZW4gc3BvaWx0IGJ5IE1vZHVsYS0yIC8gT2Jlcm9uLTJccGFyDQovIENvbXBvbmVu
dCBQYXNjYWwgaXQgaXMgdmVyeSBkaWZmaWN1bHQgdG8gZ28gYmFja3dhcmRzLlxwYXINClxwYXIN
Cj4gICAgICAgICBCdXQgaXQgd291bGQgZGVmaW5pdGVseSBiZSB3ZWxjb21lIGhlcmUuICBMZWdh
Y3kgXHBhcg0KPiBzb2Z0d2FyZSBpcyBkZWZpbml0ZWx5IFRIRSBtYWpvciBpbXBlZGltZW50IHRv
IGV2ZW4gXHBhcg0KPiBjb25zaWRlcmluZyBhIGNoYW5nZSBpbiBsYW5ndWFnZS5ccGFyDQo+IFxw
YXINClxwYXINClRoYXQncyBnb29kIHRvIGhlYXIhXHBhcg0KXHBhcg0KPiAgICAgICAgIEkgd291
bGQgYmUgVkVSWSBpbnRlcmVzdGVkLCBob3dldmVyLCBpbiBob3cgeW91IFxwYXINCj4gaW1wbGVt
ZW50ZWQgSS9PLCBzaW5jZSB0aGUgQkIgbGlicmFyeSBsYWNrcyBiYXNpYyBSRUFEIGFuZCBccGFy
DQo+IFdSSVRFIHN0YXRlbWVudHMuXHBhcg0KPiBccGFyDQpccGFyDQpJIHN1c3BlY3QgeW91IG1p
Z2h0IG5vdCBiZSBzbyBpbnRlcmVzdGVkIHdoZW4geW91IGZpbmQgb3V0IDstKSBccGFyDQpccGFy
DQpUaGUgdHJhbnNsYXRvciBvbmx5IGF0dGVtcHRzIHRvIG1vZGlmeSBhbnkgJ25vbi1jb250cm92
ZXJzaWFsJyBwYXJ0cyBvZlxwYXINCnRoZSBzb3VyY2UgY29kZS4gSXQgaXMgZGVzaWduZWQgdG8g
ZWxpbWluYXRlIGFib3V0IDgwJSwgc2F5LCBvZiB0aGVccGFyDQplZmZvcnQgb2YgYSBwb3J0aW5n
IHRhc2suIGkuZS4gdGhlIHRlZGlvdXMsIHJlcGV0aXRpb3VzLCBicmFpbmxlc3NccGFyDQplZGl0
aW5nIHdvcmsgdGhhdCB3b3VsZCBvdGhlcndpc2UgYmUgcmVxdWlyZWQuIFxwYXINClxwYXINCkl0
IGRvZXMgbm90IGF0dGVtcHQgdG8gbWVzcyB3aXRoIGFueXRoaW5nIHRoYXQgbmVlZHMgY3JlYXRp
dmUgdGhvdWdodC5ccGFyDQpGb3IgZXhhbXBsZSwgbm9uLXplcm8gYmFzZWQgYXJyYXlzIGFyZSBs
ZWZ0IHVudG91Y2hlZC4gQSBtZWNoYW5pY2FsXHBhcg0KdHJhbnNsYXRpb24gd2FzIGNvbnNpZGVy
ZWQsIGJ1dCByZWplY3RlZCwgYXMgYWx0aG91Z2ggaXQgaXMgcG9zc2libGUsXHBhcg0KdGhlIHJl
c3VsdCB3b3VsZCBiZSB2ZXJ5IGluZWxlZ2FudC4gU2ltaWxhcmx5LCBQYXNjYWwgUmVhZCBhbmQg
V3JpdGVccGFyDQpzdGF0ZW1lbnRzIGFyZSBwYXNzZWQgc3RyYWlnaHQgdGhyb3VnaCwgdW5tb2Rp
ZmllZC5ccGFyDQpccGFyDQpJZiB5b3UgYXJlIHBvcnRpbmcgYSBQYXNjYWwgcHJvZ3JhbSB3aXRo
IEkvTyBzY2F0dGVyZWQgdGhyb3VnaCBpdCwgaXQgaXNccGFyDQpiZXN0IHRvIHJlZGVzaWduIGl0
IGJ5IGNyZWF0aW5nIGFuIElPLXNwZWNpZmljIG1vZHVsZSBhbmQganVzdCBtYWtlXHBhcg0KY2Fs
bHMgdG8gdGhhdC4gSXQgaXMgdGhlbiBlYXNpZXIgdG8gbWFpbnRhaW4gaW50byB0aGUgZnV0dXJl
IGFuZCBwb3J0IHRvXHBhcg0Kb3RoZXIgc3lzdGVtcy4gVGhlIFBhc2NhbCB0byBPYmVyb24gVHJh
bnNsYXRvciAoUDJPKSBpdHNlbGYgd2FzIHdyaXR0ZW5ccGFyDQppbiB0aGF0IHdheSwgZm9sbG93
aW5nIHRoZSBvcmlnaW5hbCB3b3JrIGRvbmUgb24gdGhlIE1vZHVsYS0yIHRvIE9iZXJvblxwYXIN
ClRyYW5zbGF0b3IgYnkgQmVybmhhcmQgVHJldXR3ZWluLiBccGFyDQpccGFyDQpDb25zZXF1ZW50
bHkgUDJPIG5vdyBydW5zIG9uIC5ORVQgKHVzaW5nIHRoZSBHYXJkZW5zIFBvaW50IGNvbXBpbGVy
KSBhbmRccGFyDQpvbiBXaW4zMiAodXNpbmcgQmxhY2tCb3gpIHdpdGggdmlydHVhbGx5IGFsbCBv
ZiB0aGUgc291cmNlIGNvZGUgYXBhcnRccGFyDQpmcm9tIHR3byB2ZXJ5IHNtYWxsIG1vZHVsZXMs
ICppZGVudGljYWwqIGZvciBib3RoLiBUaGVccGFyDQpmcmFtZXdvcmstc3BlY2lmaWMgSS9PIGNh
bGxzIGFyZSBpc29sYXRlZCB0byBhIHNlcGFyYXRlIHN5c3RlbS1zcGVjaWZpY1xwYXINCm1vZHVs
ZS4gVGhlIEdQQ1AgdmVyc2lvbiBjb250YWlucyBhYm91dCBhIGRvemVuIHN0YXRlbWVudHMgYW5k
IHRoZSBCQlxwYXINCnZlcnNpb24gY29udGFpbnMganVzdCBhYm91dCB0d2ljZSB0aGF0IG51bWJl
ci5ccGFyDQpccGFyDQpDaHJpcyBCdXJyb3dzXHBhcg0KQ0ZCIFNvZnR3YXJlXHBhcg0KaHR0cDov
L3d3dy5jZmJzb2Z0d2FyZS5jb20vZ3BjcFxwYXINClxwYXINCi0tLSBCbGFja0JveFxwYXINCi0t
LSBzZW5kIHN1YmplY3QgSEVMUCBvciBVTlNVQlNDUklCRSB0byBibGFja2JveEBvYmVyb24uY2h9
fQByaXZhbFRpbWU6


----boundary-LibPST-iamunique-1048555821_-_---
Received on Tue Oct 18 2005 - 03:54:39 UTC

This archive was generated by hypermail 2.3.0 : Thu Sep 26 2013 - 06:28:07 UTC