home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c004 / 1.ddi / CTDELF.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-04-18  |  1.2 KB  |  51 lines
  1. /*
  2.  *    delete file routine
  3.  *
  4.  *    This program is the CONFIDENTIAL and PROPRIETARY property 
  5.  *    of FairCom(R) Corporation. Any unauthorized use, reproduction or
  6.  *    transfer of this program is strictly prohibited.
  7.  *
  8.  *      Copyright (c) 1984, 1985, 1986, 1987, 1988, 1989 FairCom Corporation
  9.  *    (Subject to limited distribution and
  10.  *     restricted disclosure only.)
  11.  *    *** ALL RIGHTS RESERVED ***
  12.  *
  13.  *    4006 West Broadway
  14.  *    Columbia, MO 65203
  15.  *
  16.  *
  17.  *    c-tree(R)    Version 4.3
  18.  *            Release C
  19.  *            February 7, 1989 17:30
  20.  *
  21.  */
  22.  
  23.  
  24. #include "ctstdr.h"        /* standard i/o header         */
  25. #include "ctoptn.h"        /* c-tree configuration options */
  26. #include "cterrc.h"        /* c-tree error codes        */
  27. #include "ctstrc.h"        /* c-tree data structures    */
  28. #include "ctgvar.h"        /* c-tree global variables    */
  29.  
  30. COUNT DELFIL(filno)
  31. COUNT         filno;
  32. {
  33.     TEXT          fname[MAX_NAME];
  34.     PFAST CTFILE *ctnum;
  35.  
  36.     COUNT   CLSFIL(),dltfil();
  37.     CTFILE *tstfnm();
  38.  
  39.     if ((ctnum = tstfnm(filno)) == NULL)
  40.         return(uerr_cod);
  41.     else if (ctnum->flmode & NONEXCLUSIVE)
  42.         return(uerr_cod = DLTP_ERR);
  43.     strcpy(fname,ctnum->flname);
  44.     if (CLSFIL(filno,ctnum->flmode) || dltfil(fname))
  45.         return(uerr_cod);
  46.     else
  47.         return(uerr_cod = NO_ERROR);
  48. }
  49.  
  50. /* end of ctdelf.c */
  51.