399 lines
9.5 KiB
C
399 lines
9.5 KiB
C
/* @(#) Guess a value for install prefix. Pass in argv[0] (or NULL) as a clue,
|
|
* @(#) plus the name of the controlling environment variable (eg. VIPSHOME).
|
|
* @(#)
|
|
* @(#) const char *
|
|
* @(#) im_guess_prefix( const char *argv0, const char *env_name )
|
|
* @(#)
|
|
* @(#) Don't free the string you get back (treat as result of g_getenv()).
|
|
* @(#) The function returns NULL on error.
|
|
*
|
|
* Written on: 5/2/01
|
|
* Modified on:
|
|
* 3/3/01 JC
|
|
* - better behaviour for relative paths in argv0
|
|
* 22/9/01 JC
|
|
* - oops, SEGV in some cases for argv0 contains relative path
|
|
* 26/9/01 JC
|
|
* - reworked for new prefix scheme
|
|
* 9/11/01 JC
|
|
* - grr! added strdup() on putenv() for newer linuxes
|
|
* 14/12/01 JC
|
|
* - now uses realpath() for better relative pathname guessing
|
|
* 21/10/02 JC
|
|
* - turn off realpath() if not available
|
|
* - path_is_absolute() from glib
|
|
* - append ".exe" to name on w32
|
|
* - prefix cwd() to path on w32
|
|
* 31/7/03 JC
|
|
* - better relative path handling
|
|
* 23/12/04
|
|
* - use g_setenv()/g_getenv()
|
|
* 29/4/05
|
|
* - gah, back to plain setenv() so we work with glib-2.2
|
|
* 5/10/05
|
|
* - phew, now we can use g_setenv() again
|
|
* 18/8/06
|
|
* - use IM_EXEEXT
|
|
* 6/2/07 CB
|
|
* - move trailing '\0' too in extract_prefix
|
|
* 21/7/07
|
|
* - fall back to configure-time prefix rather than returning an error
|
|
* (thanks Jay)
|
|
*/
|
|
|
|
/*
|
|
|
|
This file is part of VIPS.
|
|
|
|
VIPS is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU Lesser General Public License as published by
|
|
the Free Software Foundation; either version 2 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU Lesser General Public License for more details.
|
|
|
|
You should have received a copy of the GNU Lesser General Public License
|
|
along with this program; if not, write to the Free Software
|
|
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
|
|
*/
|
|
|
|
/*
|
|
|
|
These files are distributed with VIPS - http://www.vips.ecs.soton.ac.uk
|
|
|
|
*/
|
|
|
|
/*
|
|
#define DEBUG
|
|
*/
|
|
|
|
#ifdef HAVE_CONFIG_H
|
|
#include <config.h>
|
|
#endif /*HAVE_CONFIG_H*/
|
|
#include <vips/intl.h>
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#ifdef HAVE_SYS_PARAM_H
|
|
#include <sys/param.h>
|
|
#endif /*HAVE_SYS_PARAM_H*/
|
|
#ifdef HAVE_UNISTD_H
|
|
#include <unistd.h>
|
|
#endif /*HAVE_UNISTD_H*/
|
|
#ifdef HAVE_DIRECT_H
|
|
#include <direct.h>
|
|
#endif /*HAVE_DIRECT_H*/
|
|
#include <string.h>
|
|
#include <limits.h>
|
|
|
|
#include <vips/vips.h>
|
|
|
|
#ifdef WITH_DMALLOC
|
|
#include <dmalloc.h>
|
|
#endif /*WITH_DMALLOC*/
|
|
|
|
/* Strip off any of a set of old suffixes (eg. [".v", ".jpg"]), add a single
|
|
* new suffix (eg. ".tif").
|
|
*/
|
|
void
|
|
im__change_suffix( const char *name, char *out, int mx,
|
|
const char *new, const char **olds, int nolds )
|
|
{
|
|
char *p;
|
|
int i;
|
|
int len;
|
|
|
|
/* Copy start string.
|
|
*/
|
|
im_strncpy( out, name, mx );
|
|
|
|
/* Drop all matching suffixes.
|
|
*/
|
|
while( (p = strrchr( out, '.' )) ) {
|
|
/* Found suffix - test against list of alternatives. Ignore
|
|
* case.
|
|
*/
|
|
for( i = 0; i < nolds; i++ )
|
|
if( g_ascii_strcasecmp( p, olds[i] ) == 0 ) {
|
|
*p = '\0';
|
|
break;
|
|
}
|
|
|
|
/* Found match? If not, break from loop.
|
|
*/
|
|
if( *p )
|
|
break;
|
|
}
|
|
|
|
/* Add new suffix.
|
|
*/
|
|
len = strlen( out );
|
|
im_strncpy( out + len, new, mx - len );
|
|
}
|
|
|
|
static char *
|
|
get_current_dir( void )
|
|
{
|
|
static char buffer[PATH_MAX];
|
|
char *dir;
|
|
|
|
/* We don't use getcwd(3) on SUNOS, because, it does a popen("pwd")
|
|
* and, if that wasn't bad enough, hangs in doing so.
|
|
*/
|
|
#if defined( sun ) && !defined( __SVR4 )
|
|
dir = getwd( buffer );
|
|
#else /* !sun */
|
|
dir = getcwd( buffer, PATH_MAX );
|
|
#endif /* !sun */
|
|
|
|
if( !dir ) {
|
|
buffer[0] = G_DIR_SEPARATOR;
|
|
buffer[1] = '\0';
|
|
dir = buffer;
|
|
}
|
|
|
|
return( dir );
|
|
}
|
|
|
|
/* Find the prefix part of a dir ... name is the name of this prog from argv0.
|
|
*
|
|
* dir name guess prefix
|
|
*
|
|
* /home/john/vips-7.6.4/bin/vips-7.6 vips-7.6 /home/john/vips-7.6.4
|
|
* /usr/local/bin/ip ip /usr/local
|
|
*
|
|
* all other forms ... return NULL.
|
|
*/
|
|
static char *
|
|
extract_prefix( const char *dir, const char *name )
|
|
{
|
|
char edir[PATH_MAX];
|
|
char vname[PATH_MAX];
|
|
int i;
|
|
|
|
#ifdef DEBUG
|
|
printf( "extract_prefix: trying for dir = \"%s\", name = \"%s\"\n",
|
|
dir, name );
|
|
#endif /*DEBUG*/
|
|
|
|
/* Is dir relative? Prefix with cwd.
|
|
*/
|
|
if( !g_path_is_absolute( dir ) ) {
|
|
im_snprintf( edir, PATH_MAX, "%s" G_DIR_SEPARATOR_S "%s",
|
|
get_current_dir(), dir );
|
|
}
|
|
else {
|
|
im_strncpy( edir, dir, PATH_MAX );
|
|
}
|
|
|
|
/* Chop off the trailing prog name, plus the trailing
|
|
* G_DIR_SEPARATOR_S.
|
|
*/
|
|
if( !im_ispostfix( edir, name ) )
|
|
return( NULL );
|
|
im_strncpy( vname, edir, PATH_MAX );
|
|
vname[strlen( edir ) - strlen( name ) - 1] = '\0';
|
|
|
|
/* Remove any "/./", any trailing "/.", any trailing "/".
|
|
*/
|
|
for( i = 0; i < (int) strlen( vname ); i++ )
|
|
if( im_isprefix( G_DIR_SEPARATOR_S "." G_DIR_SEPARATOR_S,
|
|
vname + i ) )
|
|
memcpy( vname + i, vname + i + 2,
|
|
strlen( vname + i + 2 ) + 1 );
|
|
if( im_ispostfix( vname, G_DIR_SEPARATOR_S "." ) )
|
|
vname[strlen( vname ) - 2] = '\0';
|
|
if( im_ispostfix( vname, G_DIR_SEPARATOR_S ) )
|
|
vname[strlen( vname ) - 1] = '\0';
|
|
|
|
#ifdef DEBUG
|
|
printf( "extract_prefix: canonicalised path = \"%s\"\n", vname );
|
|
#endif /*DEBUG*/
|
|
|
|
/* Ought to be a "/bin" at the end now.
|
|
*/
|
|
if( !im_ispostfix( vname, G_DIR_SEPARATOR_S "bin" ) )
|
|
return( NULL );
|
|
vname[strlen( vname ) - strlen( G_DIR_SEPARATOR_S "bin" )] = '\0';
|
|
|
|
#ifdef DEBUG
|
|
printf( "extract_prefix: found \"%s\"\n", vname );
|
|
#endif /*DEBUG*/
|
|
|
|
return( im_strdup( NULL, vname ) );
|
|
}
|
|
|
|
/* Search a path for a file ... we overwrite the PATH string passed in.
|
|
*/
|
|
static char *
|
|
scan_path( char *path, const char *name )
|
|
{
|
|
char *p, *q;
|
|
char *prefix;
|
|
|
|
for( p = path;
|
|
(q = im_break_token( p, G_SEARCHPATH_SEPARATOR_S )); p = q ) {
|
|
char str[PATH_MAX];
|
|
|
|
/* Form complete path.
|
|
*/
|
|
im_snprintf( str, PATH_MAX,
|
|
"%s" G_DIR_SEPARATOR_S "%s", p, name );
|
|
|
|
#ifdef DEBUG
|
|
printf( "scan_path: looking in \"%s\" for \"%s\"\n",
|
|
p, name );
|
|
#endif /*DEBUG*/
|
|
|
|
if( im_existsf( "%s", str ) &&
|
|
(prefix = extract_prefix( str, name )) ) {
|
|
return( prefix );
|
|
}
|
|
}
|
|
|
|
return( NULL );
|
|
}
|
|
|
|
/* Look for a file along PATH. If we find it, look for an enclosing prefix.
|
|
*/
|
|
static char *
|
|
find_file( const char *name )
|
|
{
|
|
const char *path = g_getenv( "PATH" );
|
|
char *prefix;
|
|
char full_path[PATH_MAX];
|
|
|
|
if( !path )
|
|
return( NULL );
|
|
|
|
#ifdef DEBUG
|
|
printf( "im_guess_prefix: g_getenv( \"PATH\" ) == \"%s\"\n", path );
|
|
#endif /*DEBUG*/
|
|
|
|
#ifdef OS_WIN32
|
|
/* Windows always searches '.' first, so prepend cwd to path.
|
|
*/
|
|
im_snprintf( full_path, PATH_MAX, "%s" G_SEARCHPATH_SEPARATOR_S "%s",
|
|
get_current_dir(), path );
|
|
#else /*!OS_WIN32*/
|
|
im_strncpy( full_path, path, PATH_MAX );
|
|
#endif /*OS_WIN32*/
|
|
|
|
if( (prefix = scan_path( full_path, name )) )
|
|
return( prefix );
|
|
|
|
return( NULL );
|
|
}
|
|
|
|
/* Guess a value for the install PREFIX.
|
|
*/
|
|
static const char *
|
|
guess_prefix( const char *argv0, const char *name )
|
|
{
|
|
char *prefix;
|
|
|
|
/* Try to guess from argv0.
|
|
*/
|
|
if( argv0 ) {
|
|
if( g_path_is_absolute( argv0 ) ) {
|
|
/* Must point to our executable.
|
|
*/
|
|
if( (prefix = extract_prefix( argv0, name )) ) {
|
|
#ifdef DEBUG
|
|
printf( "im_guess_prefix: found \"%s\" from "
|
|
"argv0\n", prefix );
|
|
#endif /*DEBUG*/
|
|
return( prefix );
|
|
}
|
|
}
|
|
|
|
/* Look along path for name.
|
|
*/
|
|
if( (prefix = find_file( name )) ) {
|
|
#ifdef DEBUG
|
|
printf( "im_guess_prefix: found \"%s\" from "
|
|
"PATH\n", prefix );
|
|
#endif /*DEBUG*/
|
|
return( prefix );
|
|
}
|
|
}
|
|
|
|
#ifdef HAVE_REALPATH
|
|
/* Try to guess from cwd. Only if this is a relative path, though. No
|
|
* realpath on winders, but fortunately it seems to always generate
|
|
* a full path in argv[0].
|
|
*/
|
|
if( !g_path_is_absolute( argv0 ) ) {
|
|
char full_path[PATH_MAX];
|
|
char resolved[PATH_MAX];
|
|
|
|
im_snprintf( full_path, PATH_MAX, "%s" G_DIR_SEPARATOR_S "%s",
|
|
get_current_dir(), argv0 );
|
|
|
|
if( realpath( full_path, resolved ) ) {
|
|
if( (prefix = extract_prefix( resolved, name )) ) {
|
|
|
|
#ifdef DEBUG
|
|
printf( "im_guess_prefix: found \"%s\" "
|
|
"from cwd\n", prefix );
|
|
#endif /*DEBUG*/
|
|
return( prefix );
|
|
}
|
|
}
|
|
}
|
|
#endif /*HAVE_REALPATH*/
|
|
|
|
/* Fall back to the configure-time prefix.
|
|
*/
|
|
return( IM_PREFIX );
|
|
}
|
|
|
|
/* Guess a value for the install PREFIX.
|
|
*/
|
|
const char *
|
|
im_guess_prefix( const char *argv0, const char *env_name )
|
|
{
|
|
const char *prefix;
|
|
const char *p;
|
|
char name[PATH_MAX];
|
|
|
|
/* Already set?
|
|
*/
|
|
if( (prefix = g_getenv( env_name )) ) {
|
|
#ifdef DEBUG
|
|
printf( "im_guess_prefix: found \"%s\" in environment\n",
|
|
prefix );
|
|
#endif /*DEBUG*/
|
|
return( prefix );
|
|
}
|
|
|
|
/* Get the program name from argv0.
|
|
*/
|
|
p = im_skip_dir( argv0 );
|
|
|
|
/* Add the exe suffix, if it's missing.
|
|
*/
|
|
if( strlen( IM_EXEEXT ) > 0 ) {
|
|
const char *olds[] = { IM_EXEEXT };
|
|
|
|
im__change_suffix( p, name, PATH_MAX, IM_EXEEXT, olds, 1 );
|
|
}
|
|
else
|
|
im_strncpy( name, p, PATH_MAX );
|
|
|
|
#ifdef DEBUG
|
|
printf( "im_guess_prefix: argv0 = %s\n", argv0 );
|
|
printf( "im_guess_prefix: name = %s\n", name );
|
|
printf( "im_guess_prefix: cwd = %s\n", get_current_dir() );
|
|
#endif /*DEBUG*/
|
|
|
|
prefix = guess_prefix( argv0, name );
|
|
g_setenv( env_name, prefix, TRUE );
|
|
|
|
return( prefix );
|
|
}
|