jpc_t2cod.c - vx32 - Local 9vx git repository for patches.
(HTM) git clone git://r-36.net/vx32
(DIR) Log
(DIR) Files
(DIR) Refs
---
jpc_t2cod.c (19228B)
---
1 /*
2 * Copyright (c) 1999-2000 Image Power, Inc. and the University of
3 * British Columbia.
4 * Copyright (c) 2001-2003 Michael David Adams.
5 * All rights reserved.
6 */
7
8 /* __START_OF_JASPER_LICENSE__
9 *
10 * JasPer License Version 2.0
11 *
12 * Copyright (c) 1999-2000 Image Power, Inc.
13 * Copyright (c) 1999-2000 The University of British Columbia
14 * Copyright (c) 2001-2003 Michael David Adams
15 *
16 * All rights reserved.
17 *
18 * Permission is hereby granted, free of charge, to any person (the
19 * "User") obtaining a copy of this software and associated documentation
20 * files (the "Software"), to deal in the Software without restriction,
21 * including without limitation the rights to use, copy, modify, merge,
22 * publish, distribute, and/or sell copies of the Software, and to permit
23 * persons to whom the Software is furnished to do so, subject to the
24 * following conditions:
25 *
26 * 1. The above copyright notices and this permission notice (which
27 * includes the disclaimer below) shall be included in all copies or
28 * substantial portions of the Software.
29 *
30 * 2. The name of a copyright holder shall not be used to endorse or
31 * promote products derived from the Software without specific prior
32 * written permission.
33 *
34 * THIS DISCLAIMER OF WARRANTY CONSTITUTES AN ESSENTIAL PART OF THIS
35 * LICENSE. NO USE OF THE SOFTWARE IS AUTHORIZED HEREUNDER EXCEPT UNDER
36 * THIS DISCLAIMER. THE SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS
37 * "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING
38 * BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A
39 * PARTICULAR PURPOSE AND NONINFRINGEMENT OF THIRD PARTY RIGHTS. IN NO
40 * EVENT SHALL THE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, OR ANY SPECIAL
41 * INDIRECT OR CONSEQUENTIAL DAMAGES, OR ANY DAMAGES WHATSOEVER RESULTING
42 * FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT,
43 * NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION
44 * WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. NO ASSURANCES ARE
45 * PROVIDED BY THE COPYRIGHT HOLDERS THAT THE SOFTWARE DOES NOT INFRINGE
46 * THE PATENT OR OTHER INTELLECTUAL PROPERTY RIGHTS OF ANY OTHER ENTITY.
47 * EACH COPYRIGHT HOLDER DISCLAIMS ANY LIABILITY TO THE USER FOR CLAIMS
48 * BROUGHT BY ANY OTHER ENTITY BASED ON INFRINGEMENT OF INTELLECTUAL
49 * PROPERTY RIGHTS OR OTHERWISE. AS A CONDITION TO EXERCISING THE RIGHTS
50 * GRANTED HEREUNDER, EACH USER HEREBY ASSUMES SOLE RESPONSIBILITY TO SECURE
51 * ANY OTHER INTELLECTUAL PROPERTY RIGHTS NEEDED, IF ANY. THE SOFTWARE
52 * IS NOT FAULT-TOLERANT AND IS NOT INTENDED FOR USE IN MISSION-CRITICAL
53 * SYSTEMS, SUCH AS THOSE USED IN THE OPERATION OF NUCLEAR FACILITIES,
54 * AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS, AIR TRAFFIC CONTROL
55 * SYSTEMS, DIRECT LIFE SUPPORT MACHINES, OR WEAPONS SYSTEMS, IN WHICH
56 * THE FAILURE OF THE SOFTWARE OR SYSTEM COULD LEAD DIRECTLY TO DEATH,
57 * PERSONAL INJURY, OR SEVERE PHYSICAL OR ENVIRONMENTAL DAMAGE ("HIGH
58 * RISK ACTIVITIES"). THE COPYRIGHT HOLDERS SPECIFICALLY DISCLAIM ANY
59 * EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR HIGH RISK ACTIVITIES.
60 *
61 * __END_OF_JASPER_LICENSE__
62 */
63
64 /*
65 * Tier-2 Coding Library
66 *
67 * $Id: jpc_t2cod.c 1918 2005-07-24 14:12:08Z baford $
68 */
69
70 #include "jasper/jas_math.h"
71 #include "jasper/jas_malloc.h"
72 #include "jasper/jas_math.h"
73
74 #include "jpc_cs.h"
75 #include "jpc_t2cod.h"
76 #include "jpc_math.h"
77
78 static int jpc_pi_nextlrcp(jpc_pi_t *pi);
79 static int jpc_pi_nextrlcp(jpc_pi_t *pi);
80 static int jpc_pi_nextrpcl(jpc_pi_t *pi);
81 static int jpc_pi_nextpcrl(jpc_pi_t *pi);
82 static int jpc_pi_nextcprl(jpc_pi_t *pi);
83
84 int jpc_pi_next(jpc_pi_t *pi)
85 {
86 jpc_pchg_t *pchg;
87 int ret;
88
89
90 for (;;) {
91
92 pi->valid = false;
93
94 if (!pi->pchg) {
95 ++pi->pchgno;
96 pi->compno = 0;
97 pi->rlvlno = 0;
98 pi->prcno = 0;
99 pi->lyrno = 0;
100 pi->prgvolfirst = true;
101 if (pi->pchgno < jpc_pchglist_numpchgs(pi->pchglist)) {
102 pi->pchg = jpc_pchglist_get(pi->pchglist, pi->pchgno);
103 } else if (pi->pchgno == jpc_pchglist_numpchgs(pi->pchglist)) {
104 pi->pchg = &pi->defaultpchg;
105 } else {
106 return 1;
107 }
108 }
109
110 pchg = pi->pchg;
111 switch (pchg->prgord) {
112 case JPC_COD_LRCPPRG:
113 ret = jpc_pi_nextlrcp(pi);
114 break;
115 case JPC_COD_RLCPPRG:
116 ret = jpc_pi_nextrlcp(pi);
117 break;
118 case JPC_COD_RPCLPRG:
119 ret = jpc_pi_nextrpcl(pi);
120 break;
121 case JPC_COD_PCRLPRG:
122 ret = jpc_pi_nextpcrl(pi);
123 break;
124 case JPC_COD_CPRLPRG:
125 ret = jpc_pi_nextcprl(pi);
126 break;
127 default:
128 ret = -1;
129 break;
130 }
131 if (!ret) {
132 pi->valid = true;
133 ++pi->pktno;
134 return 0;
135 }
136 pi->pchg = 0;
137 }
138 }
139
140 static int jpc_pi_nextlrcp(register jpc_pi_t *pi)
141 {
142 jpc_pchg_t *pchg;
143 int *prclyrno;
144
145 pchg = pi->pchg;
146 if (!pi->prgvolfirst) {
147 prclyrno = &pi->pirlvl->prclyrnos[pi->prcno];
148 goto skip;
149 } else {
150 pi->prgvolfirst = false;
151 }
152
153 for (pi->lyrno = 0; pi->lyrno < pi->numlyrs && pi->lyrno <
154 JAS_CAST(int, pchg->lyrnoend); ++pi->lyrno) {
155 for (pi->rlvlno = pchg->rlvlnostart; pi->rlvlno < pi->maxrlvls &&
156 pi->rlvlno < pchg->rlvlnoend; ++pi->rlvlno) {
157 for (pi->compno = pchg->compnostart, pi->picomp =
158 &pi->picomps[pi->compno]; pi->compno < pi->numcomps
159 && pi->compno < JAS_CAST(int, pchg->compnoend); ++pi->compno,
160 ++pi->picomp) {
161 if (pi->rlvlno >= pi->picomp->numrlvls) {
162 continue;
163 }
164 pi->pirlvl = &pi->picomp->pirlvls[pi->rlvlno];
165 for (pi->prcno = 0, prclyrno =
166 pi->pirlvl->prclyrnos; pi->prcno <
167 pi->pirlvl->numprcs; ++pi->prcno,
168 ++prclyrno) {
169 if (pi->lyrno >= *prclyrno) {
170 *prclyrno = pi->lyrno;
171 ++(*prclyrno);
172 return 0;
173 }
174 skip:
175 ;
176 }
177 }
178 }
179 }
180 return 1;
181 }
182
183 static int jpc_pi_nextrlcp(register jpc_pi_t *pi)
184 {
185 jpc_pchg_t *pchg;
186 int *prclyrno;
187
188 pchg = pi->pchg;
189 if (!pi->prgvolfirst) {
190 assert(pi->prcno < pi->pirlvl->numprcs);
191 prclyrno = &pi->pirlvl->prclyrnos[pi->prcno];
192 goto skip;
193 } else {
194 pi->prgvolfirst = 0;
195 }
196
197 for (pi->rlvlno = pchg->rlvlnostart; pi->rlvlno < pi->maxrlvls &&
198 pi->rlvlno < pchg->rlvlnoend; ++pi->rlvlno) {
199 for (pi->lyrno = 0; pi->lyrno < pi->numlyrs && pi->lyrno <
200 JAS_CAST(int, pchg->lyrnoend); ++pi->lyrno) {
201 for (pi->compno = pchg->compnostart, pi->picomp =
202 &pi->picomps[pi->compno]; pi->compno < pi->numcomps &&
203 pi->compno < JAS_CAST(int, pchg->compnoend); ++pi->compno, ++pi->picomp) {
204 if (pi->rlvlno >= pi->picomp->numrlvls) {
205 continue;
206 }
207 pi->pirlvl = &pi->picomp->pirlvls[pi->rlvlno];
208 for (pi->prcno = 0, prclyrno = pi->pirlvl->prclyrnos;
209 pi->prcno < pi->pirlvl->numprcs; ++pi->prcno, ++prclyrno) {
210 if (pi->lyrno >= *prclyrno) {
211 *prclyrno = pi->lyrno;
212 ++(*prclyrno);
213 return 0;
214 }
215 skip:
216 ;
217 }
218 }
219 }
220 }
221 return 1;
222 }
223
224 static int jpc_pi_nextrpcl(register jpc_pi_t *pi)
225 {
226 int rlvlno;
227 jpc_pirlvl_t *pirlvl;
228 jpc_pchg_t *pchg;
229 int prchind;
230 int prcvind;
231 int *prclyrno;
232 int compno;
233 jpc_picomp_t *picomp;
234 int xstep;
235 int ystep;
236 uint_fast32_t r;
237 uint_fast32_t rpx;
238 uint_fast32_t rpy;
239 uint_fast32_t trx0;
240 uint_fast32_t try0;
241
242 pchg = pi->pchg;
243 if (!pi->prgvolfirst) {
244 goto skip;
245 } else {
246 pi->xstep = 0;
247 pi->ystep = 0;
248 for (compno = 0, picomp = pi->picomps; compno < pi->numcomps;
249 ++compno, ++picomp) {
250 for (rlvlno = 0, pirlvl = picomp->pirlvls; rlvlno <
251 picomp->numrlvls; ++rlvlno, ++pirlvl) {
252 xstep = picomp->hsamp * (1 << (pirlvl->prcwidthexpn +
253 picomp->numrlvls - rlvlno - 1));
254 ystep = picomp->vsamp * (1 << (pirlvl->prcheightexpn +
255 picomp->numrlvls - rlvlno - 1));
256 pi->xstep = (!pi->xstep) ? xstep : JAS_MIN(pi->xstep, xstep);
257 pi->ystep = (!pi->ystep) ? ystep : JAS_MIN(pi->ystep, ystep);
258 }
259 }
260 pi->prgvolfirst = 0;
261 }
262
263 for (pi->rlvlno = pchg->rlvlnostart; pi->rlvlno < pchg->rlvlnoend &&
264 pi->rlvlno < pi->maxrlvls; ++pi->rlvlno) {
265 for (pi->y = pi->ystart; pi->y < pi->yend; pi->y +=
266 pi->ystep - (pi->y % pi->ystep)) {
267 for (pi->x = pi->xstart; pi->x < pi->xend; pi->x +=
268 pi->xstep - (pi->x % pi->xstep)) {
269 for (pi->compno = pchg->compnostart,
270 pi->picomp = &pi->picomps[pi->compno];
271 pi->compno < JAS_CAST(int, pchg->compnoend) && pi->compno <
272 pi->numcomps; ++pi->compno, ++pi->picomp) {
273 if (pi->rlvlno >= pi->picomp->numrlvls) {
274 continue;
275 }
276 pi->pirlvl = &pi->picomp->pirlvls[pi->rlvlno];
277 if (pi->pirlvl->numprcs == 0) {
278 continue;
279 }
280 r = pi->picomp->numrlvls - 1 - pi->rlvlno;
281 rpx = r + pi->pirlvl->prcwidthexpn;
282 rpy = r + pi->pirlvl->prcheightexpn;
283 trx0 = JPC_CEILDIV(pi->xstart, pi->picomp->hsamp << r);
284 try0 = JPC_CEILDIV(pi->ystart, pi->picomp->vsamp << r);
285 if (((pi->x == pi->xstart && ((trx0 << r) % (1 << rpx)))
286 || !(pi->x % (1 << rpx))) &&
287 ((pi->y == pi->ystart && ((try0 << r) % (1 << rpy)))
288 || !(pi->y % (1 << rpy)))) {
289 prchind = JPC_FLOORDIVPOW2(JPC_CEILDIV(pi->x, pi->picomp->hsamp
290 << r), pi->pirlvl->prcwidthexpn) - JPC_FLOORDIVPOW2(trx0,
291 pi->pirlvl->prcwidthexpn);
292 prcvind = JPC_FLOORDIVPOW2(JPC_CEILDIV(pi->y, pi->picomp->vsamp
293 << r), pi->pirlvl->prcheightexpn) - JPC_FLOORDIVPOW2(try0,
294 pi->pirlvl->prcheightexpn);
295 pi->prcno = prcvind * pi->pirlvl->numhprcs + prchind;
296
297 assert(pi->prcno < pi->pirlvl->numprcs);
298 for (pi->lyrno = 0; pi->lyrno <
299 pi->numlyrs && pi->lyrno < JAS_CAST(int, pchg->lyrnoend); ++pi->lyrno) {
300 prclyrno = &pi->pirlvl->prclyrnos[pi->prcno];
301 if (pi->lyrno >= *prclyrno) {
302 ++(*prclyrno);
303 return 0;
304 }
305 skip:
306 ;
307 }
308 }
309 }
310 }
311 }
312 }
313 return 1;
314 }
315
316 static int jpc_pi_nextpcrl(register jpc_pi_t *pi)
317 {
318 int rlvlno;
319 jpc_pirlvl_t *pirlvl;
320 jpc_pchg_t *pchg;
321 int prchind;
322 int prcvind;
323 int *prclyrno;
324 int compno;
325 jpc_picomp_t *picomp;
326 int xstep;
327 int ystep;
328 uint_fast32_t trx0;
329 uint_fast32_t try0;
330 uint_fast32_t r;
331 uint_fast32_t rpx;
332 uint_fast32_t rpy;
333
334 pchg = pi->pchg;
335 if (!pi->prgvolfirst) {
336 goto skip;
337 } else {
338 pi->xstep = 0;
339 pi->ystep = 0;
340 for (compno = 0, picomp = pi->picomps; compno < pi->numcomps;
341 ++compno, ++picomp) {
342 for (rlvlno = 0, pirlvl = picomp->pirlvls; rlvlno <
343 picomp->numrlvls; ++rlvlno, ++pirlvl) {
344 xstep = picomp->hsamp * (1 <<
345 (pirlvl->prcwidthexpn + picomp->numrlvls -
346 rlvlno - 1));
347 ystep = picomp->vsamp * (1 <<
348 (pirlvl->prcheightexpn + picomp->numrlvls -
349 rlvlno - 1));
350 pi->xstep = (!pi->xstep) ? xstep :
351 JAS_MIN(pi->xstep, xstep);
352 pi->ystep = (!pi->ystep) ? ystep :
353 JAS_MIN(pi->ystep, ystep);
354 }
355 }
356 pi->prgvolfirst = 0;
357 }
358
359 for (pi->y = pi->ystart; pi->y < pi->yend; pi->y += pi->ystep -
360 (pi->y % pi->ystep)) {
361 for (pi->x = pi->xstart; pi->x < pi->xend; pi->x += pi->xstep -
362 (pi->x % pi->xstep)) {
363 for (pi->compno = pchg->compnostart, pi->picomp =
364 &pi->picomps[pi->compno]; pi->compno < pi->numcomps
365 && pi->compno < JAS_CAST(int, pchg->compnoend); ++pi->compno,
366 ++pi->picomp) {
367 for (pi->rlvlno = pchg->rlvlnostart,
368 pi->pirlvl = &pi->picomp->pirlvls[pi->rlvlno];
369 pi->rlvlno < pi->picomp->numrlvls &&
370 pi->rlvlno < pchg->rlvlnoend; ++pi->rlvlno,
371 ++pi->pirlvl) {
372 if (pi->pirlvl->numprcs == 0) {
373 continue;
374 }
375 r = pi->picomp->numrlvls - 1 - pi->rlvlno;
376 trx0 = JPC_CEILDIV(pi->xstart, pi->picomp->hsamp << r);
377 try0 = JPC_CEILDIV(pi->ystart, pi->picomp->vsamp << r);
378 rpx = r + pi->pirlvl->prcwidthexpn;
379 rpy = r + pi->pirlvl->prcheightexpn;
380 if (((pi->x == pi->xstart && ((trx0 << r) % (1 << rpx))) ||
381 !(pi->x % (pi->picomp->hsamp << rpx))) &&
382 ((pi->y == pi->ystart && ((try0 << r) % (1 << rpy))) ||
383 !(pi->y % (pi->picomp->vsamp << rpy)))) {
384 prchind = JPC_FLOORDIVPOW2(JPC_CEILDIV(pi->x, pi->picomp->hsamp
385 << r), pi->pirlvl->prcwidthexpn) - JPC_FLOORDIVPOW2(trx0,
386 pi->pirlvl->prcwidthexpn);
387 prcvind = JPC_FLOORDIVPOW2(JPC_CEILDIV(pi->y, pi->picomp->vsamp
388 << r), pi->pirlvl->prcheightexpn) - JPC_FLOORDIVPOW2(try0,
389 pi->pirlvl->prcheightexpn);
390 pi->prcno = prcvind * pi->pirlvl->numhprcs + prchind;
391 assert(pi->prcno < pi->pirlvl->numprcs);
392 for (pi->lyrno = 0; pi->lyrno < pi->numlyrs &&
393 pi->lyrno < JAS_CAST(int, pchg->lyrnoend); ++pi->lyrno) {
394 prclyrno = &pi->pirlvl->prclyrnos[pi->prcno];
395 if (pi->lyrno >= *prclyrno) {
396 ++(*prclyrno);
397 return 0;
398 }
399 skip:
400 ;
401 }
402 }
403 }
404 }
405 }
406 }
407 return 1;
408 }
409
410 static int jpc_pi_nextcprl(register jpc_pi_t *pi)
411 {
412 int rlvlno;
413 jpc_pirlvl_t *pirlvl;
414 jpc_pchg_t *pchg;
415 int prchind;
416 int prcvind;
417 int *prclyrno;
418 uint_fast32_t trx0;
419 uint_fast32_t try0;
420 uint_fast32_t r;
421 uint_fast32_t rpx;
422 uint_fast32_t rpy;
423
424 pchg = pi->pchg;
425 if (!pi->prgvolfirst) {
426 goto skip;
427 } else {
428 pi->prgvolfirst = 0;
429 }
430
431 for (pi->compno = pchg->compnostart, pi->picomp =
432 &pi->picomps[pi->compno]; pi->compno < JAS_CAST(int, pchg->compnoend); ++pi->compno,
433 ++pi->picomp) {
434 pirlvl = pi->picomp->pirlvls;
435 pi->xstep = pi->picomp->hsamp * (1 << (pirlvl->prcwidthexpn +
436 pi->picomp->numrlvls - 1));
437 pi->ystep = pi->picomp->vsamp * (1 << (pirlvl->prcheightexpn +
438 pi->picomp->numrlvls - 1));
439 for (rlvlno = 1, pirlvl = &pi->picomp->pirlvls[1];
440 rlvlno < pi->picomp->numrlvls; ++rlvlno, ++pirlvl) {
441 pi->xstep = JAS_MIN(pi->xstep, pi->picomp->hsamp * (1 <<
442 (pirlvl->prcwidthexpn + pi->picomp->numrlvls -
443 rlvlno - 1)));
444 pi->ystep = JAS_MIN(pi->ystep, pi->picomp->vsamp * (1 <<
445 (pirlvl->prcheightexpn + pi->picomp->numrlvls -
446 rlvlno - 1)));
447 }
448 for (pi->y = pi->ystart; pi->y < pi->yend;
449 pi->y += pi->ystep - (pi->y % pi->ystep)) {
450 for (pi->x = pi->xstart; pi->x < pi->xend;
451 pi->x += pi->xstep - (pi->x % pi->xstep)) {
452 for (pi->rlvlno = pchg->rlvlnostart,
453 pi->pirlvl = &pi->picomp->pirlvls[pi->rlvlno];
454 pi->rlvlno < pi->picomp->numrlvls && pi->rlvlno <
455 pchg->rlvlnoend; ++pi->rlvlno, ++pi->pirlvl) {
456 if (pi->pirlvl->numprcs == 0) {
457 continue;
458 }
459 r = pi->picomp->numrlvls - 1 - pi->rlvlno;
460 trx0 = JPC_CEILDIV(pi->xstart, pi->picomp->hsamp << r);
461 try0 = JPC_CEILDIV(pi->ystart, pi->picomp->vsamp << r);
462 rpx = r + pi->pirlvl->prcwidthexpn;
463 rpy = r + pi->pirlvl->prcheightexpn;
464 if (((pi->x == pi->xstart && ((trx0 << r) % (1 << rpx))) ||
465 !(pi->x % (pi->picomp->hsamp << rpx))) &&
466 ((pi->y == pi->ystart && ((try0 << r) % (1 << rpy))) ||
467 !(pi->y % (pi->picomp->vsamp << rpy)))) {
468 prchind = JPC_FLOORDIVPOW2(JPC_CEILDIV(pi->x, pi->picomp->hsamp
469 << r), pi->pirlvl->prcwidthexpn) - JPC_FLOORDIVPOW2(trx0,
470 pi->pirlvl->prcwidthexpn);
471 prcvind = JPC_FLOORDIVPOW2(JPC_CEILDIV(pi->y, pi->picomp->vsamp
472 << r), pi->pirlvl->prcheightexpn) - JPC_FLOORDIVPOW2(try0,
473 pi->pirlvl->prcheightexpn);
474 pi->prcno = prcvind *
475 pi->pirlvl->numhprcs +
476 prchind;
477 assert(pi->prcno <
478 pi->pirlvl->numprcs);
479 for (pi->lyrno = 0; pi->lyrno <
480 pi->numlyrs && pi->lyrno < JAS_CAST(int, pchg->lyrnoend); ++pi->lyrno) {
481 prclyrno = &pi->pirlvl->prclyrnos[pi->prcno];
482 if (pi->lyrno >= *prclyrno) {
483 ++(*prclyrno);
484 return 0;
485 }
486 skip:
487 ;
488 }
489 }
490 }
491 }
492 }
493 }
494 return 1;
495 }
496
497 static void pirlvl_destroy(jpc_pirlvl_t *rlvl)
498 {
499 if (rlvl->prclyrnos) {
500 jas_free(rlvl->prclyrnos);
501 }
502 }
503
504 static void jpc_picomp_destroy(jpc_picomp_t *picomp)
505 {
506 int rlvlno;
507 jpc_pirlvl_t *pirlvl;
508 if (picomp->pirlvls) {
509 for (rlvlno = 0, pirlvl = picomp->pirlvls; rlvlno <
510 picomp->numrlvls; ++rlvlno, ++pirlvl) {
511 pirlvl_destroy(pirlvl);
512 }
513 jas_free(picomp->pirlvls);
514 }
515 }
516
517 void jpc_pi_destroy(jpc_pi_t *pi)
518 {
519 jpc_picomp_t *picomp;
520 int compno;
521 if (pi->picomps) {
522 for (compno = 0, picomp = pi->picomps; compno < pi->numcomps;
523 ++compno, ++picomp) {
524 jpc_picomp_destroy(picomp);
525 }
526 jas_free(pi->picomps);
527 }
528 if (pi->pchglist) {
529 jpc_pchglist_destroy(pi->pchglist);
530 }
531 jas_free(pi);
532 }
533
534 jpc_pi_t *jpc_pi_create0()
535 {
536 jpc_pi_t *pi;
537 if (!(pi = jas_malloc(sizeof(jpc_pi_t)))) {
538 return 0;
539 }
540 pi->picomps = 0;
541 pi->pchgno = 0;
542 if (!(pi->pchglist = jpc_pchglist_create())) {
543 jas_free(pi);
544 return 0;
545 }
546 return pi;
547 }
548
549 int jpc_pi_addpchg(jpc_pi_t *pi, jpc_pocpchg_t *pchg)
550 {
551 return jpc_pchglist_insert(pi->pchglist, -1, pchg);
552 }
553
554 jpc_pchglist_t *jpc_pchglist_create()
555 {
556 jpc_pchglist_t *pchglist;
557 if (!(pchglist = jas_malloc(sizeof(jpc_pchglist_t)))) {
558 return 0;
559 }
560 pchglist->numpchgs = 0;
561 pchglist->maxpchgs = 0;
562 pchglist->pchgs = 0;
563 return pchglist;
564 }
565
566 int jpc_pchglist_insert(jpc_pchglist_t *pchglist, int pchgno, jpc_pchg_t *pchg)
567 {
568 int i;
569 int newmaxpchgs;
570 jpc_pchg_t **newpchgs;
571 if (pchgno < 0) {
572 pchgno = pchglist->numpchgs;
573 }
574 if (pchglist->numpchgs >= pchglist->maxpchgs) {
575 newmaxpchgs = pchglist->maxpchgs + 128;
576 if (!(newpchgs = jas_realloc(pchglist->pchgs, newmaxpchgs * sizeof(jpc_pchg_t *)))) {
577 return -1;
578 }
579 pchglist->maxpchgs = newmaxpchgs;
580 pchglist->pchgs = newpchgs;
581 }
582 for (i = pchglist->numpchgs; i > pchgno; --i) {
583 pchglist->pchgs[i] = pchglist->pchgs[i - 1];
584 }
585 pchglist->pchgs[pchgno] = pchg;
586 ++pchglist->numpchgs;
587 return 0;
588 }
589
590 jpc_pchg_t *jpc_pchglist_remove(jpc_pchglist_t *pchglist, int pchgno)
591 {
592 int i;
593 jpc_pchg_t *pchg;
594 assert(pchgno < pchglist->numpchgs);
595 pchg = pchglist->pchgs[pchgno];
596 for (i = pchgno + 1; i < pchglist->numpchgs; ++i) {
597 pchglist->pchgs[i - 1] = pchglist->pchgs[i];
598 }
599 --pchglist->numpchgs;
600 return pchg;
601 }
602
603 jpc_pchg_t *jpc_pchg_copy(jpc_pchg_t *pchg)
604 {
605 jpc_pchg_t *newpchg;
606 if (!(newpchg = jas_malloc(sizeof(jpc_pchg_t)))) {
607 return 0;
608 }
609 *newpchg = *pchg;
610 return newpchg;
611 }
612
613 jpc_pchglist_t *jpc_pchglist_copy(jpc_pchglist_t *pchglist)
614 {
615 jpc_pchglist_t *newpchglist;
616 jpc_pchg_t *newpchg;
617 int pchgno;
618 if (!(newpchglist = jpc_pchglist_create())) {
619 return 0;
620 }
621 for (pchgno = 0; pchgno < pchglist->numpchgs; ++pchgno) {
622 if (!(newpchg = jpc_pchg_copy(pchglist->pchgs[pchgno])) ||
623 jpc_pchglist_insert(newpchglist, -1, newpchg)) {
624 jpc_pchglist_destroy(newpchglist);
625 return 0;
626 }
627 }
628 return newpchglist;
629 }
630
631 void jpc_pchglist_destroy(jpc_pchglist_t *pchglist)
632 {
633 int pchgno;
634 if (pchglist->pchgs) {
635 for (pchgno = 0; pchgno < pchglist->numpchgs; ++pchgno) {
636 jpc_pchg_destroy(pchglist->pchgs[pchgno]);
637 }
638 jas_free(pchglist->pchgs);
639 }
640 jas_free(pchglist);
641 }
642
643 void jpc_pchg_destroy(jpc_pchg_t *pchg)
644 {
645 jas_free(pchg);
646 }
647
648 jpc_pchg_t *jpc_pchglist_get(jpc_pchglist_t *pchglist, int pchgno)
649 {
650 return pchglist->pchgs[pchgno];
651 }
652
653 int jpc_pchglist_numpchgs(jpc_pchglist_t *pchglist)
654 {
655 return pchglist->numpchgs;
656 }
657
658 int jpc_pi_init(jpc_pi_t *pi)
659 {
660 int compno;
661 int rlvlno;
662 int prcno;
663 jpc_picomp_t *picomp;
664 jpc_pirlvl_t *pirlvl;
665 int *prclyrno;
666
667 pi->prgvolfirst = 0;
668 pi->valid = 0;
669 pi->pktno = -1;
670 pi->pchgno = -1;
671 pi->pchg = 0;
672
673 for (compno = 0, picomp = pi->picomps; compno < pi->numcomps;
674 ++compno, ++picomp) {
675 for (rlvlno = 0, pirlvl = picomp->pirlvls; rlvlno <
676 picomp->numrlvls; ++rlvlno, ++pirlvl) {
677 for (prcno = 0, prclyrno = pirlvl->prclyrnos;
678 prcno < pirlvl->numprcs; ++prcno, ++prclyrno) {
679 *prclyrno = 0;
680 }
681 }
682 }
683 return 0;
684 }