Re: Porting to Java using Garden Point Compiler

From: [at]} <Stan>
Date: Wed, 17 Nov 2004 11:47:26 -0800

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

With object-orientation, procedure types are redundant and should
be eliminated, IMHO. You should design your numerical processing
server as an abstract class, and specify to the client what your server
needs to provide its service. Namely it needs a function of one real
variable that returns a real value. You also specify the service your
module is to provide. Namely you will provide an integration function.
Here is your server:

=====================================================
MODULE NumericalProcessor;
        IMPORT Math;

        TYPE
                NumProcessor* = POINTER TO ABSTRACT RECORD END;

        PROCEDURE (n: NumProcessor) ValueOf* (x: REAL): REAL, NEW, ABSTRACT;

        PROCEDURE (n: NumProcessor) Area* (min, max, tol: REAL): REAL, NEW;
        BEGIN
                RETURN n.ValueOf (min) + n.ValueOf (max)
        END Area;

END NumericalProcessor.
=====================================================

To use your service, the client is obliged to implement the function
that you require. Inheritance is the mechanism. Here is a client:

=====================================================
MODULE NumericalApplication;
        IMPORT NumericalProcessor, Math, StdLog;

        TYPE
                MyApplication* = POINTER TO RECORD (NumericalProcessor.NumProcessor)
END;
        
        PROCEDURE (m: MyApplication) ValueOf* (x: REAL): REAL;
        BEGIN
                RETURN x * x
        END ValueOf;

        PROCEDURE Do*;
        VAR
                m: MyApplication;
        BEGIN
                NEW(m);
                StdLog.Ln;
                StdLog.Real( m.Area(3, 4, 0.001));
                StdLog.Ln
        END Do;

END NumericalApplication.
=====================================================

The server "programs to the abstraction". Type checking of the parameter
list is strong. The interface of the server module is crisp. I think it
is a big
conceptual improvement over procedure types.

Stan

J. Stanley Warford
Professor of Computer Science
Pepperdine University
Malibu, CA 90263
Stan.Warford{([at]})nowhere.xy
310-506-4332

On Nov 17, 2004, at 10:21 AM, skulski{([at]})nowhere.xy

> How about the following. I typed this right now so not sure if this is
> all
> correct, but gives you a flavor. IMHO this is an illustration why
> procedure types should *not* be dropped from the language. Purists will
> say procedure types are not needed, but then purists probably have
> never
> calculated any integrals anyway. The bottom line: do not break away
> from
> 50 years of tradition unless you can convincingly argue there is no
> other
> way. Or, if you break away for puristic reasons, then do not complain
> people do not want to use the language anymore.
>
> MODULE Integrand;
> TYPE
> FnType * = POINTER TO RECORD
> END;
> PROCEDURE (f: FnType) Calculate * (x: REAL), NEW;
> BEGIN
> RETURN x*x (*just an example*)
> END Calculate;
> END Integrand.
>
> MODULE Integrate;
> IMPORT Integrand;
>
> PROCEDURE Integ (
> func: Integrand.FnType;
> xMin, xMax, tol: REAL
> ): REAL;
> BEGIN
> (* call func like this: func.Calculate (x) *)
> END Integrate;
>
>> If procedure types are obsolete, how do I write a library
>> procedure that *requires* a functional parameter? Example:
>>
>> TYPE
>> FnType = FUNCTION(x: REAL): REAL;
>>
>> FUNCTION integral( integrand: FnType; xMin, xMax, tol: REAL): REAL
>>
>> Sincerely,
>> Rex Couture, Ph. D.
>> Dept. of Earth and Planetary Sciences
>> Campus Box 1169
>> Washington University in St. Louis
>> 1 Brookings Dr.
>> St. Louis MO 63130
>>
>> Voice: (314) 935-4194
>> Fax: (314) 935-7361
>> rex{([at]})nowhere.xy

--------------------------------------------

To unsubscribe from this mailing list, send a message containing the word "unsubscribe" to:
   blackbox-request{([at]})nowhere.xy

To get a list of valid e-mail commands and instructions on their usage, send a message containing the word "help" to the above address.

Send any problem reports or questions related to this email list to the list owner at
   owner-blackbox{([at]})nowhere.xy

Current posting policy:

a) To post you should use the same address by which you are subscribed to the mailing list. That way, the list server will recognize you as subscriber and forward your posting immediately, without creating any overhead.

b) If, for some reason, you cannot post from the address, by which you are subscribed, your message will be moderated to avoid spam. Please understand that moderation will often cause some delay, in particular over weekends or holydays.


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

e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIFdpdGggb2JqZWN0LW9yaWVudGF0aW9uLCBwcm9j
ZWR1cmUgdHlwZXMgYXJlIHJlZHVuZGFudCBhbmQgc2hvdWxkXHBhcg0KYmUgZWxpbWluYXRlZCwg
SU1ITy4gWW91IHNob3VsZCBkZXNpZ24geW91ciBudW1lcmljYWwgcHJvY2Vzc2luZ1xwYXINCnNl
cnZlciBhcyBhbiBhYnN0cmFjdCBjbGFzcywgYW5kIHNwZWNpZnkgdG8gdGhlIGNsaWVudCB3aGF0
IHlvdXIgc2VydmVyXHBhcg0KbmVlZHMgdG8gcHJvdmlkZSBpdHMgc2VydmljZS4gTmFtZWx5IGl0
IG5lZWRzIGEgZnVuY3Rpb24gb2Ygb25lIHJlYWxccGFyDQp2YXJpYWJsZSB0aGF0IHJldHVybnMg
YSByZWFsIHZhbHVlLiBZb3UgYWxzbyBzcGVjaWZ5IHRoZSBzZXJ2aWNlIHlvdXJccGFyDQptb2R1
bGUgaXMgdG8gcHJvdmlkZS4gTmFtZWx5IHlvdSB3aWxsIHByb3ZpZGUgYW4gaW50ZWdyYXRpb24g
ZnVuY3Rpb24uXHBhcg0KSGVyZSBpcyB5b3VyIHNlcnZlcjpccGFyDQpccGFyDQo9PT09PT09PT09
PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PVxwYXINCk1PRFVMRSAg
TnVtZXJpY2FsUHJvY2Vzc29yO1xwYXINClx0YWIgSU1QT1JUIE1hdGg7XHBhcg0KXHBhcg0KXHRh
YiBUWVBFXHBhcg0KXHRhYiBcdGFiIE51bVByb2Nlc3NvciogPSBQT0lOVEVSIFRPIEFCU1RSQUNU
IFJFQ09SRCBFTkQ7XHBhcg0KXHBhcg0KXHRhYiBQUk9DRURVUkUgKG46IE51bVByb2Nlc3Nvcikg
VmFsdWVPZiogKHg6IFJFQUwpOiBSRUFMLCBORVcsIEFCU1RSQUNUO1xwYXINClxwYXINClx0YWIg
UFJPQ0VEVVJFIChuOiBOdW1Qcm9jZXNzb3IpIEFyZWEqIChtaW4sIG1heCwgdG9sOiBSRUFMKTog
UkVBTCwgTkVXO1xwYXINClx0YWIgQkVHSU5ccGFyDQpcdGFiIFx0YWIgUkVUVVJOIG4uVmFsdWVP
ZiAobWluKSArIG4uVmFsdWVPZiAobWF4KVxwYXINClx0YWIgRU5EIEFyZWE7XHBhcg0KXHBhcg0K
RU5EIE51bWVyaWNhbFByb2Nlc3Nvci5ccGFyDQo9PT09PT09PT09PT09PT09PT09PT09PT09PT09
PT09PT09PT09PT09PT09PT09PT09PT09PVxwYXINClxwYXINClRvIHVzZSB5b3VyIHNlcnZpY2Us
IHRoZSBjbGllbnQgaXMgb2JsaWdlZCB0byBpbXBsZW1lbnQgdGhlIGZ1bmN0aW9uXHBhcg0KdGhh
dCB5b3UgcmVxdWlyZS4gSW5oZXJpdGFuY2UgaXMgdGhlIG1lY2hhbmlzbS4gSGVyZSBpcyBhIGNs
aWVudDpccGFyDQpccGFyDQo9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09
PT09PT09PT09PT09PVxwYXINCk1PRFVMRSAgTnVtZXJpY2FsQXBwbGljYXRpb247XHBhcg0KXHRh
YiBJTVBPUlQgTnVtZXJpY2FsUHJvY2Vzc29yLCBNYXRoLCBTdGRMb2c7XHBhcg0KXHBhcg0KXHRh
YiBUWVBFXHBhcg0KXHRhYiBcdGFiIE15QXBwbGljYXRpb24qID0gUE9JTlRFUiBUTyBSRUNPUkQg
KE51bWVyaWNhbFByb2Nlc3Nvci5OdW1Qcm9jZXNzb3IpIFxwYXINCkVORDtccGFyDQpcdGFiIFxw
YXINClx0YWIgUFJPQ0VEVVJFIChtOiBNeUFwcGxpY2F0aW9uKSBWYWx1ZU9mKiAoeDogUkVBTCk6
IFJFQUw7XHBhcg0KXHRhYiBCRUdJTlxwYXINClx0YWIgXHRhYiBSRVRVUk4geCAqIHhccGFyDQpc
dGFiIEVORCBWYWx1ZU9mO1xwYXINClxwYXINClx0YWIgUFJPQ0VEVVJFIERvKjtccGFyDQpcdGFi
IFZBUlxwYXINClx0YWIgXHRhYiBtOiBNeUFwcGxpY2F0aW9uO1xwYXINClx0YWIgQkVHSU5ccGFy
DQpcdGFiIFx0YWIgTkVXKG0pO1xwYXINClx0YWIgXHRhYiBTdGRMb2cuTG47XHBhcg0KXHRhYiBc
dGFiIFN0ZExvZy5SZWFsKCBtLkFyZWEoMywgNCwgMC4wMDEpKTtccGFyDQpcdGFiIFx0YWIgU3Rk
TG9nLkxuXHBhcg0KXHRhYiBFTkQgRG87XHBhcg0KXHBhcg0KRU5EIE51bWVyaWNhbEFwcGxpY2F0
aW9uLlxwYXINCj09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09
PT09PT09XHBhcg0KXHBhcg0KVGhlIHNlcnZlciAicHJvZ3JhbXMgdG8gdGhlIGFic3RyYWN0aW9u
Ii4gVHlwZSBjaGVja2luZyBvZiB0aGUgcGFyYW1ldGVyXHBhcg0KbGlzdCBpcyBzdHJvbmcuIFRo
ZSBpbnRlcmZhY2Ugb2YgdGhlIHNlcnZlciBtb2R1bGUgaXMgY3Jpc3AuIEkgdGhpbmsgaXQgXHBh
cg0KaXMgYSBiaWdccGFyDQpjb25jZXB0dWFsIGltcHJvdmVtZW50IG92ZXIgcHJvY2VkdXJlIHR5
cGVzLlxwYXINClxwYXINClN0YW5ccGFyDQpccGFyDQpKLiBTdGFubGV5IFdhcmZvcmRccGFyDQpQ
cm9mZXNzb3Igb2YgQ29tcHV0ZXIgU2NpZW5jZVxwYXINClBlcHBlcmRpbmUgVW5pdmVyc2l0eVxw
YXINCk1hbGlidSwgQ0EgOTAyNjNccGFyDQpTdGFuLldhcmZvcmRAcGVwcGVyZGluZS5lZHVccGFy
DQozMTAtNTA2LTQzMzJccGFyDQpccGFyDQpPbiBOb3YgMTcsIDIwMDQsIGF0IDEwOjIxIEFNLCBz
a3Vsc2tpQHBhcy5yb2NoZXN0ZXIuZWR1IHdyb3RlOlxwYXINClxwYXINCj4gSG93IGFib3V0IHRo
ZSBmb2xsb3dpbmcuIEkgdHlwZWQgdGhpcyByaWdodCBub3cgc28gbm90IHN1cmUgaWYgdGhpcyBp
cyBccGFyDQo+IGFsbFxwYXINCj4gY29ycmVjdCwgYnV0IGdpdmVzIHlvdSBhIGZsYXZvci4gSU1I
TyB0aGlzIGlzIGFuIGlsbHVzdHJhdGlvbiB3aHlccGFyDQo+IHByb2NlZHVyZSB0eXBlcyBzaG91
bGQgKm5vdCogYmUgZHJvcHBlZCBmcm9tIHRoZSBsYW5ndWFnZS4gUHVyaXN0cyB3aWxsXHBhcg0K
PiBzYXkgcHJvY2VkdXJlIHR5cGVzIGFyZSBub3QgbmVlZGVkLCBidXQgdGhlbiBwdXJpc3RzIHBy
b2JhYmx5IGhhdmUgXHBhcg0KPiBuZXZlclxwYXINCj4gY2FsY3VsYXRlZCBhbnkgaW50ZWdyYWxz
IGFueXdheS4gVGhlIGJvdHRvbSBsaW5lOiBkbyBub3QgYnJlYWsgYXdheSBccGFyDQo+IGZyb21c
cGFyDQo+IDUwIHllYXJzIG9mIHRyYWRpdGlvbiB1bmxlc3MgeW91IGNhbiBjb252aW5jaW5nbHkg
YXJndWUgdGhlcmUgaXMgbm8gXHBhcg0KPiBvdGhlclxwYXINCj4gd2F5LiBPciwgaWYgeW91IGJy
ZWFrIGF3YXkgZm9yIHB1cmlzdGljIHJlYXNvbnMsIHRoZW4gZG8gbm90IGNvbXBsYWluXHBhcg0K
PiBwZW9wbGUgZG8gbm90IHdhbnQgdG8gdXNlIHRoZSBsYW5ndWFnZSBhbnltb3JlLlxwYXINCj5c
cGFyDQo+IE1PRFVMRSBJbnRlZ3JhbmQ7XHBhcg0KPiBUWVBFXHBhcg0KPiAgIEZuVHlwZSAqID0g
UE9JTlRFUiBUTyBSRUNPUkRccGFyDQo+ICAgRU5EO1xwYXINCj4gUFJPQ0VEVVJFIChmOiBGblR5
cGUpIENhbGN1bGF0ZSAqICh4OiBSRUFMKSwgTkVXO1xwYXINCj4gQkVHSU5ccGFyDQo+ICAgIFJF
VFVSTiB4KnggICAoKmp1c3QgYW4gZXhhbXBsZSopXHBhcg0KPiBFTkQgQ2FsY3VsYXRlO1xwYXIN
Cj4gRU5EIEludGVncmFuZC5ccGFyDQo+XHBhcg0KPiBNT0RVTEUgSW50ZWdyYXRlO1xwYXINCj4g
SU1QT1JUIEludGVncmFuZDtccGFyDQo+XHBhcg0KPiBQUk9DRURVUkUgSW50ZWcgKFxwYXINCj4g
ICAgICAgIGZ1bmM6IEludGVncmFuZC5GblR5cGU7XHBhcg0KPiAgICAgICAgeE1pbiwgeE1heCwg
dG9sOiBSRUFMXHBhcg0KPiAgICAgKTogUkVBTDtccGFyDQo+IEJFR0lOXHBhcg0KPiAgICAoKiBj
YWxsIGZ1bmMgbGlrZSB0aGlzOiBmdW5jLkNhbGN1bGF0ZSAoeCkgKilccGFyDQo+IEVORCBJbnRl
Z3JhdGU7XHBhcg0KPlxwYXINCj4+ICAgICAgICAgSWYgcHJvY2VkdXJlIHR5cGVzIGFyZSBvYnNv
bGV0ZSwgaG93IGRvIEkgd3JpdGUgYSBsaWJyYXJ5XHBhcg0KPj4gcHJvY2VkdXJlIHRoYXQgKnJl
cXVpcmVzKiBhIGZ1bmN0aW9uYWwgcGFyYW1ldGVyPyAgRXhhbXBsZTpccGFyDQo+PlxwYXINCj4+
IFRZUEVccGFyDQo+PiAgICAgICAgIEZuVHlwZSA9IEZVTkNUSU9OKHg6IFJFQUwpOiBSRUFMO1xw
YXINCj4+XHBhcg0KPj4gRlVOQ1RJT04gaW50ZWdyYWwoIGludGVncmFuZDogRm5UeXBlOyB4TWlu
LCB4TWF4LCB0b2w6IFJFQUwpOiBSRUFMXHBhcg0KPj5ccGFyDQo+PiBTaW5jZXJlbHksXHBhcg0K
Pj4gUmV4IENvdXR1cmUsIFBoLiBELlxwYXINCj4+IERlcHQuIG9mIEVhcnRoIGFuZCBQbGFuZXRh
cnkgU2NpZW5jZXNccGFyDQo+PiBDYW1wdXMgQm94IDExNjlccGFyDQo+PiBXYXNoaW5ndG9uIFVu
aXZlcnNpdHkgaW4gU3QuIExvdWlzXHBhcg0KPj4gMSBCcm9va2luZ3MgRHIuXHBhcg0KPj4gU3Qu
IExvdWlzIE1PIDYzMTMwXHBhcg0KPj5ccGFyDQo+PiBWb2ljZTogICgzMTQpIDkzNS00MTk0XHBh
cg0KPj4gRmF4OiAgKDMxNCkgOTM1LTczNjFccGFyDQo+PiByZXhAbGV2ZWUud3VzdGwuZWR1XHBh
cg0KXHBhcg0KLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS1ccGFy
DQpccGFyDQpUbyB1bnN1YnNjcmliZSBmcm9tIHRoaXMgbWFpbGluZyBsaXN0LCBzZW5kIGEgbWVz
c2FnZSBjb250YWluaW5nIHRoZSB3b3JkICJ1bnN1YnNjcmliZSIgdG86XHBhcg0KICAgYmxhY2ti
b3gtcmVxdWVzdEBvYmVyb24uY2hccGFyDQpccGFyDQpUbyBnZXQgYSBsaXN0IG9mIHZhbGlkIGUt
bWFpbCBjb21tYW5kcyBhbmQgaW5zdHJ1Y3Rpb25zIG9uIHRoZWlyIHVzYWdlLCBzZW5kIGEgbWVz
c2FnZSBjb250YWluaW5nIHRoZSB3b3JkICJoZWxwIiB0byB0aGUgYWJvdmUgYWRkcmVzcy5ccGFy
DQpccGFyDQpTZW5kIGFueSBwcm9ibGVtIHJlcG9ydHMgb3IgcXVlc3Rpb25zIHJlbGF0ZWQgdG8g
dGhpcyBlbWFpbCBsaXN0IHRvIHRoZSBsaXN0IG93bmVyIGF0XHBhcg0KICAgb3duZXItYmxhY2ti
b3hAb2Jlcm9uLmNoXHBhcg0KXHBhcg0KQ3VycmVudCBwb3N0aW5nIHBvbGljeTpccGFyDQpccGFy
DQphKSBUbyBwb3N0IHlvdSBzaG91bGQgdXNlIHRoZSBzYW1lIGFkZHJlc3MgYnkgd2hpY2ggeW91
IGFyZSBzdWJzY3JpYmVkIHRvIHRoZSBtYWlsaW5nIGxpc3QuIFRoYXQgd2F5LCB0aGUgbGlzdCBz
ZXJ2ZXIgd2lsbCByZWNvZ25pemUgeW91IGFzIHN1YnNjcmliZXIgYW5kIGZvcndhcmQgeW91ciBw
b3N0aW5nIGltbWVkaWF0ZWx5LCB3aXRob3V0IGNyZWF0aW5nIGFueSBvdmVyaGVhZC5ccGFyDQpc
cGFyDQpiKSBJZiwgZm9yIHNvbWUgcmVhc29uLCB5b3UgY2Fubm90IHBvc3QgZnJvbSB0aGUgYWRk
cmVzcywgYnkgd2hpY2ggeW91IGFyZSBzdWJzY3JpYmVkLCB5b3VyIG1lc3NhZ2Ugd2lsbCBiZSBt
b2RlcmF0ZWQgdG8gYXZvaWQgc3BhbS4gUGxlYXNlIHVuZGVyc3RhbmQgdGhhdCBtb2RlcmF0aW9u
IHdpbGwgb2Z0ZW4gY2F1c2Ugc29tZSBkZWxheSwgaW4gcGFydGljdWxhciBvdmVyIHdlZWtlbmRz
IG9yIGhvbHlkYXl9fQAKPT09PT0=


----boundary-LibPST-iamunique-1983183523_-_---
Received on Wed Nov 17 2004 - 20:47:26 UTC

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