Ejemplo n.º 1
0
Archivo: rcfile.c Proyecto: E-LLP/QuIP
static char *try_user_spec(QSP_ARG_DECL  char *progname) /* look for dotfile in user-specified directory */
{
	char *dir;

	dir=getenv(STARTUP_DIRNAME);
	if( dir == NULL ) return(NULL);
	return( try_directory(QSP_ARG  dir,progname) );
}
Ejemplo n.º 2
0
Archivo: rcfile.c Proyecto: E-LLP/QuIP
static char *try_home(QSP_ARG_DECL  char *progname)	/* look for dotfile in user's home directory */
{
	char *home;

	home=getenv("HOME");

	if( home == NULL ){
		WARN("try_home:  no HOME in environment");
		return(NULL);
	}
	return( try_directory(QSP_ARG  home,progname) );
}
Ejemplo n.º 3
0
Archivo: rcfile.c Proyecto: E-LLP/QuIP
static char *try_default(QSP_ARG_DECL  char *progname) /* look for dotfile in default system directory */
{
#ifdef FOOBAR
	char default_dir_name[MAXPATHLEN];

	// This test is conservative because we count the 2 chars in %s 
	if( strlen(progname) + strlen(QUIP_DEFAULT_FMT) >= MAXPATHLEN ){
		sprintf(ERROR_STRING,"try_default:  Program name '%s' is too long!?",progname);
		ERROR1(ERROR_STRING);
	}
	sprintf(default_dir_name,QUIP_DEFAULT_FMT,progname);
#endif // FOOBAR

	return( try_directory(QSP_ARG  /*default_dir_name*/ QUIP_DEFAULT_DIR,progname) );
}
Ejemplo n.º 4
0
Archivo: rcfile.c Proyecto: E-LLP/QuIP
static char *try_cwd(QSP_ARG_DECL  char *progname)
{
	return( try_directory(QSP_ARG  ".",progname) );
}
Ejemplo n.º 5
0
static char *try_default(QSP_ARG_DECL  char *progname) /* look for dotfile in default system directory */
{
	return( try_directory(QUIP_DEFAULT_DIR,progname) );
}