paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-28 10:59:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

Search for cwsdpmi DOS exeutable in PATH if DOSBOX_NEEDS_CWSDPMI is set or TEST_OS_TARGET is go32v2 to allow testing go32v2 programs using DOSBOX

Browse Source 
git-svn-id: trunk@36726 -
This commit is contained in:
pierre 2017-07-11 18:07:43 +00:00
parent 82569975c6
commit 1c4d1d2327
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
tests/utils/dosbox/dosbox_wrapper.pas
View File

@ -9,6 +9,8 @@ uses
const
use_temp_dir : boolean = true;
need_cwsdpmi : boolean = false;
cwsdpmi_file : string = '';
hide_execution : boolean = true;
do_exit : boolean = true;
verbose : boolean = false;
@ -232,6 +234,7 @@ begin
DeleteIfExists(ADosBoxDir + 'dosbox.conf');
DeleteIfExists(ADosBoxDir + 'EXITCODE.TXT');
DeleteIfExists(ADosBoxDir + 'EXITCODE.EXE');
DeleteIfExists(ADosBoxDir + 'CWSDPMI.EXE');
DeleteIfExists(ADosBoxDir + 'TEST.EXE');
RmDir(ADosBoxDir);
end;
@ -297,6 +300,12 @@ begin
verbose:=true;
Writeln('verbose set to true');
end;
if (GetEnvironmentVariable('DOSBOX_NEEDS_CWSDPMI')<>'') or
(GetEnvironmentVariable('TEST_OS_TARGET')='go32v2') then
begin
need_cwsdpmi:=true;
Writeln('need_cwsdpmi set to true');
end;
if GetEnvironmentVariable('DOSBOX_TIMEOUT')<>'' then
begin
dosbox_timeout:=StrToInt(GetEnvironmentVariable('DOSBOX_TIMEOUT'));
@ -344,6 +353,14 @@ begin
GenerateDosBoxConf(DosBoxDir);
CopyFile(ExtractFilePath(ParamStr(0)) + 'exitcode.exe', DosBoxDir + 'EXITCODE.EXE');
CopyFile(ParamStr(1), DosBoxDir + 'TEST.EXE');
if need_cwsdpmi then
begin
cwsdpmi_file:=FileSearch('cwsdpmi.exe',GetEnvironmentVariable('PATH'));
if cwsdpmi_file<>'' then
CopyFile(cwsdpmi_file, DosBoxDir + 'CWSDPMI.EXE')
else if verbose then
writeln('cwsdpmi executable missing');
end;
ExecuteDosBox(DosBoxBinaryPath, DosBoxDir);
finally
ExitProc;