/*=======================================================   
                 Xps Programmed by  UNYUN
  =======================================================
*/
#include  <stdio.h>
#include  <string.h>

#define    CONFIG_FILE  "/.cshrc_bak"
#define    TMPFILE    "/tmp/.tmp" 
#define    PROCN_LEN  30
#define    PROC_LIST  50

int  fgetline(fp,buf,maxline)
FILE *fp;
char *buf;
int maxline;
{
  int  i;
  char  c;

  for (i=0;i<maxline;i++){
    if (feof(fp)){
      buf[i]=0;
      return(-1);
    }
    c=fgetc(fp);
    if (c==10) break;
    else buf[i]=c;
  }
  buf[i]=0;
  return (i);
}

int contain(ln,st)
char *ln,*st;
{
  int  i;
  for (i=0;i<(int)(strlen(ln)-strlen(st))+1;i++)
    if (strncmp(ln+i,st,strlen(st))==0) return(0);
  return(-1);
}

int getpid(buf)
char *buf;
{
  int  j,k;
  char  tmp[200];

  for (j=0;j<strlen(buf);j++)
    if (buf[j]!=' ') break;
  for (k=j;k<strlen(buf);k++)
    if (buf[k]==' ') break;
  else tmp[k-j]=buf[k];
  tmp[k-j]=0;
  return(atoi(tmp));
}

main(argc,argv)
int argc;
char *argv[];
{
  char  except[PROC_LIST][PROCN_LEN];
  char  OriginalPS[100];
  char  OriginalPS_Name[100];
  char  buf[2000];
  char  buf2[2000];
  static char  *owndispchar="aAde";
  int  i,j,f,ece,newpid,pd;
  int    owndisp=0;
  FILE  *fp;

  if ((fp=fopen(CONFIG_FILE,"r"))==NULL){
    printf("Can not open PS configuration file '%s'\n",CONFIG_FILE);
    exit(1);
  }
  if (argc>=2){
    for (i=1;i<strlen(argv[1]);i++){
      for (j=0;j<strlen(owndispchar);j++)
        if (argv[1][i]==owndispchar[j]){
          owndisp=1;
          break;
        }
      if (owndisp==1) break;
    }
  }
  fscanf(fp,"%s",OriginalPS);
  for (i=0;i<PROC_LIST;){
    if (feof(fp)) break;
    fscanf(fp,"%s",buf);
    if (strlen(buf)==0) continue;
    strcpy(except[i],buf); i++;
  }
  fclose(fp);
  ece=i;

  strcpy(buf,OriginalPS);
  for (i=1;i<argc;i++){
    strcat(buf," ");
    strcat(buf,argv[i]);
  }
  strcat(buf," > ");
  strcat(buf,TMPFILE);
  system(buf);
  newpid=-1;
  if ((fp=fopen(TMPFILE,"rb"))!=NULL){
    for (;;){
      if (feof(fp)) break;
      fgetline(fp,buf,1999);
      if (strlen(buf)==0) continue;
      if (contain(buf,"sh")!=0) continue;
      pd=getpid(buf);
      if (pd>newpid) newpid=pd;
    }
    fclose(fp);
  }
  for (i=strlen(OriginalPS)-1;i>=0;i--)
    if (OriginalPS[i]=='/') break;
  i++;
  strcpy(OriginalPS_Name,OriginalPS+i);
  if ((fp=fopen(TMPFILE,"rb"))!=NULL){
    for (;;){
      if (feof(fp)) break;
      if (fgetline(fp,buf,1999)==-1) break;
      if (strlen(buf)==0) continue;
      if (contain(buf,OriginalPS_Name)==0) continue;
      if (contain(buf,argv[0])==0 && owndisp==0) continue;
      for (f=0,j=0;j<ece;j++)
        if (contain(buf,except[j])==0) f=1;
      if (f==1) continue;
      if (getpid(buf)==newpid) continue;
      printf("%s\n",buf);
    }
  }else system(buf);
  remove(TMPFILE);
}