1 : /**********************************************************************
2 : *
3 : * geo_tiffp.c Private TIFF interface module for GEOTIFF
4 : *
5 : * This module implements the interface between the GEOTIFF
6 : * tag parser and the TIFF i/o module. The current setup
7 : * relies on the "libtiff" code, but if you use your own
8 : * TIFF reader software, you may replace the module implementations
9 : * here with your own calls. No "libtiff" dependencies occur
10 : * anywhere else in this code.
11 : *
12 : * copyright (c) 1995 Niles D. Ritter
13 : *
14 : * Permission granted to use this software, so long as this copyright
15 : * notice accompanies any products derived therefrom.
16 : *
17 : **********************************************************************/
18 :
19 : #include "geotiff.h" /* public GTIFF interface */
20 :
21 : #include "geo_tiffp.h" /* Private TIFF interface */
22 : #include "geo_keyp.h" /* Private GTIFF interface */
23 :
24 : /* tiff size array global */
25 : gsize_t _gtiff_size[] = { 0, 1, 2, 4, 8, 1, 4, 8, 1, 2, 4, 1 };
26 :
27 : static int _GTIFGetField (tiff_t *tif, pinfo_t tag, int *count, void *value );
28 : static int _GTIFSetField (tiff_t *tif, pinfo_t tag, int count, void *value );
29 : static tagtype_t _GTIFTagType (tiff_t *tif, pinfo_t tag);
30 :
31 : /*
32 : * Set up default TIFF handlers.
33 : */
34 6154 : void _GTIFSetDefaultTIFF(TIFFMethod *method)
35 : {
36 6154 : if (!method) return;
37 :
38 6154 : method->get = _GTIFGetField;
39 6154 : method->set = _GTIFSetField;
40 6154 : method->type = _GTIFTagType;
41 : }
42 :
43 41959 : gdata_t _GTIFcalloc(gsize_t size)
44 : {
45 41959 : gdata_t data=(gdata_t)_TIFFmalloc((tsize_t)size);
46 41959 : if (data) _TIFFmemset((tdata_t)data,0,(tsize_t)size);
47 41959 : return data;
48 : }
49 :
50 6050 : gdata_t _GTIFrealloc(gdata_t ptr, gsize_t size)
51 : {
52 6050 : return( _TIFFrealloc((tdata_t)ptr, (tsize_t) size) );
53 : }
54 :
55 23577 : void _GTIFmemcpy(gdata_t out,gdata_t in,gsize_t size)
56 : {
57 23577 : _TIFFmemcpy((tdata_t)out,(tdata_t)in,(tsize_t)size);
58 23577 : }
59 :
60 41960 : void _GTIFFree(gdata_t data)
61 : {
62 41960 : if (data) _TIFFfree((tdata_t)data);
63 41960 : }
64 :
65 :
66 :
67 : /* returns the value of TIFF tag <tag>, or if
68 : * the value is an array, returns an allocated buffer
69 : * containing the values. Allocate a copy of the actual
70 : * buffer, sized up for updating.
71 : */
72 18462 : static int _GTIFGetField (tiff_t *tif, pinfo_t tag, int *count, void *val )
73 : {
74 : int status;
75 18462 : unsigned short scount=0;
76 : char *tmp;
77 : char *value;
78 18462 : gsize_t size = _gtiff_size[_GTIFTagType (tif,tag)];
79 :
80 18462 : if (_GTIFTagType(tif, tag) == TYPE_ASCII)
81 : {
82 6154 : status = TIFFGetField((TIFF *)tif,tag,&tmp);
83 6154 : if (!status) return status;
84 4007 : scount = (unsigned short) (strlen(tmp)+1);
85 : }
86 12308 : else status = TIFFGetField((TIFF *)tif,tag,&scount,&tmp);
87 16315 : if (!status) return status;
88 :
89 10057 : *count = scount;
90 :
91 10057 : value = (char *)_GTIFcalloc( (scount+MAX_VALUES)*size);
92 10057 : if (!value) return 0;
93 :
94 10057 : _TIFFmemcpy( value, tmp, size * scount);
95 :
96 10057 : *(char **)val = value;
97 10057 : return status;
98 : }
99 :
100 : /*
101 : * Set a GeoTIFF TIFF field.
102 : */
103 2629 : static int _GTIFSetField (tiff_t *tif, pinfo_t tag, int count, void *value )
104 : {
105 : int status;
106 2629 : unsigned short scount = (unsigned short) count;
107 :
108 : /* libtiff ASCII uses null-delimiter */
109 2629 : if (_GTIFTagType(tif, tag) == TYPE_ASCII)
110 944 : status = TIFFSetField((TIFF *)tif,tag,value);
111 : else
112 1685 : status = TIFFSetField((TIFF *)tif,tag,scount,value);
113 2629 : return status;
114 : }
115 :
116 :
117 : /*
118 : * This routine is supposed to return the TagType of the <tag>
119 : * TIFF tag. Unfortunately, "libtiff" does not provide this
120 : * service by default, so we just have to "know" what type of tags
121 : * we've got, and how many. We only define the ones Geotiff
122 : * uses here, and others return UNKNOWN. The "tif" parameter
123 : * is provided for those TIFF implementations that provide
124 : * for tag-type queries.
125 : */
126 66633 : static tagtype_t _GTIFTagType (tiff_t *tif, pinfo_t tag)
127 : {
128 : tagtype_t ttype;
129 :
130 : (void) tif; /* dummy reference */
131 :
132 66633 : switch (tag)
133 : {
134 18238 : case GTIFF_ASCIIPARAMS: ttype=TYPE_ASCII; break;
135 : case GTIFF_PIXELSCALE:
136 : case GTIFF_TRANSMATRIX:
137 : case GTIFF_TIEPOINTS:
138 17570 : case GTIFF_DOUBLEPARAMS: ttype=TYPE_DOUBLE; break;
139 30825 : case GTIFF_GEOKEYDIRECTORY: ttype=TYPE_SHORT; break;
140 0 : default: ttype = TYPE_UNKNOWN;
141 : }
142 :
143 66633 : return ttype;
144 : }
145 :
|
