File: env.c

package info (click to toggle)
faumachine 20180503-4
  • links: PTS
  • area: main
  • in suites: buster
  • size: 61,272 kB
  • sloc: ansic: 272,290; makefile: 6,199; asm: 4,251; sh: 3,022; perl: 886; xml: 563; pascal: 311; lex: 214; vhdl: 204
file content (70 lines) | stat: -rw-r--r-- 1,444 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
/*
 * Copyright (C) 2003-2009 FAUmachine Team <info@faumachine.org>.
 * This program is free software. You can redistribute it and/or modify it
 * under the terms of the GNU General Public License, either version 2 of
 * the License, or (at your option) any later version. See COPYING.
 */

/*
 * Replace variables in the form "$some_var" with the value from the
 * corresponding ennvironment variable.
 */

#include "config.h"

#include <stdlib.h>
#include <string.h>

#include "env.h"
#include "glue-log.h"

static char buffer[1024];

char *
env_replace(const char *src)
{
	char *dst;

	for (dst = buffer; *src; src++) {
		if (*src == '$') {
			src++;
			if (('a' <= *src && *src <= 'z')
					|| ('A' <= *src && *src <= 'Z')
					|| *src == '_') {
				char env_var[64];
				char *env_ptr;

				env_ptr = env_var;
				while (*src && (
					('a' <= *src && *src <= 'z')
					|| ('A' <= *src && *src <= 'Z')
					|| ('0' <= *src && *src <= '9')
					|| *src == '_'
					)
				) {
					*env_ptr++ = *src++;
				}
				*env_ptr = 0;
				env_ptr = getenv(env_var);
				if (env_ptr) {
					strcpy(dst, env_ptr);
					dst += strlen(env_ptr);
				} else {
					faum_log(FAUM_LOG_WARNING, "env", 
						__func__,
						"reference to unset "
						"environment variable %s\n",
						env_var);
				}
				if (! *src) {
					break;
				}
			} else if('1' <= *src && *src <= '9') {
				*dst++ = '$';
			}
		}
		*dst++ = *src;
	}
	*dst = 0;
	return buffer;
}