Apple-2gs-SW
/
gno
mirror of https://github.com/GnoConsortium/gno.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

copyfile.c: 

The last fix wasn't quite correct in that (for copying only data
	forks) the rez fork was still created but with zero length.
	This fix doesn't create the rez fork at all under those
	circumstances.
This commit is contained in:
gdr-ftp 1998-04-10 21:36:08 +00:00
parent e8879227c8
commit d6d81225de
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/libcontrib/copyfile.c
View File

@ -1,5 +1,5 @@
/*
* $Id: copyfile.c,v 1.2 1998/03/25 04:04:20 gdr-ftp Exp $
* $Id: copyfile.c,v 1.3 1998/04/10 21:36:08 gdr-ftp Exp $
*/
/* Change the arg types of GS/OS parameter blocks. Must be before #includes */
@ -294,6 +294,9 @@ DEBUG(("creating %s\n", expandedTo->bufString.text));
inforec.pCount = 5;
inforec.pathname = &(expandedTo->bufString);
inforec.access = 0x00c3;
if ((flags & LC_COPY_REZ) == 0) {
inforec.storageType = standardFile;
}
CreateGS(&inforec);
if ((i = _toolErr) != 0) {
errno = _mapErr(i);
@ -320,6 +323,8 @@ DEBUG(("copying file\n"));
break;
}
DEBUG(("doing fork %d (%s)\n", i, (i==0) ? "data", "rez"));
/* open the input file */
openrec.pCount = 4;
openrec.pathname = &(expandedFrom->bufString);