Re: A "Via Pascal" Modula 2 Compiler ?

Christoph Schlegel a =E9crit :
> JP2R wrote:
>
> [politely snipped]
>
> > Just , if anybody has a good reference on syntax  of exceptions in ISO
> > M2, so I can make my parser accept those constructs - I've always used
> > PIM compilers , and I just saw it from time to time in some sources so
> > I don't realy know.
> > JP2R
>
> Information on ISO is rare. I collected some pointers here:
> http://freepages.modula2.org/m2faq.html#faq5
- but I guess you know my
> pages.
>
> The following examples my understanding and use of exceptions. You can
> define UserExceptions (example included with XDS Modula-2) for all kinds
> of exceptional situations.
>
> MODULE ExceptionUsage;
>
>    (* im****t what you need (for example): *)
>
> FROM TextIO      IM****T WriteString, WriteLn;
> FROM StdChans    IM****T ErrChan;
> FROM M2EXCEPTION IM****T M2Exceptions, (* TYPE *)
>                          M2Exception, IsM2Exception;
> FROM IOChan      IM****T ChanExceptions, (* TYPE *)
>                          ChanException, IsChanException;
>
>   BEGIN
>
>    (* main program *)
>
>   EXCEPT
>   IF IsM2Exception() THEN
>     WriteString(ErrChan(), "modula-2 exception raised: ");
>     CASE M2Exception() OF
>      indexException : WriteString("indexException") |
>      rangeException : WriteString("rangeException") |
>       (* catch all exceptions you want... *)
>     END; (* CASE *)
>     RETURN;
>   ELSIF IsChanException() THEN
>     WriteString(ErrChan(), "channel exception raised: ");
>     CASE ChanException() OF
>      wrongDevice : WriteString("operation on wrong device") |
>      notAvailable : WriteString("operation not available") |
>      (* and so on *)
>     END; (* CASE *)
>     RETURN;
>   END; (* IF *)
>
> END ExceptionUsage.

Thanks Christoph,
It's a lot more than 2 cents - I'll try - and learn.
JP2R