linkname = xmalloc(len + 1);
linkname = xmalloc((unsigned int)(len + 1));
main(int argc, char **argv){    int onlydir, dodir, dolink, dorelsymlink, dotimes, opt, len, lplen, tdlen, bnlen, exists, fromfd, tofd, cc, wc;    mode_t mode = 0755;    char *linkprefix, *owner, *group, *cp, *cwd, *todir, *toname, *name, *base, *linkname, *bp, buf[BUFSIZ];    uid_t uid;    gid_t gid;    struct stat sb, tosb, fromsb;    struct utimbuf utb;    program = argv[0];    cwd = linkname = linkprefix = owner = group = 0;    onlydir = dodir = dolink = dorelsymlink = dotimes = lplen = 0;    while ((opt = getopt(argc, argv, "C:DdlL:Rm:o:g:t")) != EOF) {	switch (opt) {	  case 'C':	    cwd = optarg;	    break;	  case 'D':	    onlydir = 1;	    break;	  case 'd':	    dodir = 1;	    break;	  case 'l':	    dolink = 1;	    break;	  case 'L':	    linkprefix = optarg;	    lplen = strlen(linkprefix);	    dolink = 1;	    break;     case 'R':#ifdef XP_OS2 /* treat like -t since no symbolic links on OS2 */	    dotimes = 1;#else	    dolink = dorelsymlink = 1;#endif	    break;	  case 'm':	    mode = strtoul(optarg, &cp, 8);	    if (mode == 0 && cp == optarg)		usage();	    break;	  case 'o':	    owner = optarg;	    break;	  case 'g':	    group = optarg;	    break;	  case 't':	    dotimes = 1;	    break;	  default:	    usage();	}    }    argc -= optind;    argv += optind;    if (argc < 2 - onlydir)	usage();    todir = argv[argc-1];    if ((stat(todir, &sb) < 0 || !S_ISDIR(sb.st_mode)) &&	mkdirs(todir, 0777) < 0) {	fail("cannot make directory %s", todir);    }    if (onlydir)	return 0;    if (!cwd) {#ifndef NEEDS_GETCWD#ifndef GETCWD_CANT_MALLOC	cwd = getcwd(0, PATH_MAX);#else	cwd = malloc(PATH_MAX + 1);	cwd = getcwd(cwd, PATH_MAX);#endif#else	cwd = malloc(PATH_MAX + 1);	cwd = getwd(cwd);#endif    }    xchdir(todir);#ifndef NEEDS_GETCWD#ifndef GETCWD_CANT_MALLOC    todir = getcwd(0, PATH_MAX);#else    todir = malloc(PATH_MAX + 1);    todir = getcwd(todir, PATH_MAX);#endif#else    todir = malloc(PATH_MAX + 1);    todir = getwd(todir);#endif    tdlen = strlen(todir);    xchdir(cwd);    tdlen = strlen(todir);    uid = owner ? touid(owner) : -1;    gid = group ? togid(group) : -1;    while (--argc > 0) {	name = *argv++;	len = strlen(name);	base = xbasename(name);	bnlen = strlen(base);	toname = xmalloc(tdlen + 1 + bnlen + 1);	sprintf(toname, "%s/%s", todir, base);	exists = (lstat(toname, &tosb) == 0);	if (dodir) {	    /* -d means create a directory, always */	    if (exists && !S_ISDIR(tosb.st_mode)) {		(void) unlink(toname);		exists = 0;	    }	    if (!exists && mkdir(toname, mode) < 0)		fail("cannot make directory %s", toname);	    if ((owner || group) && chown(toname, uid, gid) < 0)		fail("cannot change owner of %s", toname);	} else if (dolink) {	    if (*name == '/') {		/* source is absolute pathname, link to it directly */		linkname = 0;	    } else {		if (linkprefix) {		    /* -L implies -l and prefixes names with a $cwd arg. */		    len += lplen + 1;		    linkname = xmalloc(len + 1);		    sprintf(linkname, "%s/%s", linkprefix, name);		} else if (dorelsymlink) {		    /* Symlink the relative path from todir to source name. */		    linkname = xmalloc(PATH_MAX);		    if (*todir == '/') {			/* todir is absolute: skip over common prefix. */			lplen = relatepaths(todir, cwd, linkname);			strcpy(linkname + lplen, name);		    } else {			/* todir is named by a relative path: reverse it. */			reversepath(todir, name, len, linkname);			xchdir(cwd);		    }		    len = strlen(linkname);		}		name = linkname;	    }	    /* Check for a pre-existing symlink with identical content. */	    if ((exists && (!S_ISLNK(tosb.st_mode) ||						readlink(toname, buf, sizeof buf) != len ||						strncmp(buf, name, len) != 0)) || 			((stat(name, &fromsb) == 0) && 			 (fromsb.st_mtime > tosb.st_mtime))) {		(void) (S_ISDIR(tosb.st_mode) ? rmdir : unlink)(toname);		exists = 0;	    }	    if (!exists && symlink(name, toname) < 0)		fail("cannot make symbolic link %s", toname);#ifdef HAVE_LCHOWN	    if ((owner || group) && lchown(toname, uid, gid) < 0)		fail("cannot change owner of %s", toname);#endif	    if (linkname) {		free(linkname);		linkname = 0;	    }	} else {	    /* Copy from name to toname, which might be the same file. */#ifdef XP_OS2_FIX	    fromfd = open(name, O_RDONLY | O_BINARY);#else	    fromfd = open(name, O_RDONLY);#endif	    if (fromfd < 0 || fstat(fromfd, &sb) < 0)		fail("cannot access %s", name);	    if (exists && (!S_ISREG(tosb.st_mode) || access(toname, W_OK) < 0))		(void) (S_ISDIR(tosb.st_mode) ? rmdir : unlink)(toname);#ifdef XP_OS2	    chmod(toname, S_IREAD | S_IWRITE);#endif#ifdef XP_OS2_FIX	    tofd = open(toname, O_CREAT | O_WRONLY | O_BINARY, 0666);#else	    tofd = open(toname, O_CREAT | O_WRONLY, 0666);#endif	    if (tofd < 0)		fail("cannot create %s", toname);	    bp = buf;	    while ((cc = read(fromfd, bp, sizeof buf)) > 0) {		while ((wc = write(tofd, bp, cc)) > 0) {		    if ((cc -= wc) == 0)			break;		    bp += wc;		}		if (wc < 0)		    fail("cannot write to %s", toname);	    }	    if (cc < 0)		fail("cannot read from %s", name);	    if (ftruncate(tofd, sb.st_size) < 0)		fail("cannot truncate %s", toname);#ifndef XP_OS2	    if (dotimes) {		utb.actime = sb.st_atime;		utb.modtime = sb.st_mtime;		if (utime(toname, &utb) < 0)		    fail("cannot set times of %s", toname);	    }#ifdef HAVE_FCHMOD	    if (fchmod(tofd, mode) < 0)#else	    if (chmod(toname, mode) < 0)#endif		fail("cannot change mode of %s", toname);#endif	    if ((owner || group) && fchown(tofd, uid, gid) < 0)		fail("cannot change owner of %s", toname);	    /* Must check for delayed (NFS) write errors on close. */	    if (close(tofd) < 0)		fail("cannot write to %s", toname);	    close(fromfd);#ifdef XP_OS2	    if (dotimes) {		utb.actime = sb.st_atime;		utb.modtime = sb.st_mtime;		if (utime(toname, &utb) < 0)		    fail("cannot set times of %s", toname);	    }	    if (chmod(toname, (mode & (S_IREAD | S_IWRITE))) < 0)		fail("cannot change mode of %s", toname);#endif	}	free(toname);    }    free(cwd);    free(todir);    return 0;}