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