third_party/libjpeg-turbo/rdswitch.c - cobalt - Git at Google

 /*
  * rdswitch.c
  *
  * This file was part of the Independent JPEG Group's software:
  * Copyright (C) 1991-1996, Thomas G. Lane.
  * libjpeg-turbo Modifications:
  * Copyright (C) 2010, 2018, 2022, D. R. Commander.
  * For conditions of distribution and use, see the accompanying README.ijg
  * file.
  *
  * This file contains routines to process some of cjpeg's more complicated
  * command-line switches.  Switches processed here are:
  *      -qtables file           Read quantization tables from text file
  *      -scans file             Read scan script from text file
  *      -quality N[,N,...]      Set quality ratings
  *      -qslots N[,N,...]       Set component quantization table selectors
  *      -sample HxV[,HxV,...]   Set component sampling factors
  */

 #ifdef _MSC_VER
 #define _CRT_SECURE_NO_DEPRECATE
 #endif

 #include "cdjpeg.h"             /* Common decls for cjpeg/djpeg applications */
 #include <ctype.h>              /* to declare isdigit(), isspace() */


 LOCAL(int)
 text_getc(FILE *file)
 /* Read next char, skipping over any comments (# to end of line) */
 /* A comment/newline sequence is returned as a newline */
 {
   register int ch;

   ch = getc(file);
   if (ch == '#') {
     do {
       ch = getc(file);
     } while (ch != '\n' && ch != EOF);
   }
   return ch;
 }


 LOCAL(boolean)
 read_text_integer(FILE *file, long *result, int *termchar)
 /* Read an unsigned decimal integer from a file, store it in result */
 /* Reads one trailing character after the integer; returns it in termchar */
 {
   register int ch;
   register long val;

   /* Skip any leading whitespace, detect EOF */
   do {
     ch = text_getc(file);
     if (ch == EOF) {
       *termchar = ch;
       return FALSE;
     }
   } while (isspace(ch));

   if (!isdigit(ch)) {
     *termchar = ch;
     return FALSE;
   }

   val = ch - '0';
   while ((ch = text_getc(file)) != EOF) {
     if (!isdigit(ch))
       break;
     val *= 10;
     val += ch - '0';
   }
   *result = val;
   *termchar = ch;
   return TRUE;
 }


 #if JPEG_LIB_VERSION < 70
 static int q_scale_factor[NUM_QUANT_TBLS] = { 100, 100, 100, 100 };
 #endif

 GLOBAL(boolean)
 read_quant_tables(j_compress_ptr cinfo, char *filename, boolean force_baseline)
 /* Read a set of quantization tables from the specified file.
  * The file is plain ASCII text: decimal numbers with whitespace between.
  * Comments preceded by '#' may be included in the file.
  * There may be one to NUM_QUANT_TBLS tables in the file, each of 64 values.
  * The tables are implicitly numbered 0,1,etc.
  * NOTE: does not affect the qslots mapping, which will default to selecting
  * table 0 for luminance (or primary) components, 1 for chrominance components.
  * You must use -qslots if you want a different component->table mapping.
  */
 {
   FILE *fp;
   int tblno, i, termchar;
   long val;
   unsigned int table[DCTSIZE2];

   if ((fp = fopen(filename, "r")) == NULL) {
     fprintf(stderr, "Can't open table file %s\n", filename);
     return FALSE;
   }
   tblno = 0;

   while (read_text_integer(fp, &val, &termchar)) { /* read 1st element of table */
     if (tblno >= NUM_QUANT_TBLS) {
       fprintf(stderr, "Too many tables in file %s\n", filename);
       fclose(fp);
       return FALSE;
     }
     table[0] = (unsigned int)val;
     for (i = 1; i < DCTSIZE2; i++) {
       if (!read_text_integer(fp, &val, &termchar)) {
         fprintf(stderr, "Invalid table data in file %s\n", filename);
         fclose(fp);
         return FALSE;
       }
       table[i] = (unsigned int)val;
     }
 #if JPEG_LIB_VERSION >= 70
     jpeg_add_quant_table(cinfo, tblno, table, cinfo->q_scale_factor[tblno],
                          force_baseline);
 #else
     jpeg_add_quant_table(cinfo, tblno, table, q_scale_factor[tblno],
                          force_baseline);
 #endif
     tblno++;
   }

   if (termchar != EOF) {
     fprintf(stderr, "Non-numeric data in file %s\n", filename);
     fclose(fp);
     return FALSE;
   }

   fclose(fp);
   return TRUE;
 }


 #ifdef C_MULTISCAN_FILES_SUPPORTED

 LOCAL(boolean)
 read_scan_integer(FILE *file, long *result, int *termchar)
 /* Variant of read_text_integer that always looks for a non-space termchar;
  * this simplifies parsing of punctuation in scan scripts.
  */
 {
   register int ch;

   if (!read_text_integer(file, result, termchar))
     return FALSE;
   ch = *termchar;
   while (ch != EOF && isspace(ch))
     ch = text_getc(file);
   if (isdigit(ch)) {            /* oops, put it back */
     if (ungetc(ch, file) == EOF)
       return FALSE;
     ch = ' ';
   } else {
     /* Any separators other than ';' and ':' are ignored;
      * this allows user to insert commas, etc, if desired.
      */
     if (ch != EOF && ch != ';' && ch != ':')
       ch = ' ';
   }
   *termchar = ch;
   return TRUE;
 }


 GLOBAL(boolean)
 read_scan_script(j_compress_ptr cinfo, char *filename)
 /* Read a scan script from the specified text file.
  * Each entry in the file defines one scan to be emitted.
  * Entries are separated by semicolons ';'.
  * An entry contains one to four component indexes,
  * optionally followed by a colon ':' and four progressive-JPEG parameters.
  * The component indexes denote which component(s) are to be transmitted
  * in the current scan.  The first component has index 0.
  * Sequential JPEG is used if the progressive-JPEG parameters are omitted.
  * The file is free format text: any whitespace may appear between numbers
  * and the ':' and ';' punctuation marks.  Also, other punctuation (such
  * as commas or dashes) can be placed between numbers if desired.
  * Comments preceded by '#' may be included in the file.
  * Note: we do very little validity checking here;
  * jcmaster.c will validate the script parameters.
  */
 {
   FILE *fp;
   int scanno, ncomps, termchar;
   long val;
   jpeg_scan_info *scanptr;
 #define MAX_SCANS  100          /* quite arbitrary limit */
   jpeg_scan_info scans[MAX_SCANS];

   if ((fp = fopen(filename, "r")) == NULL) {
     fprintf(stderr, "Can't open scan definition file %s\n", filename);
     return FALSE;
   }
   scanptr = scans;
   scanno = 0;

   while (read_scan_integer(fp, &val, &termchar)) {
     if (scanno >= MAX_SCANS) {
       fprintf(stderr, "Too many scans defined in file %s\n", filename);
       fclose(fp);
       return FALSE;
     }
     scanptr->component_index[0] = (int)val;
     ncomps = 1;
     while (termchar == ' ') {
       if (ncomps >= MAX_COMPS_IN_SCAN) {
         fprintf(stderr, "Too many components in one scan in file %s\n",
                 filename);
         fclose(fp);
         return FALSE;
       }
       if (!read_scan_integer(fp, &val, &termchar))
         goto bogus;
       scanptr->component_index[ncomps] = (int)val;
       ncomps++;
     }
     scanptr->comps_in_scan = ncomps;
     if (termchar == ':') {
       if (!read_scan_integer(fp, &val, &termchar) || termchar != ' ')
         goto bogus;
       scanptr->Ss = (int)val;
       if (!read_scan_integer(fp, &val, &termchar) || termchar != ' ')
         goto bogus;
       scanptr->Se = (int)val;
       if (!read_scan_integer(fp, &val, &termchar) || termchar != ' ')
         goto bogus;
       scanptr->Ah = (int)val;
       if (!read_scan_integer(fp, &val, &termchar))
         goto bogus;
       scanptr->Al = (int)val;
     } else {
       /* set non-progressive parameters */
       scanptr->Ss = 0;
       scanptr->Se = DCTSIZE2 - 1;
       scanptr->Ah = 0;
       scanptr->Al = 0;
     }
     if (termchar != ';' && termchar != EOF) {
 bogus:
       fprintf(stderr, "Invalid scan entry format in file %s\n", filename);
       fclose(fp);
       return FALSE;
     }
     scanptr++, scanno++;
   }

   if (termchar != EOF) {
     fprintf(stderr, "Non-numeric data in file %s\n", filename);
     fclose(fp);
     return FALSE;
   }

   if (scanno > 0) {
     /* Stash completed scan list in cinfo structure.
      * NOTE: for cjpeg's use, JPOOL_IMAGE is the right lifetime for this data,
      * but if you want to compress multiple images you'd want JPOOL_PERMANENT.
      */
     scanptr = (jpeg_scan_info *)
       (*cinfo->mem->alloc_small) ((j_common_ptr)cinfo, JPOOL_IMAGE,
                                   scanno * sizeof(jpeg_scan_info));
     memcpy(scanptr, scans, scanno * sizeof(jpeg_scan_info));
     cinfo->scan_info = scanptr;
     cinfo->num_scans = scanno;
   }

   fclose(fp);
   return TRUE;
 }

 #endif /* C_MULTISCAN_FILES_SUPPORTED */


 #if JPEG_LIB_VERSION < 70
 /* These are the sample quantization tables given in Annex K (Clause K.1) of
  * Recommendation ITU-T T.81 (1992) | ISO/IEC 10918-1:1994.
  * The spec says that the values given produce "good" quality, and
  * when divided by 2, "very good" quality.
  */
 static const unsigned int std_luminance_quant_tbl[DCTSIZE2] = {
   16,  11,  10,  16,  24,  40,  51,  61,
   12,  12,  14,  19,  26,  58,  60,  55,
   14,  13,  16,  24,  40,  57,  69,  56,
   14,  17,  22,  29,  51,  87,  80,  62,
   18,  22,  37,  56,  68, 109, 103,  77,
   24,  35,  55,  64,  81, 104, 113,  92,
   49,  64,  78,  87, 103, 121, 120, 101,
   72,  92,  95,  98, 112, 100, 103,  99
 };
 static const unsigned int std_chrominance_quant_tbl[DCTSIZE2] = {
   17,  18,  24,  47,  99,  99,  99,  99,
   18,  21,  26,  66,  99,  99,  99,  99,
   24,  26,  56,  99,  99,  99,  99,  99,
   47,  66,  99,  99,  99,  99,  99,  99,
   99,  99,  99,  99,  99,  99,  99,  99,
   99,  99,  99,  99,  99,  99,  99,  99,
   99,  99,  99,  99,  99,  99,  99,  99,
   99,  99,  99,  99,  99,  99,  99,  99
 };


 LOCAL(void)
 jpeg_default_qtables(j_compress_ptr cinfo, boolean force_baseline)
 {
   jpeg_add_quant_table(cinfo, 0, std_luminance_quant_tbl, q_scale_factor[0],
                        force_baseline);
   jpeg_add_quant_table(cinfo, 1, std_chrominance_quant_tbl, q_scale_factor[1],
                        force_baseline);
 }
 #endif


 GLOBAL(boolean)
 set_quality_ratings(j_compress_ptr cinfo, char *arg, boolean force_baseline)
 /* Process a quality-ratings parameter string, of the form
  *     N[,N,...]
  * If there are more q-table slots than parameters, the last value is replicated.
  */
 {
   int val = 75;                 /* default value */
   int tblno;
   char ch;

   for (tblno = 0; tblno < NUM_QUANT_TBLS; tblno++) {
     if (*arg) {
       ch = ',';                 /* if not set by sscanf, will be ',' */
       if (sscanf(arg, "%d%c", &val, &ch) < 1)
         return FALSE;
       if (ch != ',')            /* syntax check */
         return FALSE;
       /* Convert user 0-100 rating to percentage scaling */
 #if JPEG_LIB_VERSION >= 70
       cinfo->q_scale_factor[tblno] = jpeg_quality_scaling(val);
 #else
       q_scale_factor[tblno] = jpeg_quality_scaling(val);
 #endif
       while (*arg && *arg++ != ','); /* advance to next segment of arg
                                         string */
     } else {
       /* reached end of parameter, set remaining factors to last value */
 #if JPEG_LIB_VERSION >= 70
       cinfo->q_scale_factor[tblno] = jpeg_quality_scaling(val);
 #else
       q_scale_factor[tblno] = jpeg_quality_scaling(val);
 #endif
     }
   }
   jpeg_default_qtables(cinfo, force_baseline);
   return TRUE;
 }


 GLOBAL(boolean)
 set_quant_slots(j_compress_ptr cinfo, char *arg)
 /* Process a quantization-table-selectors parameter string, of the form
  *     N[,N,...]
  * If there are more components than parameters, the last value is replicated.
  */
 {
   int val = 0;                  /* default table # */
   int ci;
   char ch;

   for (ci = 0; ci < MAX_COMPONENTS; ci++) {
     if (*arg) {
       ch = ',';                 /* if not set by sscanf, will be ',' */
       if (sscanf(arg, "%d%c", &val, &ch) < 1)
         return FALSE;
       if (ch != ',')            /* syntax check */
         return FALSE;
       if (val < 0 || val >= NUM_QUANT_TBLS) {
         fprintf(stderr, "JPEG quantization tables are numbered 0..%d\n",
                 NUM_QUANT_TBLS - 1);
         return FALSE;
       }
       cinfo->comp_info[ci].quant_tbl_no = val;
       while (*arg && *arg++ != ','); /* advance to next segment of arg
                                         string */
     } else {
       /* reached end of parameter, set remaining components to last table */
       cinfo->comp_info[ci].quant_tbl_no = val;
     }
   }
   return TRUE;
 }


 GLOBAL(boolean)
 set_sample_factors(j_compress_ptr cinfo, char *arg)
 /* Process a sample-factors parameter string, of the form
  *     HxV[,HxV,...]
  * If there are more components than parameters, "1x1" is assumed for the rest.
  */
 {
   int ci, val1, val2;
   char ch1, ch2;

   for (ci = 0; ci < MAX_COMPONENTS; ci++) {
     if (*arg) {
       ch2 = ',';                /* if not set by sscanf, will be ',' */
       if (sscanf(arg, "%d%c%d%c", &val1, &ch1, &val2, &ch2) < 3)
         return FALSE;
       if ((ch1 != 'x' && ch1 != 'X') || ch2 != ',') /* syntax check */
         return FALSE;
       if (val1 <= 0 || val1 > 4 || val2 <= 0 || val2 > 4) {
         fprintf(stderr, "JPEG sampling factors must be 1..4\n");
         return FALSE;
       }
       cinfo->comp_info[ci].h_samp_factor = val1;
       cinfo->comp_info[ci].v_samp_factor = val2;
       while (*arg && *arg++ != ',');  /* advance to next segment of arg
                                          string */
     } else {
       /* reached end of parameter, set remaining components to 1x1 sampling */
       cinfo->comp_info[ci].h_samp_factor = 1;
       cinfo->comp_info[ci].v_samp_factor = 1;
     }
   }
   return TRUE;
 }
	/*
	* rdswitch.c
	*
	* This file was part of the Independent JPEG Group's software:
	* Copyright (C) 1991-1996, Thomas G. Lane.
	* libjpeg-turbo Modifications:
	* Copyright (C) 2010, 2018, 2022, D. R. Commander.
	* For conditions of distribution and use, see the accompanying README.ijg
	* file.
	*
	* This file contains routines to process some of cjpeg's more complicated
	* command-line switches. Switches processed here are:
	* -qtables file Read quantization tables from text file
	* -scans file Read scan script from text file
	* -quality N[,N,...] Set quality ratings
	* -qslots N[,N,...] Set component quantization table selectors
	* -sample HxV[,HxV,...] Set component sampling factors
	*/

	#ifdef _MSC_VER
	#define _CRT_SECURE_NO_DEPRECATE
	#endif

	#include "cdjpeg.h" /* Common decls for cjpeg/djpeg applications */
	#include <ctype.h> /* to declare isdigit(), isspace() */


	LOCAL(int)
	text_getc(FILE *file)
	/* Read next char, skipping over any comments (# to end of line) */
	/* A comment/newline sequence is returned as a newline */
	{
	register int ch;

	ch = getc(file);
	if (ch == '#') {
	do {
	ch = getc(file);
	} while (ch != '\n' && ch != EOF);
	}
	return ch;
	}


	LOCAL(boolean)
	read_text_integer(FILE file, long result, int *termchar)
	/* Read an unsigned decimal integer from a file, store it in result */
	/* Reads one trailing character after the integer; returns it in termchar */
	{
	register int ch;
	register long val;

	/* Skip any leading whitespace, detect EOF */
	do {
	ch = text_getc(file);
	if (ch == EOF) {
	*termchar = ch;
	return FALSE;
	}
	} while (isspace(ch));

	if (!isdigit(ch)) {
	*termchar = ch;
	return FALSE;
	}

	val = ch - '0';
	while ((ch = text_getc(file)) != EOF) {
	if (!isdigit(ch))
	break;
	val *= 10;
	val += ch - '0';
	}
	*result = val;
	*termchar = ch;
	return TRUE;
	}


	#if JPEG_LIB_VERSION < 70
	static int q_scale_factor[NUM_QUANT_TBLS] = { 100, 100, 100, 100 };
	#endif

	GLOBAL(boolean)
	read_quant_tables(j_compress_ptr cinfo, char *filename, boolean force_baseline)
	/* Read a set of quantization tables from the specified file.
	* The file is plain ASCII text: decimal numbers with whitespace between.
	* Comments preceded by '#' may be included in the file.
	* There may be one to NUM_QUANT_TBLS tables in the file, each of 64 values.
	* The tables are implicitly numbered 0,1,etc.
	* NOTE: does not affect the qslots mapping, which will default to selecting
	* table 0 for luminance (or primary) components, 1 for chrominance components.
	* You must use -qslots if you want a different component->table mapping.
	*/
	{
	FILE *fp;
	int tblno, i, termchar;
	long val;
	unsigned int table[DCTSIZE2];

	if ((fp = fopen(filename, "r")) == NULL) {
	fprintf(stderr, "Can't open table file %s\n", filename);
	return FALSE;
	}
	tblno = 0;

	while (read_text_integer(fp, &val, &termchar)) { /* read 1st element of table */
	if (tblno >= NUM_QUANT_TBLS) {
	fprintf(stderr, "Too many tables in file %s\n", filename);
	fclose(fp);
	return FALSE;
	}
	table[0] = (unsigned int)val;
	for (i = 1; i < DCTSIZE2; i++) {
	if (!read_text_integer(fp, &val, &termchar)) {
	fprintf(stderr, "Invalid table data in file %s\n", filename);
	fclose(fp);
	return FALSE;
	}
	table[i] = (unsigned int)val;
	}
	#if JPEG_LIB_VERSION >= 70
	jpeg_add_quant_table(cinfo, tblno, table, cinfo->q_scale_factor[tblno],
	force_baseline);
	#else
	jpeg_add_quant_table(cinfo, tblno, table, q_scale_factor[tblno],
	force_baseline);
	#endif
	tblno++;
	}

	if (termchar != EOF) {
	fprintf(stderr, "Non-numeric data in file %s\n", filename);
	fclose(fp);
	return FALSE;
	}

	fclose(fp);
	return TRUE;
	}


	#ifdef C_MULTISCAN_FILES_SUPPORTED

	LOCAL(boolean)
	read_scan_integer(FILE file, long result, int *termchar)
	/* Variant of read_text_integer that always looks for a non-space termchar;
	* this simplifies parsing of punctuation in scan scripts.
	*/
	{
	register int ch;

	if (!read_text_integer(file, result, termchar))
	return FALSE;
	ch = *termchar;
	while (ch != EOF && isspace(ch))
	ch = text_getc(file);
	if (isdigit(ch)) { /* oops, put it back */
	if (ungetc(ch, file) == EOF)
	return FALSE;
	ch = ' ';
	} else {
	/* Any separators other than ';' and ':' are ignored;
	* this allows user to insert commas, etc, if desired.
	*/
	if (ch != EOF && ch != ';' && ch != ':')
	ch = ' ';
	}
	*termchar = ch;
	return TRUE;
	}


	GLOBAL(boolean)
	read_scan_script(j_compress_ptr cinfo, char *filename)
	/* Read a scan script from the specified text file.
	* Each entry in the file defines one scan to be emitted.
	* Entries are separated by semicolons ';'.
	* An entry contains one to four component indexes,
	* optionally followed by a colon ':' and four progressive-JPEG parameters.
	* The component indexes denote which component(s) are to be transmitted
	* in the current scan. The first component has index 0.
	* Sequential JPEG is used if the progressive-JPEG parameters are omitted.
	* The file is free format text: any whitespace may appear between numbers
	* and the ':' and ';' punctuation marks. Also, other punctuation (such
	* as commas or dashes) can be placed between numbers if desired.
	* Comments preceded by '#' may be included in the file.
	* Note: we do very little validity checking here;
	* jcmaster.c will validate the script parameters.
	*/
	{
	FILE *fp;
	int scanno, ncomps, termchar;
	long val;
	jpeg_scan_info *scanptr;
	#define MAX_SCANS 100 /* quite arbitrary limit */
	jpeg_scan_info scans[MAX_SCANS];

	if ((fp = fopen(filename, "r")) == NULL) {
	fprintf(stderr, "Can't open scan definition file %s\n", filename);
	return FALSE;
	}
	scanptr = scans;
	scanno = 0;

	while (read_scan_integer(fp, &val, &termchar)) {
	if (scanno >= MAX_SCANS) {
	fprintf(stderr, "Too many scans defined in file %s\n", filename);
	fclose(fp);
	return FALSE;
	}
	scanptr->component_index[0] = (int)val;
	ncomps = 1;
	while (termchar == ' ') {
	if (ncomps >= MAX_COMPS_IN_SCAN) {
	fprintf(stderr, "Too many components in one scan in file %s\n",
	filename);
	fclose(fp);
	return FALSE;
	}
	if (!read_scan_integer(fp, &val, &termchar))
	goto bogus;
	scanptr->component_index[ncomps] = (int)val;
	ncomps++;
	}
	scanptr->comps_in_scan = ncomps;
	if (termchar == ':') {
	if (!read_scan_integer(fp, &val, &termchar) \|\| termchar != ' ')
	goto bogus;
	scanptr->Ss = (int)val;
	if (!read_scan_integer(fp, &val, &termchar) \|\| termchar != ' ')
	goto bogus;
	scanptr->Se = (int)val;
	if (!read_scan_integer(fp, &val, &termchar) \|\| termchar != ' ')
	goto bogus;
	scanptr->Ah = (int)val;
	if (!read_scan_integer(fp, &val, &termchar))
	goto bogus;
	scanptr->Al = (int)val;
	} else {
	/* set non-progressive parameters */
	scanptr->Ss = 0;
	scanptr->Se = DCTSIZE2 - 1;
	scanptr->Ah = 0;
	scanptr->Al = 0;
	}
	if (termchar != ';' && termchar != EOF) {
	bogus:
	fprintf(stderr, "Invalid scan entry format in file %s\n", filename);
	fclose(fp);
	return FALSE;
	}
	scanptr++, scanno++;
	}

	if (termchar != EOF) {
	fprintf(stderr, "Non-numeric data in file %s\n", filename);
	fclose(fp);
	return FALSE;
	}

	if (scanno > 0) {
	/* Stash completed scan list in cinfo structure.
	* NOTE: for cjpeg's use, JPOOL_IMAGE is the right lifetime for this data,
	* but if you want to compress multiple images you'd want JPOOL_PERMANENT.
	*/
	scanptr = (jpeg_scan_info *)
	(*cinfo->mem->alloc_small) ((j_common_ptr)cinfo, JPOOL_IMAGE,
	scanno * sizeof(jpeg_scan_info));
	memcpy(scanptr, scans, scanno * sizeof(jpeg_scan_info));
	cinfo->scan_info = scanptr;
	cinfo->num_scans = scanno;
	}

	fclose(fp);
	return TRUE;
	}

	#endif /* C_MULTISCAN_FILES_SUPPORTED */


	#if JPEG_LIB_VERSION < 70
	/* These are the sample quantization tables given in Annex K (Clause K.1) of
	* Recommendation ITU-T T.81 (1992) \| ISO/IEC 10918-1:1994.
	* The spec says that the values given produce "good" quality, and
	* when divided by 2, "very good" quality.
	*/
	static const unsigned int std_luminance_quant_tbl[DCTSIZE2] = {
	16, 11, 10, 16, 24, 40, 51, 61,
	12, 12, 14, 19, 26, 58, 60, 55,
	14, 13, 16, 24, 40, 57, 69, 56,
	14, 17, 22, 29, 51, 87, 80, 62,
	18, 22, 37, 56, 68, 109, 103, 77,
	24, 35, 55, 64, 81, 104, 113, 92,
	49, 64, 78, 87, 103, 121, 120, 101,
	72, 92, 95, 98, 112, 100, 103, 99
	};
	static const unsigned int std_chrominance_quant_tbl[DCTSIZE2] = {
	17, 18, 24, 47, 99, 99, 99, 99,
	18, 21, 26, 66, 99, 99, 99, 99,
	24, 26, 56, 99, 99, 99, 99, 99,
	47, 66, 99, 99, 99, 99, 99, 99,
	99, 99, 99, 99, 99, 99, 99, 99,
	99, 99, 99, 99, 99, 99, 99, 99,
	99, 99, 99, 99, 99, 99, 99, 99,
	99, 99, 99, 99, 99, 99, 99, 99
	};


	LOCAL(void)
	jpeg_default_qtables(j_compress_ptr cinfo, boolean force_baseline)
	{
	jpeg_add_quant_table(cinfo, 0, std_luminance_quant_tbl, q_scale_factor[0],
	force_baseline);
	jpeg_add_quant_table(cinfo, 1, std_chrominance_quant_tbl, q_scale_factor[1],
	force_baseline);
	}
	#endif


	GLOBAL(boolean)
	set_quality_ratings(j_compress_ptr cinfo, char *arg, boolean force_baseline)
	/* Process a quality-ratings parameter string, of the form
	* N[,N,...]
	* If there are more q-table slots than parameters, the last value is replicated.
	*/
	{
	int val = 75; /* default value */
	int tblno;
	char ch;

	for (tblno = 0; tblno < NUM_QUANT_TBLS; tblno++) {
	if (*arg) {
	ch = ','; /* if not set by sscanf, will be ',' */
	if (sscanf(arg, "%d%c", &val, &ch) < 1)
	return FALSE;
	if (ch != ',') /* syntax check */
	return FALSE;
	/* Convert user 0-100 rating to percentage scaling */
	#if JPEG_LIB_VERSION >= 70
	cinfo->q_scale_factor[tblno] = jpeg_quality_scaling(val);
	#else
	q_scale_factor[tblno] = jpeg_quality_scaling(val);
	#endif
	while (arg && arg++ != ','); /* advance to next segment of arg
	string */
	} else {
	/* reached end of parameter, set remaining factors to last value */
	#if JPEG_LIB_VERSION >= 70
	cinfo->q_scale_factor[tblno] = jpeg_quality_scaling(val);
	#else
	q_scale_factor[tblno] = jpeg_quality_scaling(val);
	#endif
	}
	}
	jpeg_default_qtables(cinfo, force_baseline);
	return TRUE;
	}


	GLOBAL(boolean)
	set_quant_slots(j_compress_ptr cinfo, char *arg)
	/* Process a quantization-table-selectors parameter string, of the form
	* N[,N,...]
	* If there are more components than parameters, the last value is replicated.
	*/
	{
	int val = 0; /* default table # */
	int ci;
	char ch;

	for (ci = 0; ci < MAX_COMPONENTS; ci++) {
	if (*arg) {
	ch = ','; /* if not set by sscanf, will be ',' */
	if (sscanf(arg, "%d%c", &val, &ch) < 1)
	return FALSE;
	if (ch != ',') /* syntax check */
	return FALSE;
	if (val < 0 \|\| val >= NUM_QUANT_TBLS) {
	fprintf(stderr, "JPEG quantization tables are numbered 0..%d\n",
	NUM_QUANT_TBLS - 1);
	return FALSE;
	}
	cinfo->comp_info[ci].quant_tbl_no = val;
	while (arg && arg++ != ','); /* advance to next segment of arg
	string */
	} else {
	/* reached end of parameter, set remaining components to last table */
	cinfo->comp_info[ci].quant_tbl_no = val;
	}
	}
	return TRUE;
	}


	GLOBAL(boolean)
	set_sample_factors(j_compress_ptr cinfo, char *arg)
	/* Process a sample-factors parameter string, of the form
	* HxV[,HxV,...]
	* If there are more components than parameters, "1x1" is assumed for the rest.
	*/
	{
	int ci, val1, val2;
	char ch1, ch2;

	for (ci = 0; ci < MAX_COMPONENTS; ci++) {
	if (*arg) {
	ch2 = ','; /* if not set by sscanf, will be ',' */
	if (sscanf(arg, "%d%c%d%c", &val1, &ch1, &val2, &ch2) < 3)
	return FALSE;
	if ((ch1 != 'x' && ch1 != 'X') \|\| ch2 != ',') /* syntax check */
	return FALSE;
	if (val1 <= 0 \|\| val1 > 4 \|\| val2 <= 0 \|\| val2 > 4) {
	fprintf(stderr, "JPEG sampling factors must be 1..4\n");
	return FALSE;
	}
	cinfo->comp_info[ci].h_samp_factor = val1;
	cinfo->comp_info[ci].v_samp_factor = val2;
	while (arg && arg++ != ','); /* advance to next segment of arg
	string */
	} else {
	/* reached end of parameter, set remaining components to 1x1 sampling */
	cinfo->comp_info[ci].h_samp_factor = 1;
	cinfo->comp_info[ci].v_samp_factor = 1;
	}
	}
	return TRUE;
	}