From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me X-Spam-Level: X-Spam-Status: No, score=-0.8 required=5.0 tests=BAYES_00,INVALID_DATE autolearn=no autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,fbf3697334086238 X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 1995-01-05 21:38:47 PST Newsgroups: comp.lang.ada Path: nntp.gmd.de!newsserver.jvnc.net!howland.reston.ans.net!ix.netcom.com!netcomsv!netcomsv!telesoft!kst From: kst@alsys.com (Keith Thompson) Subject: Re: Graphics Message-ID: Originator: kst@pulsar Sender: news@alsys.com (USENET News Admin @flash) Organization: Alsys, San Diego, CA, USA References: <3ea6bq$1ahc@news-s01.ny.us.ibm.net> <3ehnhd$c02@lfsgate.lfs.loral.com> Date: Fri, 6 Jan 1995 03:11:21 GMT Date: 1995-01-06T03:11:21+00:00 List-Id: In <3ehnhd$c02@lfsgate.lfs.loral.com> Bernie Kopelove 703-913-2573 writes: > function createTextField(parent : widget; > name : system.address;--pointer to a string > ) return widget; > pragma interface(c,createTextField); > pragma interface_name(createTextField, > language.c_subp_prefix & -- The subprocess > -- prefix that the > -- binder uses > "createTextField"); -- The internal Please note that pragma Interface_Name is a vendor-specific pragma; it's not part of the Ada 83 language definition. Consult your documentation for information on how to do this with whatever compiler you're using. Ada 95's Annex B provides better mechanisms for interfacing to other languages. -- Keith Thompson (The_Other_Keith) kst@thomsoft.com (kst@alsys.com still works) TeleSoft^H^H^H^H^H^H^H^H Alsys^H^H^H^H^H Thomson Software Products 10251 Vista Sorrento Parkway, Suite 300, San Diego, CA, USA, 92121-2718 When you're a nail, every problem looks like a hammer.