+++ /dev/null
-#include <stdio.h>
-#include <varargs.h>
-#include <sys/time.h>
-#include <sys/resource.h>
-
-#define TVTIME(tv) ((tv).tv_sec + (tv).tv_usec / 1e6)
-
-
-extern char *anal_usage, *anal_version,
- *shade_bench_path, *shade_ego, *shade_version,
- *shade_argtrange();
-
-extern char *ctime();
-extern int analyze();
-extern long time();
-extern void exit(), initialize(), terminate();
-
-
-FILE *statsfp; /* output stats file */
-double nina; /* # non-annulled instructions executed */
-
-
-static double usr, sys, real;
-static int t_flag,
- main_stats_analyze();
-static void main_stats_start(),
- main_stats_stop();
-
-
-int
-shade_main (argc, argv, envp)
- int argc;
- char **argv, **envp;
-{
- int aargc, ec, i, j, pid = getpid();
- char **aargv, *cmd = 0, *x;
-
- argc = shade_splitargs (argv, &aargv, &aargc);
-
- for (i = j = 1; i < argc; i++)
- if (argv[i][0] == '-' ||
- argv[i][0] == '+' && argv[i][1] == 't')
- switch (argv[i][1]) {
- case 'c':
- if (cmd)
- usage ("too many -c options");
- if (aargc > 0)
- usage ("-c not allowed with --");
- if (argv[i][2] || ++i >= argc)
- usage
- ("-c: missing/misplaced command");
- cmd = argv[i];
- break;
- case 'o':
- if (statsfp)
- shade_fatal ("too many -o's");
- if (argv[i][2] || ++i >= argc)
- usage
- ("-o: missing/misplaced file name");
- statsfp = fopen (argv[i], "w");
- if (!statsfp)
- usage ("%s: can't open", argv[i]);
- break;
- case 't':
- if (!t_flag++)
- (void) shade_argtrange (argv[i][0] ==
- '-' ? "+t," : "-t,");
- if (x = shade_argtrange (argv[i]))
- usage ("%s: %s", argv[i], x);
- /* should print tranges */
- break;
- case 'U':
- usage ("");
- return (0);
- case 'V':
- fprintf (stderr, "%s: version: %s\n",
- argv[0], anal_version);
- fprintf (stderr, "shade version: %s\n",
- shade_version);
- return (0);
- default:
- argv[j++] = argv[i];
- break;
- }
- else argv[j++] = argv[i];
-
- if (!statsfp)
- statsfp = stdout;
-
- argv[argc = j] = 0;
- initialize (argc, argv, envp);
-
- main_stats_start();
-
- if (cmd)
- ec = shade_sshell (cmd, main_stats_analyze);
- else if (aargc <= 0)
- ec = shade_shell (main_stats_analyze);
- else if (0 > shade_loadp (*aargv, aargv, envp))
- ec = 1;
- else ec = main_stats_analyze (aargc, aargv, envp, (char **) 0);
-
- if (pid == getpid()) {
- main_stats_stop();
- terminate();
- }
- return (ec);
-}
-
-
-usage (va_alist)
- va_dcl
-{
- char *fmt;
- va_list ap;
-
- va_start (ap);
- fmt = va_arg (ap, char *);
- if (fmt && *fmt) {
- fprintf (stderr, "%s: ", shade_ego);
- vfprintf (stderr, fmt, ap);
- fprintf (stderr, "\n\n");
- }
- va_end (ap);
-
- fprintf (stderr, "usage: %s [-U] [-V] [-o outfile] [+/-t[from],[to]] ",
- shade_ego);
- if (anal_usage && *anal_usage)
- fprintf (stderr, "\\\n\t%s ", anal_usage);
- fprintf (stderr, "\\\n\t[-c \"command\" | -- bench benchargs]\n");
-
- exit (1);
-}
-
-
-static void
-getcputime (usr, sys)
- double *usr, *sys;
-{
- struct rusage ru;
-
- if (-1 == getrusage (RUSAGE_SELF, &ru))
- *usr = *sys = 0.0;
- else {
- *usr = TVTIME (ru.ru_utime) - *usr;
- *sys = TVTIME (ru.ru_stime) - *sys;
- }
-}
-
-
-static void
-getrealtime (real)
- double *real;
-{
- struct timeval tv;
- struct timezone tz;
-
- tz.tz_dsttime = DST_NONE;
- tz.tz_minuteswest = 0;
-
- (void) gettimeofday (&tv, &tz);
-
- *real = TVTIME (tv) - *real;
-}
-
-
-static void
-main_stats_start()
-{
- long start;
-
- if (statsfp == 0)
- return;
-
- fprintf (statsfp, "Analyzer: %s\n", shade_ego);
- fprintf (statsfp, "Version: %s (shade version: %s)\n",
- anal_version, shade_version);
-
- {
- char host[64];
-
- if (-1 != gethostname (host, sizeof host))
- fprintf (statsfp, "Hostname: %s\n", host);
- }
-
- (void) time (&start);
- getrealtime (&real);
- getcputime (&usr, &sys);
-
- fprintf (statsfp, "Start: %s", ctime (&start));
- fflush (statsfp);
-}
-
-
-static int
-main_stats_analyze (argc, argv, envp, iov)
- int argc;
- char **argv, **envp, **iov;
-{
- int i;
-
- /* BUG: if t_flag, shouldn't change application program */
-
- if (statsfp) {
- fprintf (statsfp, "Application: %s", shade_bench_path);
- for (i = 1; i < argc; i++)
- fprintf (statsfp, " %s", argv[i]);
- if (iov)
- for (i = 0; iov[i]; i += 2) {
- fprintf (statsfp, " %s", iov[i]);
- if (iov[i+1])
- fprintf (statsfp, " %s", iov[i+1]);
- }
- fprintf (statsfp, "\n");
- fflush (statsfp);
- }
-
- return (analyze());
-}
-
-
-static void
-main_stats_stop()
-{
- long stop;
-
- if (statsfp == 0)
- return;
-
- (void) time (&stop);
- getcputime (&usr, &sys);
- getrealtime (&real);
-
- fprintf (statsfp, "Stop: %s", ctime (&stop));
- if (nina > 0)
- fprintf (statsfp, "Instructions: %.0f\n", nina);
- fprintf (statsfp, "Time: %.3f usr %.3f sys %.3f real %.3f%%\n",
- usr, sys, real,
- real > 0 ? 100. * (usr + sys) / real : 100.);
- if (usr + sys > 0 && nina > 0)
- fprintf (statsfp, "Speed: %.3f KIPS\n",
- nina / (usr + sys) / 1000.);
-}
projects / ghc-hetmet.git / blobdiff