paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 07:09:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Make dosshell work under Unix

Browse Source 
git-svn-id: trunk@3452 -
This commit is contained in:
daniel 2006-05-07 15:56:11 +00:00
parent ca06efcd00
commit 2cbd7fddcd
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
fv/app.pas
View File

@ -1022,16 +1022,30 @@ END;
{ DosShell -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 25Oct99 LdB } { DosShell -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 25Oct99 LdB }
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
PROCEDURE TApplication.DosShell; PROCEDURE TApplication.DosShell;
{$ifdef unix}
var s:string;
{$endif}
BEGIN { Compatability only } BEGIN { Compatability only }
DoneSysError; DoneSysError;
DoneEvents; DoneEvents;
drivers.donevideo; drivers.donevideo;
drivers.donekeyboard;
{ DoneDosMem;} { DoneDosMem;}
WriteShellMsg; WriteShellMsg;
{$ifdef Unix}
s:=getenv('SHELL');
if s='' then
s:='/bin/sh';
exec(s,'');
{$else}
SwapVectors; SwapVectors;
Exec(GetEnv('COMSPEC'), ''); Exec(GetEnv('COMSPEC'), '');
SwapVectors; SwapVectors;
{$endif}
{ InitDosMem;} { InitDosMem;}
drivers.initkeyboard;
drivers.initvideo; drivers.initvideo;
InitEvents; InitEvents;
InitSysError; InitSysError;