translator, from BASIC to PASCAL (source code translator)

[wp]

These are my steps:

• At the top of the file, add {$MODE TP}{$H-}
• Compilation attempt --> For variable basic Error "Got Ansitring expected ShortString". Solution: basfile, pasfile are declared as AnsiString. Not sure, but I think this type does not exist in Turbo Pascal mode -> declare them as String
• Next compilation attempt --> Error in FSplit(...): "String types have to match exactly in $V+ mode" --> Declare bPath, bName and bExt as String rather than String[100]
• Next compilation attempt --> successful

I am attaching the modified file.

[juanirias]

Thanks!

now I have this error:



developer@Nitro-AN515-54:~/wip/MetOrbDet/BasPas$ ./bp TAYLOR.BAS
You compile TAYLOR.BAS with BasPas Version 0.602
Written by Andrea Tobian-Mezger 2003

Show also on:  http://groups.yahoo.com/group/BasPas
for informations and files

An unhandled exception occurred at $0000000000406505:
EInOutError: File not open
  $0000000000406505

[juanirias]

A kind reminder; I request help

[af0815]

BTW: Your link to the group is not working.

EInOutError: File not open

Have you looked for the file, which is not open.

[juanirias]

is correct, the group no longer exists!
the code was taken from here: https://www.exmortis.narod.ru/src_translate_eng.html/


regards, JUAN

[juanirias]

Hi!

Here 2 original source code for the same objective: take a BASIC file and convert to PASCAL.
Please review and try to get working please 

regards, JUAN

[Handoko]

Thank  you for sharing it.

Unfortunately I can't compile it using Lazarus 2.2.0. Got a compile-time error in ReplaceOutSBP function in bp.pas because it breaks the rule of immutable requirement. See the screenshot below and read the link:
https://wiki.freepascal.org/For#immutable_requirement

[juanirias]

Thanks for answer...

regards, Juan

[Zvoni]

Thanks for answer...

regards, Juan

Never change the iteration-variable of a For-loop in code
Use Do While/Repeat Until

[juanirias]

I cant understand well, you can compile it ?!
It works ?

regards, Juan

[Handoko]

I cannot compile it. The error is in the line #188 in ReplaceOutSBP function in bp.pas. I tested it using Lazarus 2.2.0 FPC 3.2.2.

[juanirias]

Thanks for answer.