Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!husc6!mit-eddie!ll-xn!ames!sdcsvax!ucsdhub!hp-sdd!ncr-sd!crash!pnet01!haitex
From: haitex@pnet01.cts.com (Wade Bickel)
Newsgroups: comp.sys.amiga,comp.lang.modula2
Subject: Re: M2Amiga, a new Modula-2 compiler
Message-ID: <2013@crash.cts.com>
Date: Wed, 18-Nov-87 06:16:23 EST
Article-I.D.: crash.2013
Posted: Wed Nov 18 06:16:23 1987
Date-Received: Sat, 21-Nov-87 13:48:11 EST
Sender: bblue@crash.cts.com
Organization: People-Net [pnet01], El Cajon, CA
Lines: 34
Xref: mnetor comp.sys.amiga:11236 comp.lang.modula2:530

schaub@sugar.UUCP (Markus Schaub) writes:
>In article <1069@sugar.UUCP>, peter@sugar.UUCP (Peter da Silva) writes:
>> How about statically initialised structures? How do you do the equivalent in
>> Modula of the 'C':
>> 
>> struct Gadget STD_Gadget[GADGETS] = {
>> /*NEXT, LFT, TP,WDTH, H, FLAG,  ACT, TYP, REND, Z, TXT, Z, SPEC, ID, Z */
>> { G(1), IN1,TP1, WD1,HT, SF,     SA,  SG,    Z, Z,   Z, Z, SI(0), 0, 0 },
>
>We know about this problem, a guy in Switzerland is working on some kind of
>language extension. Release date unknown. This moment just one possibility:
>
>PROCEDURE MyWindow; (* $E- no entry/exit code for this procedure please *)
>BEGIN
> INLINE(
>  0, 5, 0, 4, 0FFE0H, ... your data ...
> )
>END MyWindow;
>...
> wp:=OpenWindow(ADR(MyWindow));
>...
>
>Not very nice, but it works!
>
>-- 
>     //	Markus Schaub		uunet!nuchat!sugar!schaub      (713) 523 8422
>    //	M2Amiga Developer	trying to get back the money I  paid  for  my
>\\ //				Amiga by selling a few M2Amiga.
> \X/	c/o Interface Technologies Corp, 3336 Richmond #323, Houston Tx 77098


UUCP: {cbosgd, hplabs!hp-sdd, sdcsvax, nosc}!crash!pnet01!haitex
ARPA: crash!pnet01!haitex@nosc.mil
INET: haitex@pnet01.CTS.COM