2 * This Cplant(TM) source code is the property of Sandia National
5 * This Cplant(TM) source code is copyrighted by Sandia National
8 * The redistribution of this Cplant(TM) source code is subject to the
9 * terms of the GNU Lesser General Public License
10 * (see cit/LGPL or http://www.gnu.org/licenses/lgpl.html)
12 * Cplant(TM) Copyright 1998-2003 Sandia Corporation.
13 * Under the terms of Contract DE-AC04-94AL85000, there is a non-exclusive
14 * license for use of this work by or on behalf of the US Government.
15 * Export of this program may require a license from the United States
20 * This library is free software; you can redistribute it and/or
21 * modify it under the terms of the GNU Lesser General Public
22 * License as published by the Free Software Foundation; either
23 * version 2.1 of the License, or (at your option) any later version.
25 * This library is distributed in the hope that it will be useful,
26 * but WITHOUT ANY WARRANTY; without even the implied warranty of
27 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
28 * Lesser General Public License for more details.
30 * You should have received a copy of the GNU Lesser General Public
31 * License along with this library; if not, write to the Free Software
32 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
34 * Questions or comments about this library should be sent to:
37 * Sandia National Laboratories, New Mexico
39 * Albuquerque, NM 87185-1110
44 #if defined(AUTOMOUNT_FILE_NAME) && defined(__linux__)
53 #include <sys/param.h>
54 #include <sys/types.h>
56 #include <sys/queue.h>
63 * Parse next component in path.
65 #ifndef AUTOMOUNT_FILE_NAME
69 _sysio_next_component(const char *path, struct qstr *name)
71 while (*path == PATH_SEPARATOR)
76 while (*path && *path != PATH_SEPARATOR) {
78 37 * name->hashval + *path++;
84 * Given parent, look up component.
87 lookup(struct pnode *parent,
96 if (!parent->p_base->pb_ino)
99 err = _sysio_permitted(parent->p_base->pb_ino, X_OK);
104 * Short-circuit `.' and `..'; We don't cache those.
107 if (name->len == 1 && name->name[0] == '.')
109 else if (name->len == 2 && name->name[0] == '.' && name->name[1] == '.')
110 pno = parent->p_parent;
115 * Get cache entry then.
117 err = _sysio_p_find_alias(parent, name, &pno);
123 * While covered, move to the covering node.
125 while (pno->p_cover && pno->p_cover != pno) {
128 cover = pno->p_cover;
137 * (Re)validate the pnode.
139 err = _sysio_p_validate(pno, intnt, path);
147 * The meat. Walk an absolute or relative path, looking up each
148 * component. Various flags in the nameidata argument govern actions
149 * and return values/state. They are:
151 * ND_NOFOLLOW symbolic links are not followed
152 * ND_NEGOK if terminal/leaf does not exist, return
153 * path node (alias) anyway.
156 _sysio_path_walk(struct pnode *parent, struct nameidata *nd)
160 struct qstr this, next;
178 if (*nd->nd_path == PATH_SEPARATOR) {
180 * Make parent the root of the name space.
182 parent = nd->nd_root;
189 if (!_sysio_init_cwd && !nd->nd_root)
193 * Finally have to set the current working directory. We can
194 * not tolerate errors here or else risk leaving the process
195 * in a very unexpected location. We abort then unless all goes
198 icwd = _sysio_init_cwd;
199 _sysio_init_cwd = NULL;
200 parent = nd->nd_root;
203 (void )_sysio_namei(nd->nd_root, icwd, 0, NULL, &parent);
204 if (_sysio_p_chdir(parent) != 0)
210 * (Re)Validate the parent.
212 err = _sysio_p_validate(parent, NULL, NULL);
217 * Prime everything for the loop. Will need another reference to the
218 * initial directory. It'll be dropped later.
222 _sysio_next_component(nd->nd_path, &next);
228 * Derecurse the path tree-walk.
231 ino = nd->nd_pno->p_base->pb_ino;
232 if (S_ISLNK(ino->i_stbuf.st_mode) &&
233 (next.len || !(nd->nd_flags & ND_NOFOLLOW))) {
236 struct nameidata nameidata;
238 if (nd->nd_slicnt >= MAX_SYMLINK) {
244 * Follow symbolic link.
246 lpath = malloc(MAXPATHLEN + 1);
252 ino->i_ops.inop_readlink(nd->nd_pno,
260 lpath[cc] = '\0'; /* NUL term */
262 * Handle symbolic links with recursion. Yuck!
263 * Pass the NULL intent for recursive symlink
264 * except the last component.
267 (nd->nd_flags | ND_NEGOK),
270 !next.len ? nd->nd_intent : NULL);
271 nameidata.nd_slicnt = nd->nd_slicnt + 1;
273 _sysio_path_walk(nd->nd_pno->p_parent, &nameidata);
278 nd->nd_pno = nameidata.nd_pno;
279 ino = nd->nd_pno->p_base->pb_ino;
281 #ifdef AUTOMOUNT_FILE_NAME
283 S_ISDIR(ino->i_stbuf.st_mode) &&
284 (nd->nd_pno->p_mount->mnt_flags & MOUNT_F_AUTO) &&
285 nd->nd_amcnt < MAX_MOUNT_DEPTH &&
286 ino->i_stbuf.st_mode & S_ISUID) {
290 * We're committed to a lookup. It's time to see if
291 * we're going to do it in an automount-point and
292 * arrange the mount if so.
294 assert(!nd->nd_pno->p_cover);
297 &_sysio_mount_file_name,
303 if (!err && _sysio_automount(pno) == 0) {
307 * All went well. Need to switch
308 * parent pno and ino to the
309 * root of the newly mounted sub-tree.
312 * We don't recurseively retry these
313 * things. It's OK to have the new root
314 * be an automount-point but it's going
315 * to take another lookup to accomplish it.
316 * The alternative could get us into an
319 root = nd->nd_pno->p_cover;
326 ino = nd->nd_pno->p_base->pb_ino;
330 * Must send the intent-path again.
336 * Must go back top and retry with this
337 * new pnode as parent.
341 err = 0; /* it never happened */
346 * Set up for next component.
355 * Should only be here if final component was
356 * target of a symlink.
358 nd->nd_path = this.name + this.len;
362 nd->nd_path = this.name + this.len;
363 _sysio_next_component(nd->nd_path, &next);
368 * Parent must be a directory.
370 if (ino && !S_ISDIR(ino->i_stbuf.st_mode)) {
376 * The extra path arg is passed only on the first lookup in the
377 * walk as we cross into each file system, anew. The intent is
378 * passed both on the first lookup and when trying to look up
379 * the final component -- Of the original path, not on the
382 * Confused? Me too and I came up with this weirdness. It's
383 * hints to the file system drivers. Read on.
385 * The first lookup will give everything one needs to ready
386 * everything for the entire operation before the path is
387 * walked. The file system driver knows it's the first lookup
388 * in the walk because it has both the path and the intent.
390 * Alternatively, one could split the duties; The first lookup
391 * can be used to prime the file system inode cache with the
392 * interior nodes we'll want in the path-walk. Then, when
393 * looking up the last component, ready everything for the
394 * operations(s) to come. The file system driver knows it's
395 * the last lookup in the walk because it has the intent,
396 * again, but without the path.
398 * One special case; If we were asked to look up a single
399 * component, we treat it as the last component. The file
400 * system driver never sees the extra path argument. It should
401 * be noted that the driver always has the fully qualified
402 * path, on the target file system, available to it for any
403 * node it is looking up, including the last, via the base
404 * path node and it's ancestor chain.
413 (path && next.len) ? path : NULL);
415 if (err == -ENOENT &&
417 (nd->nd_flags & ND_NEGOK))
421 path = NULL; /* Stop that! */
422 if ((parent->p_mount->mnt_fs !=
423 nd->nd_pno->p_mount->mnt_fs)) {
425 * Crossed into a new fs. We'll want the next lookup
426 * to include the path again.
432 * Release the parent.
439 * Trailing separators cause us to break from the loop with
440 * a parent set but no pnode. Check for that.
446 * Make sure the last processed component was a directory. The
447 * trailing slashes are illegal behind anything else.
450 S_ISDIR(nd->nd_pno->p_base->pb_ino->i_stbuf.st_mode)))
455 * Drop reference to parent if set. Either we have a dup of the original
456 * parent or an intermediate reference.
462 * On error, we will want to drop our reference to the current
463 * path node if at end.
465 if (err && nd->nd_pno) {
475 * for backward compatibility w/protocol switch
476 * remove everything up to the first ':'
477 * fortran libs prepend cwd to path, so not much choice
479 #define STRIP_PREFIX(p) strchr(p,':') ? strchr(p,':')+1 : p
481 #define STRIP_PREFIX(p) p
485 * Expanded form of the path-walk routine, with the common arguments, builds
486 * the nameidata bundle and calls path-walk.
489 _sysio_namei(struct pnode *parent,
492 struct intent *intnt,
495 struct nameidata nameidata;
498 ND_INIT(&nameidata, flags, STRIP_PREFIX(path), _sysio_root, intnt);
499 err = _sysio_path_walk(parent, &nameidata);
501 *pnop = nameidata.nd_pno;