libs/tiff/tif_dirwrite.c

63 	TIFFWriteRational((tif), (type), (tag1), (dir), (v1))	\
64 	TIFFWriteRational((tif), (type), (tag2), (dir)+1, (v2))	\
65 	(dir)++;						\
67 #define	TIFFWriteRational(tif, type, tag, dir, v)		\
68 	(dir)->tdir_tag = (tag);				\
69 	(dir)->tdir_type = (type);				\
70 	(dir)->tdir_count = 1;					\
71 	if (!TIFFWriteRationalArray((tif), (dir), &(v)))	\
89 	TIFFDirEntry* dir;
164 	dir = (TIFFDirEntry*) data;
218 			dir->tdir_tag = (uint16) tag;
219 			dir->tdir_type = (uint16) TIFF_LONG;
220 			dir->tdir_count = (uint32) td->td_nstrips;
221 			if (!TIFFWriteLongArray(tif, dir, td->td_stripoffset))
236 			dir->tdir_tag = (uint16) tag;
237 			dir->tdir_type = (uint16) TIFF_LONG;
238 			dir->tdir_count = (uint32) td->td_nstrips;
239 			if (!TIFFWriteLongArray(tif, dir, td->td_stripbytecount))
244 			    dir, td->td_rowsperstrip);
247 			if (!TIFFWriteShortTable(tif, TIFFTAG_COLORMAP, dir,
253 			    dir++, td->td_imagewidth);
255 			    dir, td->td_imagelength);
259 			    dir++, td->td_tilewidth);
261 			    dir, td->td_tilelength);
265 			    dir, td->td_compression);
269 			    dir, td->td_photometric);
285 			if (!TIFFWritePerSampleShorts(tif, fip->field_tag, dir))
291 			    _TIFFSampleToTagType(tif), fip->field_tag, dir))
297 			if (!TIFFSetupShortPair(tif, fip->field_tag, dir))
301 			if (!TIFFWriteInkNames(tif, dir))
305 			if (!TIFFWriteTransferFunction(tif, dir))
313 			dir->tdir_tag = (uint16) fip->field_tag;
314 			dir->tdir_type = (uint16) TIFF_LONG;
315 			dir->tdir_count = (uint32) td->td_nsubifd;
316 			if (!TIFFWriteLongArray(tif, dir, td->td_subifd))
326 			if (dir->tdir_count > 0) {
328 				tif->tif_nsubifd = (uint16) dir->tdir_count;
329 				if (dir->tdir_count > 1)
330 					tif->tif_subifdoff = dir->tdir_offset;
335 					    + ((char*)&dir->tdir_offset-data));
341 				if (!TIFFSetupShortPair(tif, fip->field_tag, dir))
344 			else if (!TIFFWriteNormalTag(tif, dir, fip))
348 		dir++;
370 		for (dir = (TIFFDirEntry*) data; dircount; dir++, dircount--) {
371 			TIFFSwabArrayOfShort(&dir->tdir_tag, 2);
372 			TIFFSwabArrayOfLong(&dir->tdir_count, 2);
444 	TIFFDirEntry* dir;
479 	dir = (TIFFDirEntry*) data;
527 		for (dir = (TIFFDirEntry*) data; dircount; dir++, dircount--) {
528 			TIFFSwabArrayOfShort(&dir->tdir_tag, 2);
529 			TIFFSwabArrayOfLong(&dir->tdir_count, 2);
568 TIFFWriteNormalTag(TIFF* tif, TIFFDirEntry* dir, const TIFFFieldInfo* fip)
573 	dir->tdir_tag = (uint16) fip->field_tag;
574 	dir->tdir_type = (uint16) fip->field_type;
575 	dir->tdir_count = wc;
584 				dir->tdir_count = wc2;
587 				dir->tdir_count = wc;
589 			if (!TIFFWriteShortArray(tif, dir, wp))
595 				dir->tdir_offset =
596 					TIFFInsertData(tif, dir->tdir_type, sv);
600 				if (!TIFFWriteShortArray(tif, dir, wp))
612 				dir->tdir_count = wc2;
615 				dir->tdir_count = wc;
617 			if (!TIFFWriteLongArray(tif, dir, lp))
623 					     &dir->tdir_offset);
627 				if (!TIFFWriteLongArray(tif, dir, lp))
638 				dir->tdir_count = wc2;
641 				dir->tdir_count = wc;
643 			if (!TIFFWriteRationalArray(tif, dir, fp))
649 				if (!TIFFWriteRationalArray(tif, dir, &fv))
654 				if (!TIFFWriteRationalArray(tif, dir, fp))
664 				dir->tdir_count = wc2;
667 				dir->tdir_count = wc;
669 			if (!TIFFWriteFloatArray(tif, dir, fp))
675 				if (!TIFFWriteFloatArray(tif, dir, &fv))
680 				if (!TIFFWriteFloatArray(tif, dir, fp))
690 				dir->tdir_count = wc2;
693 				dir->tdir_count = wc;
695 			if (!TIFFWriteDoubleArray(tif, dir, dp))
701 				if (!TIFFWriteDoubleArray(tif, dir, &dv))
706 				if (!TIFFWriteDoubleArray(tif, dir, dp))
724                     dir->tdir_count = (uint32) (strlen(cp) + 1);
725                     if (!TIFFWriteByteArray(tif, dir, cp))
736 				dir->tdir_count = wc2;
739 				dir->tdir_count = wc;
741 			if (!TIFFWriteByteArray(tif, dir, cp))
747 				if (!TIFFWriteByteArray(tif, dir, &cv))
752 				if (!TIFFWriteByteArray(tif, dir, cp))
762 			dir->tdir_count = wc;
765 			dir->tdir_count = wc2;
768 		  if (!TIFFWriteByteArray(tif, dir, cp))
784 TIFFSetupShortLong(TIFF* tif, ttag_t tag, TIFFDirEntry* dir, uint32 v)
786 	dir->tdir_tag = (uint16) tag;
787 	dir->tdir_count = 1;
789 		dir->tdir_type = (short) TIFF_LONG;
790 		dir->tdir_offset = v;
792 		dir->tdir_type = (short) TIFF_SHORT;
793 		dir->tdir_offset = TIFFInsertData(tif, (int) TIFF_SHORT, v);
801 TIFFSetupShort(TIFF* tif, ttag_t tag, TIFFDirEntry* dir, uint16 v)
803 	dir->tdir_tag = (uint16) tag;
804 	dir->tdir_count = 1;
805 	dir->tdir_type = (short) TIFF_SHORT;
806 	dir->tdir_offset = TIFFInsertData(tif, (int) TIFF_SHORT, v);
818 TIFFWritePerSampleShorts(TIFF* tif, ttag_t tag, TIFFDirEntry* dir)
837 	dir->tdir_tag = (uint16) tag;
838 	dir->tdir_type = (uint16) TIFF_SHORT;
839 	dir->tdir_count = samples;
840 	status = TIFFWriteShortArray(tif, dir, w);
853     TIFFDataType type, ttag_t tag, TIFFDirEntry* dir)
871 	status = TIFFWriteAnyArray(tif, type, tag, dir, samples, w);
883 TIFFSetupShortPair(TIFF* tif, ttag_t tag, TIFFDirEntry* dir)
889 	dir->tdir_tag = (uint16) tag;
890 	dir->tdir_type = (uint16) TIFF_SHORT;
891 	dir->tdir_count = 2;
892 	return (TIFFWriteShortArray(tif, dir, v));
902     ttag_t tag, TIFFDirEntry* dir, uint32 n, uint16** table)
906 	dir->tdir_tag = (uint16) tag;
907 	dir->tdir_type = (short) TIFF_SHORT;
909 	dir->tdir_count = (uint32) (1L<<tif->tif_dir.td_bitspersample);
912 		if (!TIFFWriteData(tif, dir, (char *)table[i]))
914 	dir->tdir_count *= n;
915 	dir->tdir_offset = off;
923 TIFFWriteByteArray(TIFF* tif, TIFFDirEntry* dir, char* cp)
925 	if (dir->tdir_count <= 4) {
927 			dir->tdir_offset = (uint32)cp[0] << 24;
928 			if (dir->tdir_count >= 2)
929 				dir->tdir_offset |= (uint32)cp[1] << 16;
930 			if (dir->tdir_count >= 3)
931 				dir->tdir_offset |= (uint32)cp[2] << 8;
932 			if (dir->tdir_count == 4)
933 				dir->tdir_offset |= cp[3];
935 			dir->tdir_offset = cp[0];
936 			if (dir->tdir_count >= 2)
937 				dir->tdir_offset |= (uint32) cp[1] << 8;
938 			if (dir->tdir_count >= 3)
939 				dir->tdir_offset |= (uint32) cp[2] << 16;
940 			if (dir->tdir_count == 4)
941 				dir->tdir_offset |= (uint32) cp[3] << 24;
945 		return TIFFWriteData(tif, dir, cp);
953 TIFFWriteShortArray(TIFF* tif, TIFFDirEntry* dir, uint16* v)
955 	if (dir->tdir_count <= 2) {
957 			dir->tdir_offset = (uint32) v[0] << 16;
958 			if (dir->tdir_count == 2)
959 				dir->tdir_offset |= v[1] & 0xffff;
961 			dir->tdir_offset = v[0] & 0xffff;
962 			if (dir->tdir_count == 2)
963 				dir->tdir_offset |= (uint32) v[1] << 16;
967 		return (TIFFWriteData(tif, dir, (char*) v));
975 TIFFWriteLongArray(TIFF* tif, TIFFDirEntry* dir, uint32* v)
977 	if (dir->tdir_count == 1) {
978 		dir->tdir_offset = v[0];
981 		return (TIFFWriteData(tif, dir, (char*) v));
989 TIFFWriteRationalArray(TIFF* tif, TIFFDirEntry* dir, float* v)
995 	t = (uint32*) _TIFFmalloc(2 * dir->tdir_count * sizeof (uint32));
1001 	for (i = 0; i < dir->tdir_count; i++) {
1007 			if (dir->tdir_type == TIFF_RATIONAL) {
1011 				_TIFFFieldWithTag(tif,dir->tdir_tag)->field_name,
1025 	status = TIFFWriteData(tif, dir, (char *)t);
1031 TIFFWriteFloatArray(TIFF* tif, TIFFDirEntry* dir, float* v)
1033 	TIFFCvtNativeToIEEEFloat(tif, dir->tdir_count, v);
1034 	if (dir->tdir_count == 1) {
1035 		dir->tdir_offset = *(uint32*) &v[0];
1038 		return (TIFFWriteData(tif, dir, (char*) v));
1042 TIFFWriteDoubleArray(TIFF* tif, TIFFDirEntry* dir, double* v)
1044 	TIFFCvtNativeToIEEEDouble(tif, dir->tdir_count, v);
1045 	return (TIFFWriteData(tif, dir, (char*) v));
1059     TIFFDataType type, ttag_t tag, TIFFDirEntry* dir, uint32 n, double* v)
1074 	dir->tdir_tag = (uint16) tag;
1075 	dir->tdir_type = (uint16) type;
1076 	dir->tdir_count = n;
1084 			if (!TIFFWriteByteArray(tif, dir, (char*) bp))
1093 			if (!TIFFWriteByteArray(tif, dir, (char*) bp))
1102 			if (!TIFFWriteShortArray(tif, dir, (uint16*)bp))
1111 			if (!TIFFWriteShortArray(tif, dir, (uint16*)bp))
1120 			if (!TIFFWriteLongArray(tif, dir, bp))
1129 			if (!TIFFWriteLongArray(tif, dir, (uint32*) bp))
1138 			if (!TIFFWriteFloatArray(tif, dir, bp))
1144                     if( !TIFFWriteDoubleArray(tif, dir, v))
1164 TIFFWriteTransferFunction(TIFF* tif, TIFFDirEntry* dir)
1183 	    TIFFTAG_TRANSFERFUNCTION, dir, ncols, tf));
1187 TIFFWriteInkNames(TIFF* tif, TIFFDirEntry* dir)
1191 	dir->tdir_tag = TIFFTAG_INKNAMES;
1192 	dir->tdir_type = (short) TIFF_ASCII;
1193 	dir->tdir_count = td->td_inknameslen;
1194 	return (TIFFWriteByteArray(tif, dir, td->td_inknames));
1201 TIFFWriteData(TIFF* tif, TIFFDirEntry* dir, char* cp)
1206 		switch (dir->tdir_type) {
1209 			TIFFSwabArrayOfShort((uint16*) cp, dir->tdir_count);
1214 			TIFFSwabArrayOfLong((uint32*) cp, dir->tdir_count);
1218 			TIFFSwabArrayOfLong((uint32*) cp, 2*dir->tdir_count);
1221 			TIFFSwabArrayOfDouble((double*) cp, dir->tdir_count);
1225 	dir->tdir_offset = tif->tif_dataoff;
1226 	cc = dir->tdir_count * TIFFDataWidth((TIFFDataType) dir->tdir_type);
1227 	if (SeekOK(tif, dir->tdir_offset) &&
1234 	_TIFFFieldWithTag(tif, dir->tdir_tag)->field_name);