ultimatepp/uppsrc/Skylark/Iml/Lib.icpp
cxl 5a3895d47b ide: Fixed release build of packages with only .icpp files, Skylark: Removed DDUMPs
git-svn-id: svn://ultimatepp.org/upp/trunk@5416 f0d560ea-af0d-0410-9eb7-867de7ffcac7
2012-10-08 09:12:01 +00:00

33 lines
662 B
Text

#include "Iml.h"
namespace Upp {
SKYLARK(Iml, "iml/*")
{
String name = http[0];
int q = name.Find('.');
String ext;
if(q >= 0) {
ext = name.Mid(q + 1);
name = name.Mid(0, q);
}
Image m = GetImlImage(name);
if(ext == "jpg" || ext == "JPG" || ext == "jpeg" || ext == "JPEG")
http.Content("image/jpeg", JPGEncoder().SaveString(m));
else
http.Content("image/png", PNGEncoder().SaveString(m));
}
Value ImlImg(const Vector<Value>& arg, const Renderer *)
{
if(arg.GetCount() < 1)
throw Exc("Missing image name for ImlImg");
return Raw("<img src=\"iml/" + AsString(arg[0]) + "\")/>");
}
INITBLOCK {
Compiler::Register("ImlImg", ImlImg);
};
};