Subversion Repositories wimsdev

Rev

Rev 7673 | Rev 8171 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7673 Rev 8155
Line 47... Line 47...
47
    if(isspace(*p)) ovlstrcpy(p,find_word_start(p));
47
    if(isspace(*p)) ovlstrcpy(p,find_word_start(p));
48
}
48
}
49
 
49
 
50
/* substitute variable names by their environment strings
50
/* substitute variable names by their environment strings
51
 * The buffer pointed to by p must have enough space
51
 * The buffer pointed to by p must have enough space
52
 * (defined by MAX_LINELEN). */
52
 * (defined by MAX_LINELEN).
-
 
53
 */
53
char *substit(char *p)
54
char *substit(char *p)
54
{
55
{
55
    char *pp, *p2, *ev;
56
    char *pp, *p2, *ev;
56
    char *oldlast, *oldnext, *oldend, *newend;
57
    char *oldlast, *oldnext, *oldend, *newend;
57
    char buf[MAX_LINELEN+1], oldbuf[MAX_LINELEN+1];
58
    char buf[MAX_LINELEN+1], oldbuf[MAX_LINELEN+1];
Line 174... Line 175...
174
    return 0;
175
    return 0;
175
}
176
}
176
 
177
 
177
/* If bufp=NULL then numeric. Else string-wise.
178
/* If bufp=NULL then numeric. Else string-wise.
178
 * returns 0 if success,
179
 * returns 0 if success,
179
 * -1 if syntax error, 1 if bad values */
180
 * -1 if syntax error, 1 if bad values
-
 
181
 */
180
int cutfor(char *p, char *bufp)
182
int cutfor(char *p, char *bufp)
181
{
183
{
182
    char *eqp, *fromp, *top, *stepp, *inp;
184
    char *eqp, *fromp, *top, *stepp, *inp;
183
 
185
 
184
    p=find_word_start(p);
186
    p=find_word_start(p);