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=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID autolearn=no autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,99180ce3a9e2c757 X-Google-Attributes: gid103376,public From: Gautier Subject: Improving P2Ada (2) Date: 1999/08/26 Message-ID: <37C54799.C114B31C@Maths.UniNe.CH>#1/1 X-Deja-AN: 517451753 Content-Transfer-Encoding: 7bit References: <37BC2499.9D2E6E77@Maths.UniNe.CH> X-Accept-Language: en Content-Type: text/plain; charset=us-ascii MIME-Version: 1.0 Newsgroups: comp.lang.ada Date: 1999-08-26T00:00:00+00:00 List-Id: Hi. Here is a new (very provisory) version that allows translation of many (not all) Turbo/Borland Pascal sources (no OO yet but it will come...). ftp://ftp.unine.ch/incoming/gautier/newp2ada.zip The archive contains all you need to (re-)build P2Ada and customize further... Gautier --- Enhancement list from 1997 version ================================== 26.VIII.1999 [GdM] a) Borland-ish add-ons: - Str translated ( bug: should be put(s,123) instead of put(123,s) ) - ' character, written '' ( bug: should trash the 2nd ' ) - arbitrary order of declaration kinds, instead of label-const-type-var-proc - typeless var parameters - DIV becomes / - SHL & SHR operators ( bug: translated by "a Shift_left( ; ) b" ) - programs not beginning by 'Program' ! - global initialized VARiables - in the CONSTant parts - ; aggregates - strings with contraints - typeless files - else part in case..of - asm...end blocks ( bug: not complete) - special directives in proc/func decl. (like near/far/assembler) - characters with explicit ascii (#223) - borland string constants ('aaa'#123'bbb') b) Improvements or bugfixes (any Pascal) - begin/end simplified when safe (then/else/do/case) - outputs "Null;" for empty statement - outputs "WHEN others=> Null;" when no else part