-
Notifications
You must be signed in to change notification settings - Fork 0
/
envir_subs.c
82 lines (77 loc) · 1.97 KB
/
envir_subs.c
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
/*
* Copyright (C) 1992 by Rush Record (rhr@clio.rice.edu)
*
* This file is part of ED.
*
* ED is free software; you can redistribute it and/or modify it under the terms
* of the GNU General Public License as published by the Free Software Foundation.
*
* ED is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
* without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
* PARTICULAR PURPOSE. See the GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License along with ED
* (see the file COPYING). If not, write to the Free Software Foundation, 675
* Mass Ave, Cambridge, MA 02139, USA.
*/
#include "opsys.h"
#include <stdlib.h>
#include <string.h>
#include "memory.h"
#include "ctyp_dec.h"
/******************************************************************************\
|Routine: envir_subs
|Callby: command init_term journal load_file main match_search parse_fnm wincom
|Purpose: Translates strings containing environment variables. Returns a pointer to the translation.
|Arguments:
| file is the string that may contain vars.
\******************************************************************************/
void envir_subs(file)
char *file;
{
#ifndef VMS
Char temp[512],envbuf[512],*a,*aa,*b,c,*e;
/* move the string, translating environment variables found there */
memset(temp,0,sizeof(temp));
for(a = file,b = temp;(c = *a++);)
{
if(c == '$')
{
for(e = envbuf,aa = a;isalnum(*aa) || *aa == '_';*e++ = *aa++);
*e = '\0';
if((e = getenv(envbuf)))
{
strcpy(b,e);
b += strlen(e);
a = aa;
}
else
{
for(e = envbuf;*e;e++)
*e = toupper(*e);
if((e = getenv(envbuf)))
{
strcpy(b,e);
b += strlen(e);
a = aa;
}
else
*b++ = c;
}
}
else if(c == '~')
{
if((e = getenv("HOME")))
{
strcpy(b,e);
b += strlen(e);
}
else
*b++ = '~';
}
else
*b++ = c;
}
strcpy(file,temp);
#endif
}