[fpc-pascal] CrossPlatform problem, INFINITE not defined on Linux

[Bo Berglund]

On Sun, 19 Jul 2020 08:46:14 +0200 (CEST), Michael Van Canneyt
<michael at freepascal.org> wrote:

>
>
>On Sun, 19 Jul 2020, Bo Berglund via fpc-pascal wrote:
>
>> I am porting an old application from Delphi to Lazarus and Windows to
>> Linux.
>> This application has a unit ExecWait, which was created to simplify
>> running tool programs from the main program, so it supplies two
>> procedures as:
>>
>> function ExecAndWait(Cmdline: string; Hide: boolean = false; MaxWait:
>> DWORD = INFINITE; Prio: TExecPrio = normal): DWORD;
>> function ExecStart(Cmdline: string; InheritHandle: boolean = true;
>> Prio: TExecPrio = normal): DWORD;
>>
>> I have had no problems with this unit when moving from Delphi to FPC,
>> it compiles just fine on Windows.
>>
>> But when I move the code to Linux (via Subversion) it throws an error
>> on "Run/Quick Compile":
>>
>> ExecWait.pas(15,79) Error: Identifier not found "INFINITE"
>>
>> The line that gets the error is the declaration for ExecAndWait above.
>>
>> On Windows I could check where it is defined and I found it in:
>> C:\Programs\Lazarus_2.0.8\fpc\3.0.4\source\rtl\win\wininc\defines.inc
>>
>> How do I bring in the corresponding Linux version of this?
>
>You can't. INFINITE is specific to Windows.
>
>You must get rid of the ExecAndWait. This is just the first error you will
>run into, many more will follow.
>
>The corresponding functions exist in FPC :
>
>ExecuteProcess in SysUtils unit:
>https://www.freepascal.org/docs-html/current/rtl/sysutils/executeprocess.html
>
>Various RunCommand procedures in process unit:
>https://www.freepascal.org/docs-html/current/fcl/process/runcommand.html
>
>or use TProcess.
>https://www.freepascal.org/docs-html/current/fcl/process/tprocess.html
>

OK, thanks.
Then I will have to make a rewrite of the unit...

Possibly add IFDEF:s such that the Windows version remains and I
create equivalents for Linux using for example TProcess.

Thankfully there are only these two functions to deal with:
ExecAndWait() starts a program and waits for it to complete
ExecStart() starts a program and leaves it running

These are used exactly 1 time each in the full application...


-- 
Bo Berglund
Developer in Sweden