paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:09:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ implemented dos.GetShortName and GetLongName for i8086-msdos

Browse Source 
git-svn-id: trunk@24699 -
This commit is contained in:
nickysn 2013-06-01 10:34:07 +00:00
parent b52717fd90
commit ed7eb79486
1 changed files with 41 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
rtl/msdos/dos.pp
View File

@ -595,17 +595,54 @@ end;
{ change to short filename if successful DOS call PM }
function GetShortName(var p : String) : boolean;
var
c : array[0..255] of char;
begin
{TODO: implement}
runerror(304);
move(p[1],c[0],length(p));
c[length(p)]:=#0;
dosregs.ax:=$7160;
dosregs.cx:=1;
dosregs.ds:=Seg(c);
dosregs.si:=Ofs(c);
dosregs.es:=Seg(c);
dosregs.di:=Ofs(c);
msdos(dosregs);
LoadDosError;
if DosError=0 then
begin
move(c[0],p[1],strlen(c));
p[0]:=char(strlen(c));
GetShortName:=true;
end
else
GetShortName:=false;
end;
{ change to long filename if successful DOS call PM }
function GetLongName(var p : String) : boolean;
var
c : array[0..260] of char;
begin
{TODO: implement}
runerror(304);
move(p[1],c[0],length(p));
c[length(p)]:=#0;
dosregs.ax:=$7160;
dosregs.cx:=2;
dosregs.ds:=Seg(c);
dosregs.si:=Ofs(c);
dosregs.es:=Seg(c);
dosregs.di:=Ofs(c);
msdos(dosregs);
LoadDosError;
if DosError=0 then
begin
c[255]:=#0;
move(c[0],p[1],strlen(c));
p[0]:=char(strlen(c));
GetLongName:=true;
end
else
GetLongName:=false;
end;