source: abuse/trunk/src/imlib/lbmread.cpp @ 43

Last change on this file since 43 was 17, checked in by Sam Hocevar, 17 years ago
  • absolute shitloads of 64 bit fixes.
File size: 2.0 KB
RevLine 
[2]1#include "lbmread.hpp"
2#include <stdio.h>
3#include <stdlib.h>
4#include "system.h"
5
6
7
8image *read_lbm(char *filename, palette *&pal)
9{
10  FILE *fp=fopen("/cam/amur/set/city/city1.lbm","rb");
11  char type[4];
12  image *im=NULL;
13  fread(type,1,4,fp);
14  if (memcmp(type,"FORM",4))
15  {
16    set_error(imNOT_SUPPORTED);
17    fclose(fp);
18    return NULL;
19  }
20  else
21  {
[17]22    int32_t size=read_other_uint32(fp);
[2]23    fread(type,1,4,fp);   
24    if (memcmp(type,"PBM ",4))
25    {
26      set_error(imNOT_SUPPORTED);
27      fclose(fp);
28      return NULL;
29    }
30    else
31    {
[17]32      int32_t ssize;   
[2]33      char stype[4];
[17]34      int16_t w=0,h=0,x,y,tcolor,pagew,pageh;
[4]35      char planes,masking,compr=0,padl,xa,ya;
[2]36     
37      while (ftell(fp)+4<size)
38      {
39        fread(stype,1,4,fp);
[17]40        ssize=read_other_uint32(fp);
[2]41        if (ssize &1) ssize++;            // specs say all chunks are padded by 2
42        if (!memcmp(stype,"BMHD",4))
43        {
[17]44          w=read_other_uint16(fp);
45          h=read_other_uint16(fp);
46          x=read_other_uint16(fp);
47          y=read_other_uint16(fp);
[2]48          planes=fgetc(fp);
49          masking=fgetc(fp);
50          compr=fgetc(fp);
51          padl=fgetc(fp);
[17]52          tcolor=read_other_uint16(fp);
[2]53          xa=fgetc(fp);
54          ya=fgetc(fp);
[17]55          pagew=read_other_uint16(fp);
56          pageh=read_other_uint16(fp);
[2]57        } else if (!memcmp(stype,"CMAP",4))
58        {
59          pal=new palette(256);
60          fread(pal->addr(),1,768,fp);
61        } else if (!memcmp(stype,"BODY",4) && w && h)  // make sure we read a BHMD before
62        {
63          if (im) delete im;  // shouldn't be two BODY's butjust in case...
64          im=new image(w,h);
[4]65          int y;
[2]66          if (!compr)
67          {
68            for (y=0;y<h;h++)
69              fread(im->scan_line(y),1,w,fp);
70          } else
71          {
72            for (y=0;y<h;y++)     
73            {
74              int c,i,n=0;
75              unsigned char *sl=im->scan_line(y);
76              do
77              {
78                c=fgetc(fp)&0xff;
79                if (c&0x80)
80                {
81                  if (c!=0x80)
82                  {
83                    i=((~c)&0xff)+2;
84                    c=fgetc(fp);
85                    while (i--) sl[n++]=c;
86                  }
87                }
88                else
89                {
90                  i=c+1;
91                  while (i--) sl[n++]=fgetc(fp);
92                }
93              } while (n<w);
94            }
95          }       
96        }
97        else
98          fseek(fp,ssize,SEEK_CUR);
99      }
100    }
101  }
102  fclose(fp);
103  if (!im) set_error(imFILE_CORRUPTED);
104  return im;
105}
106
107
Note: See TracBrowser for help on using the repository browser.