Context Navigation

unlink.c@ 9519422

Last change on this file since 9519422 was 7258c6a, checked in by Thomas Lopatic <thomas@…>, 7 years ago
Use standard integer types.
Property mode set to `100644`
File size: 882 bytes

Line
1	/*
2	=============================================================================
3	unlink.c -- unlink (delete) a file
4	Version 6 -- 1987-11-15 -- D.N. Lynx Crowe
5	=============================================================================
6	*/
7
8	#define DEBUGIT 0
9
10	#include "biosdefs.h"
11	#include "stddefs.h"
12
13	#if DEBUGIT
14	extern short fsdebug;
15
16	extern int waitcr();
17	#endif
18
19	extern int16_t DelFile(struct fcb *fcp);
20
21	/*
22	=============================================================================
23	unlink(name) -- delete file 'name'.
24	=============================================================================
25	*/
26
27	int16_t unlink(int8_t *name)
28	{
29	struct fcb delfcb;
30
31	if (fcbinit(name, &delfcb))
32	return(FAILURE);
33
34	#if DEBUGIT
35	if (fsdebug) {
36
37	printf("unlink(%s): deletion FCB created\n", name);
38	SnapFCB(&delfcb);
39	waitcr();
40	}
41	#endif
42	return(DelFile(&delfcb));
43	}
44

Note: See TracBrowser for help on using the repository browser.