Return to pa_vimage.C CVS log

Up to [parser3project] / parser3 / src / types

Copyright year updated, websites links changed to https://

/** @file
	Parser: @b image parser type.

	Copyright (c) 2001-2026 Art. Lebedev Studio (https://www.artlebedev.com)
	Authors: Konstantin Morshnev <moko@design.ru>, Alexandr Petrosian <paf@design.ru>
*/

#include "pa_vimage.h"
#include "pa_vint.h"
#include "pa_vstring.h"
#include "gif.h"
#include "pa_vbool.h"

volatile const char * IDENT_PA_VIMAGE_C="$Id: pa_vimage.C,v 1.54 2026/04/25 13:38:46 moko Exp $" IDENT_PA_VIMAGE_H;

void VImage::set(const String* src, int width, int height, gdImage* aimage, Value* aexif, Value* axmp) {
	fimage=aimage;

	// $src
	if(src)
		HASH_PUT_CSTR(ffields, "src", new VString(*src));

	// $width
	if(width)
		HASH_PUT_CSTR(ffields, "width", new VInt(width));
	// $height
	if(height)
		HASH_PUT_CSTR( ffields, "height", new VInt(height));

	// $exif
	if(aexif)
		HASH_PUT_CSTR(ffields, "exif", aexif);
	// $xmp
	if(axmp)
		HASH_PUT_CSTR(ffields, "xmp", axmp);

	// defaults
	// $border(0)
	HASH_PUT_CSTR(ffields, "border", new VInt(0));

	// internals, take a look at image.C append_attrib_pair before update
	// $line-width(1)
	HASH_PUT_CSTR(ffields, "line-width", new VInt(1));
}

Value& VImage::as_expr_result() {
	return VBool::get(as_bool());
}


Value* VImage::get_element(const String& aname) {
	// $method
	if(Value* result=VStateless_object::get_element(aname))
		return result;

	// $src, $size
	return ffields.get(aname);
}

const VJunction* VImage::put_element(const String& aname, Value* avalue) {
	ffields.put(aname, avalue);

	if(fimage) {
		if(aname=="line-width") {
			fimage->SetLineWidth(min(max(avalue->as_int(), 1), 10));
		} else if(aname=="line-style") {
			const String& sline_style=avalue->as_string();
			fimage->SetLineStyle(sline_style.length()?sline_style.taint_cstr(String::L_AS_IS):0);
		}
	}

	return 0;
}