source: buchla-68k/libcio/unlink.c@ 6099cac

Last change on this file since 6099cac was b28a12e, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Zero redundant declarations.
  • Property mode set to 100644
File size: 751 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 "ram.h"
11
12/*
13 =============================================================================
14 unlink(name) -- delete file 'name'.
15 =============================================================================
16*/
17
18int16_t unlink(int8_t *name)
19{
20 struct fcb delfcb;
21
22 if (fcbinit(name, &delfcb))
23 return(FAILURE);
24
25#if DEBUGIT
26 if (fsdebug) {
27
28 printf("unlink(%s): deletion FCB created\n", name);
29 SnapFCB(&delfcb);
30 waitcr();
31 }
32#endif
33 return(DelFile(&delfcb));
34}
35
36
Note: See TracBrowser for help on using the repository browser.