/*****************************************************************************
 *
 * Program:  purge
 *
 * This C program simulates the purge command on a VMS machine.
 *
 * To compile and link this program (Linux version):
 *
 *    > gcc -o purge purge.c
 *
 * Written by Don Luttermoser on  6 Jun 1995.
 *              Last modified on 16 Jan 1996.
 *              Last modified on 28 May 2025:
 *                - Added "int" to "main" command.
 *
 *****************************************************************************/

#include <stdio.h>
#include <stdlib.h>

int main(int argc, char *argv[])
{
  int test, test1, test2, test3, test4;
  FILE *fp;

/* Redirect error stream */
  fp = freopen(".Purge.err", "w", stderr);

  printf("***** Purging (1) regular & (2) hidden backup file(s):\n");
  if ((test1 = system("ls *~"))   == 0) test = system("rm *~");
  if ((test2 = system("ls .*~"))  == 0) test = system("rm .*~");
  if ((test3 = system("ls *%*"))  == 0) test = system("rm *%*");
  if ((test4 = system("ls .*%*")) == 0) test = system("rm .*%*");

  if (test1 != 0 && test2 != 0 && test3 != 0 && test4 != 0)
    printf(">>>>> No backup file(s) found.\n");

/* Close strerr file */
  fclose(fp);
  if ((test = system("rm .Purge.err")) != 0) 
    printf("Error in deleting \".Purge.err\" file.\n");

  return 1;
}