Re: using charles library

[Gautier Write-only <gautier@somewhere.nil>]

> > Did you consider a translation of the Pascal code too (it could
> > facilitate maintenance and performance, and lift the language
> > interfacing issues) ?

Roman V. Isaev:

>     The main question is not the translation itself which is possible.
> It may pose problems too as these 3000+ lines of "pascal" contain mostly this:
> 
>            IF KK=2 THEN GOTO 179;
>            GOTO 178;
>     179:   YRR:=YR21;
>            YZR:=ABS((1.0+Y2)/Y12-2.0*XY*(XY-Z)-4.0/3.0*
>            (Y1+Y2)/Y12*Z+(2.0*XY-Z)*(2.0*XY-Z)*(2.0*XY-Z)/3.0*Z*Y1/(1.0+Y));
>            IF YZR>1.E-18 THEN GOTO 190;
>            YZR:=1.E-18;
>      190:  YR21:=TAU0*DG*FG/ETA/Q-8.0*Z/YZR;

Ouch!
Are you sure you don't want to know the math behind ?... - Just kidding.

> > In that case the tool on the link below may help you...
> > Gautier  --  http://www.mysunrise.ch/users/gdm/gsoft.htm#p2ada
> 
> This tool breaks on lines like this:
[ things with 2.* or 1.e-5 ]
I'll try something. Normally a little change to Pascal.l should do the trick.
Normally...

> there are no useful 1.e constants like 1.e-18 and 1.E6 in ada
Sure there are: 1.0e-18, 1.0E6 :-)

> Writeln(FFF,'text',QY1:1:5,'text') turns into something like that:
> 
>     Put(FFF);
> Put( -- [P2Ada]: !Help! Maybe (file,...) here
> "text text text                                 ");
> Put( -- [P2Ada]: !Help! Maybe (file,...) here
> QY1,5,1,0);
> Put( -- [P2Ada]: !Help! Maybe (file,...) here
> " text text text"); New_Line; -- [P2Ada]: !Help! Maybe (file)

Okay: if you make P2Ada "see" the definition of FFF (a file I suppose),
e.g. by using the Import/Export features of P2Ada, you'll have

  Put(FFF,"text text text");
  Put(FFF,QY1,5,1,0);
  Put(FFF,"text text text");
  New_Line(FFF);

...at least I hope so - I've left some bugs for the pleasure of it.
________________________________________________________
Gautier  --  http://www.mysunrise.ch/users/gdm/gsoft.htm

NB: For a direct answer, e-mail address on the Web site!