translator, from BASIC to PASCAL (source code translator)

[juanirias]

Hi Please need to compile the code attached, is taken from :

https://www.exmortis.narod.ru/src_translate_eng.html

[wp]

Add {$mode tp} at the top of the file to make it compile.

[juanirias]

Thanks, can see the comments? I have a lot of stranger symbols...

[wp]

Open the file in Notepad++, in the statusbar you see that it detects the encoding of the file as OEM866. In Notepad++, select "Encoding" > "Convert to UTF8 without BOM", save. When you now open the file in Lazarus, the comments should be correct.

[winni]

Hi!

wp was faster but I've got a simple Lazarus solution:

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button1Click(Sender: TObject);
2. var st : TStringList;
3. begin
4.    st := TStringList.create;
5.    st.LoadFromFile('./CROSS.PAS');
6.    st.text := CP866ToUTF8(st.text);
7.    showMessage (st.text);
8.    st.saveToFile('./CROSSutf8.pas');
9.    st.free;
10. end;
11.  

Winni

PS.:

Code: Pascal  [Select][+][-]

1. uses ...,LConvencoding;

[juanirias]

Open the file in Notepad++, in the statusbar you see that it detects the encoding of the file as OEM866. In Notepad++, select "Encoding" > "Convert to UTF8 without BOM", save. When you now open the file in Lazarus, the comments should be correct.

Could share the file, I'm under Linux, I cannot see anything!

[winni]

Could share the file, I'm under Linux, I cannot see anything!

Use my shown solution.
No problems with Linux.

Winni

[wp]

Once you know that the encoding of the file is OEM866, you can also load the file into the Lazarus IDE.

• Right-click on the editor and select "File Settings" > "Encoding" > "cp866" > "Reopen with another encoding". This tells the IDE the correct file encoding - the file should be displayed correctly now.
• However, since Lazarus normally works with UTF8 files you should convert the file to UTF8. Repeat "File Settings" > "Encoding", but now select the top item "UTF8" and click on "Change File" rather than "Reopen with another encoding"

Make a backup copy of the original file - it is very easy to select the wrong steps here.

[juanirias]

Thanks!

I want to translate some old GW-BASIC source code, but cant with this....

regards

[winni]

Memory tells me that gw basic was tokenized .

Right!

There was the  strange syntax in gwbasic to save as ASCII:

Code: Text  [Select][+][-]

1. save  mybasic.bas,a
2.  

No "Basic" option in the Code Menu of the Forum software .....


Winni

[juanirias]

Dear all

Could you try to compile the source code *.pas

I have this errors:

bp.pas :

Code: Pascal  [Select][+][-]

1. fpc "bp.pas" (in directory: /home/developer/wip/MetOrbDet/BasPas)
2. Free Pascal Compiler version 3.2.0+dfsg-12 [2021/01/25] for x86_64
3. Copyright (c) 1993-2020 by Florian Klaempfl and others
4. Target OS: Linux for x86-64
5. Compiling bp.pas
6. bp.pas(102,17) Warning: Local variable "a" of a managed type does not seem to be initialized
7. bp.pas(185,33) Warning: Local variable "dummy3" of a managed type does not seem to be initialized
8. bp.pas(358,55) Error: Call by var for arg no. 1 has to match exactly: Got "AnsiString" expected "ShortString"
9. bp.pas(385,31) Error: Call by var for arg no. 1 has to match exactly: Got "AnsiString" expected "ShortString"
10. bp.pas(405,37) Error: Call by var for arg no. 1 has to match exactly: Got "AnsiString" expected "ShortString"
11. bp.pas(733,47) Error: Call by var for arg no. 1 has to match exactly: Got "AnsiString" expected "ShortString"
12. bp.pas(738,47) Error: Call by var for arg no. 1 has to match exactly: Got "AnsiString" expected "ShortString"
13. bp.pas(784,55) Error: Call by var for arg no. 1 has to match exactly: Got "AnsiString" expected "ShortString"
14. bp.pas(1083,36) Error: String types have to match exactly in $V+ mode
15. bp.pas(1433) Fatal: There were 7 errors compiling module, stopping
16. Fatal: Compilation aborted
17. Error: /usr/bin/ppcx64 returned an error exitcode
18. Compilation failed.
19.  

rbp.pas

Code: Pascal  [Select][+][-]

1. fpc "rbp.pas" (in directory: /home/developer/wip/MetOrbDet/BasPas)
2. Free Pascal Compiler version 3.2.0+dfsg-12 [2021/01/25] for x86_64
3. Copyright (c) 1993-2020 by Florian Klaempfl and others
4. Target OS: Linux for x86-64
5. Compiling rbp.pas
6. rbp.pas(93,40) Error: Call by var for arg no. 1 has to match exactly: Got "AnsiString" expected "ShortString"
7. rbp.pas(132) Fatal: There were 1 errors compiling module, stopping
8. Fatal: Compilation aborted
9. Error: /usr/bin/ppcx64 returned an error exitcode
10. Compilation failed.
11.  

thanks!

[winni]

Hi!

Turbo mode is not sufficent.
You also have to activate  the shortstrings.

Insert:

Code: Pascal  [Select][+][-]

1. Program cross;
2.  
3. {$mode tp}
4. {$H-}  
5. ...
6. ...
7.  

Then everything compiles fine.

Background:
The source is often looking for myString[0].
This is the length byte with ShortStrings (Turbo days )

But this is not allowed with AnsiStrings.

Winni

[juanirias]

Please review the new attachment

regards, Juan

Dear all

Could you try to compile the source code *.pas

I have this errors:

bp.pas :

Code: Pascal  [Select][+][-]

1. fpc "bp.pas" (in directory: /home/developer/wip/MetOrbDet/BasPas)
2. Free Pascal Compiler version 3.2.0+dfsg-12 [2021/01/25] for x86_64
3. Copyright (c) 1993-2020 by Florian Klaempfl and others
4. Target OS: Linux for x86-64
5. Compiling bp.pas
6. bp.pas(102,17) Warning: Local variable "a" of a managed type does not seem to be initialized
7. bp.pas(185,33) Warning: Local variable "dummy3" of a managed type does not seem to be initialized
8. bp.pas(358,55) Error: Call by var for arg no. 1 has to match exactly: Got "AnsiString" expected "ShortString"
9. bp.pas(385,31) Error: Call by var for arg no. 1 has to match exactly: Got "AnsiString" expected "ShortString"
10. bp.pas(405,37) Error: Call by var for arg no. 1 has to match exactly: Got "AnsiString" expected "ShortString"
11. bp.pas(733,47) Error: Call by var for arg no. 1 has to match exactly: Got "AnsiString" expected "ShortString"
12. bp.pas(738,47) Error: Call by var for arg no. 1 has to match exactly: Got "AnsiString" expected "ShortString"
13. bp.pas(784,55) Error: Call by var for arg no. 1 has to match exactly: Got "AnsiString" expected "ShortString"
14. bp.pas(1083,36) Error: String types have to match exactly in $V+ mode
15. bp.pas(1433) Fatal: There were 7 errors compiling module, stopping
16. Fatal: Compilation aborted
17. Error: /usr/bin/ppcx64 returned an error exitcode
18. Compilation failed.
19.  

rbp.pas

Code: Pascal  [Select][+][-]

1. fpc "rbp.pas" (in directory: /home/developer/wip/MetOrbDet/BasPas)
2. Free Pascal Compiler version 3.2.0+dfsg-12 [2021/01/25] for x86_64
3. Copyright (c) 1993-2020 by Florian Klaempfl and others
4. Target OS: Linux for x86-64
5. Compiling rbp.pas
6. rbp.pas(93,40) Error: Call by var for arg no. 1 has to match exactly: Got "AnsiString" expected "ShortString"
7. rbp.pas(132) Fatal: There were 1 errors compiling module, stopping
8. Fatal: Compilation aborted
9. Error: /usr/bin/ppcx64 returned an error exitcode
10. Compilation failed.
11.  

thanks!

[juanirias]

I cant compile ...

Help please 

[winni]

I cant compile ...

I also cant compile. The compiler does it!!!

Show us the error message. And get used to it!

Winni