home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a120 / 1.ddi / WATCOM_C / WAT86.C < prev    next >
Encoding:
C/C++ Source or Header  |  1992-05-27  |  1007 b   |  36 lines
  1. /*------------------------------------------------------------------*/
  2. /* ╡{ªí└╔ªW║┘: wat86.c                                              */
  3. /*------------------------------------------------------------------*/
  4. #include <stdio.h>
  5. #include <dos.h>
  6.  
  7. /* ºR░ú└╔«╫, 0 ¬φÑ▄ª¿Ñ\; ½D╣s¡╚¬φÑ▄Ñó▒╤ */
  8. int erase_file(char far *filename)
  9. {
  10.    union REGS regs; struct SREGS sregs;
  11.    int ret_value;
  12.    regs.h.ah = 0x41;   /* ª╣¼░ºR░ú└╔«╫ñºÑ\»α⌐IÑs */
  13.    regs.x.dx = FP_OFF(filename);
  14.    sregs.ds  = FP_SEG(filename);
  15.    ret_value = intdosx(®s, ®s, &sregs);
  16.  
  17.    /* ªp¬G╢iª∞║X╝╨│Q│]⌐w¬φÑ▄ª│┐∙╗~╡oÑ═ */
  18.    return(regs.x.cflag ? ret_value : 0);
  19. }
  20.  
  21. void main(int argc,char **argv)
  22. {
  23.    int error;
  24.    if(argc==1)
  25.       printf("¿╧Ñ╬ñΦ¬k: WAT86 <└╔«╫ªW║┘.¬■└╔ªW>\n");
  26.    else
  27.       if(argc==2)
  28.       {
  29.          error = erase_file(argv[1]);
  30.          if (!error)
  31.              printf("└╔«╫ %s ñwºR░ú\n",argv[1]);
  32.          else
  33.              printf("╡L¬kºR░ú└╔«╫ %s\n",argv[1]);
  34.       }
  35. }
  36.