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

* filetype/filecreator changed after the file is opened, in case the file did not previously exist

Browse Source
This commit is contained in:
olle 2005-01-24 18:51:23 +00:00
parent 6e6527e46b
commit f7d9958e46
1 changed files with 19 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
rtl/macos/system.pp
View File

@ -435,7 +435,6 @@ var
begin
res:= PathArgToFSSpec(p, spec);
if (res = 0) then
begin
if not IsDirectory(spec) then
@ -681,17 +680,6 @@ begin
exit;
p:= PChar(fullPath);
if FileRec(f).mode in [fmoutput, fminout, fmappend] then
begin
{Since opening of an existing file will not change filetype and creator,
it is set here. Otherwise overwritten darwin files will not get filetype
TEXT. This is not done when only opening file for reading.}
FSpGetFInfo(spec, finderInfo);
finderInfo.fdType:= defaultFileType;
finderInfo.fdCreator:= defaultCreator;
FSpSetFInfo(spec, finderInfo);
end;
end;
@ -703,7 +691,21 @@ begin
end;
Errno2InOutRes;
if fh <> -1 then
filerec(f).handle:= fh
begin
if FileRec(f).mode in [fmoutput, fminout, fmappend] then
begin
{Change of filetype and creator is always done when a file is opened
for some kind of writing. This ensures overwritten Darwin files will
get apropriate filetype. It must be done after file is opened,
in the case the file did not previously exist.}
FSpGetFInfo(spec, finderInfo);
finderInfo.fdType:= defaultFileType;
finderInfo.fdCreator:= defaultCreator;
FSpSetFInfo(spec, finderInfo);
end;
filerec(f).handle:= fh;
end
else
filerec(f).handle:= UnusedHandle;
@ -1207,7 +1209,10 @@ end.
{
$Log$
Revision 1.26 2004-12-05 14:36:37 hajny
Revision 1.27 2005-01-24 18:51:23 olle
* filetype/filecreator changed after the file is opened, in case the file did not previously exist
Revision 1.26 2004/12/05 14:36:37 hajny
+ GetProcessID added
Revision 1.25 2004/11/04 09:32:31 peter