compiler/libjpeg/test/cdjpeg.c

   1 /*
   2     $Id$
   3 */
   4
   5 /*
   6  * cdjpeg.c
   7  *
   8  * Copyright (C) 1991-1997, Thomas G. Lane.
   9  * This file is part of the Independent JPEG Group's software.
  10  * For conditions of distribution and use, see the accompanying README file.
  11  *
  12  * This file contains common support routines used by the IJG application
  13  * programs (cjpeg, djpeg, jpegtran).
  14  */
  15
  16 #include "cdjpeg.h"             /* Common decls for cjpeg/djpeg applications */
  17 #include <ctype.h>              /* to declare isupper(), tolower() */
  18 #ifdef NEED_SIGNAL_CATCHER
  19 #include <signal.h>             /* to declare signal() */
  20 #endif
  21 #ifdef USE_SETMODE
  22 #include <fcntl.h>              /* to declare setmode()'s parameter macros */
  23 /* If you have setmode() but not <io.h>, just delete this line: */
  24 #include <io.h>                 /* to declare setmode() */
  25 #endif
  26
  27
  28 /*
  29  * Signal catcher to ensure that temporary files are removed before aborting.
  30  * NB: for Amiga Manx C this is actually a global routine named _abort();
  31  * we put "#define signal_catcher _abort" in jconfig.h.  Talk about bogus...
  32  */
  33
  34 #ifdef NEED_SIGNAL_CATCHER
  35
  36 static j_common_ptr sig_cinfo;
  37
  38 void                            /* must be global for Manx C */
  39 signal_catcher (int signum)
  40 {
  41   if (sig_cinfo != NULL) {
  42     if (sig_cinfo->err != NULL) /* turn off trace output */
  43       sig_cinfo->err->trace_level = 0;
  44     jpeg_destroy(sig_cinfo);    /* clean up memory allocation & temp files */
  45   }
  46   exit(EXIT_FAILURE);
  47 }
  48
  49
  50 JGLOBAL(void)
  51 enable_signal_catcher (j_common_ptr cinfo)
  52 {
  53   sig_cinfo = cinfo;
  54 #ifdef SIGINT                   /* not all systems have SIGINT */
  55   signal(SIGINT, signal_catcher);
  56 #endif
  57 #ifdef SIGTERM                  /* not all systems have SIGTERM */
  58   signal(SIGTERM, signal_catcher);
  59 #endif
  60 }
  61
  62 #endif
  63
  64
  65 /*
  66  * Optional progress monitor: display a percent-done figure on stderr.
  67  */
  68
  69 #ifdef PROGRESS_REPORT
  70
  71 METHODDEF(void)
  72 progress_monitor (j_common_ptr cinfo)
  73 {
  74   cd_progress_ptr prog = (cd_progress_ptr) cinfo->progress;
  75   int total_passes = prog->pub.total_passes + prog->total_extra_passes;
  76   int percent_done = (int) (prog->pub.pass_counter*100L/prog->pub.pass_limit);
  77
  78   if (percent_done != prog->percent_done) {
  79     prog->percent_done = percent_done;
  80     if (total_passes > 1) {
  81       fprintf(stderr, "\rPass %d/%d: %3d%% ",
  82               prog->pub.completed_passes + prog->completed_extra_passes + 1,
  83               total_passes, percent_done);
  84     } else {
  85       fprintf(stderr, "\r %3d%% ", percent_done);
  86     }
  87     fflush(stderr);
  88   }
  89 }
  90
  91
  92 JGLOBAL(void)
  93 start_progress_monitor (j_common_ptr cinfo, cd_progress_ptr progress)
  94 {
  95   /* Enable progress display, unless trace output is on */
  96   if (cinfo->err->trace_level == 0) {
  97     progress->pub.progress_monitor = progress_monitor;
  98     progress->completed_extra_passes = 0;
  99     progress->total_extra_passes = 0;
 100     progress->percent_done = -1;
 101     cinfo->progress = &progress->pub;
 102   }
 103 }
 104
 105
 106 JGLOBAL(void)
 107 end_progress_monitor (j_common_ptr cinfo)
 108 {
 109   /* Clear away progress display */
 110   if (cinfo->err->trace_level == 0) {
 111     fprintf(stderr, "\r                \r");
 112     fflush(stderr);
 113   }
 114 }
 115
 116 #endif
 117
 118
 119 /*
 120  * Case-insensitive matching of possibly-abbreviated keyword switches.
 121  * keyword is the constant keyword (must be lower case already),
 122  * minchars is length of minimum legal abbreviation.
 123  */
 124
 125 JGLOBAL(boolean)
 126 keymatch (char * arg, const char * keyword, int minchars)
 127 {
 128   register int ca, ck;
 129   register int nmatched = 0;
 130
 131   while ((ca = *arg++) != '\0') {
 132     if ((ck = *keyword++) == '\0')
 133       return FALSE;             /* arg longer than keyword, no good */
 134     if (isupper(ca))            /* force arg to lcase (assume ck is already) */
 135       ca = tolower(ca);
 136     if (ca != ck)
 137       return FALSE;             /* no good */
 138     nmatched++;                 /* count matched characters */
 139   }
 140   /* reached end of argument; fail if it's too short for unique abbrev */
 141   if (nmatched < minchars)
 142     return FALSE;
 143   return TRUE;                  /* A-OK */
 144 }
 145
 146
 147 /*
 148  * Routines to establish binary I/O mode for stdin and stdout.
 149  * Non-Unix systems often require some hacking to get out of text mode.
 150  */
 151
 152 JGLOBAL(FILE *)
 153 read_stdin (void)
 154 {
 155   FILE * input_file = stdin;
 156
 157 #ifdef USE_SETMODE              /* need to hack file mode? */
 158   setmode(fileno(stdin), O_BINARY);
 159 #endif
 160 #ifdef USE_FDOPEN               /* need to re-open in binary mode? */
 161   if ((input_file = fdopen(fileno(stdin), READ_BINARY)) == NULL) {
 162     fprintf(stderr, "Cannot reopen stdin\n");
 163     exit(EXIT_FAILURE);
 164   }
 165 #endif
 166   return input_file;
 167 }
 168
 169
 170 JGLOBAL(FILE *)
 171 write_stdout (void)
 172 {
 173   FILE * output_file = stdout;
 174
 175 #ifdef USE_SETMODE              /* need to hack file mode? */
 176   setmode(fileno(stdout), O_BINARY);
 177 #endif
 178 #ifdef USE_FDOPEN               /* need to re-open in binary mode? */
 179   if ((output_file = fdopen(fileno(stdout), WRITE_BINARY)) == NULL) {
 180     fprintf(stderr, "Cannot reopen stdout\n");
 181     exit(EXIT_FAILURE);
 182   }
 183 #endif
 184   return output_file;
 185 }