| return (Label *)n; |
return (Label *)n; |
| |
|
| (system) ( c_addr u -- wretval wior ) gforth paren_system |
(system) ( c_addr u -- wretval wior ) gforth paren_system |
| #ifndef MSDOS |
wretval = gforth_system(c_addr, u); |
| int old_tp=terminal_prepped; |
|
| deprep_terminal(); |
|
| #endif |
|
| wretval=system(cstr(c_addr,u,1)); /* ~ expansion on first part of string? */ |
|
| wior = IOR(wretval==-1 || (wretval==127 && errno != 0)); |
wior = IOR(wretval==-1 || (wretval==127 && errno != 0)); |
| #ifndef MSDOS |
|
| if (old_tp) |
|
| prep_terminal(); |
|
| #endif |
|
| |
|
| getenv ( c_addr1 u1 -- c_addr2 u2 ) gforth |
getenv ( c_addr1 u1 -- c_addr2 u2 ) gforth |
| ""The string @i{c-addr1 u1} specifies an environment variable. The string @i{c-addr2 u2} |
""The string @i{c-addr1 u1} specifies an environment variable. The string @i{c-addr2 u2} |
