/* $TOG: lndir.c /main/17 1998/02/06 11:23:50 kaleb $ */ /* Create shadow link tree (after X11R4 script of the same name) Mark Reinhold (mbr@lcs.mit.edu)/3 January 1990 */ /* @OPENGROUP_COPYRIGHT@ COPYRIGHT NOTICE Copyright (c) 1990, 1991, 1992, 1993 Open Software Foundation, Inc. Copyright (c) 1996, 1997, 1998, 1999, 2000 The Open Group ALL RIGHTS RESERVED (MOTIF). See the file named COPYRIGHT.MOTIF for the full copyright text. The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. This software is subject to an open license. It may only be used on, with or for operating systems which are themselves open source systems. You must contact The Open Group for a license allowing distribution and sublicensing of this software on, with, or for operating systems which are not Open Source programs. See http://www.opengroup.org/openmotif/license for full details of the license agreement. Any use, reproduction, or distribution of the program constitutes recipient's acceptance of this agreement. EXCEPT AS EXPRESSLY SET FORTH IN THIS AGREEMENT, THE PROGRAM IS PROVIDED ON AN "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, EITHER EXPRESS OR IMPLIED INCLUDING, WITHOUT LIMITATION, ANY WARRANTIES OR CONDITIONS OF TITLE, NON-INFRINGEMENT, MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE EXCEPT AS EXPRESSLY SET FORTH IN THIS AGREEMENT, NEITHER RECIPIENT NOR ANY CONTRIBUTORS SHALL HAVE ANY LIABILITY FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING WITHOUT LIMITATION LOST PROFITS), HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OR DISTRIBUTION OF THE PROGRAM OR THE EXERCISE OF ANY RIGHTS GRANTED HEREUNDER, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. */ /* From the original /bin/sh script: Used to create a copy of the a directory tree that has links for all non-directories (except those named RCS, SCCS or CVS.adm). If you are building the distribution on more than one machine, you should use this technique. If your master sources are located in /usr/local/src/X and you would like your link tree to be in /usr/local/src/new-X, do the following: % mkdir /usr/local/src/new-X % cd /usr/local/src/new-X % lndir ../X */ #include #include #include #include #include #include #ifndef X_NOT_POSIX #include #else #ifdef SYSV #include #else #ifdef USG #include #else #include #ifndef dirent #define dirent direct #endif #endif #endif #endif #ifndef MAXPATHLEN #define MAXPATHLEN 2048 #endif #if NeedVarargsPrototypes #include #endif #ifdef X_NOT_STDC_ENV extern int errno; #endif int silent = 0; /* -silent */ int ignore_links = 0; /* -ignorelinks */ char *rcurdir; char *curdir; void quit ( #if NeedVarargsPrototypes int code, char * fmt, ...) #else code, fmt, a1, a2, a3) char *fmt; #endif { #if NeedVarargsPrototypes va_list args; va_start(args, fmt); vfprintf (stderr, fmt, args); va_end(args); #else fprintf (stderr, fmt, a1, a2, a3); #endif putc ('\n', stderr); exit (code); } void quiterr (code, s) char *s; { perror (s); exit (code); } void msg ( #if NeedVarargsPrototypes char * fmt, ...) #else fmt, a1, a2, a3) char *fmt; #endif { #if NeedVarargsPrototypes va_list args; #endif if (curdir) { fprintf (stderr, "%s:\n", curdir); curdir = 0; } #if NeedVarargsPrototypes va_start(args, fmt); vfprintf (stderr, fmt, args); va_end(args); #else fprintf (stderr, fmt, a1, a2, a3); #endif putc ('\n', stderr); } void mperror (s) char *s; { if (curdir) { fprintf (stderr, "%s:\n", curdir); curdir = 0; } perror (s); } int equivalent(lname, rname) char *lname; char *rname; { char *s; if (!strcmp(lname, rname)) return 1; for (s = lname; *s && (s = strchr(s, '/')); s++) { while (s[1] == '/') strcpy(s+1, s+2); } return !strcmp(lname, rname); } /* Recursively create symbolic links from the current directory to the "from" directory. Assumes that files described by fs and ts are directories. */ dodir (fn, fs, ts, rel) char *fn; /* name of "from" directory, either absolute or relative to cwd */ struct stat *fs, *ts; /* stats for the "from" directory and cwd */ int rel; /* if true, prepend "../" to fn before using */ { DIR *df; struct dirent *dp; char buf[MAXPATHLEN + 1], *p; char symbuf[MAXPATHLEN + 1]; char basesym[MAXPATHLEN + 1]; struct stat sb, sc; int n_dirs; int symlen; int basesymlen = -1; char *ocurdir; if ((fs->st_dev == ts->st_dev) && (fs->st_ino == ts->st_ino)) { msg ("%s: From and to directories are identical!", fn); return 1; } if (rel) strcpy (buf, "../"); else buf[0] = '\0'; strcat (buf, fn); if (!(df = opendir (buf))) { msg ("%s: Cannot opendir", buf); return 1; } p = buf + strlen (buf); *p++ = '/'; n_dirs = fs->st_nlink; while (dp = readdir (df)) { if (dp->d_name[strlen(dp->d_name) - 1] == '~') continue; strcpy (p, dp->d_name); if (n_dirs > 0) { if (stat (buf, &sb) < 0) { mperror (buf); continue; } #ifdef S_ISDIR if(S_ISDIR(sb.st_mode)) #else if (sb.st_mode & S_IFDIR) #endif { /* directory */ n_dirs--; if (dp->d_name[0] == '.' && (dp->d_name[1] == '\0' || (dp->d_name[1] == '.' && dp->d_name[2] == '\0'))) continue; if (!strcmp (dp->d_name, "RCS")) continue; if (!strcmp (dp->d_name, "SCCS")) continue; if (!strcmp (dp->d_name, "CVS")) continue; if (!strcmp (dp->d_name, "CVS.adm")) continue; ocurdir = rcurdir; rcurdir = buf; curdir = silent ? buf : (char *)0; if (!silent) printf ("%s:\n", buf); if ((stat (dp->d_name, &sc) < 0) && (errno == ENOENT)) { if (mkdir (dp->d_name, 0777) < 0 || stat (dp->d_name, &sc) < 0) { mperror (dp->d_name); curdir = rcurdir = ocurdir; continue; } } if (readlink (dp->d_name, symbuf, sizeof(symbuf) - 1) >= 0) { msg ("%s: is a link instead of a directory", dp->d_name); curdir = rcurdir = ocurdir; continue; } if (chdir (dp->d_name) < 0) { mperror (dp->d_name); curdir = rcurdir = ocurdir; continue; } dodir (buf, &sb, &sc, (buf[0] != '/')); if (chdir ("..") < 0) quiterr (1, ".."); curdir = rcurdir = ocurdir; continue; } } /* non-directory */ symlen = readlink (dp->d_name, symbuf, sizeof(symbuf) - 1); if (symlen >= 0) symbuf[symlen] = '\0'; /* The option to ignore links exists mostly because checking for them slows us down by 10-20%. But it is off by default because this really is a useful check. */ if (!ignore_links) { /* see if the file in the base tree was a symlink */ basesymlen = readlink(buf, basesym, sizeof(basesym) - 1); if (basesymlen >= 0) basesym[basesymlen] = '\0'; } if (symlen >= 0) { /* Link exists in new tree. Print message if it doesn't match. */ if (!equivalent (basesymlen>=0 ? basesym : buf, symbuf)) msg ("%s: %s", dp->d_name, symbuf); } else { if (symlink (basesymlen>=0 ? basesym : buf, dp->d_name) < 0) mperror (dp->d_name); } } closedir (df); return 0; } main (ac, av) int ac; char **av; { char *prog_name = av[0]; char *fn, *tn; struct stat fs, ts; while (++av, --ac) { if (strcmp(*av, "-silent") == 0) silent = 1; else if (strcmp(*av, "-ignorelinks") == 0) ignore_links = 1; else if (strcmp(*av, "--") == 0) { ++av, --ac; break; } else break; } if (ac < 1 || ac > 2) quit (1, "usage: %s [-silent] [-ignorelinks] fromdir [todir]", prog_name); fn = av[0]; if (ac == 2) tn = av[1]; else tn = "."; /* to directory */ if (stat (tn, &ts) < 0) quiterr (1, tn); #ifdef S_ISDIR if (!(S_ISDIR(ts.st_mode))) #else if (!(ts.st_mode & S_IFDIR)) #endif quit (2, "%s: Not a directory", tn); if (chdir (tn) < 0) quiterr (1, tn); /* from directory */ if (stat (fn, &fs) < 0) quiterr (1, fn); #ifdef S_ISDIR if (!(S_ISDIR(fs.st_mode))) #else if (!(fs.st_mode & S_IFDIR)) #endif quit (2, "%s: Not a directory", fn); exit (dodir (fn, &fs, &ts, 0)); }