home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fish 'n' More 2
/
fishmore-publicdomainlibraryvol.ii1991xetec.iso
/
dirs
/
northc_384.lzh
/
NorthC
/
Example2.LZH
/
top
/
main.c
< prev
next >
Wrap
C/C++ Source or Header
|
1990-08-30
|
4KB
|
170 lines
/* Copyright (c) 1988 by Sozobon, Limited. Author: Tony Andrews
*
* Permission is granted to anyone to use this software for any purpose
* on any computer system, and to redistribute it freely, with the
* following restrictions:
* 1) No charge may be made other than reasonable charges for reproduction.
* 2) Modified versions must be clearly marked as such.
* 3) The authors are not responsible for any harmful consequences
* of using this software, even if they result from defects in it.
*/
#include "top.h"
FILE *ifp, *ofp; /* input/output file pointers */
long _STKSIZ = 32768L; /* need mucho stack for recursion */
/*
* Options
*/
bool debug = FALSE;
bool verbose = FALSE;
bool do_brev = TRUE; /* branch reversals enabled */
bool do_peep = TRUE; /* peephole optimizations enabled */
bool do_dflow= TRUE; /* enable data-flow analysis */
/*
* Optimization statistics (use -v to print)
*/
int s_bdel = 0; /* branches deleted */
int s_badd = 0; /* branches added */
int s_brev = 0; /* branch reversals */
int s_peep1 = 0; /* 1 instruction peephole changes */
int s_peep2 = 0; /* 2 instruction peephole changes */
int s_peep3 = 0; /* 3 instruction peephole changes */
int s_idel = 0; /* instructions deleted */
#ifdef NORTHC
char tempfile[L_tmpnam];
#else
#define TMPFILE "top_tmp.$$$" /* temporary file name */
#endif
int use_temp = FALSE; /* using temporary file */
char *Version =
"top Version 1.01 Copyright (c) 1988 by Sozobon, Limited.";
usage()
{
fprintf(stderr, "usage: top [-dvfbp] infile [outfile]\n");
exit(EXIT_FAILURE);
}
main(argc, argv)
int argc;
char *argv[];
{
FILE *fopen();
register char *s;
while (argc > 1 && argv[1][0] == '-') {
for (s = &argv[1][1]; *s ;s++) {
switch (*s) {
case 'd':
debug = TRUE;
break;
case 'b':
do_brev = FALSE;
break;
case 'p':
do_peep = FALSE;
break;
case 'f':
do_dflow = FALSE;
break;
case 'v':
fprintf(stderr, "%s\n", Version);
verbose = TRUE;
break;
default:
usage();
break;
}
}
argv++;
argc--;
}
if (argc > 3)
usage();
if (argc > 1) {
if (strcmp(argv[1], "-") == 0)
ifp = stdin;
else if ((ifp = fopen(argv[1], "r")) == NULL) {
fprintf(stderr, "top: can't open input file '%s'\n",
argv[1]);
exit(EXIT_FAILURE);
}
if (argc > 2) {
if (strcmp(argv[2], "-") == 0)
ofp = stdout;
else if ((ofp = fopen(argv[2], "w")) == NULL) {
fprintf(stderr, "top: can't open output file '%s'\n",
argv[2]);
exit(EXIT_FAILURE);
}
} else {
#ifdef NORTHC
tmpnam(tempfile);
if ((ofp = fopen(tempfile, "w")) == NULL) {
#else
if ((ofp = fopen(TMPFILE, "w")) == NULL) {
#endif
fprintf(stderr, "top: can't create temp file\n");
exit(EXIT_FAILURE);
}
use_temp = TRUE;
}
} else
usage();
dofile();
if (verbose) {
if (do_peep) {
fprintf(stderr, "Peephole changes (1): %4d\n", s_peep1);
fprintf(stderr, "Peephole changes (2): %4d\n", s_peep2);
fprintf(stderr, "Peephole changes (3): %4d\n", s_peep3);
fprintf(stderr, "Instructions deleted: %4d\n", s_idel);
}
if (do_brev)
fprintf(stderr, "Branch reversals : %4d\n", s_brev);
fprintf(stderr, "Branches removed : %4d\n", s_bdel - s_badd);
}
#ifdef NORTHC
dumpall();
#endif
/*
* If we're overwriting the original file, remove the old
* version, and rename the temp file to the old name.
*/
if (use_temp) {
#ifdef NORTHC
fclose(ifp);
remove(argv[1]);
fclose(ofp);
if(copy(tempfile,argv[1])<0)
printf("copy from \"%s\" to \"%s\" failed\n",
tempfile,argv[1]);
remove(tempfile);
#else
remove(argv[1]);
rename(TMPFILE, argv[1]);
#endif
}
exit(0);
}
dofile()
{
if (!readline())
return;
while (dofunc())
;
}