![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to engine.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / engine|
Return to engine.c CVS log | Up to [gforth] / gforth / engine |
| version 1.12, 1999/05/12 19:30:30 | version 1.13, 1999/06/17 15:32:14 |
|---|---|
| Line 132 char *tilde_cstr(Char *from, UCell size, | Line 132 char *tilde_cstr(Char *from, UCell size, |
| UCell i; | UCell i; |
| for (i=1; i<size && from[i]!='/'; i++) | for (i=1; i<size && from[i]!='/'; i++) |
| ; | ; |
| if (i==2 && from[1]=='+') /* deal with "~+", i.e., the wd */ | |
| return cstr(from+3, size<3?0:size-3,clear); | |
| { | { |
| char user[i]; | char user[i]; |
| memcpy(user,from+1,i-1); | memcpy(user,from+1,i-1); |