--- parser3/src/classes/image.C 2001/09/01 14:39:25 1.36 +++ parser3/src/classes/image.C 2001/10/08 15:14:07 1.48 @@ -2,12 +2,10 @@ Parser: @b image parser class. Copyright(c) 2001 ArtLebedev Group(http://www.artlebedev.com) - Author: Alexander Petrosyan (http://design.ru/paf) - $Id: image.C,v 1.36 2001/09/01 14:39:25 parser Exp $ + $Id: image.C,v 1.48 2001/10/08 15:14:07 parser Exp $ */ -static const char *RCSId="$Id: image.C,v 1.36 2001/09/01 14:39:25 parser Exp $"; /* jpegsize: gets the width and height (in pixels) of a jpeg file @@ -47,10 +45,10 @@ public: // Methoded // helpers -/// simple buffered reader[from memory/file], used in _measure +#ifndef DOXYGEN class Measure_reader { public: - enum { READ_CHUNK_SIZE=0x400*10 };// 10K + enum { READ_CHUNK_SIZE=0x400*20 };// 20K typedef size_t(*Func)(void *& buf, size_t limit, void *info); Measure_reader(Func afunc, void *ainfo) : @@ -83,6 +81,7 @@ private: size_t offset; size_t size; }; +#endif /// GIF file header struct GIF_Header { @@ -137,7 +136,7 @@ void measure_gif(Pool& pool, const Strin if(strncmp(head->type, "GIF", 3)!=0) PTHROW(0, 0, origin_string, - "not GIF file - signature not found"); + "not GIF file - wrong signature"); width=little_endian_to_int(head->width); height=little_endian_to_int(head->height); @@ -161,7 +160,7 @@ void measure_jpeg(Pool& pool, const Stri if(!(signature[0]==0xFF && signature[1]==0xD8)) PTHROW(0, 0, origin_string, - "not JPEG file - signature not found"); + "not JPEG file - wrong signature"); bool found=false; while(true) { @@ -219,11 +218,12 @@ void measure(Pool& pool, const String& f "can not determine image type - no file name extension"); } -/// used by image: _measure / read_mem +#ifndef DOXYGEN struct Read_mem_info { unsigned char *ptr; unsigned char *eof; }; +#endif static size_t read_mem(void*& buf, size_t limit, void *info) { Read_mem_info& rmi=*static_cast(info); buf=rmi.ptr; @@ -232,11 +232,12 @@ static size_t read_mem(void*& buf, size_ return read_size; } -/// used by image: _measure / read_disk +#ifndef DOXYGEN struct Read_disk_info { const String *file_spec; size_t offset; }; +#endif static size_t read_disk(void*& buf, size_t limit, void *info) { Read_disk_info& rdi=*static_cast(info); Pool& pool=rdi.file_spec->pool(); @@ -283,11 +284,12 @@ static void _measure(Request& r, const S static_cast(r.self)->set(file_name, width, height); } -/// used by image: _html / append_attrib_pair +#ifndef DOXYGEN struct Attrib_info { String *tag; ///< html tag being constructed Hash *skip; ///< tag attributes not to append to tag string [to skip] }; +#endif static void append_attrib_pair(const Hash::Key& key, Hash::Val *val, void *info) { Attrib_info& ai=*static_cast(info); @@ -309,14 +311,17 @@ static void _html(Request& r, const Stri const Hash& fields=static_cast(r.self)->fields(); Hash *attribs=0; - if(params->size()) - if(attribs=params->get(0).get_hash()) { - Attrib_info attrib_info={&tag, 0}; - attribs->for_each(append_attrib_pair, &attrib_info); - } else - PTHROW(0, 0, - &method_name, - "attributes must be must be hash"); + if(params->size()) { + Value &vattribs=params->get(0); + if(vattribs.is_defined()) // allow 'void' + if(Hash *attribs=vattribs.get_hash()) { + Attrib_info attrib_info={&tag, 0}; + attribs->for_each(append_attrib_pair, &attrib_info); + } else + PTHROW(0, 0, + &method_name, + "attributes must be hash"); + } Attrib_info attrib_info={&tag, attribs}; fields.for_each(append_attrib_pair, &attrib_info); @@ -328,7 +333,7 @@ static gdImage *load(Request& r, const S const String& file_name){ Pool& pool=r.pool(); - const char *file_name_cstr=r.absolute(file_name).cstr(String::UL_FILE_NAME); + const char *file_name_cstr=r.absolute(file_name).cstr(String::UL_FILE_SPEC); if(FILE *f=fopen(file_name_cstr, "rb")) { gdImage& image=*new(pool) gdImage(pool); bool ok=image.CreateFromGif(f); @@ -350,8 +355,7 @@ static gdImage *load(Request& r, const S static void _load(Request& r, const String& method_name, MethodParams *params) { Pool& pool=r.pool(); - Value& vfile_name=params->as_no_junction(0, "file name must not be code"); - const String& file_name=vfile_name.as_string(); + const String& file_name=params->as_string(0, "file name must not be code"); gdImage& image=*load(r, method_name, file_name); int width=image.SX(); @@ -387,9 +391,9 @@ static void _gif(Request& r, const Strin String out(pool); image->Gif(out); VFile& vfile=*new(pool) VFile(pool); - String& image_gif=*new(pool) String(pool, "image/gif"); + Value *content_type=new(pool) VString(*new(pool) String(pool, "image/gif")); vfile.set(false/*not tainted*/, - out.cstr(String::UL_AS_IS), out.size(), 0, &image_gif); + out.cstr(String::UL_AS_IS), out.size(), 0, content_type); r.write_no_lang(vfile); } @@ -460,6 +464,16 @@ static void _bar(Request& r, const Strin image->Color(params->as_int(4, r))); } +#ifndef DOXYGEN +static void add_point(Array::Item *value, void *info) { + Array& row=*static_cast(value); + gdImage::Point **p=static_cast(info); + + (**p).x=row.get_string(0)->as_int(); + (**p).y=row.get_string(1)->as_int(); + (*p)++; +} +#endif static void _replace(Request& r, const String& method_name, MethodParams *params) { Pool& pool=r.pool(); @@ -469,24 +483,21 @@ static void _replace(Request& r, const S &method_name, "does not contain an image"); - if((params->size()-2)%2) // I see your thoughts, but that's more readable - PTHROW(0, 0, - &method_name, - "y coordinate missing"); - - int n=(params->size()-2)/2; - - gdImage::Point *p=(gdImage::Point *)pool.malloc(sizeof(gdImage::Point)*n); - for(int i=0; ias_int(2+i*2+0, r); - p[i].y=params->as_int(2+i*2+1, r); - } - image->FilledPolygonReplaceColor(p, n, + Table *table=params->as_no_junction(2, "coordinates must not be code").get_table(); + if(!table) + PTHROW(0, 0, + &method_name, + "coordinates must be table"); + + gdImage::Point *all_p=(gdImage::Point *)pool.malloc(sizeof(gdImage::Point)*table->size()); + gdImage::Point *add_p=all_p; + table->for_each(add_point, &add_p); + image->FilledPolygonReplaceColor(all_p, table->size(), image->Color(params->as_int(0, r)), // src color image->Color(params->as_int(1, r)));// dest color } -static void _polygon(Request& r, const String& method_name, MethodParams *params) { +static void _polyline(Request& r, const String& method_name, MethodParams *params) { Pool& pool=r.pool(); gdImage *image=static_cast(r.self)->image; @@ -495,19 +506,39 @@ static void _polygon(Request& r, const S &method_name, "does not contain an image"); - if((params->size()-1)%2) // [I see..] see now? + Table *table=params->as_no_junction(1, "coordinates must not be code").get_table(); + if(!table) + PTHROW(0, 0, + &method_name, + "coordinates must be table"); + + gdImage::Point *all_p=(gdImage::Point *)pool.malloc(sizeof(gdImage::Point)*table->size()); + gdImage::Point *add_p=all_p; + table->for_each(add_point, &add_p); + image->Polygon(all_p, table->size(), + image->Color(params->as_int(0, r)), + false/*not closed*/); +} + +static void _polygon(Request& r, const String& method_name, MethodParams *params) { + Pool& pool=r.pool(); + + gdImage *image=static_cast(r.self)->image; + if(!image) PTHROW(0, 0, &method_name, - "y coordinate missing"); + "does not contain an image"); - int n=(params->size()-1)/2; - - gdImage::Point *p=(gdImage::Point *)pool.malloc(sizeof(gdImage::Point)*n); - for(int i=0; ias_int(2+i*2+0, r); - p[i].y=params->as_int(2+i*2+1, r); - } - image->Polygon(p, n, + Table *table=params->as_no_junction(1, "coordinates must not be code").get_table(); + if(!table) + PTHROW(0, 0, + &method_name, + "coordinates must be table"); + + gdImage::Point *all_p=(gdImage::Point *)pool.malloc(sizeof(gdImage::Point)*table->size()); + gdImage::Point *add_p=all_p; + table->for_each(add_point, &add_p); + image->Polygon(all_p, table->size(), image->Color(params->as_int(0, r))); } @@ -520,19 +551,16 @@ static void _polybar(Request& r, const S &method_name, "does not contain an image"); - if((params->size()-1)%2) // [I see..] see now? - PTHROW(0, 0, - &method_name, - "y coordinate missing"); - - int n=(params->size()-1)/2; - - gdImage::Point *p=(gdImage::Point *)pool.malloc(sizeof(gdImage::Point)*n); - for(int i=0; ias_int(2+i*2+0, r); - p[i].y=params->as_int(2+i*2+1, r); - } - image->FilledPolygon(p, n, + Table *table=params->as_no_junction(1, "coordinates must not be code").get_table(); + if(!table) + PTHROW(0, 0, + &method_name, + "coordinates must be table"); + + gdImage::Point *all_p=(gdImage::Point *)pool.malloc(sizeof(gdImage::Point)*table->size()); + gdImage::Point *add_p=all_p; + table->for_each(add_point, &add_p); + image->FilledPolygon(all_p, table->size(), image->Color(params->as_int(0, r))); } @@ -544,7 +572,7 @@ static void _polybar(Request& r, const S class Font : public Pooled { public: - const static int kerning; + const static int letter_spacing; int height; ///< Font heigth int monospace; ///< Default char width int spacebarspace; ///< spacebar width @@ -584,40 +612,50 @@ public: } /* ******************************** string ********************************** */ - /* - int string_width(const char *cstr){ + + int string_width(const String& s){ + const char *cstr=s.cstr(String::UL_AS_IS); int result=0; for(; *cstr; cstr++) result+=index_width(index_of(*cstr)); return result; } - */ void string_display(gdImage& image, int x, int y, const String& s){ const char *cstr=s.cstr(String::UL_AS_IS); if(cstr) for(; *cstr; cstr++) { int index=index_of(*cstr); index_display(image, x, y, index); - x+=kerning + (monospace ? monospace : index_width(index)); + x+=letter_spacing + (monospace ? monospace : index_width(index)); } } }; -const int Font::kerning=1; +const int Font::letter_spacing=1; static void _font(Request& r, const String& method_name, MethodParams *params) { Pool& pool=r.pool(); - Value& valphabet=params->as_no_junction(0, "alphabet must not be code"); - Value& file_name=params->as_no_junction(1, "file_name must not be code"); + const String& alphabet=params->as_string(0, "alphabet must not be code"); + gdImage& image=*load(r, method_name, params->as_string(1, "file_name must not be code")); int spacebar_width=params->as_int(2, r); + int monospace_width; + if(params->size()>3) { + monospace_width=params->as_int(3, r); + if(!monospace_width) + monospace_width=image.SX(); + } else + monospace_width=0; - int monospace_width=params->size()>3?params->as_int(3, r):0; - gdImage& image=*load(r, method_name, file_name.as_string()); + if(!alphabet.size()) + PTHROW(0, 0, + &method_name, + "alphabet must not be empty"); + static_cast(r.self)->font=new(pool) Font(pool, - valphabet.as_string(), + alphabet, image, - image.SY(), monospace_width, spacebar_width); + image.SY() / alphabet.size(), monospace_width, spacebar_width); } static void _text(Request& r, const String& method_name, MethodParams *params) { @@ -641,6 +679,66 @@ static void _text(Request& r, const Stri "does not contain an image"); } +static void _length(Request& r, const String& method_name, MethodParams *params) { + Pool& pool=r.pool(); + + const String& s=params->as_string(0, "text must not be code"); + + VImage& vimage=*static_cast(r.self); + if(vimage.image) + if(vimage.font) { + VInt& result=*new(pool) VInt(pool, vimage.font->string_width(s)); + result.set_name(method_name); + r.write_assign_lang(result); + } else + PTHROW(0, 0, + &method_name, + "set the font first"); + else + PTHROW(0, 0, + &method_name, + "does not contain an image"); +} + +static void _arc(Request& r, const String& method_name, MethodParams *params) { + Pool& pool=r.pool(); + + gdImage *image=static_cast(r.self)->image; + if(!image) + PTHROW(0, 0, + &method_name, + "does not contain an image"); + + image->Arc( + params->as_int(0, r), //cx + params->as_int(1, r), //cy + params->as_int(2, r), //w + params->as_int(3, r), //h + params->as_int(4, r), //s + params->as_int(5, r), //e + image->Color(params->as_int(6, r))); +} + +static void _circle(Request& r, const String& method_name, MethodParams *params) { + Pool& pool=r.pool(); + + gdImage *image=static_cast(r.self)->image; + if(!image) + PTHROW(0, 0, + &method_name, + "does not contain an image"); + + int radius=params->as_int(2, r); + image->Arc( + params->as_int(0, r), //cx + params->as_int(1, r), //cy + radius, //w + radius, //h + 0, //s + 360, //e + image->Color(params->as_int(3, r))); +} + // constructor MImage::MImage(Pool& apool) : Methoded(apool) { @@ -676,14 +774,17 @@ MImage::MImage(Pool& apool) : Methoded(a // ^image.bar(x0;y0;x1;y1;color) add_native_method("bar", Method::CT_DYNAMIC, _bar, 5, 5); - // ^image.replace(color-source;color-dest)(x;y)... point coord pairs - add_native_method("replace", Method::CT_DYNAMIC, _replace, 2+3*2, 2+100*2); + // ^image.replace(color-source;color-dest)[table x:y] + add_native_method("replace", Method::CT_DYNAMIC, _replace, 3, 3); - // ^image.polygon(color)(x;y)... point coord pairs - add_native_method("polygon", Method::CT_DYNAMIC, _polygon, 1+3*2, 1+100*2); + // ^image.polyline(color)[table x:y] + add_native_method("polyline", Method::CT_DYNAMIC, _polyline, 2, 2); - // ^image.polybar(color)(x;y)... point coord pairs - add_native_method("polybar", Method::CT_DYNAMIC, _polybar, 1+3*2, 1+100*2); + // ^image.polygon(color)[table x:y] + add_native_method("polygon", Method::CT_DYNAMIC, _polygon, 2, 2); + + // ^image.polybar(color)[table x:y] + 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](spacebar_width;width) @@ -692,6 +793,15 @@ MImage::MImage(Pool& apool) : Methoded(a // ^image.text(x;y)[text] add_native_method("text", Method::CT_DYNAMIC, _text, 3, 3); + // ^image.ngth[text] + 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) + add_native_method("arc", Method::CT_DYNAMIC, _arc, 7, 7); + + // ^image.circle(center x;center y;r;color) + add_native_method("circle", Method::CT_DYNAMIC, _circle, 4, 4); + } // global variable