--- parser3/src/classes/image.C 2001/04/12 16:26:20 1.16 +++ parser3/src/classes/image.C 2001/05/11 17:45:10 1.26 @@ -5,17 +5,11 @@ Author: Alexander Petrosyan (http://design.ru/paf) - $Id: image.C,v 1.16 2001/04/12 16:26:20 paf Exp $ + $Id: image.C,v 1.26 2001/05/11 17:45:10 parser Exp $ */ #include "pa_config_includes.h" -#include - -#ifdef WIN32 -# include "smtp/smtp.h" -#endif - #include "gif.h" #include "pa_common.h" @@ -23,12 +17,27 @@ #include "pa_vfile.h" #include "pa_vimage.h" -// global var +// defines + +#define IMAGE_CLASS_NAME "image" + +// class + +class MImage : public Methoded { +public: // VStateless_class + Value *create_new_value(Pool& pool) { return new(pool) VImage(pool); } + +public: + MImage(Pool& pool); + +public: // Methoded + bool used_directly() { return true; } -VStateless_class *image_class; +}; // helpers +/// simple buffered reader[from memory/file], used in _measure class Measure_reader { public: enum { READ_CHUNK_SIZE=0x400 };// 1K @@ -65,7 +74,7 @@ private: size_t size; }; -// GIF +/// GIF file header struct GIF_Header { char type[3]; // 'GIF' char version[3]; @@ -76,7 +85,7 @@ struct GIF_Header { char nulls; }; -// JPEG +/// JPEG file header struct JFIF_Header { char length[2]; // length of JFIF segment marker char identifier[5]; // JFIF identifier @@ -88,6 +97,7 @@ struct JFIF_Header { char ythumbnails; // height of thumbnails char reserved; // reserved }; +/// JPEG frame header struct JPG_Frame { char length[2]; // length of image marker char data; // data precision of bits/sample @@ -138,7 +148,7 @@ void measure_jpeg(Pool& pool, const Stri bool flag=false; unsigned char *prefix; - const prefix_size=2; + const size_t prefix_size=2; if(reader.read(prefix, prefix_size)(params->get(0)); - // forcing [this body type] - r.fail_if_junction_(true, data, method_name, "data must not be code"); + Value& data=params->get_no_junction(0, "data must not be code"); void *info;Measure_reader::Func read_func; Read_mem_info read_mem_info; @@ -276,9 +283,10 @@ static void _measure(Request& r, const S static_cast(r.self)->set(file_name, width, height); } +/// used by image: _html / append_attrib_pair struct Attrib_info { - String *tag; - Hash *skip; + String *tag; ///< html tag being constructed + Hash *skip; ///< tag attributes not to append to tag string [to skip] }; static void append_attrib_pair(const Hash::Key& key, Hash::Val *val, void *info) { Attrib_info& ai=*static_cast(info); @@ -289,22 +297,20 @@ static void append_attrib_pair(const Has Value& value=*static_cast(val); // src="a.gif" width=123 ismap[=-1] *ai.tag << " " << key; - if(value.is_string() || value.as_double()>=0) + if(value.is_string() || value.as_int()>=0) *ai.tag << "=\"" << value.as_string() << "\""; } -/// ^image.html[] -/// ^image.html[hash] -static void _html(Request& r, const String& method_name, Array *params) { +static void _html(Request& r, const String& method_name, MethodParams *params) { Pool& pool=r.pool(); String tag(pool); tag << "(r.self)->fields(); + const Hash& fields=static_cast(r.self)->fields(); Hash *attribs=0; if(params->size()) - if(attribs=static_cast(params->get(0))->get_hash()) { + if(attribs=params->get(0).get_hash()) { Attrib_info attrib_info={&tag, 0}; attribs->for_each(append_attrib_pair, &attrib_info); } else @@ -325,8 +331,12 @@ static gdImage *load(Request& r, const S const char *file_name_cstr=r.absolute(file_name).cstr(String::UL_FILE_NAME); if(FILE *f=fopen(file_name_cstr, "rb")) { gdImage& image=*new(pool) gdImage(pool); - image.CreateFromGif(f); + bool ok=image.CreateFromGif(f); fclose(f); + if(!ok) + PTHROW(0, 0, + &file_name, + "is not in GIF format"); return ℑ } else { PTHROW(0, 0, @@ -337,13 +347,10 @@ static gdImage *load(Request& r, const S } -/// ^image.load[background.gif] -static void _load(Request& r, const String& method_name, Array *params) { +static void _load(Request& r, const String& method_name, MethodParams *params) { Pool& pool=r.pool(); - Value& vfile_name=*static_cast(params->get(0)); - // forcing [this body type] - r.fail_if_junction_(true, vfile_name, method_name, "file name must not be code"); + Value& vfile_name=params->get_no_junction(0, "file name must not be code"); const String& file_name=vfile_name.as_string(); gdImage& image=*load(r, method_name, file_name); @@ -352,25 +359,21 @@ static void _load(Request& r, const Stri static_cast(r.self)->set(&file_name, width, height, &image); } -/// ^image.create[width;height] bgcolor=white -/// ^image.create[width;height;bgcolor] -static void _create(Request& r, const String& method_name, Array *params) { +static void _create(Request& r, const String& method_name, MethodParams *params) { Pool& pool=r.pool(); - int width=(int)r.process(*static_cast(params->get(0))).as_double(); - int height=(int)r.process(*static_cast(params->get(1))).as_double(); + int width=r.process(params->get(0)).as_int(); + int height=r.process(params->get(1)).as_int(); int bgcolor_value=0xffFFff; if(params->size()>2) - bgcolor_value= - (int)r.process(*static_cast(params->get(2))).as_double(); + bgcolor_value=r.process(params->get(2)).as_int(); gdImage& image=*new(pool) gdImage(pool); image.Create(width, height); image.FilledRectangle(0, 0, width-1, height-1, image.Color(bgcolor_value)); static_cast(r.self)->set(0, width, height, &image); } -/// ^image.gif[] -static void _gif(Request& r, const String& method_name, Array *params) { +static void _gif(Request& r, const String& method_name, MethodParams *params) { Pool& pool=r.pool(); gdImage *image=static_cast(r.self)->image; @@ -385,13 +388,13 @@ static void _gif(Request& r, const Strin VFile& vfile=*new(pool) VFile(pool); String& image_gif=*new(pool) String(pool, "image/gif"); - vfile.set(false/*not tainted*/, out.cstr(), out.size(), 0, &image_gif); + vfile.set(false/*not tainted*/, + out.cstr(String::UL_AS_IS), out.size(), 0, &image_gif); r.write_no_lang(vfile); } -/// ^image.line(x0;y0;x1;y1;color) -static void _line(Request& r, const String& method_name, Array *params) { +static void _line(Request& r, const String& method_name, MethodParams *params) { Pool& pool=r.pool(); gdImage *image=static_cast(r.self)->image; @@ -401,15 +404,14 @@ static void _line(Request& r, const Stri "does not contain an image"); image->Line( - (int)r.process(*static_cast(params->get(0))).as_double(), - (int)r.process(*static_cast(params->get(1))).as_double(), - (int)r.process(*static_cast(params->get(2))).as_double(), - (int)r.process(*static_cast(params->get(3))).as_double(), - image->Color((int)r.process(*static_cast(params->get(4))).as_double())); + r.process(params->get(0)).as_int(), + r.process(params->get(1)).as_int(), + r.process(params->get(2)).as_int(), + r.process(params->get(3)).as_int(), + image->Color(r.process(params->get(4)).as_int())); } -/// ^image.fill(x;y;color) -static void _fill(Request& r, const String& method_name, Array *params) { +static void _fill(Request& r, const String& method_name, MethodParams *params) { Pool& pool=r.pool(); gdImage *image=static_cast(r.self)->image; @@ -419,13 +421,12 @@ static void _fill(Request& r, const Stri "does not contain an image"); image->Fill( - (int)r.process(*static_cast(params->get(0))).as_double(), - (int)r.process(*static_cast(params->get(1))).as_double(), - image->Color((int)r.process(*static_cast(params->get(2))).as_double())); + r.process(params->get(0)).as_int(), + r.process(params->get(1)).as_int(), + image->Color(r.process(params->get(2)).as_int())); } -/// ^image.rectangle(x0;y0;x1;y1;color) -static void _rectangle(Request& r, const String& method_name, Array *params) { +static void _rectangle(Request& r, const String& method_name, MethodParams *params) { Pool& pool=r.pool(); gdImage *image=static_cast(r.self)->image; @@ -435,15 +436,14 @@ static void _rectangle(Request& r, const "does not contain an image"); image->Rectangle( - (int)r.process(*static_cast(params->get(0))).as_double(), - (int)r.process(*static_cast(params->get(1))).as_double(), - (int)r.process(*static_cast(params->get(2))).as_double(), - (int)r.process(*static_cast(params->get(3))).as_double(), - image->Color((int)r.process(*static_cast(params->get(4))).as_double())); + r.process(params->get(0)).as_int(), + r.process(params->get(1)).as_int(), + r.process(params->get(2)).as_int(), + r.process(params->get(3)).as_int(), + image->Color(r.process(params->get(4)).as_int())); } -/// ^image.bar(x0;y0;x1;y1;color) -static void _bar(Request& r, const String& method_name, Array *params) { +static void _bar(Request& r, const String& method_name, MethodParams *params) { Pool& pool=r.pool(); gdImage *image=static_cast(r.self)->image; @@ -453,15 +453,14 @@ static void _bar(Request& r, const Strin "does not contain an image"); image->FilledRectangle( - (int)r.process(*static_cast(params->get(0))).as_double(), - (int)r.process(*static_cast(params->get(1))).as_double(), - (int)r.process(*static_cast(params->get(2))).as_double(), - (int)r.process(*static_cast(params->get(3))).as_double(), - image->Color((int)r.process(*static_cast(params->get(4))).as_double())); + r.process(params->get(0)).as_int(), + r.process(params->get(1)).as_int(), + r.process(params->get(2)).as_int(), + r.process(params->get(3)).as_int(), + image->Color(r.process(params->get(4)).as_int())); } -/// ^image.replace(color-source;color-dest)(x;y)... point coord pairs -static void _replace(Request& r, const String& method_name, Array *params) { +static void _replace(Request& r, const String& method_name, MethodParams *params) { Pool& pool=r.pool(); gdImage *image=static_cast(r.self)->image; @@ -479,16 +478,15 @@ static void _replace(Request& r, const S gdImage::Point *p=(gdImage::Point *)pool.malloc(sizeof(gdImage::Point)*n); for(int i=0; i(params->get(2+i*2+0))).as_double(); - p[i].y=(int)r.process(*static_cast(params->get(2+i*2+1))).as_double(); + p[i].x=r.process(params->get(2+i*2+0)).as_int(); + p[i].y=r.process(params->get(2+i*2+1)).as_int(); } image->FilledPolygonReplaceColor(p, n, - image->Color((int)r.process(*static_cast(params->get(0))).as_double()), // src color - image->Color((int)r.process(*static_cast(params->get(1))).as_double()));// dest color + image->Color(r.process(params->get(0)).as_int()), // src color + image->Color(r.process(params->get(1)).as_int()));// dest color } -/// ^image.polygon(color)(x;y)... point coord pairs -static void _polygon(Request& r, const String& method_name, Array *params) { +static void _polygon(Request& r, const String& method_name, MethodParams *params) { Pool& pool=r.pool(); gdImage *image=static_cast(r.self)->image; @@ -506,15 +504,14 @@ static void _polygon(Request& r, const S gdImage::Point *p=(gdImage::Point *)pool.malloc(sizeof(gdImage::Point)*n); for(int i=0; i(params->get(1+i*2+0))).as_double(); - p[i].y=(int)r.process(*static_cast(params->get(1+i*2+1))).as_double(); + p[i].x=r.process(params->get(1+i*2+0)).as_int(); + p[i].y=r.process(params->get(1+i*2+1)).as_int(); } image->Polygon(p, n, - image->Color((int)r.process(*static_cast(params->get(0))).as_double())); + image->Color(r.process(params->get(0)).as_int())); } -/// ^image.polybar(color)(x;y)... point coord pairs -static void _polybar(Request& r, const String& method_name, Array *params) { +static void _polybar(Request& r, const String& method_name, MethodParams *params) { Pool& pool=r.pool(); gdImage *image=static_cast(r.self)->image; @@ -532,16 +529,18 @@ static void _polybar(Request& r, const S gdImage::Point *p=(gdImage::Point *)pool.malloc(sizeof(gdImage::Point)*n); for(int i=0; i(params->get(1+i*2+0))).as_double(); - p[i].y=(int)r.process(*static_cast(params->get(1+i*2+1))).as_double(); + p[i].x=r.process(params->get(1+i*2+0)).as_int(); + p[i].y=r.process(params->get(1+i*2+1)).as_int(); } image->FilledPolygon(p, n, - image->Color((int)r.process(*static_cast(params->get(0))).as_double())); + image->Color(r.process(params->get(0)).as_int())); } // font #define Y(y)(y+index*height+1) + +/// simple gdImage-based font storage & text output class Font : public Pooled { public: @@ -604,27 +603,14 @@ public: } }; -/// ^image.font[alPHAbet;font-file-name.gif](height) -/// ^image.font[alPHAbet;font-file-name.gif](height;width) -static void _font(Request& r, const String& method_name, Array *params) { - Pool& pool=r.pool(); - - Value& valphabet=*static_cast(params->get(0)); - // forcing [this body type] - r.fail_if_junction_(true, valphabet, method_name, "alphabet must not be code"); - - Value& file_name=*static_cast(params->get(1)); - // forcing [this body type] - r.fail_if_junction_(true, file_name, method_name, "file_name must not be code"); - - Value& vheight=*static_cast(params->get(2)); - int height=(int)r.process(vheight).as_double(); - - int width=0; - if(params->size()>3) { - Value& vwidth=*static_cast(params->get(3)); - width=(int)r.process(vwidth).as_double(); - } +static void _font(Request& r, const String& method_name, MethodParams *params) { + Pool& pool=r.pool(); + + Value& valphabet=params->get_no_junction(0, "alphabet must not be code"); + Value& file_name=params->get_no_junction(1, "file_name must not be code"); + int height=r.process(params->get(2)).as_int(); + + int width=params->size()>3?r.process(params->get(3)).as_int():0; static_cast(r.self)->font=new(pool) Font(pool, valphabet.as_string(), @@ -632,14 +618,12 @@ static void _font(Request& r, const Stri height, width); } -/// ^image.text(x;y)[text] -static void _text(Request& r, const String& method_name, Array *params) { +static void _text(Request& r, const String& method_name, MethodParams *params) { Pool& pool=r.pool(); - int x=(int)r.process(*static_cast(params->get(0))).as_double(); - int y=(int)r.process(*static_cast(params->get(1))).as_double(); - const String& s= - r.process(*static_cast(params->get(2))).as_string(); + int x=r.process(params->get(0)).as_int(); + int y=r.process(params->get(1)).as_int(); + const String& s=r.process(params->get(2)).as_string(); VImage& vimage=*static_cast(r.self); if(vimage.image) @@ -655,51 +639,65 @@ static void _text(Request& r, const Stri "does not contain an image"); } -// initialize -void initialize_image_class(Pool& pool, VStateless_class& vclass) { +// constructor + +MImage::MImage(Pool& apool) : Methoded(apool) { + set_name(*NEW String(pool(), IMAGE_CLASS_NAME)); + + // ^image:measure[DATA] - vclass.add_native_method("measure", Method::CT_DYNAMIC, _measure, 1, 1); + add_native_method("measure", Method::CT_DYNAMIC, _measure, 1, 1); - /// ^image.html[] - /// ^image.html[hash] - vclass.add_native_method("html", Method::CT_DYNAMIC, _html, 0, 1); + // ^image.html[] + // ^image.html[hash] + add_native_method("html", Method::CT_DYNAMIC, _html, 0, 1); - /// ^image.load[background.gif] - vclass.add_native_method("load", Method::CT_DYNAMIC, _load, 1, 1); + // ^image.load[background.gif] + add_native_method("load", Method::CT_DYNAMIC, _load, 1, 1); - /// ^image.create[width;height] bgcolor=white - /// ^image.create[width;height;bgcolor] - vclass.add_native_method("create", Method::CT_DYNAMIC, _create, 2, 3); + // ^image.create[width;height] bgcolor=white + // ^image.create[width;height;bgcolor] + add_native_method("create", Method::CT_DYNAMIC, _create, 2, 3); - /// ^image.gif[] - vclass.add_native_method("gif", Method::CT_DYNAMIC, _gif, 0, 0); + // ^image.gif[] + add_native_method("gif", Method::CT_DYNAMIC, _gif, 0, 0); - /// ^image.line(x0;y0;x1;y1;color) - vclass.add_native_method("line", Method::CT_DYNAMIC, _line, 5, 5); + // ^image.line(x0;y0;x1;y1;color) + add_native_method("line", Method::CT_DYNAMIC, _line, 5, 5); - /// ^image.fill(x;y;color) - vclass.add_native_method("fill", Method::CT_DYNAMIC, _fill, 3, 3); + // ^image.fill(x;y;color) + add_native_method("fill", Method::CT_DYNAMIC, _fill, 3, 3); - /// ^image.rectangle(x0;y0;x1;y1;color) - vclass.add_native_method("rectangle", Method::CT_DYNAMIC, _rectangle, 5, 5); + // ^image.rectangle(x0;y0;x1;y1;color) + add_native_method("rectangle", Method::CT_DYNAMIC, _rectangle, 5, 5); - /// ^image.bar(x0;y0;x1;y1;color) - vclass.add_native_method("bar", Method::CT_DYNAMIC, _bar, 5, 5); + // ^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 - vclass.add_native_method("replace", Method::CT_DYNAMIC, _replace, 2+3*2, 2+100*2); + // ^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.polygon(color)(x;y)... point coord pairs - vclass.add_native_method("polygon", Method::CT_DYNAMIC, _polygon, 1+3*2, 1+100*2); + // ^image.polygon(color)(x;y)... point coord pairs + add_native_method("polygon", Method::CT_DYNAMIC, _polygon, 1+3*2, 1+100*2); - /// ^image.polybar(color)(x;y)... point coord pairs - vclass.add_native_method("polybar", Method::CT_DYNAMIC, _polybar, 1+3*2, 1+100*2); + // ^image.polybar(color)(x;y)... point coord pairs + add_native_method("polybar", Method::CT_DYNAMIC, _polybar, 1+3*2, 1+100*2); - /// ^image.font[alPHAbet;font-file-name.gif](height) - /// ^image.font[alPHAbet;font-file-name.gif](height;width) - vclass.add_native_method("font", Method::CT_DYNAMIC, _font, 3, 4); + // ^image.font[alPHAbet;font-file-name.gif](height) + // ^image.font[alPHAbet;font-file-name.gif](height;width) + add_native_method("font", Method::CT_DYNAMIC, _font, 3, 4); - /// ^image.text(x;y)[text] - vclass.add_native_method("text", Method::CT_DYNAMIC, _text, 3, 3); + // ^image.text(x;y)[text] + add_native_method("text", Method::CT_DYNAMIC, _text, 3, 3); } + +// global variable + +Methoded *image_class; + +// creator + +Methoded *MImage_create(Pool& pool) { + return image_class=new(pool) MImage(pool); +}