Context Navigation

unlink.c@ e225e77

Last change on this file since e225e77 was e225e77, checked in by Thomas Lopatic <thomas@…>, 7 years ago
Added missing includes and declarations.
Property mode set to `100644`
File size: 938 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	extern int16_t fcbinit(int8_t name, struct fcb fcp);
22
23	/*
24	=============================================================================
25	unlink(name) -- delete file 'name'.
26	=============================================================================
27	*/
28
29	int16_t unlink(int8_t *name)
30	{
31	struct fcb delfcb;
32
33	if (fcbinit(name, &delfcb))
34	return(FAILURE);
35
36	#if DEBUGIT
37	if (fsdebug) {
38
39	printf("unlink(%s): deletion FCB created\n", name);
40	SnapFCB(&delfcb);
41	waitcr();
42	}
43	#endif
44	return(DelFile(&delfcb));
45	}
46

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