/*-------------------------------------------------------------------------
 *
 * filename.c--
 *    
 *
 * Copyright (c) 1994, Regents of the University of California
 *
 *
 * IDENTIFICATION
 *    /usr/local/devel/pglite/cvs/src/backend/utils/adt/filename.c,v 1.5 1995/04/10 22:01:33 andrew Exp
 *
 *-------------------------------------------------------------------------
 */
#include <string.h>
#include <stdio.h>
#ifndef WIN32
#include <pwd.h>
#endif /* WIN32 */

#include <sys/param.h>
#include "utils/elog.h"
#include "utils/palloc.h"
#include "utils/builtins.h"	/* where function declarations go */

char *
filename_in(char *file)
{
    char *str, *getenv();
    int ind;
    
    /*
     * XXX - HACK CITY --- REDO
     *   should let the shell do expansions (shexpand)
     */

#ifndef WIN32    
    str = (char *) palloc(MAXPATHLEN * sizeof(*str));
    str[0] = '\0';
    if (file[0] == '~') {
	if (file[1] == '\0' || file[1] == '/') {
	    /* Home directory */
	    
	    Name userName;
	    struct passwd *pw;
	    
	    userName = GetPgUserName();
	    
	    if ((pw = getpwnam(userName->data)) == NULL) {
		elog(WARN, "User %s is not a Unix user on the db server.",
		     userName->data);
	    }
	    
	    strcpy(str, pw->pw_dir);
	    
	    ind = 1;
	} else {
	    /* Someone else's directory */
	    char name[16], *p;
	    struct passwd *pw;
	    int len;
	    
	    if ((p = (char *) strchr(file, '/')) == NULL) {
		strcpy(name, file+1);
		len = strlen(name);
	    } else {
		len = (p - file) - 1;
		strncpy(name, file+1, len);
		name[len] = '\0';
	    }
	    /*printf("name: %s\n");*/
	    if ((pw = getpwnam(name)) == NULL) {
		elog(WARN, "No such user: %s\n", name);
		ind = 0;
	    } else {
		strcpy(str, pw->pw_dir);
		ind = len + 1;
	    }
	}
    } else if (file[0] == '$') {  /* $POSTGRESHOME, etc.  expand it. */
	char environment[80], *envirp, *p;
	int len;
	
	if ((p = (char *) strchr(file, '/')) == NULL) {
	    strcpy(environment, file+1);
	    len = strlen(environment);
	} else {
	    len = (p - file) - 1;
	    strncpy(environment, file+1, len);
	    environment[len] = '\0';
	}
	envirp = getenv(environment);
	if (envirp) {
	    strcpy(str, envirp);
	    ind = len + 1;
	}
	else {
	    elog(WARN,"Couldn't find %s in your environment", environment);
	}
    } else {
	ind = 0;
    }
    strcat(str, file+ind);
    return(str);
#else
    return(NULL);
#endif /* WIN32 */
}

char *
filename_out(char *s)
{
    char *ret;
    
    if (!s)
	return((char *) NULL);
    ret = (char *) palloc(strlen(s) + 1);
    if (!ret)
	elog(WARN, "filename_out: palloc failed");
    return(strcpy(ret, s));
}