| version 1.6, Sat Mar 21 21:37:50 1998 UTC | version 1.7, Tue Apr 14 16:43:21 1998 UTC | ||
|---|---|---|---|
|
|
||
| functions (e.g., memcpy) to make it work */ | functions (e.g., memcpy) to make it work */ | ||
| #endif | #endif | ||
| /* buffering of the user output device */ | |||
| if (isatty(fileno(stdout))) { | |||
| fflush(stdout); | |||
| setvbuf(stdout,NULL,_IONBF,0); | |||
| } | |||
| progname = argv[0]; | progname = argv[0]; | ||
| if ((path1=getenv("GFORTHPATH"))==NULL) | if ((path1=getenv("GFORTHPATH"))==NULL) | ||
| path1 = DEFAULTPATH; | path1 = DEFAULTPATH; |
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |