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