Path: utzoo!utgpu!water!watmath!clyde!att!osu-cis!tut.cis.ohio-state.edu!mailrus!ames!pasteur!ucbvax!wb3ffv.UUCP!uucp From: uucp@wb3ffv.UUCP Newsgroups: comp.lang.modula2 Subject: Warning From uucp Message-ID: <8808242359.AA03846@wb3ffv.UUCP> Date: 26 Aug 88 16:12:21 GMT Sender: daemon@ucbvax.BERKELEY.EDU Reply-To: Info-Modula2 Distribution List Organization: The Internet Lines: 60 We have been unable to contact machine 'sarin' since you queued your job. sarin!mail eric (Date 08/23) The job will be deleted in several days if the problem is not corrected. If you care to kill the job, execute the following command: uustat -ksarinN0f1e Sincerely, wb3ffv!uucp ############################################# ##### Data File: ############################ >From aplcen!mimsy!rutgers!ucf1vm.bitnet!INFO-M2 Tue Aug 23 07:16:11 1988 remot e from wb3ffv Received: by wb3ffv.UUCP (Smail-2.5) id AA02588; 23 Aug 88 07:16:11 EDT (Tue) Received: by mimsy.UMD.EDU (smail2.5) id AA17533; 23 Aug 88 05:02:48 EDT (Tue) Received: from AJPO.SEI.CMU.EDU by rutgers.edu (5.59/1.15) id AA07738; Tue, 23 Aug 88 05:02:12 EDT Received: from cunyvm.cuny.edu by decwrl.dec.com (5.54.5/4.7.34) id AA23270; Tue, 23 Aug 88 01:43:24 PDT Received: from BITNIC.BITNET by CUNYVM.CUNY.EDU (IBM VM SMTP R1.1) with BSMTP id 7837; Sun, 21 Aug 88 13:36:52 EDT Received: by BITNIC (Mailer X1.25) id 9708; Sun, 21 Aug 88 13:34:28 EDT Received: from UOGUELPH(MAILER) by UCF1VM (Mailer X1.25) id 6912; Sun, 21 Aug 88 13:25:30 EST Received: by UOGUELPH (Mailer X1.25) id 0265; Sun, 21 Aug 88 13:26:35 EDT Message-Id: Date: Sun, 21 Aug 88 13:20:49 EDT Reply-To: Info-Modula2 Distribution List Sender: Info-Modula2 Distribution List From: Alex Bewley Subject: Re: Interlanguage access To: "(no name)" In-Reply-To: Message of Sun, 7 Aug 88 03:27:15 GMT from > This is about accessing C routines from Logitech Modula-2 You need version 3.0. There is a SYSTEM routine called EXTCALL, and you can use that to access other language routines. But all parameter passing must be done using CODE statements before the call. For example: (* call a 'C' routine *) SETREG(AX,10); CODE(PushAX); SETREG(BX,20); CODE(PushBX); EXTCALL("_larger"); (* let's say returns -1 if ab *) GETREG(AX,Result); IF (Result # 0) THEN ... The routine is linked in with all the other modules at link-time. Alex