home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / libraries / pchglib14.lha / ToPCHG.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-11-27  |  17.4 KB  |  445 lines
  1. ;/* Execute me if you want to compile me.
  2. sc OPTIMIZE NOSTKCHK IGNORE=73 STREQ UNSCHAR STRMERGE PARMS=REG ToPCHG
  3. slink from ToPCHG.o to ToPCHG lib lib:amiga.lib lib:sc.lib lib:pchgr.lib SC SD ND
  4. quit
  5.  
  6.                                   ToPCHG.c
  7.  
  8.                             by Sebastiano Vigna
  9.  
  10.  
  11. This file is placed in the public domain.
  12. This program works only under 2.04.
  13.  
  14. ToPCHG will convert one or many ILBM files (FORMs, LISTs and CATs) with
  15. line-by-line palette change info given by SHAM and CTBL to the new PCHG
  16. (Palette Change) format. If there's nothing to change the file is rewritten
  17. with no changes (up to some reordering of the chunks, which is irrelevant by
  18. the ILBM specification). The conversion however is only at file format
  19. level. There is no real image processing done. Thus, in order to follow the
  20. limitation suggested in the PCHG specs, ToPCHG will simply cut out exceeding
  21. changes (i.e., changes on odd line in laced pictures or changes after the
  22. MAX_CHANGES_PER_LINEth one, unless the AllChanges switch is specified). The
  23. result is quite ugly; thus, ToPCHG is mainly an easy way of producing
  24. multi-palette pictures for testing of programs etc. It shouldn't be used to
  25. convert images. I hope someone will release soon some image processing
  26. program that will do a real conversion. However, if you convert a SHAM image
  27. with AllChanges on, you will get all the information you had in the SHAM
  28. chunk in the PCHG chunk (because SHAM is not specifying changes on odd
  29. interlaced lines anyway).
  30.  
  31. You should find the complete specification of the PCHG chunk together with
  32. this file. PCHG allows for exact identification of which registers should be
  33. changed, and which not. It's also (usually) smaller than CTBL or SHAM
  34. chunks. It is documented, and has tools that support it. I hope it'll be
  35. soon supported by freeware/shareware/commercial programs.
  36.  
  37. The Files argument lets you enter as many files (with wildcards) as you
  38. like. ToPCHG will read them, put in a PCHG chunk and rewrite them to the To
  39. directory. You can also specify a single file name, and then To will act as
  40. a destination (it can be either a file name or a directory). That is, ToPCHG
  41. works more or less like the rename command.
  42.  
  43. If the switch KillOld is specified, the old-fashioned information will be
  44. deleted. This is good if your paint program supports PCHG or if you just
  45. want to see these pictures with Mostra 1.05, but it's not recommended if you
  46. plan to edit again the file. Instead, just add the PCHG chunk (so Mostra can
  47. display the picture). Beware of the fact that probably editing and saving
  48. the picture will delete the PCHG chunk (if the program you're using doesn't
  49. support it). If the option KillOld is not used, ToPCHG will leave in your
  50. file both the old and the new CMAP. The second CMAP overrides the first
  51. (again by the ILBM specification).
  52.  
  53. ToPCHG will use by default the very dense 12 bit format. If you specify the
  54. switch USE24BIT, the 24bit+alpha channel mode will be used instead. The
  55. chunk can also be compressed using the switch COMP.
  56.  
  57. The switch AllChanges overrides the default behaviour of cutting the color
  58. changes to MAX_COLOR_CHANGES (=7), as suggested in the PCHG specs. This can
  59. be useful for converting SHAM images, but it will produce picture whose look
  60. depends on their position on the screen.
  61.  
  62. I'm sorry for the confusion and the poor documentation of the C code that follows.
  63. It was written in a hurry, and I hadn't so much time to work on it. People building
  64. easier interfaces (AppWindow for instance) to this conversion code are welcome.
  65.  
  66. */
  67.  
  68.  
  69. #include <proto/iffparse.h>
  70. #include <proto/dos.h>
  71. #include <proto/exec.h>
  72. #include <libraries/iffparse.h>
  73. #include <dos/dosasl.h>
  74. #include <exec/memory.h>
  75. #include <string.h>
  76. #include <graphics/view.h>
  77. #include <math.h>
  78. #include <time.h>
  79. #include <iff/pchg.h>
  80. #include <clib/pchglib_protos.h>
  81.  
  82. /*  Bitmap header (BMHD) structure  */
  83. struct BitMapHeader {
  84.     UWORD    w, h;        /*  Width, height in pixels */
  85.     WORD    x, y;        /*  x, y position for this bitmap  */
  86.     UBYTE    nplanes;    /*  # of planes  */
  87.     UBYTE    Masking;
  88.     UBYTE    Compression;
  89.     UBYTE    pad1;
  90.     UWORD    TransparentColor;
  91.     UBYTE    XAspect, YAspect;
  92.     WORD    PageWidth, PageHeight;
  93. };
  94.  
  95.  
  96. char Template[] = "Files/M/A,To/A,KillOld/S,Use24Bit/S,AllChanges/S,Comp/S";
  97. char EmbeddedVersion[] = "\0$VER: ToPCHG 37.4 (14.7.92)";
  98.  
  99. #define OPT_FILES        0
  100. #define OPT_TO            1
  101. #define OPT_KILLOLD    2
  102. #define OPT_24BIT        3
  103. #define OPT_ALLCHANGES 4
  104. #define OPT_COMP        5
  105.  
  106. #define ID_BODY MAKE_ID('B','O','D','Y')
  107. #define ID_CTBL MAKE_ID('C','T','B','L')
  108. #define ID_MPCT MAKE_ID('M','P','C','T')
  109. #define ID_ILBM MAKE_ID('I','L','B','M')
  110. #define ID_CMAP MAKE_ID('C','M','A','P')
  111. #define ID_BMHD MAKE_ID('B','M','H','D')
  112. #define ID_CAMG MAKE_ID('C','A','M','G')
  113. #define ID_SHAM MAKE_ID('S','H','A','M')
  114.  
  115. #define MAX_CHANGES_PER_LINE (7)
  116.  
  117. struct ExecBase *SysBase;
  118. struct Library *IFFParseBase;
  119.  
  120. static struct AnchorPath Anchor;
  121. static struct FileInfoBlock *fib;
  122. static BPTR DirLock;
  123. static LONG argv[6];
  124.  
  125. static void ConvertToPCHG(char *SouceName, BPTR SourceDir, char *DestName, BPTR DestDir, ULONG KillOld, ULONG Use24Bit, ULONG AllChanges, ULONG Comp);
  126. static void PrintError(int Code);
  127.  
  128. int __saveds __asm main(void) {
  129.  
  130.     int i, rc;
  131.     struct RDArgs *RA;
  132.  
  133.     SysBase = *(void **)4;
  134.     if (!(DOSBase = (void *)OpenLibrary("dos.library", 37))) return(ERROR_INVALID_RESIDENT_LIBRARY);
  135.  
  136.     if (IFFParseBase = OpenLibrary("iffparse.library", 37)) {
  137.  
  138.         if (RA = ReadArgs(Template, argv, NULL)) {
  139.             i = 0;
  140.             while(((char **)argv[OPT_FILES])[i++]);
  141.             Anchor.ap_BreakBits = SIGBREAKF_CTRL_C;
  142.  
  143. /* Here we decide the relationship source/dest. If the destination is a file, source
  144. has to be a single filename (possibly with wildcards, the first matching file will
  145. be used). If destination is a directory, we scan all sources and place the results in it.
  146. If we have many sources and destination is a file, we issue a ``wrong object type'' error. */
  147.  
  148.             if (fib = AllocDosObject(DOS_FIB, NULL)) {
  149.                 if  ((DirLock = Lock((char *)argv[OPT_TO], ACCESS_READ)) && (rc = Examine(DirLock, fib)) && fib->fib_DirEntryType>0) {
  150.                     rc = i = 0;
  151.  
  152.                     while(!rc && ((char **)argv[OPT_FILES])[i]) {
  153.                         rc = MatchFirst(((char **)argv[OPT_FILES])[i++], &Anchor);
  154.                         while(!rc) {
  155.                             if (Anchor.ap_Info.fib_DirEntryType < 0) {
  156.                                 Printf("Converting %s...\n", Anchor.ap_Info.fib_FileName);
  157.                                 ConvertToPCHG(Anchor.ap_Info.fib_FileName, Anchor.ap_Last->an_Lock, Anchor.ap_Info.fib_FileName, DirLock, argv[OPT_KILLOLD], argv[OPT_24BIT], argv[OPT_ALLCHANGES], argv[OPT_COMP]);
  158.                             }
  159.                             rc = MatchNext(&Anchor);
  160.                         }
  161.                         MatchEnd(&Anchor);
  162.  
  163.                         if (rc == ERROR_NO_MORE_ENTRIES) rc = 0;
  164.                     }
  165.                     if (rc) PrintError(rc);
  166.                 }
  167.                 else if (!DirLock && i>2) PrintError(ERROR_OBJECT_NOT_FOUND);
  168.                 else if (DirLock && rc && i>2) PrintError(ERROR_OBJECT_WRONG_TYPE);
  169.                 else if (i == 2) {
  170.                     UnLock(DirLock);
  171.                     DirLock = NULL;
  172.                     if (rc = MatchFirst(((char **)argv[OPT_FILES])[0], &Anchor)) PrintError(rc);
  173.                     else ConvertToPCHG(Anchor.ap_Info.fib_FileName, Anchor.ap_Last->an_Lock, (char *)argv[OPT_TO], ((struct Process *)FindTask(NULL))->pr_CurrentDir, argv[OPT_KILLOLD], argv[OPT_24BIT], argv[OPT_ALLCHANGES], argv[OPT_COMP]);
  174.                     MatchEnd(&Anchor);
  175.                 }
  176.                 else PrintError(IoErr());
  177.                 if (DirLock) UnLock(DirLock);
  178.                 FreeDosObject(DOS_FIB, fib);
  179.             }
  180.             else PrintError(ERROR_NO_FREE_STORE);
  181.             FreeArgs(RA);
  182.         }
  183.         else PrintError(IoErr());
  184.  
  185.         CloseLibrary(IFFParseBase);
  186.     }
  187.     else PutStr("Can't find iffparse.library\n");
  188.     return(0);
  189. }
  190.  
  191.  
  192. static void PrintError(int Code) {
  193.     PrintFault(Code, (char *)BADDR(((struct CommandLineInterface *)BADDR(((struct Process *)FindTask(NULL))->pr_CLI))->cli_CommandName)+1);
  194. }
  195.  
  196. static int PrintIFFError(int Code) {
  197.     switch(Code) {
  198.         case IFFERR_NOSCOPE:    PutStr("No valid scope for property\n");
  199.                                     break;
  200.         case IFFERR_NOMEM:    PutStr("IFFParse memory allocation failed\n");
  201.                                     break;
  202.         case IFFERR_READ:        PutStr("IFFParse read error\n");
  203.                                     break;
  204.         case IFFERR_SEEK:        PutStr("IFFParse seek error\n");
  205.                                     break;
  206.         case IFFERR_MANGLED:    PutStr("Data in file is corrupt\n");
  207.                                     break;
  208.         case IFFERR_SYNTAX:    PutStr("IFF syntax error\n");
  209.                                     break;
  210.         case IFFERR_NOTIFF:    PutStr("Not an IFF file\n");
  211.                                     break;
  212.         default: break;
  213.     }
  214.     return(Code);
  215. }
  216.  
  217.  
  218. static char ID[8];
  219. static ULONG HoldChunk[] = { ID_MPCT, ID_CMAP, ID_CTBL, ID_SHAM };
  220.  
  221.  
  222. /* Here we take two locks (for two dirs) and two filenames. We convert the
  223. source to the destination. */
  224.  
  225. static void ConvertToPCHG(char *SourceName, BPTR SourceDir, char *DestName, BPTR DestDir, ULONG KillOld, ULONG Use24Bit, ULONG AllChanges, ULONG Comp) {
  226.  
  227.     ULONG in = 0, out = 0, DataSize, TreeSize, SourceSize, ChangeCount, ChangedLines, MaxChanges, TotalChanges, MinReg, MaxReg;
  228.     int i,j,t, Skip;
  229.     struct IFFHandle *iffi = NULL, *iffo = NULL;
  230.     BPTR TLock;
  231.     int rc;
  232.     struct ContextNode *cn;
  233.     char *b;
  234.     BOOL IsLace, openi = TRUE, openo = TRUE, RestoreOld, IsSHAM = FALSE, IsCTBL = FALSE;
  235.     UWORD (*CTBL)[16] = NULL, *RGB;
  236.     UBYTE *CMAP = NULL;
  237.     ULONG CTBLSize, *LineMask;
  238.     struct StoredProperty *sp;
  239.     struct SmallLineChanges *slc;
  240.     struct BigLineChanges *blc;
  241.     struct BigPaletteChange *pc;
  242.     char *p, *LC = NULL;
  243.     struct PCHGHeader *ph;
  244.     struct PCHGCompHeader *pch;
  245.  
  246.     if (!(LC = AllocVec(sizeof(struct PCHGHeader)+128+(sizeof(struct SmallLineChanges)+sizeof(struct BigPaletteChange)*16)*300, MEMF_PUBLIC | MEMF_CLEAR))) {
  247.         PrintError(ERROR_NO_FREE_STORE);
  248.         return;
  249.     }
  250.  
  251.     TLock = CurrentDir(SourceDir);
  252.     if (!(in = Open(SourceName, MODE_OLDFILE))) PrintError(IoErr());
  253.     CurrentDir(TLock);
  254.  
  255.     if (iffi = AllocIFF()) iffi->iff_Stream = in;
  256.     else PrintError(ERROR_NO_FREE_STORE);
  257.  
  258.     if (in && iffi) {
  259.         InitIFFasDOS(iffi);
  260.         if (!PrintIFFError(openi = OpenIFF(iffi, IFFF_READ))) {
  261.  
  262. /* These are the chunk we need to gather for our conversion code */
  263.  
  264.             PropChunk(iffi, ID_ILBM, ID_CMAP);
  265.             PropChunk(iffi, ID_ILBM, ID_CTBL);
  266.             PropChunk(iffi, ID_ILBM, ID_MPCT);
  267.             PropChunk(iffi, ID_ILBM, ID_BMHD);
  268.             PropChunk(iffi, ID_ILBM, ID_SHAM);
  269.             PropChunk(iffi, ID_ILBM, ID_CAMG);
  270.  
  271.             TLock = CurrentDir(DestDir);
  272.             if (!(out = Open(DestName, MODE_NEWFILE))) PrintError(IoErr());
  273.             CurrentDir(TLock);
  274.  
  275.             if (iffo = AllocIFF()) iffo->iff_Stream = out;
  276.             else PrintError(ERROR_NO_FREE_STORE);
  277.  
  278.             if (out && iffo) {
  279.                 InitIFFasDOS(iffo);
  280.                 if (!PrintIFFError(openo = OpenIFF(iffo, IFFF_WRITE))) do {
  281.                     PrintIFFError(rc = ParseIFF(iffi, IFFPARSE_STEP));
  282.                     cn = CurrentChunk(iffi);
  283.  
  284. /* If we get an EOC (end of context), there are three cases: we are out of a wrapper
  285. (FORM, CAT, etc.) and then we simply PopChunk(); or we are out of a chunk we
  286. are gathering (and then we write it, unless KillOld is on and the chunk is a
  287. HoldChunk), or it's a chunk we're not gathering (and then we do nothing). This
  288. mechanism is necessary because iffparse complains if we read manually a chunk
  289. we asked to be gathered. */
  290.  
  291.                     if (rc == IFFERR_EOC) {
  292.                             if (cn->cn_Type == ID_ILBM && ((cn->cn_ID == ID_MPCT && !KillOld) || cn->cn_ID == ID_BMHD || cn->cn_ID == ID_CAMG || (cn->cn_ID == ID_CTBL && !KillOld) || (cn->cn_ID == ID_SHAM && !KillOld) || (cn->cn_ID == ID_CMAP && !KillOld))) {
  293.                             PrintIFFError(rc = PushChunk(iffo, cn->cn_Type, cn->cn_ID, cn->cn_Size));
  294.                             sp = FindProp(iffi, cn->cn_Type, cn->cn_ID);
  295.                             PrintIFFError(WriteChunkBytes(iffo, sp->sp_Data, sp->sp_Size));
  296.                             PrintIFFError(rc = PopChunk(iffo));
  297.                         }
  298.                         else if (cn->cn_ID == ID_FORM || cn->cn_ID == ID_CAT || cn->cn_ID == ID_LIST || cn->cn_ID == ID_PROP)
  299.                             PrintIFFError(rc = PopChunk(iffo));
  300.                         else rc = 0;
  301.                     }
  302.                     else if (!rc) {
  303.                         IDtoStr(cn->cn_ID, ID);
  304.                         Printf("Found chunk; ID: %s", ID);
  305.                         IDtoStr(cn->cn_Type, ID);
  306.                         Printf("  Type: %s  Size: %ld\n", ID, cn->cn_Size);
  307.  
  308. /* We are just entering a chunk. If it's a wrapper we just PushChunk(), otherwise
  309. if it's a BODY we do our conversion work. Then if it's a HoldChunk we do nothing,
  310. otherwise we write it. Note that if something is wrong in the conversion, all
  311. chunks which were gathered but not written because KillOld was on are written
  312. just before the BODY (this includes MPCT, CMAP, SHAM and CTBL).
  313.  
  314. The code is very clumsy, but I don't think making it well-readable would
  315. change the meaning of life *that* much. */
  316.  
  317.  
  318.                         if (cn->cn_ID == ID_FORM || cn->cn_ID == ID_CAT || cn->cn_ID == ID_LIST || cn->cn_ID == ID_PROP)
  319.                             PrintIFFError(rc = PushChunk(iffo, cn->cn_Type, cn->cn_ID, IFFSIZE_UNKNOWN));
  320.                         else  {
  321.                             if (cn->cn_Type == ID_ILBM && cn->cn_ID == ID_BODY) {
  322.                                 RestoreOld = TRUE;
  323.                                 if ((IsCTBL = ((sp = FindProp(iffi, ID_ILBM, ID_CTBL)) != NULL)) || (IsSHAM = ((sp = FindProp(iffi, ID_ILBM, ID_SHAM)) != NULL))) {
  324.                                     CTBLSize = sp->sp_Size - (IsSHAM ? 2 : 0);
  325.                                     CTBL = (void *)((char *)sp->sp_Data+(IsSHAM ? 2 : 0));
  326.                                     if (IsCTBL) PutStr("Got a CTBL chunk, going to convert to PCHG...\n");
  327.                                     else PutStr("Got a SHAM chunk, going to convert to PCHG...\n");
  328.                                     IsLace = (sp = FindProp(iffi, ID_ILBM, ID_CAMG)) && (*((ULONG *)sp->sp_Data) & LACE);
  329.                                     if (FindProp(iffi, ID_ILBM, ID_MPCT)) PutStr("Got a MPCT chunk, too, it should be a MacroPaint picture...\n");
  330.                                     if ((sp = FindProp(iffi, ID_ILBM, ID_CMAP)) && sp->sp_Size >= 48) {
  331.                                         RestoreOld = FALSE;
  332.                                         CMAP = (UBYTE *)sp->sp_Data;
  333.                                         for(i=0; i<16; i++) {
  334.                                             CMAP[i*3] = (CTBL[0][i] & 0xF00)>>4;
  335.                                             CMAP[i*3+1] = (CTBL[0][i] & 0xF0);
  336.                                             CMAP[i*3+2] = (CTBL[0][i] & 0xF)<<4;
  337.                                         }
  338.                                         PrintIFFError(PushChunk(iffo, ID_ILBM, ID_CMAP, sp->sp_Size));
  339.                                         PrintIFFError(WriteChunkBytes(iffo, CMAP, sp->sp_Size));
  340.                                         PrintIFFError(PopChunk(iffo));
  341.  
  342.                                         MaxReg = TotalChanges = ChangedLines = MaxChanges = 0;
  343.                                         MinReg = 16;
  344.                                         PrintIFFError(PushChunk(iffo, ID_ILBM, ID_PCHG, IFFSIZE_UNKNOWN));
  345.                                         ph = (void *)LC;
  346.                                         p = (void *)(LineMask = (void *)&ph[1]);
  347.                                         blc = (void *)(slc = (void *)(LineMask+((CTBLSize/(16*sizeof(UWORD)))*(1+(IsSHAM && IsLace))+31)/32));
  348.                                         Skip = 1+(IsLace && IsCTBL);
  349.                                         for(i=Skip; i<CTBLSize/(16*sizeof(UWORD)); i+=Skip) {
  350.                                             ChangeCount = 0;
  351.                                             if (Use24Bit) pc = (void *)&blc[1];
  352.                                             else RGB = (void *)&slc[1];
  353.                                             for(j=0; j<16; j++)
  354.                                                 if ((t = CTBL[i][j]) != CTBL[i-Skip][j]) {
  355.                                                     if ((Use24Bit && (AllChanges || blc->ChangeCount<MAX_CHANGES_PER_LINE)) ||
  356.                                                         (!Use24Bit && (AllChanges || slc->ChangeCount16<MAX_CHANGES_PER_LINE))) {
  357.                                                         if (j>MaxReg) MaxReg = j;
  358.                                                         if (j<MinReg) MinReg = j;
  359.                                                         TotalChanges++;
  360.                                                         if (Use24Bit) {
  361.                                                             blc->ChangeCount++;
  362.                                                             pc->Register = j;
  363.                                                             pc->Red = (t & 0xF00)>>4;
  364.                                                             pc->Green = t & 0xF0;
  365.                                                             pc->Blue = (t & 0xF)<<4;
  366.                                                             pc++;
  367.                                                         }
  368.                                                         else {
  369.                                                             slc->ChangeCount16++;
  370.                                                             *(RGB++) = t | j<<12;
  371.                                                         }
  372.                                                     }
  373.                                                 }
  374.                                             if ((Use24Bit && (t = blc->ChangeCount)) || (t = slc->ChangeCount16)) {
  375.                                                 ChangedLines++;
  376.                                                 if (Use24Bit) blc = (void *)pc;
  377.                                                 else slc = (void *)RGB;
  378.                                                 if (MaxChanges<t) MaxChanges = t;
  379.                                                 LineMask[(i*(1+(IsSHAM && IsLace)))/32] |= 1<<(31-((i*(1+(IsSHAM && IsLace)))%32));
  380.                                             }
  381.                                         }
  382.                                         SourceSize = (Use24Bit ? (char *)blc : (char *)slc)-p;
  383.                                         ph->Flags = Use24Bit ? PCHGF_32BIT : PCHGF_12BIT;
  384.                                         ph->LineCount = (CTBLSize/(16*sizeof(UWORD)))*(1+(IsSHAM && IsLace));
  385.                                         ph->StartLine = 0;
  386.                                         ph->TotalChanges = TotalChanges;
  387.                                         ph->MaxChanges = MaxChanges;
  388.                                         ph->ChangedLines = ChangedLines;
  389.                                         ph->MinReg = MinReg;
  390.                                         ph->MaxReg = MaxReg;
  391.                                         if (Comp) {
  392.                                             p = PCHG_CompHuffmann(LineMask, SourceSize, &DataSize, &TreeSize);
  393.                                             ph->Compression = PCHG_COMP_HUFFMANN;
  394.                                             pch = (void *)&ph[1];
  395.                                             pch->CompInfoSize = TreeSize;
  396.                                             pch->OriginalDataSize = SourceSize;
  397.                                             WriteChunkBytes(iffo, LC, sizeof(struct PCHGHeader)+sizeof(struct PCHGCompHeader));
  398.                                             WriteChunkBytes(iffo, p, TreeSize+DataSize);
  399.                                             FreeMem(p, DataSize+TreeSize);
  400.                                         }
  401.                                         else {
  402.                                             ph->Compression = PCHG_COMP_NONE;
  403.                                             WriteChunkBytes(iffo, LC, SourceSize+sizeof(struct PCHGHeader));
  404.                                         }
  405.                                         PrintIFFError(PopChunk(iffo));
  406.                                     }
  407.                                     else PutStr("No CMAP or CMAP bad size\n");
  408.                                 }
  409.                                 else PutStr("No CTBL/SHAM chunk.\n");
  410.                                 if (RestoreOld && KillOld) {
  411.                                     for(i=0; i<sizeof(HoldChunk)/sizeof(ULONG); i++)
  412.                                         if (sp = FindProp(iffi, ID_ILBM, HoldChunk[i])) {
  413.                                             PrintIFFError(rc = PushChunk(iffo, ID_ILBM, HoldChunk[i], sp->sp_Size));
  414.                                             PrintIFFError(WriteChunkBytes(iffo, sp->sp_Data, sp->sp_Size));
  415.                                             PrintIFFError(rc = PopChunk(iffo));
  416.                                         }
  417.                                 }
  418.                             }
  419.  
  420.                             if (!(cn->cn_Type == ID_ILBM && (cn->cn_ID == ID_MPCT || cn->cn_ID == ID_BMHD || cn->cn_ID == ID_CTBL || cn->cn_ID == ID_SHAM || cn->cn_ID == ID_CAMG || cn->cn_ID == ID_CMAP))) {
  421.                                 PrintIFFError(rc = PushChunk(iffo, cn->cn_Type, cn->cn_ID, cn->cn_Size));
  422.                                 if (cn->cn_Size && (b = AllocMem(cn->cn_Size, MEMF_PUBLIC))) {
  423.                                     ReadChunkBytes(iffi, b, cn->cn_Size);
  424.                                     WriteChunkBytes(iffo, b, cn->cn_Size);
  425.                                     FreeMem(b, cn->cn_Size);
  426.                                 }
  427.                                 else PrintError(rc = ERROR_NO_FREE_STORE);
  428.                                 PopChunk(iffo);
  429.                             }
  430.                         }
  431.                     }
  432.                 } while(!rc);
  433.             }
  434.         }
  435.     }
  436.  
  437.     if (!openi) CloseIFF(iffi);
  438.     if (!openo) CloseIFF(iffo);
  439.     if (in) Close(in);
  440.     if (out) Close(out);
  441.     if (iffi) FreeIFF(iffi);
  442.     if (iffo) FreeIFF(iffo);
  443.     FreeVec(LC);
  444. }
  445.