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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
/* $id$
$Locker: $ $Name: $ $State: Exp $
* Return the value of the variable
*
* The value will be overwritten the next time, getEnv() is called,
* because it will be duplicated into dynamic memory fromout the
* environment segment.
*
* If the case-insensitive match is used, the var[] array is updated with
* the variable name that was retrieved.
*
* Return: NULL, on failure
This file bases on ENVIRON.C of FreeCOM v0.81 beta 1.
$Log: getenv.c,v $
Revision 1.2 2001/04/29 12:24:36 skaus
bugfix: >>PATH<< with empty %PATH% --> PATH=(null)
fix: BREAK/VERIFY ignore trailing spaces
fix: >>PATH ;<< remove PATH environment variable
fix: cache 3 environment variables to overcome nested useage (e.g. when
loading message segment to print environment variable)
Revision 1.1 2001/04/12 00:33:53 skaus
chg: new structure
chg: If DEBUG enabled, no available commands are displayed on startup
fix: PTCHSIZE also patches min extra size to force to have this amount
of memory available on start
bugfix: CALL doesn't reset options
add: PTCHSIZE to patch heap size
add: VSPAWN, /SWAP switch, .SWP resource handling
bugfix: COMMAND.COM A:\
bugfix: CALL: if swapOnExec == ERROR, no change of swapOnExec allowed
add: command MEMORY
bugfix: runExtension(): destroys command[-2]
add: clean.bat
add: localized CRITER strings
chg: use LNG files for hard-coded strings (hangForEver(), init.c)
via STRINGS.LIB
add: DEL.C, COPY.C, CBREAK.C: STRINGS-based prompts
add: fixstrs.c: prompts & symbolic keys
add: fixstrs.c: backslash escape sequences
add: version IDs to DEFAULT.LNG and validation to FIXSTRS.C
chg: splitted code apart into LIB\*.c and CMD\*.c
bugfix: IF is now using error system & STRINGS to report errors
add: CALL: /N
*/
#include "../config.h"
#include <assert.h>
#include <stdlib.h>
#include <environ.h>
#include "../include/misc.h"
char *getEnv(char var[])
{
static char *lastVal1 = 0;
static char *lastVal2 = 0;
static char *lastVal3 = 0;
assert(var);
/* To have case-sensitive variable names, just delete the
env_matchVar() call and the if() */
/* To let var[] unaltered, use env_findAnyVar() instead of the
combination of matchVar() & dupvar().
However, the caller will know the correct variable name, if
you don't. */
if (env_matchVar(0, var) & 7) /* found? */
return 0; /* no match found */
/* var now contains the correct variable name and we can be
sure that's there */
free(lastVal3);
lastVal3 = lastVal2;
lastVal2 = lastVal1;
return lastVal1 = dupvar(var);
}
|
