void CErrorAnal_dlg::OnChangeStatOptions()
{
get_stat_options(); // xfer stat options ctls to stat options of active data set
list_stats();
compute_stats();
update_stat_param_ctls();
}
void CErrorAnal_dlg::OnFilter()
{
FeatureFilter& filter=active_data()->filter;
if (CFeatureFilter_dlg(filter,this).DoModal()!=IDOK) return;
list_stats();
compute_stats();
update_stat_param_ctls(); // xfer stats of active data set to stat ctls
}
void CErrorAnal_dlg::set_tabs()
{
m_featr_type_tab.DeleteAllItems();
if (m_separam) {
m_featr_type_tab.InsertItem(0,"Peak");
m_featr_type_tab.InsertItem(1,"Saddle");
}
else m_featr_type_tab.InsertItem(0,"Peak && Saddle");
list_stats();
compute_stats(0);
update_option_ctls();
update_stat_param_ctls();
}
void CErrorAnal_dlg::OnOptions()
{
CStatOptions_dlg dlg;
Stat_options& options=active_data()->options;
dlg.m_symmetry=options.symmetry;
dlg.m_min_nbr=options.mns;
dlg.m_measr_error=options.measr_err;
dlg.m_convolutn=options.nconv_inuse>0;
if (dlg.DoModal()!=IDOK) return;
options.symmetry=(Stat_options::Symmetry)dlg.m_symmetry;
options.mns=(Stat_options::Min_nbr_set)dlg.m_min_nbr;
options.measr_err=dlg.m_measr_error!=FALSE;
options.nconv_inuse=dlg.m_convolutn?1:0;
list_stats();
compute_stats();
update_stat_param_ctls();
}
int
dodecompress(const char *in, char *out, const struct compressor *method,
int bits, struct stat *sb)
{
u_char buf[Z_BUFSIZE];
char oldname[MAXPATHLEN];
int error, oreg, ifd, ofd;
void *cookie;
ssize_t nr;
struct z_info info;
struct stat osb;
oreg = 0;
error = SUCCESS;
cookie = NULL;
if (pipin)
ifd = dup(STDIN_FILENO);
else
ifd = open(in, O_RDONLY);
if (ifd < 0) {
if (verbose >= 0)
warn("%s", in);
return -1;
}
if (!force && isatty(ifd)) {
if (verbose >= 0)
warnx("%s: won't read compressed data from terminal",
in);
close (ifd);
return -1;
}
if ((method = check_method(ifd)) == NULL) {
if (verbose >= 0)
warnx("%s: unrecognized file format", in);
close (ifd);
return -1;
}
/* XXX - open constrains outfile to MAXPATHLEN so this is safe */
oldname[0] = '\0';
if ((cookie = (*method->open)(ifd, "r", oldname, bits, 0, 1)) == NULL) {
if (verbose >= 0)
warn("%s", in);
close (ifd);
return (FAILURE);
}
if (storename && oldname[0] != '\0') {
strlcpy(out, oldname, MAXPATHLEN);
cat = 0; /* XXX should -c override? */
}
if (testmode)
ofd = -1;
else {
if (cat)
ofd = dup(STDOUT_FILENO);
else {
if (stat(out, &osb) == 0) {
oreg = S_ISREG(osb.st_mode);
if (!force && oreg && !permission(out)) {
(void) close(ifd);
return (WARNING);
}
}
ofd = open(out, O_WRONLY|O_CREAT|O_TRUNC, S_IWUSR);
}
if (ofd < 0) {
if (verbose >= 0)
warn("%s", in);
(method->close)(cookie, NULL, NULL, NULL);
return (FAILURE);
}
}
while ((nr = (method->read)(cookie, buf, sizeof(buf))) > 0) {
if (ofd != -1 && write(ofd, buf, nr) != nr) {
if (verbose >= 0)
warn("%s", out);
error = FAILURE;
break;
}
}
if (!error && nr < 0) {
if (verbose >= 0)
warnx("%s: %s", in,
errno == EINVAL ? "crc error" : strerror(errno));
error = errno == EINVAL ? WARNING : FAILURE;
}
if ((method->close)(cookie, &info, NULL, NULL)) {
if (!error && verbose >= 0)
warnx("%s", in);
error = FAILURE;
}
if (storename && !cat) {
if (info.mtime != 0) {
sb->st_mtimespec.tv_sec =
sb->st_atimespec.tv_sec = info.mtime;
sb->st_mtimespec.tv_nsec =
sb->st_atimespec.tv_nsec = 0;
} else
storename = 0; /* no timestamp to restore */
}
if (error == SUCCESS)
setfile(out, ofd, sb);
if (ofd != -1 && close(ofd)) {
if (!error && verbose >= 0)
warn("%s", out);
error = FAILURE;
}
if (!error) {
if (list) {
if (info.mtime == 0)
info.mtime = (u_int32_t)sb->st_mtime;
list_stats(out, method, &info);
} else if (verbose > 0) {
verbose_info(out, info.total_in, info.total_out,
info.hlen);
}
}
/* On error, clean up the file we created but preserve errno. */
if (error && oreg)
unlink(out);
return (error);
}
int
main(int argc, char *argv[])
{
FTS *ftsp;
FTSENT *entry;
const struct compressor *method;
const char *s;
char *p, *infile;
char outfile[MAXPATHLEN], _infile[MAXPATHLEN], suffix[16];
char *nargv[512]; /* some estimate based on ARG_MAX */
int bits, ch, error, i, rc, cflag, oflag;
static const char *optstr[3] = {
"123456789ab:cdfghlLnNOo:qrS:tvV",
"cfhlNno:qrtv",
"fghqr"
};
bits = cflag = oflag = 0;
storename = -1;
p = __progname;
if (p[0] == 'g') {
method = M_DEFLATE;
bits = 6;
p++;
} else
#ifdef SMALL
method = M_DEFLATE;
#else
method = M_COMPRESS;
#endif /* SMALL */
decomp = 0;
pmode = MODE_COMP;
if (!strcmp(p, "zcat")) {
decomp++;
cflag = 1;
pmode = MODE_CAT;
} else {
if (p[0] == 'u' && p[1] == 'n') {
p += 2;
decomp++;
pmode = MODE_DECOMP;
}
if (strcmp(p, "zip") &&
strcmp(p, "compress"))
errx(1, "unknown program name");
}
strlcpy(suffix, method->suffix, sizeof(suffix));
nargv[0] = NULL;
if (method == M_DEFLATE && (p = getenv("GZIP")) != NULL) {
char *last;
nargv[0] = *argv++;
for (i = 1, (p = strtok_r(p, " ", &last)); p != NULL;
(p = strtok_r(NULL, " ", &last)), i++)
if (i < sizeof(nargv)/sizeof(nargv[1]) - argc - 1)
nargv[i] = p;
else
errx(1, "GZIP is too long");
argc += i - 1;
while ((nargv[i++] = *argv++))
;
argv = nargv;
}
while ((ch = getopt_long(argc, argv, optstr[pmode], longopts, NULL)) != -1)
switch(ch) {
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
method = M_DEFLATE;
strlcpy(suffix, method->suffix, sizeof(suffix));
bits = ch - '0';
break;
case 'a':
warnx("option -a is ignored on this system");
break;
case 'b':
bits = strtol(optarg, &p, 10);
/*
* POSIX 1002.3 says 9 <= bits <= 14 for portable
* apps, but says the implementation may allow
* greater.
*/
if (*p)
errx(1, "illegal bit count -- %s", optarg);
break;
case 'c':
cflag = 1;
break;
case 'd': /* Backward compatible. */
decomp++;
break;
case 'f':
force++;
break;
case 'g':
method = M_DEFLATE;
strlcpy(suffix, method->suffix, sizeof(suffix));
bits = 6;
break;
case 'l':
list++;
testmode = 1;
decomp++;
break;
case 'n':
storename = 0;
break;
case 'N':
storename = 1;
break;
#ifndef SMALL
case 'O':
method = M_COMPRESS;
strlcpy(suffix, method->suffix, sizeof(suffix));
break;
#endif /* SMALL */
case 'o':
if (strlcpy(outfile, optarg,
sizeof(outfile)) >= sizeof(outfile))
errx(1, "-o argument is too long");
oflag = 1;
break;
case 'q':
verbose = -1;
break;
case 'S':
p = suffix;
if (optarg[0] != '.')
*p++ = '.';
strlcpy(p, optarg, sizeof(suffix) - (p - suffix));
p = optarg;
break;
case 't':
testmode = 1;
decomp++;
break;
#ifndef SMALL
case 'V':
printf("%s\n%s\n", main_rcsid, gz_rcsid);
printf("%s\n%s\n", z_rcsid, null_rcsid);
#endif
exit (0);
case 'v':
verbose++;
break;
#ifndef SMALL
case 'L':
fputs(copyright, stderr);
fputs(license, stderr);
#endif
exit (0);
case 'r':
recurse++;
break;
case 'h':
usage(0);
break;
default:
usage(1);
}
argc -= optind;
argv += optind;
if (argc == 0) {
if (nargv[0] == NULL)
argv = nargv;
/* XXX - make sure we don't oflow nargv in $GZIP case (millert) */
argv[0] = "-";
argv[1] = NULL;
}
if (oflag && (recurse || argc > 1))
errx(1, "-o option may only be used with a single input file");
if ((cat && argc) + testmode + oflag > 1)
errx(1, "may not mix -o, -c, or -t options");
/*
* By default, when compressing store the original name and timestamp
* in the header. Do not restore these when decompressing unless
* the -N option is given.
*/
if (storename == -1)
storename = !decomp;
if ((ftsp = fts_open(argv, FTS_PHYSICAL|FTS_NOCHDIR, 0)) == NULL)
err(1, NULL);
for (rc = SUCCESS; (entry = fts_read(ftsp)) != NULL;) {
cat = cflag;
pipin = 0;
infile = entry->fts_path;
if (infile[0] == '-' && infile[1] == '\0') {
infile = "stdin";
pipin++;
if (!oflag)
cat = 1;
}
else
switch (entry->fts_info) {
case FTS_D:
if (!recurse) {
warnx("%s is a directory: ignored",
infile);
fts_set(ftsp, entry, FTS_SKIP);
}
continue;
case FTS_DP:
continue;
case FTS_NS:
/*
* If file does not exist and has no suffix,
* tack on the default suffix and try that.
*/
if (entry->fts_errno == ENOENT) {
p = strrchr(entry->fts_accpath, '.');
if ((p == NULL ||
strcmp(p, suffix) != 0) &&
snprintf(_infile, sizeof(_infile),
"%s%s", infile, suffix) <
sizeof(_infile) &&
stat(_infile, entry->fts_statp) ==
0 &&
S_ISREG(entry->fts_statp->st_mode)) {
infile = _infile;
break;
}
}
case FTS_ERR:
case FTS_DNR:
warnx("%s: %s", infile,
strerror(entry->fts_errno));
rc = rc ? rc : WARNING;
continue;
default:
if (!S_ISREG(entry->fts_statp->st_mode) &&
!(S_ISLNK(entry->fts_statp->st_mode) &&
cat)) {
warnx("%s not a regular file%s",
infile, cat ? "" : ": unchanged");
rc = rc ? rc : WARNING;
continue;
}
break;
}
if (!decomp && !pipin && (s = check_suffix(infile)) != NULL) {
warnx("%s already has %s suffix -- unchanged",
infile, s);
rc = rc ? rc : WARNING;
continue;
}
if (!oflag) {
if (cat)
strlcpy(outfile, "stdout", sizeof(outfile));
else if (decomp) {
if (set_outfile(infile, outfile,
sizeof outfile) == NULL) {
if (!recurse) {
warnx("%s: unknown suffix: "
"ignored", infile);
rc = rc ? rc : WARNING;
}
continue;
}
} else {
if (snprintf(outfile, sizeof(outfile),
"%s%s", infile, suffix) >= sizeof(outfile)) {
warnx("%s%s: name too long",
infile, suffix);
rc = rc ? rc : WARNING;
continue;
}
}
}
if (verbose > 0 && !pipin && !list)
fprintf(stderr, "%s:\t", infile);
error = (decomp ? dodecompress : docompress)
(infile, outfile, method, bits, entry->fts_statp);
switch (error) {
case SUCCESS:
if (!cat && !testmode) {
if (!pipin && unlink(infile) && verbose >= 0)
warn("input: %s", infile);
}
break;
case WARNING:
rc = rc ? rc : WARNING;
break;
default:
rc = FAILURE;
break;
}
}
if (list)
list_stats(NULL, NULL, NULL);
exit(rc);
}
