#ident "$URL: svn://elmer/devel/SVN/SDDAS/trunk/libant/EnvExpand.c $ %D% SwRI"
/* EnvExpand.c -- expand environment variables in string */

#include <ctype.h>		/* for isalnum,etc. */
#include "ant.h"                /* for GetEnv */

/* EnvExpand.c -- expand environment variables in string */
void
EnvExpand(
char* des,
char* src)
{
  while (*src)
    if (*src != '$')
      *des++ = *src++;
    else
      {
	char* str;

	/* find env variable */
	char env[100];
	int i=0;
	for (i=0,src++; isalnum((int) *src) || *src == '_'; src++,i++)
	  env[i] = *src;
	env[i] = '\0';

	/* expand env variable */
	str = GetEnv(env);
	if (str)
	  while (*str)
	    *des++ = *str++;
      }
  *des = 0;
}