#define PRG_MODULE  "$Rcsfile$"
#define PRG_VERSION " $Revision$ "
/*
**	Package		:
**	General Description
**
**
**	Modification History
**
**	Rev:	Date		Initials	Reason
**	----	----				--------	------
**$Log$
**
**
**	Compile/Build Instructions
**
**
**
 */

/*
** PREPROCESSOR
 */

#include <stdlib.h>
#include <stdio.h>
#include <fcntl.h>
#include <string.h>
#include <stdarg.h>
#include <sys/resource.h>
#include <unistd.h>
#include <sys/proc.h> /* needed for process state constants */ #include <sys/table.h> /* needed for process state constants */ #include <sys/statvfs.h> #include <sys/types.h> #include <sys/procfs.h> #include <sys/signal.h> #include <sys/fault.h> #include <sys/syscall.h> #include <values.h>

/*  As of version 5.005_something it seems sv_undef has been supplanted by PL_sv_undef. */ #ifdef sv_undef #define PL_sv_undef sv_undef #endif

/* How many processes to get at once from table() */
#define PROCCNT 8


/*
** PROTOTYPES
 */
/* prototypes to make the compiler shut up */



/*
** EXTERNALS
 */




main (int argc, char *argv)
{      

/*
** FUNCTIONS
 */


/*
** ARRAYS
 */

char sFilename[16+1];
char pathbuf[MAXPATHLEN+1];


/*
** SCALARS
 */

int ifd = 0;

int maxproc = 0;
int procnum = 0;
int procbase = 0;
int psdata = 0;
int nproc = 0;
int idx1 = 0;
int idx2 = 0;
int ret = 0;



/*
** POINTERS
 */


 
/*
** STRUCTURES and UNIONS
 */

struct statvfs svfs;


/* defined in <sys/table.h> */
struct tbl_procinfo pstbl[PROCCNT];

/* defined in <sys/procfs.h> */
struct prpsinfo psbuf;
struct prcred pscredbuf;


/*
** WINDOWS and FILES
 */

/*
** BEGIN MAIN PROCESSING
 */


if( statvfs("/proc", &svfs) == -1 ) {
  (void) fprintf(stderr, "/proc unavailable...ABORTING\n");
  exit(1);
}
/* Make sure /proc is mounted */

nproc = table(TBL_PROCINFO, 0, 0, MAXINT, 0);

/* loop over all processes */

(void) fprintf(stderr, "PID\tfname\tpsargs\n");
(void) fprintf(stderr, "------------------------------------------------\n");
for (idx1=0; idx1<nproc; idx1 += PROCCNT) {
  ret = table(TBL_PROCINFO, idx1, (struct tbl_procinfo *)pstbl, PROCCNT, sizeof(struct tbl_procinfo));
  for (idx2=0; idx2 < ret; idx2++) {
    if ((pstbl[idx2].pi_pid != 0) && (pstbl[idx2].pi_status == PI_ACTIVE)) {
      sprintf( pathbuf, "/proc/%d", pstbl[idx2].pi_pid );
      /* Construct path of the form /proc/proc_number */
  
      if( (psdata = open( pathbuf, O_RDONLY )) == -1 ) continue;
  
      if( ioctl(psdata, PIOCPSINFO, &psbuf) == -1 ) continue; 
    
      (void) fprintf(stderr, "%d\t%s\t%s\n",pstbl[idx2].pi_pid,psbuf.pr_fname,psbuf.pr_psargs);
      close(psdata);
    }
  }
}

/*
** END MAIN PROCESSING
 */

TERMINATE:

	exit(0);
}