1/* 2 * rdswitch.c 3 * 4 * Copyright (C) 1991-1996, Thomas G. Lane. 5 * This file is part of the Independent JPEG Group's software. 6 * For conditions of distribution and use, see the accompanying README file. 7 * 8 * This file contains routines to process some of cjpeg's more complicated 9 * command-line switches. Switches processed here are: 10 * -qtables file Read quantization tables from text file 11 * -scans file Read scan script from text file 12 * -quality N[,N,...] Set quality ratings 13 * -qslots N[,N,...] Set component quantization table selectors 14 * -sample HxV[,HxV,...] Set component sampling factors 15 */ 16 17#include "cdjpeg.h" /* Common decls for cjpeg/djpeg applications */ 18#include <ctype.h> /* to declare isdigit(), isspace() */ 19 20 21LOCAL(int) 22text_getc (FILE * file) 23/* Read next char, skipping over any comments (# to end of line) */ 24/* A comment/newline sequence is returned as a newline */ 25{ 26 register int ch; 27 28 ch = getc(file); 29 if (ch == '#') { 30 do { 31 ch = getc(file); 32 } while (ch != '\n' && ch != EOF); 33 } 34 return ch; 35} 36 37 38LOCAL(boolean) 39read_text_integer (FILE * file, long * result, int * termchar) 40/* Read an unsigned decimal integer from a file, store it in result */ 41/* Reads one trailing character after the integer; returns it in termchar */ 42{ 43 register int ch; 44 register long val; 45 46 /* Skip any leading whitespace, detect EOF */ 47 do { 48 ch = text_getc(file); 49 if (ch == EOF) { 50 *termchar = ch; 51 return FALSE; 52 } 53 } while (isspace(ch)); 54 55 if (! isdigit(ch)) { 56 *termchar = ch; 57 return FALSE; 58 } 59 60 val = ch - '0'; 61 while ((ch = text_getc(file)) != EOF) { 62 if (! isdigit(ch)) 63 break; 64 val *= 10; 65 val += ch - '0'; 66 } 67 *result = val; 68 *termchar = ch; 69 return TRUE; 70} 71 72 73GLOBAL(boolean) 74read_quant_tables (j_compress_ptr cinfo, char * filename, boolean force_baseline) 75/* Read a set of quantization tables from the specified file. 76 * The file is plain ASCII text: decimal numbers with whitespace between. 77 * Comments preceded by '#' may be included in the file. 78 * There may be one to NUM_QUANT_TBLS tables in the file, each of 64 values. 79 * The tables are implicitly numbered 0,1,etc. 80 * NOTE: does not affect the qslots mapping, which will default to selecting 81 * table 0 for luminance (or primary) components, 1 for chrominance components. 82 * You must use -qslots if you want a different component->table mapping. 83 */ 84{ 85 FILE * fp; 86 int tblno, i, termchar; 87 long val; 88 unsigned int table[DCTSIZE2]; 89 90 if ((fp = fopen(filename, "r")) == NULL) { 91 fprintf(stderr, "Can't open table file %s\n", filename); 92 return FALSE; 93 } 94 tblno = 0; 95 96 while (read_text_integer(fp, &val, &termchar)) { /* read 1st element of table */ 97 if (tblno >= NUM_QUANT_TBLS) { 98 fprintf(stderr, "Too many tables in file %s\n", filename); 99 fclose(fp); 100 return FALSE; 101 } 102 table[0] = (unsigned int) val; 103 for (i = 1; i < DCTSIZE2; i++) { 104 if (! read_text_integer(fp, &val, &termchar)) { 105 fprintf(stderr, "Invalid table data in file %s\n", filename); 106 fclose(fp); 107 return FALSE; 108 } 109 table[i] = (unsigned int) val; 110 } 111 jpeg_add_quant_table(cinfo, tblno, table, cinfo->q_scale_factor[tblno], 112 force_baseline); 113 tblno++; 114 } 115 116 if (termchar != EOF) { 117 fprintf(stderr, "Non-numeric data in file %s\n", filename); 118 fclose(fp); 119 return FALSE; 120 } 121 122 fclose(fp); 123 return TRUE; 124} 125 126 127#ifdef C_MULTISCAN_FILES_SUPPORTED 128 129LOCAL(boolean) 130read_scan_integer (FILE * file, long * result, int * termchar) 131/* Variant of read_text_integer that always looks for a non-space termchar; 132 * this simplifies parsing of punctuation in scan scripts. 133 */ 134{ 135 register int ch; 136 137 if (! read_text_integer(file, result, termchar)) 138 return FALSE; 139 ch = *termchar; 140 while (ch != EOF && isspace(ch)) 141 ch = text_getc(file); 142 if (isdigit(ch)) { /* oops, put it back */ 143 if (ungetc(ch, file) == EOF) 144 return FALSE; 145 ch = ' '; 146 } else { 147 /* Any separators other than ';' and ':' are ignored; 148 * this allows user to insert commas, etc, if desired. 149 */ 150 if (ch != EOF && ch != ';' && ch != ':') 151 ch = ' '; 152 } 153 *termchar = ch; 154 return TRUE; 155} 156 157 158GLOBAL(boolean) 159read_scan_script (j_compress_ptr cinfo, char * filename) 160/* Read a scan script from the specified text file. 161 * Each entry in the file defines one scan to be emitted. 162 * Entries are separated by semicolons ';'. 163 * An entry contains one to four component indexes, 164 * optionally followed by a colon ':' and four progressive-JPEG parameters. 165 * The component indexes denote which component(s) are to be transmitted 166 * in the current scan. The first component has index 0. 167 * Sequential JPEG is used if the progressive-JPEG parameters are omitted. 168 * The file is free format text: any whitespace may appear between numbers 169 * and the ':' and ';' punctuation marks. Also, other punctuation (such 170 * as commas or dashes) can be placed between numbers if desired. 171 * Comments preceded by '#' may be included in the file. 172 * Note: we do very little validity checking here; 173 * jcmaster.c will validate the script parameters. 174 */ 175{ 176 FILE * fp; 177 int scanno, ncomps, termchar; 178 long val; 179 jpeg_scan_info * scanptr; 180#define MAX_SCANS 100 /* quite arbitrary limit */ 181 jpeg_scan_info scans[MAX_SCANS]; 182 183 if ((fp = fopen(filename, "r")) == NULL) { 184 fprintf(stderr, "Can't open scan definition file %s\n", filename); 185 return FALSE; 186 } 187 scanptr = scans; 188 scanno = 0; 189 190 while (read_scan_integer(fp, &val, &termchar)) { 191 if (scanno >= MAX_SCANS) { 192 fprintf(stderr, "Too many scans defined in file %s\n", filename); 193 fclose(fp); 194 return FALSE; 195 } 196 scanptr->component_index[0] = (int) val; 197 ncomps = 1; 198 while (termchar == ' ') { 199 if (ncomps >= MAX_COMPS_IN_SCAN) { 200 fprintf(stderr, "Too many components in one scan in file %s\n", 201 filename); 202 fclose(fp); 203 return FALSE; 204 } 205 if (! read_scan_integer(fp, &val, &termchar)) 206 goto bogus; 207 scanptr->component_index[ncomps] = (int) val; 208 ncomps++; 209 } 210 scanptr->comps_in_scan = ncomps; 211 if (termchar == ':') { 212 if (! read_scan_integer(fp, &val, &termchar) || termchar != ' ') 213 goto bogus; 214 scanptr->Ss = (int) val; 215 if (! read_scan_integer(fp, &val, &termchar) || termchar != ' ') 216 goto bogus; 217 scanptr->Se = (int) val; 218 if (! read_scan_integer(fp, &val, &termchar) || termchar != ' ') 219 goto bogus; 220 scanptr->Ah = (int) val; 221 if (! read_scan_integer(fp, &val, &termchar)) 222 goto bogus; 223 scanptr->Al = (int) val; 224 } else { 225 /* set non-progressive parameters */ 226 scanptr->Ss = 0; 227 scanptr->Se = DCTSIZE2-1; 228 scanptr->Ah = 0; 229 scanptr->Al = 0; 230 } 231 if (termchar != ';' && termchar != EOF) { 232bogus: 233 fprintf(stderr, "Invalid scan entry format in file %s\n", filename); 234 fclose(fp); 235 return FALSE; 236 } 237 scanptr++, scanno++; 238 } 239 240 if (termchar != EOF) { 241 fprintf(stderr, "Non-numeric data in file %s\n", filename); 242 fclose(fp); 243 return FALSE; 244 } 245 246 if (scanno > 0) { 247 /* Stash completed scan list in cinfo structure. 248 * NOTE: for cjpeg's use, JPOOL_IMAGE is the right lifetime for this data, 249 * but if you want to compress multiple images you'd want JPOOL_PERMANENT. 250 */ 251 scanptr = (jpeg_scan_info *) 252 (*cinfo->mem->alloc_small) ((j_common_ptr) cinfo, JPOOL_IMAGE, 253 scanno * SIZEOF(jpeg_scan_info)); 254 MEMCOPY(scanptr, scans, scanno * SIZEOF(jpeg_scan_info)); 255 cinfo->scan_info = scanptr; 256 cinfo->num_scans = scanno; 257 } 258 259 fclose(fp); 260 return TRUE; 261} 262 263#endif /* C_MULTISCAN_FILES_SUPPORTED */ 264 265 266GLOBAL(boolean) 267set_quality_ratings (j_compress_ptr cinfo, char *arg, boolean force_baseline) 268/* Process a quality-ratings parameter string, of the form 269 * N[,N,...] 270 * If there are more q-table slots than parameters, the last value is replicated. 271 */ 272{ 273 int val = 75; /* default value */ 274 int tblno; 275 char ch; 276 277 for (tblno = 0; tblno < NUM_QUANT_TBLS; tblno++) { 278 if (*arg) { 279 ch = ','; /* if not set by sscanf, will be ',' */ 280 if (sscanf(arg, "%d%c", &val, &ch) < 1) 281 return FALSE; 282 if (ch != ',') /* syntax check */ 283 return FALSE; 284 /* Convert user 0-100 rating to percentage scaling */ 285 cinfo->q_scale_factor[tblno] = jpeg_quality_scaling(val); 286 while (*arg && *arg++ != ',') /* advance to next segment of arg string */ 287 ; 288 } else { 289 /* reached end of parameter, set remaining factors to last value */ 290 cinfo->q_scale_factor[tblno] = jpeg_quality_scaling(val); 291 } 292 } 293 jpeg_default_qtables(cinfo, force_baseline); 294 return TRUE; 295} 296 297 298GLOBAL(boolean) 299set_quant_slots (j_compress_ptr cinfo, char *arg) 300/* Process a quantization-table-selectors parameter string, of the form 301 * N[,N,...] 302 * If there are more components than parameters, the last value is replicated. 303 */ 304{ 305 int val = 0; /* default table # */ 306 int ci; 307 char ch; 308 309 for (ci = 0; ci < MAX_COMPONENTS; ci++) { 310 if (*arg) { 311 ch = ','; /* if not set by sscanf, will be ',' */ 312 if (sscanf(arg, "%d%c", &val, &ch) < 1) 313 return FALSE; 314 if (ch != ',') /* syntax check */ 315 return FALSE; 316 if (val < 0 || val >= NUM_QUANT_TBLS) { 317 fprintf(stderr, "JPEG quantization tables are numbered 0..%d\n", 318 NUM_QUANT_TBLS-1); 319 return FALSE; 320 } 321 cinfo->comp_info[ci].quant_tbl_no = val; 322 while (*arg && *arg++ != ',') /* advance to next segment of arg string */ 323 ; 324 } else { 325 /* reached end of parameter, set remaining components to last table */ 326 cinfo->comp_info[ci].quant_tbl_no = val; 327 } 328 } 329 return TRUE; 330} 331 332 333GLOBAL(boolean) 334set_sample_factors (j_compress_ptr cinfo, char *arg) 335/* Process a sample-factors parameter string, of the form 336 * HxV[,HxV,...] 337 * If there are more components than parameters, "1x1" is assumed for the rest. 338 */ 339{ 340 int ci, val1, val2; 341 char ch1, ch2; 342 343 for (ci = 0; ci < MAX_COMPONENTS; ci++) { 344 if (*arg) { 345 ch2 = ','; /* if not set by sscanf, will be ',' */ 346 if (sscanf(arg, "%d%c%d%c", &val1, &ch1, &val2, &ch2) < 3) 347 return FALSE; 348 if ((ch1 != 'x' && ch1 != 'X') || ch2 != ',') /* syntax check */ 349 return FALSE; 350 if (val1 <= 0 || val1 > 4 || val2 <= 0 || val2 > 4) { 351 fprintf(stderr, "JPEG sampling factors must be 1..4\n"); 352 return FALSE; 353 } 354 cinfo->comp_info[ci].h_samp_factor = val1; 355 cinfo->comp_info[ci].v_samp_factor = val2; 356 while (*arg && *arg++ != ',') /* advance to next segment of arg string */ 357 ; 358 } else { 359 /* reached end of parameter, set remaining components to 1x1 sampling */ 360 cinfo->comp_info[ci].h_samp_factor = 1; 361 cinfo->comp_info[ci].v_samp_factor = 1; 362 } 363 } 364 return TRUE; 365} 366