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: <2014@crash.cts.com>
Date: Wed, 18-Nov-87 06:36:16 EST
Article-I.D.: crash.2014
Posted: Wed Nov 18 06:36:16 1987
Date-Received: Sat, 21-Nov-87 14:10:58 EST
Sender: bblue@crash.cts.com
Organization: People-Net [pnet01], El Cajon, CA
Lines: 60
Xref: mnetor comp.sys.amiga:11238 comp.lang.modula2:531

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


    ====================================================================

        Seems like a good solution to me.  I'd like to know more about this
      $E option.  If it is clean, and relocatable (??) this should work quite
      well.  It would be nice to coerce the structure pointer into a record,
      which should work.  ie, Rather than ignoring type checking using ADR,
      couldn't you say

                wp := OpenWindow(NewWindow(MyWindow));

                        at least I think this might work.  

        
        When will the M2Amiga Source Level Debugger be released?  Will it be
      included in the $195 price?  

        What libraries are included?

                                                Thanx,

                                                        Wade.

                PS: sorry, a few bad characters on the line caused an un-
                       finished version of this comment to be sent.


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