[BACK]Return to image.C CVS log [TXT] [DIR] Up to [parser3project] / parser3 / src / classes

Diff for /parser3/src/classes/image.C between versions 1.90.2.13 and 1.152

version 1.90.2.13, 2003/03/04 12:38:15 version 1.152, 2016/07/21 18:30:10
Line 1 Line 1
 /** @file  /** @file
         Parser: @b image parser class.          Parser: @b image parser class.
   
         Copyright(c) 2001-2003 ArtLebedev Group (http://www.artlebedev.com)          Copyright (c) 2001-2015 Art. Lebedev Studio (http://www.artlebedev.com)
         Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)          Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
 */  */
   
 static const char* IDENT_IMAGE_C="$Date$";  
   
 /*  /*
         jpegsize: gets the width and height (in pixels) of a jpeg file          jpegsize: gets the width and height (in pixels) of a jpeg file
         Andrew Tong, werdna@ugcs.caltech.edu           February 14, 1995          Andrew Tong, werdna@ugcs.caltech.edu           February 14, 1995
Line 17  static const char* IDENT_IMAGE_C="$Date$ Line 15  static const char* IDENT_IMAGE_C="$Date$
 */  */
   
 #include "pa_config_includes.h"  #include "pa_config_includes.h"
   
 #include "pa_vmethod_frame.h"  
   
 #include "gif.h"  #include "gif.h"
   
   #include "pa_vmethod_frame.h"
 #include "pa_common.h"  #include "pa_common.h"
 #include "pa_request.h"  #include "pa_request.h"
 #include "pa_vfile.h"  #include "pa_vfile.h"
Line 29  static const char* IDENT_IMAGE_C="$Date$ Line 25  static const char* IDENT_IMAGE_C="$Date$
 #include "pa_vdate.h"  #include "pa_vdate.h"
 #include "pa_table.h"  #include "pa_table.h"
   
   volatile const char * IDENT_IMAGE_C="$Id$";
   
   // defines
   
   static const String spacebar_width_name("space");
   static const String monospace_width_name("width");
   static const String letter_spacing_name("spacing");
   
 // class  // class
   
 class MImage: public Methoded {  class MImage: public Methoded {
 public: // VStateless_class  public: // VStateless_class
         ValuePtr create_new_value() { return ValuePtr(new VImage()); }          Value* create_new_value(Pool&) { return new VImage(); }
   
 public:  public:
         MImage();          MImage();
   
 public: // Methoded  
         bool used_directly() { return true; }  
   
 };  };
   
 // globals  // globals
   
 DECLARE_CLASS_VAR(image, new MImage, 0);  DECLARE_CLASS_VAR(image, new MImage);
   
 // helpers  // helpers
   
   #define EXIF_TAG(tag, name) put(tag, #name);
   
 /// value of exif tag -> it's value  /// value of exif tag -> it's value
 class EXIF_tag_value2name: public Hash<int, const char* > {  class EXIF_tag_value2name: public Hash<int, const char*> {
 public:  public:
         EXIF_tag_value2name() {          EXIF_tag_value2name() {
         // image JPEG Exif          // image JPEG Exif
                 #define EXIF_TAG(tag, name) \  
                         exif_tag_value2name.put(tag, #name);  
                 // Tags used by IFD0 (main image)                  // Tags used by IFD0 (main image)
                 EXIF_TAG(0x010e,        ImageDescription);                  EXIF_TAG(0x010e,        ImageDescription);
                 EXIF_TAG(0x010f,        Make);                  EXIF_TAG(0x010f,        Make);
Line 130  public: Line 130  public:
                 EXIF_TAG(0x83bb,        IPTC/NAA);                  EXIF_TAG(0x83bb,        IPTC/NAA);
                 EXIF_TAG(0x8773,        InterColorProfile);                  EXIF_TAG(0x8773,        InterColorProfile);
                 EXIF_TAG(0x8824,        SpectralSensitivity);                  EXIF_TAG(0x8824,        SpectralSensitivity);
                 EXIF_TAG(0x8825,        GPSInfo);                  //EXIF_TAG(0x8825,      GPSInfo);
                 EXIF_TAG(0x8828,        OECF);                  EXIF_TAG(0x8828,        OECF);
                 EXIF_TAG(0x8829,        Interlace);                  EXIF_TAG(0x8829,        Interlace);
                 EXIF_TAG(0x882a,        TimeZoneOffset);                  EXIF_TAG(0x882a,        TimeZoneOffset);
Line 147  public: Line 147  public:
                 EXIF_TAG(0xa20b,        FlashEnergy);                  EXIF_TAG(0xa20b,        FlashEnergy);
                 EXIF_TAG(0xa20c,        SpatialFrequencyResponse);                  EXIF_TAG(0xa20c,        SpatialFrequencyResponse);
                 EXIF_TAG(0xa214,        SubjectLocation);                  EXIF_TAG(0xa214,        SubjectLocation);
                 #undef EXIF_TAG  
                   // additional things added by misha@
                   EXIF_TAG(0x0100,        ImageWidth);
                   EXIF_TAG(0x0101,        ImageLength);
                   EXIF_TAG(0x0102,        BitsPerSample);
                   EXIF_TAG(0x0103,        Compression);
                   EXIF_TAG(0x0106,        PhotometricInterpretation);
                   EXIF_TAG(0x010a,        FillOrder);
                   EXIF_TAG(0x010d,        DocumentName);
                   EXIF_TAG(0x0111,        StripOffsets);
                   EXIF_TAG(0x0115,        SamplesPerPixel);
                   EXIF_TAG(0x0116,        RowsPerStrip);
                   EXIF_TAG(0x0117,        StripByteCounts);
                   EXIF_TAG(0x011c,        PlanarConfiguration);
                   EXIF_TAG(0x0156,        TransferRange);
                   EXIF_TAG(0x0200,        JPEGProc);
                   EXIF_TAG(0x0201,        JPEGInterchangeFormat);
                   EXIF_TAG(0x0202,        JPEGInterchangeFormatLength);
                   EXIF_TAG(0x0212,        YCbCrSubSampling);
                   EXIF_TAG(0xa401,        CustomRendered);
                   EXIF_TAG(0xa402,        ExposureMode);
                   EXIF_TAG(0xa403,        WhiteBalance);
                   EXIF_TAG(0xa404,        DigitalZoomRatio);
                   EXIF_TAG(0xa405,        FocalLengthIn35mmFilm);
                   EXIF_TAG(0xa406,        SceneCaptureType);
                   EXIF_TAG(0xa407,        GainControl);
                   EXIF_TAG(0xa408,        Contrast);
                   EXIF_TAG(0xa409,        Saturation);
                   EXIF_TAG(0xa40a,        Sharpness);
                   EXIF_TAG(0xa40b,        DeviceSettingDescription);
                   EXIF_TAG(0xa40c,        SubjectDistanceRange);
                   EXIF_TAG(0xa420,        ImageUniqueID);
   
                   // other tags
                   EXIF_TAG(0xa430,        CameraOwnerName);
                   EXIF_TAG(0xa431,        BodySerialNumber);
                   EXIF_TAG(0xa432,        LensSpecification);
                   EXIF_TAG(0xa433,        LensManufactor);
                   EXIF_TAG(0xa434,        LensModel);
                   EXIF_TAG(0xa435,        LensSerialNumber);
         }          }
 } exif_tag_value2name;  } exif_tag_value2name;
   
   class EXIF_gps_tag_value2name: public Hash<int, const char*> {
   public:
                   EXIF_gps_tag_value2name() {
                   EXIF_TAG(0x0,   GPSVersionID);
                   EXIF_TAG(0x1,   GPSLatitudeRef);
                   EXIF_TAG(0x2,   GPSLatitude);
                   EXIF_TAG(0x3,   GPSLongitudeRef);
                   EXIF_TAG(0x4,   GPSLongitude);
                   EXIF_TAG(0x5,   GPSAltitudeRef);
                   EXIF_TAG(0x6,   GPSAltitude);
                   EXIF_TAG(0x7,   GPSTimeStamp);
                   EXIF_TAG(0x8,   GPSSatellites);
                   EXIF_TAG(0x9,   GPSStatus);
                   EXIF_TAG(0xA,   GPSMeasureMode);
                   EXIF_TAG(0xB,   GPSDOP);
                   EXIF_TAG(0xC,   GPSSpeedRef);
                   EXIF_TAG(0xD,   GPSSpeed);
                   EXIF_TAG(0xE,   GPSTrackRef);
                   EXIF_TAG(0xF,   GPSTrack);
                   EXIF_TAG(0x10,  GPSImgDirectionRef);
                   EXIF_TAG(0x11,  GPSImgDirection);
                   EXIF_TAG(0x12,  GPSMapDatum);
                   EXIF_TAG(0x13,  GPSDestLatitudeRef);
                   EXIF_TAG(0x14,  GPSDestLatitude);
                   EXIF_TAG(0x15,  GPSDestLongitudeRef);
                   EXIF_TAG(0x16,  GPSDestLongitude);
                   EXIF_TAG(0x17,  GPSDestBearingRef);
                   EXIF_TAG(0x18,  GPSDestBearing);
                   EXIF_TAG(0x19,  GPSDestDistanceRef);
                   EXIF_TAG(0x1A,  GPSDestDistance);
                   EXIF_TAG(0x1B,  GPSProcessingMethod);
                   EXIF_TAG(0x1C,  GPSAreaInformation);
                   EXIF_TAG(0x1D,  GPSDateStamp);
                   EXIF_TAG(0x1E,  GPSDifferential);
           }
   } exif_gps_tag_value2name;
   
   #undef EXIF_TAG
   
 #ifndef DOXYGEN  #ifndef DOXYGEN
 class Measure_reader {  class Measure_reader {
 public:  public:
         virtual size_t read(const char *&buf, size_t limit)=0;          virtual size_t read(const char* &buf, size_t limit)=0;
         virtual void seek(long value, int whence)=0;          virtual void seek(long value, int whence)=0;
         virtual long tell()=0;          virtual long tell()=0;
 };  };
   
 class Measure_file_reader: public Measure_reader {  class Measure_file_reader: public Measure_reader {
           const String& file_name;
         Pool& pool;  
         StringPtr file_name; const char* fname;  
         int f;          int f;
   
 public:  public:
         Measure_file_reader(Pool& apool, int af, StringPtr afile_name, const char* afname):           Measure_file_reader(int af, const String& afile_name):
                 pool(apool), file_name(afile_name), fname(afname), f(af) {                  file_name(afile_name), f(af) {
         }          }
   
         override size_t read(const char *&abuf, size_t limit) {          override size_t read(const char* &abuf, size_t limit) {
                 if(limit==0)                  if(limit==0)
                         return 0;                          return 0;
   
                 char* lbuf=new(pool) char[limit];                  char* lbuf=new(PointerFreeGC) char[limit];
                 size_t read_size=(size_t)::read(f, lbuf, limit);  abuf=lbuf;                  ssize_t read_size=::read(f, lbuf, limit);  abuf=lbuf;
                 if(ssize_t(read_size)<0 || read_size>limit)                  if(read_size<0)
                         throw Exception(0,                          throw Exception(0, &file_name, "measure read failed: %s (%d)", strerror(errno), errno);
                                 file_name,   
                                 "measure failed: actually read %lu bytes count not in [0..%lu] valid range",   
                         read_size, limit);  
   
                 return read_size;                  return read_size;
         }          }
   
         override void seek(long value, int whence) {          override void seek(long value, int whence) {
                 if(lseek(f, value, whence)<0)                  if(lseek(f, value, whence)<0)
                         throw Exception("image.format",                          throw Exception(IMAGE_FORMAT, &file_name, "seek(value=%ld, whence=%d) failed: %s (%d)", value, whence, strerror(errno), errno);
                                 file_name,   
                                 "seek(value=%ld, whence=%d) failed: %s (%d), actual filename '%s'",   
                                         value, whence, strerror(errno), errno, fname);  
         }          }
   
         override long tell() { return lseek(f, 0, SEEK_CUR); }          override long tell() { return lseek(f, 0, SEEK_CUR); }
Line 201  public: Line 269  public:
 class Measure_buf_reader: public Measure_reader {  class Measure_buf_reader: public Measure_reader {
   
         const char* buf; size_t size;          const char* buf; size_t size;
         StringPtr file_name;           const String& file_name; 
   
         size_t offset;          size_t offset;
   
 public:  public:
         Measure_buf_reader(const char* abuf, size_t asize, StringPtr afile_name):           Measure_buf_reader(const char* abuf, size_t asize, const String& afile_name): 
                 buf(abuf), size(asize), file_name(afile_name), offset(0) {                  buf(abuf), size(asize), file_name(afile_name), offset(0) {
         }          }
                   
         override size_t read(const char *&abuf, size_t limit) {          override size_t read(const char* &abuf, size_t limit) {
                 size_t to_read=min(limit, size-offset);                  size_t to_read=min(limit, size-offset);
                 abuf=buf+offset;                  abuf=buf+offset;
                 offset+=to_read;                  offset+=to_read;
Line 223  public: Line 291  public:
                 case SEEK_CUR: new_offset=offset+value; break;                  case SEEK_CUR: new_offset=offset+value; break;
                 case SEEK_SET: new_offset=(size_t)value; break;                  case SEEK_SET: new_offset=(size_t)value; break;
                 default:                   default: 
                         throw Exception(Exception::undefined_type,                           throw Exception(0, 
                                 Exception::undefined_source,                                   0, 
                                 "whence #%d not supported", 0, whence);                                   "whence #%d not supported", 0, whence); 
                         break; // never                          break; // never
                 }                  }
                                   
                 if((ssize_t)new_offset<0 || new_offset>size)                  if((ssize_t)new_offset<0 || new_offset>size)
                         throw Exception("image.format",                          throw Exception(IMAGE_FORMAT,
                                 file_name,                                   &file_name, 
                                 "seek(value=%l, whence=%d) failed: out of buffer, new_offset>size (%l>%l) or new_offset<0",                                   "seek(value=%l, whence=%d) failed: out of buffer, new_offset>size (%l>%l) or new_offset<0", 
                                         value, whence, new_offset, size);                                          value, whence, new_offset, size);
                 offset=new_offset;                  offset=new_offset;
Line 279  struct JPG_Size_segment_body { Line 347  struct JPG_Size_segment_body {
 };  };
   
 /// JPEG frame header  /// JPEG frame header
 struct JPG_Exif_segment_start {  struct JPG_Exif_segment_begin {
         char signature[6]; // Exif\0\0          char signature[6]; // Exif\0\0
 };  };
   
Line 291  struct JPG_Exif_TIFF_header { Line 359  struct JPG_Exif_TIFF_header {
 };  };
   
 // JPEG Exif IFD start  // JPEG Exif IFD start
 struct JPG_Exif_IFD_start {  struct JPG_Exif_IFD_begin {
         uchar directory_entry_count[2]; // the number of directory entry contains in this IFD          uchar directory_entry_count[2]; // the number of directory entry contains in this IFD
 };  };
   
Line 305  struct JPG_Exif_IFD_entry { Line 373  struct JPG_Exif_IFD_entry {
   
 #define JPG_IFD_TAG_EXIF_OFFSET 0x8769  #define JPG_IFD_TAG_EXIF_OFFSET 0x8769
   
   #define JPG_IFD_TAG_EXIF_GPS_OFFSET 0x8825
   
 #define JPEG_EXIF_DATE_CHARS 20  #define JPEG_EXIF_DATE_CHARS 20
   
 //  //
Line 327  inline uint endian_to_uint(bool is_big, Line 397  inline uint endian_to_uint(bool is_big,
                 x_endian_to_uint(b[0], b[1], b[2], b[3]);                  x_endian_to_uint(b[0], b[1], b[2], b[3]);
 }  }
   
 static void measure_gif(Pool& pool, StringPtr origin_string,   static void measure_gif(const String& origin_string, Measure_reader& reader, ushort& width, ushort& height) {
                          Measure_reader& reader, ushort& width, ushort& height) {  
   
         const char *buf;          const char* buf;
         const int head_size=sizeof(GIF_Header);          const size_t head_size=sizeof(GIF_Header);
         if(reader.read(buf, head_size)<head_size)          if(reader.read(buf, head_size)<head_size)
                 throw Exception("image.format",                   throw Exception(IMAGE_FORMAT, 
                         origin_string,                           &origin_string, 
                         "not GIF file - too small");                          "not GIF file - too small");
         GIF_Header *head=(GIF_Header *)buf;          GIF_Header *head=(GIF_Header *)buf;
   
         if(strncmp(head->signature, "GIF", 3)!=0)          if(strncmp(head->signature, "GIF", 3)!=0)
                 throw Exception("image.format",                   throw Exception(IMAGE_FORMAT, 
                         origin_string,                           &origin_string, 
                         "not GIF file - wrong signature");                                "not GIF file - wrong signature");      
   
         width=endian_to_ushort(false, head->width);          width=endian_to_ushort(false, head->width);
         height=endian_to_ushort(false, head->height);          height=endian_to_ushort(false, head->height);
 }  }
   
 static ValuePtr parse_IFD_entry_formatted_one_value(Pool& pool,  static Value* parse_IFD_entry_formatted_one_value(
                                                                                                   bool is_big,                                                                                                    bool is_big,
                                                                                                   ushort format,                                                                                                     ushort format, 
                                                                                                   size_t component_size,                                                                                                     size_t component_size, 
                                                                                                   const uchar *value) {                                                                                                    const uchar *value) {
         switch(format) {          switch(format) {
         case 1: // unsigned byte          case 1: // unsigned byte
                 return ValuePtr(new VInt((uchar)value[0]));                  return new VInt((uchar)value[0]);
         case 3: // unsigned short          case 3: // unsigned short
                 return ValuePtr(new VInt(endian_to_ushort(is_big, value)));                  return new VInt(endian_to_ushort(is_big, value));
         case 4: // unsigned long          case 4: // unsigned long
                  // 'double' because parser's Int is signed                   // 'double' because parser's Int is signed
                 return ValuePtr(new VDouble(endian_to_uint(is_big, value)));                  return new VDouble(endian_to_uint(is_big, value));
         case 5: // unsigned rational          case 5: // unsigned rational
                 {                  {
                         uint numerator=endian_to_uint(is_big, value); value+=component_size/2;                          uint numerator=endian_to_uint(is_big, value); value+=component_size/2;
                         uint denominator=endian_to_uint(is_big, value);                          uint denominator=endian_to_uint(is_big, value);
                         if(!denominator)                          if(!denominator)
                                 return ValuePtr(0);                                  return 0;
                         return ValuePtr(new VDouble(((double)numerator)/denominator));                          return new VDouble(((double)numerator)/denominator);
                 }                  }
         case 6: // signed byte          case 6: // signed byte
                 return ValuePtr(new VInt((signed char)value[0]));                  return new VInt((signed char)value[0]);
         case 8: // signed short          case 8: // signed short
                 return ValuePtr(new VInt((signed short)endian_to_ushort(is_big, value)));                  return new VInt((signed short)endian_to_ushort(is_big, value));
         case 9: // signed long          case 9: // signed long
                 return ValuePtr(new VInt((signed int)endian_to_uint(is_big, value)));                  return new VInt((signed int)endian_to_uint(is_big, value));
         case 10: // signed rational          case 10: // signed rational
                 {                  {
                         signed int numerator=(signed int)endian_to_uint(is_big, value); value+=component_size/2;                          signed int numerator=(signed int)endian_to_uint(is_big, value); value+=component_size/2;
                         uint denominator=endian_to_uint(is_big, value);                          uint denominator=endian_to_uint(is_big, value);
                         if(!denominator)                          if(!denominator)
                                 return ValuePtr(0);                                  return 0;
                         return ValuePtr(new VDouble(numerator/denominator));                          return new VDouble(numerator/denominator);
                 }                  }
                 /*                  /*
         case 11: // single float          case 11: // single float
                 todo                  @todo
         case 12: // double float          case 12: // double float
                 todo                  @todo
                 */                  */
         };                };      
                   
         return ValuePtr(0);          return 0;
 }  }
   
 // date.C  // date.C
 time_t cstr_to_time_t(char *cstr, StringPtr report_error_origin);  tm cstr_to_time_t(char *, const char **);
   
 static ValuePtr parse_IFD_entry_formatted_value(Pool& pool,  static Value* parse_IFD_entry_formatted_value(bool is_big, ushort format, 
                                                                                           bool is_big, ushort format,                                                 size_t component_size, uint components_count, 
                                                                                           size_t component_size, uint components_count,                                                 const uchar *value) {
                                                                                           const uchar *value) {  
         if(format==2) { // ascii string, exception: the only type with varying size          if(format==2) { // ascii string, exception: the only type with varying size
                 const char* cstr=(const char* )value;                  const char* cstr=(const char* )value;
                 size_t size=components_count;                  size_t length=components_count;
                 // Data format is "YYYY:MM:DD HH:MM:SS"+0x00, total 20bytes                  // Data format is "YYYY:MM:DD HH:MM:SS"+0x00, total 20bytes
                 if(size==JPEG_EXIF_DATE_CHARS                   if(length==JPEG_EXIF_DATE_CHARS 
                         && isdigit(cstr[0])                          && isdigit((unsigned char)cstr[0])
                         && cstr[JPEG_EXIF_DATE_CHARS-1]==0) {                          && cstr[length-1]==0) {
                         char cstr_writable[JPEG_EXIF_DATE_CHARS];                           char cstr_writable[JPEG_EXIF_DATE_CHARS]; 
                         strcpy(cstr_writable, cstr);                          strcpy(cstr_writable, cstr);
   
                         time_t t=cstr_to_time_t(cstr_writable,                           try {
                                 StringPtr(0)/* do not throw exception, just return bad result */);                                  tm tmIn=cstr_to_time_t(cstr_writable, 0);
                         if(t>=0)                                  return new VDate(tmIn);
                                 return ValuePtr(new VDate(t));                          }
                           catch(...) { /*ignore bad date times*/ }
                 }                  }
   
                 if(const char* premature_zero_pos=(const char* )memchr(cstr, 0, size))                  return new VString(*new String(cstr, String::L_TAINTED));
                         size=premature_zero_pos-cstr;  
                 return ValuePtr(new VString(StringPtr(new String(cstr, size, true/*tainted*/))));  
         }          }
   
         if(components_count==1)          if(components_count==1)
                 return parse_IFD_entry_formatted_one_value(pool, is_big, format, component_size, value);                  return parse_IFD_entry_formatted_one_value(is_big, format, component_size, value);
   
         VHashPtr result(new VHash);          VHash* result=new VHash;
         HashStringValue& hash=result->hash(Exception::undefined_source);          HashStringValue& hash=result->hash();
         for(uint i=0; i<components_count; i++, value+=component_size) {          for(uint i=0; i<components_count; i++, value+=component_size) {
                 char *key_cstr=new(pool) char[MAX_NUMBER];                  hash.put(
                 StringPtr skey(new String(key_cstr, snprintf(key_cstr, MAX_NUMBER, "%d", i)));                          String::Body::Format(i),
                 hash.put(skey,                           parse_IFD_entry_formatted_one_value(is_big, format, component_size, value));
                         parse_IFD_entry_formatted_one_value(pool, is_big, format, component_size, value));  
         }          }
   
         return result;          return result;
 }  }
   
 static ValuePtr parse_IFD_entry_value(Pool& pool,  static Value* parse_IFD_entry_value(
                                                                         bool is_big, Measure_reader& reader, long tiff_base,                                                                          bool is_big, Measure_reader& reader, long tiff_base,
                                                                         JPG_Exif_IFD_entry& entry) {                                                                          JPG_Exif_IFD_entry& entry) {
         size_t format2component_size[]={          size_t format2component_size[]={
Line 468  static ValuePtr parse_IFD_entry_value(Po Line 534  static ValuePtr parse_IFD_entry_value(Po
         // You can get the total data byte length by multiplies           // You can get the total data byte length by multiplies 
         // a 'bytes/components' value (see above chart) by number of components stored 'NNNNNNNN' area          // a 'bytes/components' value (see above chart) by number of components stored 'NNNNNNNN' area
         uint components_count=endian_to_uint(is_big, entry.components_count);          uint components_count=endian_to_uint(is_big, entry.components_count);
         size_t value_size=component_size*components_count;          uint value_size=component_size*components_count;
         // If its size is over 4bytes, 'DDDDDDDD' contains the offset to data stored address          // If its size is over 4bytes, 'DDDDDDDD' contains the offset to data stored address
         ValuePtr result;          Value* result;
   
         if(value_size<=4)          if(value_size<=4)
                 result=parse_IFD_entry_formatted_value(pool,                  result=parse_IFD_entry_formatted_value(
                         is_big, format,                           is_big, format, 
                         component_size, components_count,                           component_size, components_count, 
                         entry.value_or_offset_to_it);                          entry.value_or_offset_to_it);
Line 481  static ValuePtr parse_IFD_entry_value(Po Line 547  static ValuePtr parse_IFD_entry_value(Po
                 long remembered=reader.tell();                  long remembered=reader.tell();
                 {                  {
                         reader.seek(tiff_base+endian_to_uint(is_big, entry.value_or_offset_to_it), SEEK_SET);                          reader.seek(tiff_base+endian_to_uint(is_big, entry.value_or_offset_to_it), SEEK_SET);
                         const char *value;                          const char* value;
                         if(reader.read(value, value_size)<sizeof(value_size))                          if(reader.read(value, value_size)<sizeof(value_size))
                                 return 0;                                  return 0;
                         result=parse_IFD_entry_formatted_value(pool,                          result=parse_IFD_entry_formatted_value(
                                 is_big, format,                                   is_big, format, 
                                 component_size, components_count,                                   component_size, components_count, 
                                 (const uchar*)value);                                  (const uchar*)value);
Line 495  static ValuePtr parse_IFD_entry_value(Po Line 561  static ValuePtr parse_IFD_entry_value(Po
         return result;          return result;
 }  }
   
 static void parse_IFD(Pool& pool,  static void parse_IFD(HashStringValue& hash,
                                           HashStringValue& hash,                        bool is_big, Measure_reader& reader, long tiff_base, bool gps=false);
                                           bool is_big, Measure_reader& reader, long tiff_base);  
   static void parse_IFD_entry(HashStringValue& hash,
 static void parse_IFD_entry(Pool& pool, HashStringValue& hash,                              bool is_big, Measure_reader& reader, long tiff_base,
                                                         bool is_big, Measure_reader& reader, long tiff_base,                              JPG_Exif_IFD_entry& entry, bool gps=false) {
                                                         JPG_Exif_IFD_entry& entry) {  
         ushort tag=endian_to_ushort(is_big, entry.tag);          ushort tag=endian_to_ushort(is_big, entry.tag);
         if(tag==JPG_IFD_TAG_EXIF_OFFSET) {  
           if(tag==JPG_IFD_TAG_EXIF_OFFSET || tag==JPG_IFD_TAG_EXIF_GPS_OFFSET){
                 long remembered=reader.tell();                  long remembered=reader.tell();
                 {                  {
                         reader.seek(tiff_base+endian_to_uint(is_big, entry.value_or_offset_to_it), SEEK_SET);                          reader.seek(tiff_base+endian_to_uint(is_big, entry.value_or_offset_to_it), SEEK_SET);
                         parse_IFD(pool, hash, is_big, reader, tiff_base);                          parse_IFD(hash, is_big, reader, tiff_base, (tag==JPG_IFD_TAG_EXIF_GPS_OFFSET)?true:gps);
                 }                  }
                 reader.seek(remembered, SEEK_SET);                  reader.seek(remembered, SEEK_SET);
                 return;                  return;
         }          }
           
         if(ValuePtr value=parse_IFD_entry_value(pool, is_big, reader, tiff_base, entry)) {          if(Value* value=parse_IFD_entry_value(is_big, reader, tiff_base, entry)) {
                 if(const char* name=exif_tag_value2name.get(tag))                  if(const char* name=(gps)?exif_gps_tag_value2name.get(tag):exif_tag_value2name.get(tag))
                         hash.put(StringPtr(new String(name)), value);                          hash.put(name, value);
                 else {                  else
                         StringPtr skey(new String(pool.format_integer(tag)));                          hash.put(String::Body::Format(tag), value);
                         hash.put(skey, value);  
                 }  
         }          }
 }  }
   
 static void parse_IFD(Pool& pool,  static void parse_IFD(
                                           HashStringValue& hash,                        HashStringValue& hash,
                                           bool is_big, Measure_reader& reader, long tiff_base) {                        bool is_big, Measure_reader& reader, long tiff_base, bool gps) {
         const char *buf;          const char* buf;
         if(reader.read(buf, sizeof(JPG_Exif_IFD_start))<sizeof(JPG_Exif_IFD_start))          if(reader.read(buf, sizeof(JPG_Exif_IFD_begin))<sizeof(JPG_Exif_IFD_begin))
                 return;                  return;
         JPG_Exif_IFD_start *start=(JPG_Exif_IFD_start *)buf;          JPG_Exif_IFD_begin *start=(JPG_Exif_IFD_begin *)buf;
   
         ushort directory_entry_count=endian_to_ushort(is_big, start->directory_entry_count);          ushort directory_entry_count=endian_to_ushort(is_big, start->directory_entry_count);
         for(int i=0; i<directory_entry_count; i++) {          for(int i=0; i<directory_entry_count; i++) {
                 if(reader.read(buf, sizeof(JPG_Exif_IFD_entry))<sizeof(JPG_Exif_IFD_entry))                  if(reader.read(buf, sizeof(JPG_Exif_IFD_entry))<sizeof(JPG_Exif_IFD_entry))
                         return;                          return;
   
                 parse_IFD_entry(pool, hash, is_big, reader, tiff_base, *(JPG_Exif_IFD_entry *)buf);                  parse_IFD_entry(hash, is_big, reader, tiff_base, *(JPG_Exif_IFD_entry *)buf, gps);
         }          }
         // then goes: LLLLLLLL Offset to next IFD [not going there]          // then goes: LLLLLLLL Offset to next IFD [not going there]
 }  }
   
 static ValuePtr parse_exif(Pool& pool,  static Value* parse_exif(Measure_reader& reader, const String& origin_string) {
                                            Measure_reader& reader,          const char* buf;
                                            StringPtr origin_string) {          if(reader.read(buf, sizeof(JPG_Exif_segment_begin))<sizeof(JPG_Exif_segment_begin))
         const char *buf;                  throw Exception(IMAGE_FORMAT, 
         if(reader.read(buf, sizeof(JPG_Exif_segment_start))<sizeof(JPG_Exif_segment_start))                          &origin_string, 
                 throw Exception("image.format",   
                         origin_string,   
                         "not JPEG file - can not fully read Exif segment start");                          "not JPEG file - can not fully read Exif segment start");
   
         JPG_Exif_segment_start *start=(JPG_Exif_segment_start *)buf;          JPG_Exif_segment_begin *start=(JPG_Exif_segment_begin *)buf;
         if(memcmp(start->signature, "Exif\0\0", 4+2)!=0) //signature invalid?          if(memcmp(start->signature, "Exif\0\0", 4+2)!=0) //signature invalid?
                 return 0; // ignore invalid block                  return 0; // ignore invalid block
   
Line 564  static ValuePtr parse_exif(Pool& pool, Line 626  static ValuePtr parse_exif(Pool& pool,
         uint first_IFD_offset=endian_to_uint(is_big, head->first_IFD_offset);          uint first_IFD_offset=endian_to_uint(is_big, head->first_IFD_offset);
         reader.seek(tiff_base+first_IFD_offset, SEEK_SET);          reader.seek(tiff_base+first_IFD_offset, SEEK_SET);
   
         VHashPtr vhash(new VHash);          VHash* vhash=new VHash;
   
         // IFD          // IFD
         parse_IFD(pool, vhash->hash(Exception::undefined_source), is_big, reader, tiff_base);          parse_IFD(vhash->hash(), is_big, reader, tiff_base);
   
         return vhash;          return vhash;
 }  }
   
 static void measure_jpeg(Pool& pool, StringPtr origin_string,   static void measure_jpeg(const String& origin_string, Measure_reader& reader, ushort& width, ushort& height, Value** exif) {
                          Measure_reader& reader, ushort& width, ushort& height, ValuePtr* exif) {  
         // JFIF format markers          // JFIF format markers
         const uchar MARKER=0xFF;          const uchar MARKER=0xFF;
         const uchar CODE_SIZE_A=0xC0;          const uchar CODE_SIZE_A=0xC0;
Line 582  static void measure_jpeg(Pool& pool, Str Line 643  static void measure_jpeg(Pool& pool, Str
         const uchar CODE_SIZE_D=0xC3;          const uchar CODE_SIZE_D=0xC3;
         const uchar CODE_EXIF=0xE1;          const uchar CODE_EXIF=0xE1;
   
         const char *buf;          const char* buf;
         const size_t prefix_size=2;          const size_t prefix_size=2;
         if(reader.read(buf, prefix_size)<prefix_size)          if(reader.read(buf, prefix_size)<prefix_size)
                 throw Exception("image.format",                   throw Exception(IMAGE_FORMAT, 
                         origin_string,                           &origin_string, 
                         "not JPEG file - too small");                          "not JPEG file - too small");
         uchar *signature=(uchar *)buf;          uchar *signature=(uchar *)buf;
                   
         if(!(signature[0]==0xFF && signature[1]==0xD8))           if(!(signature[0]==0xFF && signature[1]==0xD8)) 
                 throw Exception("image.format",                   throw Exception(IMAGE_FORMAT, 
                         origin_string,                           &origin_string, 
                         "not JPEG file - wrong signature");                          "not JPEG file - wrong signature");
   
         while(true) {          while(true) {
Line 603  static void measure_jpeg(Pool& pool, Str Line 664  static void measure_jpeg(Pool& pool, Str
   
         // Verify that it's a valid segment.          // Verify that it's a valid segment.
                 if(head->marker!=MARKER)                  if(head->marker!=MARKER)
                         throw Exception("image.format",                           throw Exception(IMAGE_FORMAT, 
                                 origin_string,                                   &origin_string, 
                                 "not JPEG file - marker not found");                                  "not JPEG file - marker not found");
   
                 switch(head->code) {                  switch(head->code) {
                 // http://www.ba.wakwak.com/~tsuruzoh/Computer/Digicams/exif-e.html                  // http://park2.wakwak.com/~tsuruzoh/Computer/Digicams/exif-e.html
                 case CODE_EXIF:                  case CODE_EXIF:
                         if(exif && !*exif) // seen .jpg with some xml under EXIF tag, after real exif block :)                          if(exif && !*exif) // seen .jpg with some xml under EXIF tag, after real exif block :)
                                 *exif=parse_exif(pool, reader, origin_string);                                  *exif=parse_exif(reader, origin_string);
                         break;                          break;
   
                 case CODE_SIZE_A:                  case CODE_SIZE_A:
Line 621  static void measure_jpeg(Pool& pool, Str Line 682  static void measure_jpeg(Pool& pool, Str
                         {                          {
                                 // Segments that contain size info                                  // Segments that contain size info
                                 if(reader.read(buf, sizeof(JPG_Size_segment_body))<sizeof(JPG_Size_segment_body))                                  if(reader.read(buf, sizeof(JPG_Size_segment_body))<sizeof(JPG_Size_segment_body))
                                         throw Exception("image.format",                                           throw Exception(IMAGE_FORMAT, 
                                                 origin_string,                                                   &origin_string, 
                                                 "not JPEG file - can not fully read Size segment");                                                  "not JPEG file - can not fully read Size segment");
                                 JPG_Size_segment_body *body=(JPG_Size_segment_body *)buf;                                  JPG_Size_segment_body *body=(JPG_Size_segment_body *)buf;
                                                                   
Line 635  static void measure_jpeg(Pool& pool, Str Line 696  static void measure_jpeg(Pool& pool, Str
                 reader.seek(segment_base+endian_to_ushort(true, head->length), SEEK_SET);                  reader.seek(segment_base+endian_to_ushort(true, head->length), SEEK_SET);
         }          }
   
         throw Exception("image.format",           throw Exception(IMAGE_FORMAT, 
                 origin_string,                   &origin_string, 
                 "broken JPEG file - size frame not found");                  "broken JPEG file - size frame not found");
 }  }
   
 static void measure_png(Pool& pool, StringPtr origin_string,   static void measure_png(const String& origin_string, Measure_reader& reader, ushort& width, ushort& height) {
                          Measure_reader& reader, ushort& width, ushort& height) {  
   
         const char *buf;          const char* buf;
         const int head_size=sizeof(PNG_Header);          const size_t head_size=sizeof(PNG_Header);
         if(reader.read(buf, head_size)<head_size)          if(reader.read(buf, head_size)<head_size)
                 throw Exception("image.format",                   throw Exception(IMAGE_FORMAT, &origin_string, "not PNG file - too small");
                         origin_string,   
                         "not PNG file - too small");  
         PNG_Header *head=(PNG_Header *)buf;          PNG_Header *head=(PNG_Header *)buf;
   
         if(strncmp(head->signature, "IHDR", 4)!=0)          if(strncmp(head->signature, "IHDR", 4)!=0)
                 throw Exception("image.format",                   throw Exception(IMAGE_FORMAT, &origin_string, "not PNG file - wrong signature");
                         origin_string,   
                         "not PNG file - wrong signature");        
   
         width=endian_to_ushort(true, head->width);          width=endian_to_ushort(true, head->width);
         height=endian_to_ushort(true, head->height);          height=endian_to_ushort(true, head->height);
Line 662  static void measure_png(Pool& pool, Stri Line 718  static void measure_png(Pool& pool, Stri
   
 // measure center  // measure center
   
 static void measure(Pool& pool, StringPtr file_name,   static void measure(const String& file_name, Measure_reader& reader, ushort& width, ushort& height, Value** exif) {
                          Measure_reader& reader, ushort& width, ushort& height, ValuePtr* exif) {          const char* file_name_cstr=file_name.taint_cstr(String::L_FILE_SPEC);
         CharPtr file_name_cstr=file_name->cstr(String::UL_FILE_SPEC);  
         if(const char* cext=strrchr(file_name_cstr, '.')) {          if(const char* cext=strrchr(file_name_cstr, '.')) {
                 cext++;                  cext++;
                 if(strcasecmp(cext, "GIF")==0)                  if(strcasecmp(cext, "GIF")==0)
                         measure_gif(pool, file_name, reader, width, height);                          measure_gif(file_name, reader, width, height);
                 else if(strcasecmp(cext, "JPG")==0 || strcasecmp(cext, "JPEG")==0)                   else if(strcasecmp(cext, "JPG")==0 || strcasecmp(cext, "JPEG")==0) 
                         measure_jpeg(pool, file_name, reader, width, height, exif);                          measure_jpeg(file_name, reader, width, height, exif);
                 else if(strcasecmp(cext, "PNG")==0)                  else if(strcasecmp(cext, "PNG")==0)
                         measure_png(pool, file_name, reader, width, height);                          measure_png(file_name, reader, width, height);
                 else                  else
                         throw Exception("image.format",                           throw Exception(IMAGE_FORMAT, &file_name, "unhandled image file name extension '%s'", cext);
                                 file_name,   
                                 "unhandled image file name extension '%s'", cext);  
         } else          } else
                 throw Exception("image.format",                   throw Exception(IMAGE_FORMAT, &file_name, "can not determine image type - no file name extension");
                         file_name,   
                         "can not determine image type - no file name extension");  
 }  }
   
 // methods  // methods
Line 689  static void measure(Pool& pool, StringPt Line 740  static void measure(Pool& pool, StringPt
 struct File_measure_action_info {  struct File_measure_action_info {
         ushort* width;          ushort* width;
         ushort* height;          ushort* height;
         ValuePtr* exif;          Value** exif;
         StringPtr file_name;  
 };  };
 #endif  #endif
 static void file_measure_action(Pool& pool,  static void file_measure_action(struct stat& /*finfo*/, int f, const String& file_spec, void *context) {
                                                                 struct stat& finfo, int f,   
                                                                 StringPtr file_spec, const char* fname, bool as_text,  
                                                                 void *context) {  
         File_measure_action_info& info=*static_cast<File_measure_action_info *>(context);          File_measure_action_info& info=*static_cast<File_measure_action_info *>(context);
   
         Measure_file_reader reader(pool, f, info.file_name, fname);          Measure_file_reader reader(f, file_spec);
         measure(pool, info.file_name, reader, *info.width, *info.height, info.exif);          measure(file_spec, reader, *info.width, *info.height, info.exif);
 }  }
   
 static void _measure(Request& r, StringPtr method_name, MethodParams* params) {  static void _measure(Request& r, MethodParams& params) {
         Pool& pool=r.pool();          Value& data=params.as_no_junction(0, "data must not be code");
   
         ValuePtr data=params->as_no_junction(0, "data must not be code");  
   
         ushort width=0;          ushort width=0;
         ushort height=0;          ushort height=0;
         ValuePtr exif(0);          Value* exif=0;
         StringPtr file_name;          const String* file_name;
         if(file_name=data->get_string(&pool)) {          if((file_name=data.get_string())) {
                 File_measure_action_info info;                  File_measure_action_info info={
                 info.width=&width;                          &width, &height,
                 info.height=&height;                          &exif
                 info.exif=&exif;                  };
                 info.file_name=file_name;                  file_read_action_under_lock(r.absolute(*file_name), "measure", file_measure_action, &info);
                 file_read_action_under_lock(pool, r.absolute(file_name),   
                         "measure", file_measure_action, &info);  
         } else {          } else {
                 VFilePtr vfile=data->as_vfile(pool);                  VFile* vfile=data.as_vfile(String::L_AS_IS);
                 file_name=vfile->fields().get(name_name)->as_string(&pool);                  file_name=&vfile->fields().get(name_name)->as_string();
                 Measure_buf_reader reader(                  Measure_buf_reader reader(
                         vfile->value_ptr(),                          vfile->value_ptr(),
                         vfile->value_size(),                          vfile->value_size(),
                         file_name                          *file_name
                 );                  );
                 measure(pool, file_name, reader, width, height, &exif);                  measure(*file_name, reader, width, height, &exif);
         }          }
   
         GET_SELF(r, VImage).set(file_name, width, height, gdImagePtr(0), exif);          GET_SELF(r, VImage).set(file_name, width, height, 0, exif);
 }  }
   
 #ifndef DOXYGEN  #ifndef DOXYGEN
 struct Attrib_info {  struct Attrib_info {
         Pool* pool;  
         String* tag; ///< html tag being constructed          String* tag; ///< html tag being constructed
         HashStringValue* skip; ///< tag attributes not to append to tag string [to skip]          HashStringValue* skip; ///< tag attributes not to append to tag string [to skip]
 };  };
 #endif  #endif
 static void append_attrib_pair(  static void append_attrib_pair(
                                                            HashStringValue::key_type key,                                   HashStringValue::key_type key, 
                                                            HashStringValue::value_type value,                                   HashStringValue::value_type value, 
                                                            Attrib_info* info) {                                  Attrib_info* info) {
         // skip user-specified and internal(starting with "line-") attributes           // skip user-specified, internal(starting with "line-") attributes and border attribute with empty value
         if(info->skip && info->skip->get(key) || key->pos("line-")==0)          if(
                   (info->skip && info->skip->get(key))
                   || key.pos("line-")==0
                   || (key=="border" && !value->is_defined())
           )
                 return;                  return;
   
         // src="a.gif" width=123 ismap[=-1]          // src="a.gif" width="123" ismap[=-1]
         *info->tag << " " << key;          *info->tag << " " << key;
         if(value->is_string() || value->as_int()>=0)          if(value->is_string() || value->as_int()>=0)
                 *info->tag << "=\"" << value->as_string(info->pool) << "\"";                  *info->tag << "=\"" << value->as_string() << "\"";
 }  }
 static void _html(Request& r, StringPtr method_name, MethodParams* params) {  static void _html(Request& r, MethodParams& params) {
         Pool& pool=r.pool();  
   
         String tag;          String tag;
         tag << "<img";          tag << "<img";
Line 763  static void _html(Request& r, StringPtr Line 808  static void _html(Request& r, StringPtr
         const HashStringValue& fields=GET_SELF(r, VImage).fields();          const HashStringValue& fields=GET_SELF(r, VImage).fields();
         HashStringValue* attribs=0;          HashStringValue* attribs=0;
   
         if(params->count()) {          if(params.count()) {
                 // for backward compatibility: someday was ^html{}                  // for backward compatibility: someday was ^html{}
                 ValuePtr vattribs=r.process_to_value(params->get(0),                  Value& vattribs=r.process_to_value(params[0], false/*don't intercept string*/);
                         /*0/*no name* /,*/                  if(!vattribs.is_string()) { // allow empty
                         false/*don't intercept string*/);                          if((attribs=vattribs.get_hash())) {
                 if(!vattribs->is_string()) // allow empty                                  Attrib_info info={&tag, 0};
                         if(attribs=vattribs->get_hash(method_name)) {                                  attribs->for_each<Attrib_info*>(append_attrib_pair, &info);
                                 Attrib_info info={&pool, &tag};  
                                 attribs->for_each(append_attrib_pair, &info);  
                         } else                          } else
                                 throw Exception("parser.runtime",                                   throw Exception(PARSER_RUNTIME, 
                                         method_name,                                           0, 
                                         "attributes must be hash");                                          "attributes must be hash");
                   }
         }          }
   
         {          {
                 Attrib_info info={&pool, &tag, attribs};                  Attrib_info info={&tag, attribs};
                 fields.for_each(append_attrib_pair, &info);                  fields.for_each<Attrib_info*>(append_attrib_pair, &info);
         }          }
         tag << " />";          tag << " />";
         r.write_pass_lang(tag);          r.write_pass_lang(tag);
 }  }
   
 /// @test wrap FILE to auto-object  /// @test wrap FILE to auto-object
 static gdImagePtr load(Request& r, StringPtr method_name,   static gdImage* load(Request& r, 
                                          StringPtr file_name){                                           const String& file_name){
         Pool& pool=r.pool();          const char* file_name_cstr=r.absolute(file_name).taint_cstr(String::L_FILE_SPEC);
   
         CharPtr file_name_cstr=r.absolute(file_name)->cstr(String::UL_FILE_SPEC);  
         if(FILE *f=fopen(file_name_cstr, "rb")) {          if(FILE *f=fopen(file_name_cstr, "rb")) {
                 gdImagePtr image(new gdImage);                  gdImage* image=new gdImage;
                 bool ok=image->CreateFromGif(f);                  bool ok=image->CreateFromGif(f);
                 fclose(f);                  fclose(f);
                 if(!ok)                  if(!ok)
                         throw Exception("image.format",                           throw Exception(IMAGE_FORMAT, 
                                 file_name,                                  &file_name,
                                 "is not in GIF format");                                  "is not in GIF format");
                 return image;                  return image;
         } else {          } else {
                 throw Exception("file.missing",                   throw Exception("file.missing", 
                         method_name,                           0, 
                         "can not open '%s'", file_name_cstr);                          "can not open '%s'", file_name_cstr);
                 return gdImagePtr(0);  
         }          }
 }  }
   
   
 static void _load(Request& r, StringPtr method_name, MethodParams* params) {  static void _load(Request& r, MethodParams& params) {
         Pool& pool=r.pool();          const String& file_name=params.as_string(0, FILE_NAME_MUST_NOT_BE_CODE);
   
         StringPtr file_name=params->as_string(0, "file name must not be code");  
   
         gdImagePtr image=load(r, method_name, file_name);          gdImage* image=load(r, file_name);
         GET_SELF(r, VImage).set(file_name, image->SX(), image->SY(), image);          GET_SELF(r, VImage).set(&file_name, image->SX(), image->SY(), image);
 }  }
   
 static void _create(Request& r, StringPtr method_name, MethodParams* params) {  static void _create(Request& r, MethodParams& params) {
         Pool& pool=r.pool();          int width=params.as_int(0, "width must be int", r);
           int height=params.as_int(1, "height must be int", r);
         int width=params->as_int(0, "width must be int", r);  
         int height=params->as_int(1, "height must be int", r);  
         int bgcolor_value=0xffFFff;          int bgcolor_value=0xffFFff;
         if(params->count()>2)          if(params.count()>2)
                 bgcolor_value=params->as_int(2, "color must be int", r);                  bgcolor_value=params.as_int(2, "color must be int", r);
         gdImagePtr image(new gdImage);          gdImage* image=new gdImage;
         image->Create(width, height);          image->Create(width, height);
         image->FilledRectangle(0, 0, width-1, height-1, image->Color(bgcolor_value));          image->FilledRectangle(0, 0, width-1, height-1, image->Color(bgcolor_value));
         GET_SELF(r, VImage).set(StringPtr(0), width, height, image);          GET_SELF(r, VImage).set(0, width, height, image);
 }  }
   
 static void _gif(Request& r, StringPtr method_name, MethodParams* params) {  static void _gif(Request& r, MethodParams& params) {
         Pool& pool=r.pool();          gdImage& image=GET_SELF(r, VImage).image();
   
         gdImagePtr image=GET_SELF(r, VImage).image;  
         if(!image)  
                 throw Exception(0,   
                         method_name,   
                         "does not contain an image");  
   
         // could _ but don't thing it's wise to use $image.src for vfile.name          const String *file_name=params.count()>0?&params.as_string(0, FILE_NAME_MUST_BE_STRING):0;
   
         String out; image->Gif(pool, out);          gdBuf buf=image.Gif();
                   
         VFilePtr vfile(new VFile);          VFile& vfile=*new VFile;
         ValuePtr content_type(new VString(StringPtr(new String("image/gif"))));  
         vfile->set(pool, false/*not tainted*/,           vfile.set_binary(false/*not tainted*/, (const char *)buf.ptr, buf.size, file_name, new VString(*new String("image/gif")));
                 out.cstr(pool), out.size(), 0, content_type);  
   
         r.write_no_lang(vfile);          r.write_no_lang(vfile);
 }  }
   
 static void _line(Request& r, StringPtr method_name, MethodParams* params) {  static void _line(Request& r, MethodParams& params) {
         Pool& pool=r.pool();          gdImage& image=GET_SELF(r, VImage).image();
   
         gdImagePtr image=GET_SELF(r, VImage).image;          image.Line(
         if(!image)                  params.as_int(0, "x0 must be int", r), 
                 throw Exception(0,                   params.as_int(1, "y0 must be int", r), 
                         method_name,                   params.as_int(2, "x1 must be int", r), 
                         "does not contain an image");                  params.as_int(3, "y1 must be int", r), 
                   image.Color(params.as_int(4, "color must be int", r)));
         image->Line(  }
                 params->as_int(0, "x0 must be int", r),   
                 params->as_int(1, "y0 must be int", r),   static void _fill(Request& r, MethodParams& params) {
                 params->as_int(2, "x1 must be int", r),           gdImage& image=GET_SELF(r, VImage).image();
                 params->as_int(3, "y1 must be int", r),   
                 image->Color(params->as_int(4, "color must be int", r)));          image.Fill(
 }                  params.as_int(0, "x must be int", r), 
                   params.as_int(1, "y must be int", r), 
 static void _fill(Request& r, StringPtr method_name, MethodParams* params) {                  image.Color(params.as_int(2, "color must be int", r)));
         Pool& pool=r.pool();  }
   
         gdImagePtr image=GET_SELF(r, VImage).image;  static void _rectangle(Request& r, MethodParams& params) {
         if(!image)          gdImage& image=GET_SELF(r, VImage).image();
                 throw Exception(0,   
                         method_name,           image.Rectangle(
                         "does not contain an image");                  params.as_int(0, "x0 must be int", r), 
                   params.as_int(1, "y0 must be int", r), 
         image->Fill(                  params.as_int(2, "x1 must be int", r), 
                 params->as_int(0, "x must be int", r),                   params.as_int(3, "y1 must be int", r), 
                 params->as_int(1, "y must be int", r),                   image.Color(params.as_int(4, "color must be int", r)));
                 image->Color(params->as_int(2, "color must be int", r)));  }
 }  
   static void _bar(Request& r, MethodParams& params) {
 static void _rectangle(Request& r, StringPtr method_name, MethodParams* params) {          gdImage& image=GET_SELF(r, VImage).image();
         Pool& pool=r.pool();  
           image.FilledRectangle(
         gdImagePtr image=GET_SELF(r, VImage).image;                  params.as_int(0, "x0 must be int", r), 
         if(!image)                  params.as_int(1, "y0 must be int", r), 
                 throw Exception(0,                   params.as_int(2, "x1 must be int", r), 
                         method_name,                   params.as_int(3, "y1 must be int", r), 
                         "does not contain an image");                  image.Color(params.as_int(4, "color must be int", r)));
   
         image->Rectangle(  
                 params->as_int(0, "x0 must be int", r),   
                 params->as_int(1, "y0 must be int", r),   
                 params->as_int(2, "x1 must be int", r),   
                 params->as_int(3, "y1 must be int", r),   
                 image->Color(params->as_int(4, "color must be int", r)));  
 }  
   
 static void _bar(Request& r, StringPtr method_name, MethodParams* params) {  
         Pool& pool=r.pool();  
   
         gdImagePtr image=GET_SELF(r, VImage).image;  
         if(!image)  
                 throw Exception(0,   
                         method_name,   
                         "does not contain an image");  
   
         image->FilledRectangle(  
                 params->as_int(0, "x0 must be int", r),   
                 params->as_int(1, "y0 must be int", r),   
                 params->as_int(2, "x1 must be int", r),   
                 params->as_int(3, "y1 must be int", r),   
                 image->Color(params->as_int(4, "color must be int", r)));  
 }  }
   
 #ifndef DOXYGEN  #ifndef DOXYGEN
 static void add_point(Table::element_type row,   static void add_point(Table::element_type row, 
                                           gdImage::Point **p) {                                            gdImage::Point **p) {
           if(row->count()!=2)
                   throw Exception(0,
                           0,
                           "coordinates table must contain two columns: x and y values");
         (**p).x=row->get(0)->as_int();          (**p).x=row->get(0)->as_int();
         (**p).y=row->get(1)->as_int();          (**p).y=row->get(1)->as_int();
         (*p)++;          (*p)++;
 }  }
 #endif  #endif
 static void _replace(Request& r, StringPtr method_name, MethodParams* params) {  #ifndef DOXYGEN
         Pool& pool=r.pool();  static void add_point(int x, int y, 
                                             gdImage::Point **p) {
         gdImagePtr image=GET_SELF(r, VImage).image;          (**p).x=x;
         if(!image)          (**p).y=y;
                 throw Exception(0,           (*p)++;
                         method_name,   }
                         "does not contain an image");  #endif
   static void _replace(Request& r, MethodParams& params) {
           int src_color=params.as_int(0, "src color must be int", r);
           int dest_color=params.as_int(1, "dest color must be int", r);
   
           gdImage& image=GET_SELF(r, VImage).image();
   
           gdImage::Point* all_p=0;
           size_t count=0;
           if(params.count() == 3){
                   Table* table=params.as_table(2, "coordinates");
                   count=table->count();
                   all_p=new(PointerFreeGC) gdImage::Point[count];
                   gdImage::Point* add_p=all_p;
                   table->for_each(add_point, &add_p);
           } else {
                   int max_x=image.SX()-1;
                   int max_y=image.SY()-1;
                   if(max_x > 0 && max_y > 0){
                           count=4;
                           all_p=new(PointerFreeGC) gdImage::Point[count];
                           gdImage::Point* add_p=all_p;
                           add_point(0, 0, &add_p);
                           add_point(max_x, 0, &add_p);
                           add_point(max_x, max_y, &add_p);
                           add_point(0, max_y, &add_p);
                   }
           }
   
         Table* table=params->as_no_junction(2, "coordinates must not be code")->get_table();          if(count)
         if(!table)                   image.FilledPolygonReplaceColor(all_p, count, image.Color(src_color), image.Color(dest_color));
                 throw Exception(0,  }
                         method_name,  
                         "coordinates must be table");  
   
         gdImage::Point *all_p=new(pool) gdImage::Point[table->count()];  static void _polyline(Request& r, MethodParams& params) {
         gdImage::Point *add_p=all_p;              gdImage& image=GET_SELF(r, VImage).image();
         table->for_each(add_point, &add_p);  
         image->FilledPolygonReplaceColor(all_p, table->count(),   
                 image->Color(params->as_int(0, "src color must be int", r)),  
                 image->Color(params->as_int(1, "dest color must be int", r)));  
 }  
   
 static void _polyline(Request& r, StringPtr method_name, MethodParams* params) {  
         Pool& pool=r.pool();  
   
         gdImagePtr image=GET_SELF(r, VImage).image;  
         if(!image)  
                 throw Exception(0,   
                         method_name,   
                         "does not contain an image");  
   
         Table* table=params->as_no_junction(1, "coordinates must not be code")->get_table();          Table* table=params.as_table(1, "coordinates");
         if(!table)   
                 throw Exception(0,  
                         method_name,  
                         "coordinates must be table");  
   
         gdImage::Point* all_p=new(pool) gdImage::Point[table->count()];          gdImage::Point* all_p=new(PointerFreeGC) gdImage::Point[table->count()];
         gdImage::Point *add_p=all_p;              gdImage::Point *add_p=all_p;    
         table->for_each(add_point, &add_p);          table->for_each(add_point, &add_p);
         image->Polygon(all_p, table->count(),           image.Polygon(all_p, table->count(), 
                 image->Color(params->as_int(0, "color must be int", r)),                  image.Color(params.as_int(0, "color must be int", r)),
                 false/*not closed*/);                  false/*not closed*/);
 }  }
   
 static void _polygon(Request& r, StringPtr method_name, MethodParams* params) {  static void _polygon(Request& r, MethodParams& params) {
         Pool& pool=r.pool();          gdImage& image=GET_SELF(r, VImage).image();
   
         gdImagePtr image=GET_SELF(r, VImage).image;  
         if(!image)  
                 throw Exception(0,   
                         method_name,   
                         "does not contain an image");  
   
         Table* table=params->as_no_junction(1, "coordinates must not be code")->get_table();          Table* table=(Table*)params.as_table(1, "coordinates");
         if(!table)   
                 throw Exception(0,  
                         method_name,  
                         "coordinates must be table");  
   
         gdImage::Point* all_p=new(pool) gdImage::Point[table->count()];          gdImage::Point* all_p=new(PointerFreeGC) gdImage::Point[table->count()];
         gdImage::Point *add_p=all_p;              gdImage::Point *add_p=all_p;    
         table->for_each(add_point, &add_p);          table->for_each(add_point, &add_p);
         image->Polygon(all_p, table->count(),           image.Polygon(all_p, table->count(), 
                 image->Color(params->as_int(0, "color must be int", r)));                  image.Color(params.as_int(0, "color must be int", r)));
 }  }
   
 static void _polybar(Request& r, StringPtr method_name, MethodParams* params) {  static void _polybar(Request& r, MethodParams& params) {
         Pool& pool=r.pool();          gdImage& image=GET_SELF(r, VImage).image();
   
         gdImagePtr image=GET_SELF(r, VImage).image;          Table* table=(Table*)params.as_table(1, "coordinates");
         if(!image)  
                 throw Exception(0,   
                         method_name,   
                         "does not contain an image");  
   
         Table* table=params->as_no_junction(1, "coordinates must not be code")->get_table();  
         if(!table)   
                 throw Exception("parser.runtime",  
                         method_name,  
                         "coordinates must be table");  
   
         gdImage::Point* all_p=new(pool) gdImage::Point[table->count()];          gdImage::Point* all_p=new(PointerFreeGC) gdImage::Point[table->count()];
         gdImage::Point *add_p=all_p;              gdImage::Point *add_p=all_p;    
         table->for_each(add_point, &add_p);          table->for_each(add_point, &add_p);
         image->FilledPolygon(all_p, table->count(),           image.FilledPolygon(all_p, table->count(), 
                 image->Color(params->as_int(0, "color must be int", r)));                  image.Color(params.as_int(0, "color must be int", r)));
 }  }
   
 // font  // font
   
 #define Y(y)(y+index*height)  #define Y(y)(y+index*height)
   
 /// simple gdImage-based font storage & text output   // Font class
 class Font: public PA_Object {  
 public:  Font::Font(
                   Charset& asource_charset, 
         const static int letter_spacing;          const String& aalphabet, 
         int height;         ///< Font heigth          gdImage* aifont, int aheight, int amonospace, int aspacebarspace, int aletterspacing):
         int monospace;      ///< Default char width          fsource_charset(asource_charset),
         int spacebarspace; ///< spacebar width          height(aheight),
         gdImagePtr ifont;          monospace(amonospace),
         StringPtr alphabet;          spacebarspace(aspacebarspace),
                   letterspacing(aletterspacing),
         Font(//Pool& pool,           ifont(aifont),
                 StringPtr aalphabet,           alphabet(aalphabet)     {
                 gdImagePtr aifont, int aheight, int amonospace, int aspacebarspace):  
                 alphabet(aalphabet),           if(fsource_charset.isUTF8()){
                 height(aheight), monospace(amonospace),  spacebarspace(aspacebarspace),                  size_t index=0;
                 ifont(aifont) {                  for(UTF8_string_iterator i(alphabet); i.has_next(); )
         }                          fletter2index.put_dont_replace(i.next(), index++);
           
         /* ******************************** char ********************************** */  
           
         int index_of(char ch) {  
                 if(ch==' ') return -1;  
                 return alphabet->pos(&ch, 1);  
         }  
           
         int index_width(int index) {  
                 if(index<0)  
                         return spacebarspace;  
                 int tr=ifont->GetTransparent();  
                 for(int x=ifont->SX()-1; x>=0; x--) {  
                         for(int y=0; y<height; y++)  
                                 if(ifont->GetPixel(x, Y(y))!=tr)   
                                         return x+1;  
                 }  
                 return 0;  
         }  
           
         void index_display(gdImagePtr image, int x, int y, int index){  
                 if(index>=0)   
                         ifont->Copy(*image, x, y, 0, Y(0), index_width(index), height);  
         }          }
           }
         /* ******************************** string ********************************** */  
           /* ******************************** char ********************************** */
         int step_width(int index) {  
                 return letter_spacing + (monospace ? monospace : index_width(index));  size_t Font::index_of(char ch) {
           if(ch==' ') return STRING_NOT_FOUND;
           return alphabet.pos(ch);
   }
   
   size_t Font::index_of(XMLCh ch) {
           if(ch==' ') return STRING_NOT_FOUND;
           return fletter2index.get(ch);
   }
   
   int Font::index_width(size_t index) {
           if(index==STRING_NOT_FOUND)
                   return spacebarspace;
           int tr=ifont->GetTransparent();
           for(int x=ifont->SX()-1; x>=0; x--) {
                   for(int y=0; y<height; y++)
                           if(ifont->GetPixel(x, Y(y))!=tr) 
                                   return x+1;
         }          }
           return 0;
   }
   
   void Font::index_display(gdImage& image, int x, int y, size_t index){
           if(index!=STRING_NOT_FOUND) 
                   ifont->Copy(image, x, y, 0, Y(0), index_width(index), height);
   }
   
   /* ******************************** string ********************************** */
   
   int Font::step_width(int index) {
           return letterspacing + (monospace ? monospace : index_width(index));
   }
   
         // counts trailing letter_spacing, consider this OK. useful for contiuations  // counts trailing letter_spacing, consider this OK. useful for contiuations
         int string_width(StringPtr s){  int Font::string_width(const String& s){
                 CharPtr cstr=s->cstr();          const char* cstr=s.cstr();
                 int result=0;          int result=0;
   
           if(fsource_charset.isUTF8()){
                   for(UTF8_string_iterator i(s); i.has_next(); )
                           result+=step_width(index_of(i.next()));
           } else {
                 for(const char* current=cstr; *current; current++)                  for(const char* current=cstr; *current; current++)
                         result+=step_width(index_of(*current));                          result+=step_width(index_of(*current));
                 return result;  
         }          }
           
         void string_display(gdImagePtr image, int x, int y, StringPtr s){          return result;
                 CharPtr cstr=s->cstr();  }
   
   void Font::string_display(gdImage& image, int x, int y, const String& s){
           const char* cstr=s.cstr();
   
           if(fsource_charset.isUTF8()){
                   for(UTF8_string_iterator i(s); i.has_next(); ){
                           size_t index=index_of(i.next());
                           index_display(image, x, y, index);
                           x+=step_width(index);
                   }
           } else {
                 for(const char* current=cstr; *current; current++) {                  for(const char* current=cstr; *current; current++) {
                         int index=index_of(*current);                          size_t index=index_of(*current);
                         index_display(image, x, y, index);                          index_display(image, x, y, index);
                         x+=step_width(index);                          x+=step_width(index);
                 }                  }
         }          }
           }
 };  
 const int Font::letter_spacing=1;  
   
 static void _font(Request& r, StringPtr method_name, MethodParams* params) {  //
         Pool& pool=r.pool();  
   
         StringPtr alphabet=params->as_string(0, "alphabet must not be code");  
         gdImagePtr image=load(r, method_name, params->as_string(1, "file_name must not be code"));  
         int spacebar_width=params->as_int(2, "spacebar_width must be int", r);  
         int monospace_width;  
         if(params->count()>3) {  
                 monospace_width=params->as_int(3, "monospace_width must be int", r);  
                 if(!monospace_width)  
                         monospace_width=image->SX();  
         } else  
                 monospace_width=0;  
   
         if(!alphabet->size())  static void _font(Request& r, MethodParams& params) {
                 throw Exception("parser.runtime",          const String& alphabet=params.as_string(0, "alphabet must not be code");
                         method_name,          size_t alphabet_length=alphabet.length(r.charsets.source());
           if(!alphabet_length)
                   throw Exception(PARSER_RUNTIME,
                           0,
                         "alphabet must not be empty");                          "alphabet must not be empty");
   
         if(int remainder=image->SY() % alphabet->size())          gdImage* image=load(r, params.as_string(1, FILE_NAME_MUST_NOT_BE_CODE));
                 throw Exception("parser.runtime",  
                         method_name,          int spacebar_width=image->SX();
           int monospace_width=0; // proportional
           int letter_spacing=1;
           if(params.count()>2){
                   if(HashStringValue* options=params[2].get_hash()){
                           // third option is hash
                           if(params.count()>3)
                                   throw Exception(PARSER_RUNTIME, 0, "too many params were specified");
                           int valid_options=0;
                           if(Value* vspacebar_width=options->get(spacebar_width_name)){
                                   valid_options++;
                                   spacebar_width=r.process_to_value(*vspacebar_width).as_int();
                           }
                           if(Value* vmonospace_width=options->get(monospace_width_name)){
                                   valid_options++;
                                   monospace_width=r.process_to_value(*vmonospace_width).as_int();
                                   if(!monospace_width)
                                           monospace_width=image->SX();
                           }
                           if(Value* vletter_spacing=options->get(letter_spacing_name)){
                                   valid_options++;
                                   letter_spacing=r.process_to_value(*vletter_spacing).as_int();
                           }
                           if(valid_options!=options->count())
                                   throw Exception(PARSER_RUNTIME, 0, CALLED_WITH_INVALID_OPTION);
                   } else {
                           // backward
                           spacebar_width=params.as_int(2, "param must be int or hash", r);
                           if(params.count()>3) {
                                   monospace_width=params.as_int(3, "monospace_width must be int", r);
                                   if(!monospace_width)
                                           monospace_width=image->SX();
                           }
                   }
           }
   
           if(int remainder=image->SY() % alphabet_length)
                   throw Exception(PARSER_RUNTIME,
                           0,
                         "font-file height(%d) not divisable by alphabet size(%d), remainder=%d",                          "font-file height(%d) not divisable by alphabet size(%d), remainder=%d",
                                 image->SY(), alphabet->size(), remainder);                                  image->SY(), alphabet_length, remainder);
                   
         GET_SELF(r, VImage).font=FontPtr(new Font(//pool,           GET_SELF(r, VImage).set_font(new Font(
                   r.charsets.source(),
                 alphabet,                   alphabet, 
                 image,                   image, 
                 image->SY() / alphabet->size(), monospace_width, spacebar_width));                  image->SY() / alphabet_length, monospace_width, spacebar_width, letter_spacing));
 }  }
   
 static void _text(Request& r, StringPtr method_name, MethodParams* params) {  static void _text(Request& r, MethodParams& params) {
         Pool& pool=r.pool();          int x=params.as_int(0, "x must be int", r);
           int y=params.as_int(1, "y must be int", r);
         int x=params->as_int(0, "x must be int", r);          const String& s=params.as_string(2, "text must not be code");
         int y=params->as_int(1, "y must be int", r);  
         StringPtr s=params->as_string(2, "text must not be code");  
   
         VImage& vimage=GET_SELF(r, VImage);          VImage& vimage=GET_SELF(r, VImage);
         if(vimage.image)          vimage.font().string_display(vimage.image(), x, y, s);
                 if(vimage.font)  
                         vimage.font->string_display(vimage.image, x, y, s);  
                 else  
                         throw Exception("parser.runtime",  
                                 method_name,  
                                 "set the font first");  
         else  
                 throw Exception(0,   
                         method_name,   
                         "does not contain an image");  
 }  }
   
 static void _length(Request& r, StringPtr method_name, MethodParams* params) {  static void _length(Request& r, MethodParams& params) {
         Pool& pool=r.pool();          const String& s=params.as_string(0, "text must not be code");
   
         const StringPtr s=params->as_string(0, "text must not be code");  
   
         VImage& vimage=GET_SELF(r, VImage);          VImage& vimage=GET_SELF(r, VImage);
         if(vimage.image)          r.write_no_lang(*new VInt(vimage.font().string_width(s)));
                 if(vimage.font) {  }
                         r.write_no_lang(ValuePtr(new VInt(vimage.font->string_width(s))));  
                 } else  static void _arc(Request& r, MethodParams& params) {
                         throw Exception("parser.runtime",          gdImage& image=GET_SELF(r, VImage).image();
                                 method_name,  
                                 "set the font first");          image.Arc(
         else                  params.as_int(0, "center_x must be int", r), 
                 throw Exception(0,                   params.as_int(1, "center_y must be int", r), 
                         method_name,                   params.as_int(2, "width must be int", r), 
                         "does not contain an image");                  params.as_int(3, "height must be int", r), 
 }                  params.as_int(4, "start degrees must be int", r), 
                   params.as_int(5, "end degrees must be int", r), 
 static void _arc(Request& r, StringPtr method_name, MethodParams* params) {                  image.Color(params.as_int(6, "cx must be int", r)));
         Pool& pool=r.pool();  }
   
         gdImagePtr image=GET_SELF(r, VImage).image;  static void _sector(Request& r, MethodParams& params) {
         if(!image)          gdImage& image=GET_SELF(r, VImage).image();
                 throw Exception(0,   
                         method_name,           image.Sector(
                         "does not contain an image");                  params.as_int(0, "center_x must be int", r), 
                   params.as_int(1, "center_y must be int", r), 
         image->Arc(                  params.as_int(2, "width must be int", r), 
                 params->as_int(0, "center_x must be int", r),                   params.as_int(3, "height must be int", r), 
                 params->as_int(1, "center_y must be int", r),                   params.as_int(4, "start degrees must be int", r), 
                 params->as_int(2, "width must be int", r),                   params.as_int(5, "end degrees must be int", r), 
                 params->as_int(3, "height must be int", r),                   image.Color(params.as_int(6, "color must be int", r)));
                 params->as_int(4, "start degrees must be int", r),   }
                 params->as_int(5, "end degrees must be int", r),   
                 image->Color(params->as_int(6, "cx must be int", r)));  static void _circle(Request& r, MethodParams& params) {
 }          gdImage& image=GET_SELF(r, VImage).image();
   
 static void _sector(Request& r, StringPtr method_name, MethodParams* params) {          int size=params.as_int(2, "radius must be int", r)*2;
         Pool& pool=r.pool();          image.Arc(
                   params.as_int(0, "center_x must be int", r), 
         gdImagePtr image=GET_SELF(r, VImage).image;                  params.as_int(1, "center_y must be int", r), 
         if(!image)  
                 throw Exception(0,   
                         method_name,   
                         "does not contain an image");  
   
         image->Sector(  
                 params->as_int(0, "center_x must be int", r),   
                 params->as_int(1, "center_y must be int", r),   
                 params->as_int(2, "width must be int", r),   
                 params->as_int(3, "height must be int", r),   
                 params->as_int(4, "start degrees must be int", r),   
                 params->as_int(5, "end degrees must be int", r),   
                 image->Color(params->as_int(6, "color must be int", r)));  
 }  
   
 static void _circle(Request& r, StringPtr method_name, MethodParams* params) {  
         Pool& pool=r.pool();  
   
         gdImagePtr image=GET_SELF(r, VImage).image;  
         if(!image)  
                 throw Exception(0,   
                         method_name,   
                         "does not contain an image");  
   
         int size=params->as_int(2, "radius must be int", r)*2;  
         image->Arc(  
                 params->as_int(0, "center_x must be int", r),   
                 params->as_int(1, "center_y must be int", r),   
                 size, //w                  size, //w
                 size, //h                  size, //h
                 0, //s                  0, //s
                 360, //e                  360, //e
                 image->Color(params->as_int(3, "color must be int", r)));                  image.Color(params.as_int(3, "color must be int", r)));
 }  }
   
 gdImagePtr as_image(Pool& pool, StringPtr method_name, MethodParams* params,   gdImage& as_image(MethodParams& params, int index, const char* msg) {
                                                 int index, const char* msg) {          Value& value=params.as_no_junction(index, msg);
         gdImagePtr src(0);  
   
         ValuePtr value=params->as_no_junction(index, msg);  
   
         if(Value* vimage=value->as(VIMAGE_TYPE, false)) {          if(Value* vimage=value.as(VIMAGE_TYPE)) {
                 src=static_cast<VImage *>(vimage)->image;                  return static_cast<VImage *>(vimage)->image();
                 if(!src)  
                         throw Exception("parser.runtime",   
                                 method_name,   
                                 msg);  
         } else          } else
                 throw Exception("parser.runtime",                   throw Exception(PARSER_RUNTIME, 
                         method_name,                           0, 
                         msg);                          msg);
   
         return src;  
 }  }
   
 static void _copy(Request& r, StringPtr method_name, MethodParams* params) {  static void _copy(Request& r, MethodParams& params) {
         Pool& pool=r.pool();          gdImage& dest=GET_SELF(r, VImage).image();
   
           gdImage& src=as_image(params, 0, "src must be image");
   
         gdImagePtr dest=GET_SELF(r, VImage).image;          int sx=params.as_int(1, "src_x must be int", r);
         if(!dest)          int sy=params.as_int(2, "src_y must be int", r);
                 throw Exception(0,           int sw=params.as_int(3, "src_w must be int", r);
                         method_name,           int sh=params.as_int(4, "src_h must be int", r);
                         "self does not contain an image");          int dx=params.as_int(5, "dest_x must be int", r);
           int dy=params.as_int(6, "dest_y must be int", r);
         gdImagePtr src=as_image(pool, method_name, params, 0, "src must be image");          if(params.count()>1+2+2+2) {
                   int dw=params.as_int(1+2+2+2, "dest_w must be int", r);
         int sx=params->as_int(1, "src_x must be int", r);                  int dh=(int)(params.count()>1+2+2+2+1?
         int sy=params->as_int(2, "src_y must be int", r);                          params.as_int(1+2+2+2+1, "dest_h must be int", r):sh*(((double)dw)/((double)sw)));
         int sw=params->as_int(3, "src_w must be int", r);                  int tolerance=params.count()>1+2+2+2+2?
         int sh=params->as_int(4, "src_h must be int", r);                          params.as_int(1+2+2+2+2, "tolerance must be int", r):150;
         int dx=params->as_int(5, "dest_x must be int", r);  
         int dy=params->as_int(6, "dest_y must be int", r);  
         if(params->count()>1+2+2+2) {  
                 int dw=params->as_int(1+2+2+2, "dest_w must be int", r);  
                 int dh=(int)(params->count()>1+2+2+2+1?  
                         params->as_int(1+2+2+2+1, "dest_h must be int", r):sh*(((double)dw)/((double)sw)));  
                 int tolerance=params->count()>1+2+2+2+2?  
                         params->as_int(1+2+2+2+2, "tolerance must be int", r):150;  
   
                 src->CopyResampled(*dest, dx, dy, sx, sy, dw, dh, sw, sh, tolerance);                  src.CopyResampled(dest, dx, dy, sx, sy, dw, dh, sw, sh, tolerance);
         } else          } else
                 src->Copy(*dest, dx, dy, sx, sy, sw, sh);                  src.Copy(dest, dx, dy, sx, sy, sw, sh);
   }
   
   static void _pixel(Request& r, MethodParams& params) {
           gdImage& image=GET_SELF(r, VImage).image();
   
           int x=params.as_int(0, "x must be int", r); 
           int y=params.as_int(1, "y must be int", r);
   
           if(params.count()>2) {
                   image.SetPixel(x, y, 
                           image.Color(params.as_int(2, "color must be int", r)));
           } else 
                   r.write_no_lang(*new VInt(image.DecodeColor(image.GetPixel(x, y))));
 }  }
   
   
Line 1289  MImage::MImage(): Methoded("image") { Line 1293  MImage::MImage(): Methoded("image") {
         add_native_method("create", Method::CT_DYNAMIC, _create, 2, 3);          add_native_method("create", Method::CT_DYNAMIC, _create, 2, 3);
   
         // ^image.gif[]          // ^image.gif[]
         add_native_method("gif", Method::CT_DYNAMIC, _gif, 0, 0);          add_native_method("gif", Method::CT_DYNAMIC, _gif, 0, 1);
   
         // ^image.line(x0;y0;x1;y1;color)          // ^image.line(x0;y0;x1;y1;color)
         add_native_method("line", Method::CT_DYNAMIC, _line, 5, 5);          add_native_method("line", Method::CT_DYNAMIC, _line, 5, 5);
Line 1304  MImage::MImage(): Methoded("image") { Line 1308  MImage::MImage(): Methoded("image") {
         add_native_method("bar", Method::CT_DYNAMIC, _bar, 5, 5);          add_native_method("bar", Method::CT_DYNAMIC, _bar, 5, 5);
   
         // ^image.replace(color-source;color-dest)[table x:y]          // ^image.replace(color-source;color-dest)[table x:y]
         add_native_method("replace", Method::CT_DYNAMIC, _replace, 3, 3);          // ^image.replace(color-source;color-dest)
           add_native_method("replace", Method::CT_DYNAMIC, _replace, 2, 3);
   
         // ^image.polyline(color)[table x:y]          // ^image.polyline(color)[table x:y]
         add_native_method("polyline", Method::CT_DYNAMIC, _polyline, 2, 2);          add_native_method("polyline", Method::CT_DYNAMIC, _polyline, 2, 2);
Line 1315  MImage::MImage(): Methoded("image") { Line 1320  MImage::MImage(): Methoded("image") {
         // ^image.polybar(color)[table x:y]          // ^image.polybar(color)[table x:y]
         add_native_method("polybar", Method::CT_DYNAMIC, _polybar, 2, 2);          add_native_method("polybar", Method::CT_DYNAMIC, _polybar, 2, 2);
   
     // ^image.font[alPHAbet;font-file-name.gif](spacebar_width)          // ^image.font[alPHAbet;font-file-name.gif]
     // ^image.font[alPHAbet;font-file-name.gif](spacebar_width;width)          // ^image.font[alPHAbet;font-file-name.gif](spacebar_width)
         add_native_method("font", Method::CT_DYNAMIC, _font, 3, 4);          // ^image.font[alPHAbet;font-file-name.gif](spacebar_width;letter_width)
           // ^image.font[alPHAbet;font-file-name.gif][$.space-width(.) $.letter-width(.) $.letter-space(.)]
           add_native_method("font", Method::CT_DYNAMIC, _font, 2, 4);
   
     // ^image.text(x;y)[text]          // ^image.text(x;y)[text]
         add_native_method("text", Method::CT_DYNAMIC, _text, 3, 3);          add_native_method("text", Method::CT_DYNAMIC, _text, 3, 3);
                   
     // ^image.ngth[text]          // ^image.length[text]
         add_native_method("length", Method::CT_DYNAMIC, _length, 1, 1);          add_native_method("length", Method::CT_DYNAMIC, _length, 1, 1);
                   
         // ^image.arc(center x;center y;width;height;start in degrees;end in degrees;color)          // ^image.arc(center x;center y;width;height;start in degrees;end in degrees;color)
Line 1336  MImage::MImage(): Methoded("image") { Line 1343  MImage::MImage(): Methoded("image") {
   
         // ^image.copy[source](src x;src y;src w;src h;dst x;dst y[;dest w[;dest h[;tolerance]]])          // ^image.copy[source](src x;src y;src w;src h;dst x;dst y[;dest w[;dest h[;tolerance]]])
         add_native_method("copy", Method::CT_DYNAMIC, _copy, 1+2+2+2, (1+2+2+2)+2+1);          add_native_method("copy", Method::CT_DYNAMIC, _copy, 1+2+2+2, (1+2+2+2)+2+1);
   
           // ^image.pixel(x;y)[(color)]
           add_native_method("pixel", Method::CT_DYNAMIC, _pixel, 2, 3);
 }  }
Removed from v.1.90.2.13  
changed lines
  Added in v.1.152

E-mail: