diff options
Diffstat (limited to 'contrib/global/lib/getdbpath.c')
-rw-r--r-- | contrib/global/lib/getdbpath.c | 154 |
1 files changed, 154 insertions, 0 deletions
diff --git a/contrib/global/lib/getdbpath.c b/contrib/global/lib/getdbpath.c new file mode 100644 index 0000000..9c689da --- /dev/null +++ b/contrib/global/lib/getdbpath.c @@ -0,0 +1,154 @@ +/* + * Copyright (c) 1996, 1997 Shigio Yamaguchi. All rights reserved. + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions + * are met: + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * 3. All advertising materials mentioning features or use of this software + * must display the following acknowledgement: + * This product includes software developed by Shigio Yamaguchi. + * 4. Neither the name of the author nor the names of any co-contributors + * may be used to endorse or promote products derived from this software + * without specific prior written permission. + * + * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE + * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) + * 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 OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF + * SUCH DAMAGE. + * + * getdbpath.c 20-Oct-97 + * + */ +#include <sys/param.h> +#include <sys/types.h> +#include <sys/stat.h> +#include <stdlib.h> +#include "die.h" +#include "locatestring.h" + +static char *makeobjdirprefix; /* obj partition */ +static char *makeobjdir; /* obj directory */ +static int bsd; /* if BSD */ + +/* + * gtagsexist: test whether GTAGS's existence. + * + * i) candidate candidate root directory + * o) dbpath directory which GTAGS exist + * r) 0: not found, 1: found + */ +int +gtagsexist(candidate, dbpath) +char *candidate; +char *dbpath; +{ + char path[MAXPATHLEN+1]; + + sprintf(path, "%s/GTAGS", candidate); + if (test("fr", path)) { + strcpy(dbpath, candidate); + return 1; + } + if (bsd) { + sprintf(path, "%s/%s/GTAGS", candidate, makeobjdir); + if (test("fr", path)) { + sprintf(dbpath, "%s%s", candidate, makeobjdir); + return 1; + } + sprintf(path, "%s%s/GTAGS", makeobjdirprefix, candidate); + if (test("fr", path)) { + sprintf(dbpath, "%s%s", makeobjdirprefix, candidate); + return 1; + } + } + return 0; +} +/* + * getdbpath: get dbpath directory + * + * o) cwd current directory + * o) root root of source tree + * o) dbpath directory which GTAGS exist + * + * root and dbpath assumed as + * char cwd[MAXPATHLEN+1]; + * char root[MAXPATHLEN+1]; + * char dbpath[MAXPATHLEN+1]; + */ +void +getdbpath(cwd, root, dbpath) +char *cwd; +char *root; +char *dbpath; +{ + struct stat sb; + char *p; + + if (!getcwd(cwd, MAXPATHLEN)) + die("cannot get current directory."); + /* + * GLOBAL never think '/' is the root of source tree. + */ + if (!strcmp(cwd, "/")) + die("It's root directory! What are you doing?"); + + if (getenv("OSTYPE") && locatestring(getenv("OSTYPE"), "BSD", 0)) { + if (p = getenv("MAKEOBJDIRPREFIX")) + makeobjdirprefix = p; + else + makeobjdirprefix = "/usr/obj"; + if (p = getenv("MAKEOBJDIR")) + makeobjdir = p; + else + makeobjdir = "obj"; + bsd = 1; + } + + if (p = getenv("GTAGSROOT")) { + if (*p != '/') + die("GTAGSROOT must be an absolute path."); + if (stat(p, &sb) || !S_ISDIR(sb.st_mode)) + die1("directory '%s' not found.", p); + strcpy(root, p); + /* + * GTAGSDBPATH is meaningful only when GTAGSROOT exist. + */ + if (p = getenv("GTAGSDBPATH")) { + if (*p != '/') + die("GTAGSDBPATH must be an absolute path."); + if (stat(p, &sb) || !S_ISDIR(sb.st_mode)) + die1("directory '%s' not found.", p); + strcpy(dbpath, getenv("GTAGSDBPATH")); + } else { + if (!gtagsexist(root, dbpath)) + die("GTAGS not found."); + } + } else { + /* + * start from current directory to '/' directory. + */ + strcpy(root, cwd); + p = root + strlen(root); + while (!gtagsexist(root, dbpath)) { + while (*--p != '/') + ; + *p = 0; + if (root == p) /* reached root directory */ + break; + } + if (*root == 0) + die("GTAGS not found."); + } +} |