1 /* yForth? - Written by Luca Padovani (C) 1996/97
2 * ------------------------------------------------------------------------
3 * This software is FreeWare as long as it comes with this header in each
4 * source file, anyway you can use it or any part of it whatever
5 * you want. It comes without any warranty, so use it at your own risk.
6 * ------------------------------------------------------------------------
8 * Abstract: File extension word set
19 /**************************************************************************/
20 /* VARIABLES **************************************************************/
21 /**************************************************************************/
23 extern Char file_name[];
25 /**************************************************************************/
26 /* WORDS ******************************************************************/
27 /**************************************************************************/
32 f = fopen(file_name, "rb");
41 register FILE *f = (FILE *) *sp;
42 if (fflush(f)) sp[0] = errno;
47 register Char *file_name2;
49 file_name2 = (Char *) malloc(strlen(file_name) + 1);
51 strcpy(file_name2, file_name);
53 if (rename(file_name, file_name2)) *--sp = errno;