1 files changed, 787 insertions, 0 deletions

diff --git a/lib/gdi/font.cpp-new b/lib/gdi/font.cpp-new
new file mode 100644
index 00000000..e9aa5430
--- /dev/null
+++ b/lib/gdi/font.cpp-new
@@ -0,0 +1,787 @@
+#include <lib/gdi/font.h>
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <ctype.h>
+#include <pthread.h>
+#include <sys/types.h>
+#include <unistd.h>
+
+// use this for init Freetype...
+#include <ft2build.h>
+#include FT_FREETYPE_H
+
+#include <lib/base/eerror.h>
+#include <lib/gdi/lcd.h>
+#include <lib/gdi/grc.h>
+#include <lib/base/elock.h>
+#include <lib/base/init.h>
+
+#include <map>
+
+fontRenderClass *fontRenderClass::instance;
+static eLock ftlock;
+static FTC_Font cache_current_font=0;
+
+struct fntColorCacheKey
+{
+	gRGB start, end;
+	fntColorCacheKey(const gRGB &start, const gRGB &end)
+		: start(start), end(end)
+	{
+	}
+	bool operator <(const fntColorCacheKey &c) const
+	{
+		if (start < c.start)
+			return 1;
+		else if (start == c.start)
+			return end < c.end;
+		return 0;
+	}
+};
+
+std::map<fntColorCacheKey,gLookup> colorcache;
+
+static gLookup &getColor(const gPalette &pal, const gRGB &start, const gRGB &end)
+{
+	fntColorCacheKey key(start, end);
+	std::map<fntColorCacheKey,gLookup>::iterator i=colorcache.find(key);
+	if (i != colorcache.end())
+		return i->second;
+	gLookup &n=colorcache.insert(std::pair<fntColorCacheKey,gLookup>(key,gLookup())).first->second;
+	eDebug("[FONT] creating new font color cache entry %02x%02x%02x%02x .. %02x%02x%02x%02x", start.a, start.r, start.g, start.b,
+		end.a, end.r, end.g, end.b);
+	n.build(16, pal, start, end);
+/*	for (int i=0; i<16; i++)
+		eDebugNoNewLine("%02x|%02x%02x%02x%02x ", (int)n.lookup[i], pal.data[n.lookup[i]].a, pal.data[n.lookup[i]].r, pal.data[n.lookup[i]].g, pal.data[n.lookup[i]].b);
+	eDebug("");*/
+	return n;
+}
+
+fontRenderClass *fontRenderClass::getInstance()
+{
+	return instance;
+}
+
+FT_Error myFTC_Face_Requester(FTC_FaceID	face_id,
+															FT_Library	library,
+															FT_Pointer	request_data,
+															FT_Face*		aface)
+{
+	return ((fontRenderClass*)request_data)->FTC_Face_Requester(face_id, aface);
+}
+
+
+FT_Error fontRenderClass::FTC_Face_Requester(FTC_FaceID	face_id, FT_Face* aface)
+{
+	fontListEntry *font=(fontListEntry *)face_id;
+	if (!font)
+		return -1;
+	
+	eDebug("[FONT] FTC_Face_Requester (%s)", font->face);
+
+	int error;
+	if ((error=FT_New_Face(library, font->filename, 0, aface)))
+	{
+		eDebug(" failed: %s", strerror(error));
+		return error;
+	}
+	FT_Select_Charmap(*aface, ft_encoding_unicode);
+	return 0;
+}																																																																
+
+FTC_FaceID fontRenderClass::getFaceID(const char *face)
+{
+	for (fontListEntry *f=font; f; f=f->next)
+	{
+		if (!strcmp(f->face, face))
+			return (FTC_FaceID)f;
+	}
+	return 0;
+}
+
+FT_Error fontRenderClass::getGlyphBitmap(FTC_ImageTypeRec *font, FT_ULong glyph_index, FTC_SBit *sbit)
+{
+	FT_Error res=FTC_SBitCache_Lookup(sbitsCache, font, glyph_index, sbit, 0);
+	eDebug("%x", sizeof(**sbit));
+	return res;
+}
+
+const char* fontRenderClass::AddFont(const char *filename)
+{
+	eDebugNoNewLine("[FONT] adding font %s...", filename);
+	fflush(stdout);
+	int error;
+	fontListEntry *n=new fontListEntry;
+
+	FT_Face face;
+	eLocker lock(ftlock);
+
+	if ((error=FT_New_Face(library, filename, 0, &face)))
+		eFatal(" failed: %s", strerror(error));
+
+	strcpy(n->filename=new char[strlen(filename)+1], filename);
+	strcpy(n->face=new char[strlen(face->family_name)+strlen(face->style_name)+2], face->family_name);
+	if (face->style_name[0]!=' ')
+		strcat(n->face, " ");
+	strcat(n->face, face->style_name);
+	FT_Done_Face(face);
+
+	n->next=font;
+	eDebug("OK (%s)", n->face);
+	font=n;
+
+	return n->face;
+}
+
+fontRenderClass::fontListEntry::~fontListEntry()
+{
+	delete[] filename;
+	delete[] face;
+}
+
+fontRenderClass::fontRenderClass(): fb(fbClass::getInstance())
+{
+	instance=this;
+	eDebug("[FONT] initializing lib...");
+	{
+		if (FT_Init_FreeType(&library))
+		{
+			eDebug("[FONT] initializing failed.");
+			return;
+		}
+	}
+	eDebug("[FONT] loading fonts...");
+	fflush(stdout);
+	font=0;
+	
+	int maxbytes=4*1024*1024;
+	eDebug("[FONT] Intializing font cache, using max. %dMB...", maxbytes/1024/1024);
+	fflush(stdout);
+	{
+		if (FTC_Manager_New(library, 8, 8, maxbytes, myFTC_Face_Requester, this, &cacheManager))
+		{
+			eDebug("[FONT] initializing font cache failed!");
+			return;
+		}
+		if (!cacheManager)
+		{
+			eDebug("[FONT] initializing font cache manager error.");
+			return;
+		}
+		if (FTC_SBitCache_New(cacheManager, &sbitsCache))
+		{
+			eDebug("[FONT] initializing font cache sbit failed!");
+			return;
+		}
+/*		if (FTC_ImageCache_New(cacheManager, &imageCache))
+		{
+			eDebug("[FONT] initializing font cache imagecache failed!");
+		} */
+	}
+	return;
+}
+
+fontRenderClass::~fontRenderClass()
+{
+	ftlock.lock();
+//	auskommentiert weil freetype und enigma die kritische masse des suckens ueberschreiten. 
+//	FTC_Manager_Done(cacheManager);
+//	FT_Done_FreeType(library);
+}
+
+Font *fontRenderClass::getFont(const char *face, int size, int tabwidth)
+{
+	FTC_FaceID id=getFaceID(face);
+	if (!id)
+		eDebug("face %s does not exist!", face);
+	if (!id)
+		return 0;
+	return new Font(this, id, size, tabwidth);
+}
+
+Font::Font(fontRenderClass *render, FTC_FaceID faceid, int isize, int tw): tabwidth(tw)
+{
+	renderer=render;
+	font.font.face_id=faceid;
+	font.font.pix_width	= isize;
+	font.font.pix_height = isize;
+	font.flags = FT_LOAD_DEFAULT;
+	height=isize;
+	if (tabwidth==-1)
+		tabwidth=8*isize;
+	ref=0;
+}
+
+FT_Error Font::getGlyphBitmap(FT_ULong glyph_index, FTC_SBit *sbit)
+{
+	return renderer->getGlyphBitmap(&font, glyph_index, sbit);
+}
+
+Font::~Font()
+{
+}
+
+void Font::lock()
+{
+	ref++;
+}
+
+void Font::unlock()
+{
+	ref--;
+	if (!ref)
+		delete this;
+}
+
+int eTextPara::appendGlyph(FT_UInt glyphIndex, int flags, int rflags)
+{
+	FTC_SBit glyph;
+	if (current_font->getGlyphBitmap(glyphIndex, &glyph))
+		return 1;
+
+	int nx=cursor.x();
+
+	if (! (rflags & RS_RTL))
+		nx+=glyph->xadvance;
+	else
+	{
+		eDebug("RTL: glyph->xadvance: %d", glyph->xadvance);
+		nx-=glyph->xadvance;
+	}
+	
+	if (
+			(rflags&RS_WRAP) && 
+			(
+				(!(rflags & RS_RTL)) 
+					? 
+					(nx >= area.right()) : 
+					(nx < area.left())
+				)
+			)
+	{
+		int cnt = 0;
+		glyphString::iterator i(glyphs.end());
+		--i;
+		while (i != glyphs.begin())
+		{
+			if (i->flags&(GS_ISSPACE|GS_ISFIRST))
+				break;
+			cnt++;
+			--i;
+		} 
+		if (i != glyphs.begin() && ((i->flags&(GS_ISSPACE|GS_ISFIRST))==GS_ISSPACE) && (++i != glyphs.end()))		// skip space
+		{
+			int linelength=cursor.x()-i->x;
+				// RTL: linelength is negative
+			i->flags|=GS_ISFIRST;
+			ePoint offset=ePoint(i->x, i->y);
+			newLine(rflags);
+			offset-=cursor;
+			while (i != glyphs.end())		// rearrange them into the next line
+			{
+				i->x-=offset.x();
+				i->y-=offset.y();
+				i->bbox->moveBy(-offset.x(), -offset.y());
+				++i;
+			}
+			cursor+=ePoint(linelength, 0);	// put the cursor after that line
+		} else
+		{
+	    if (cnt)
+			{
+				newLine(rflags);
+				flags|=GS_ISFIRST;
+			}
+		}
+	}
+
+	int xadvance=glyph->xadvance, kern=0;
+	
+	if (previous && use_kerning)
+	{
+		FT_Vector delta;
+		FT_Get_Kerning(current_face, previous, glyphIndex, ft_kerning_default, &delta);
+		kern=delta.x>>6;
+	}
+
+  eRect* bbox = new eRect();
+	bbox->setLeft( (flags&GS_ISFIRST|glyphs.empty()?cursor.x():cursor.x()-1) + glyph->left );	
+	bbox->setTop( cursor.y() - glyph->top );
+	bbox->setWidth( glyph->width );
+	bbox->setHeight( glyph->height );
+
+	pGlyph ng;
+
+	xadvance+=kern;
+
+	if (!(rflags & RS_RTL))
+		ng.x=cursor.x()+kern;
+	else
+		ng.x=cursor.x()-xadvance;
+
+	ng.y=cursor.y();
+	ng.w=xadvance;
+	ng.font=current_font;
+	ng.font->lock();
+	ng.glyph_index=glyphIndex;
+	ng.flags=flags;
+	ng.bbox=bbox;
+	glyphs.push_back(ng);
+
+	if (!(rflags & RS_RTL))
+		cursor+=ePoint(xadvance, 0);
+	else
+		cursor-=ePoint(xadvance, 0);
+	previous=glyphIndex;
+	return 0;
+}
+
+void eTextPara::calc_bbox()
+{
+	boundBox.setLeft( 32000 );
+	boundBox.setTop( 32000 );
+	boundBox.setRight( -32000 );         // for each glyph image, compute its bounding box, translate it,
+	boundBox.setBottom( -32000 );
+	// and grow the string bbox
+
+	for (	glyphString::iterator i(glyphs.begin()); i != glyphs.end(); ++i)
+	{
+		if ( i->bbox->left() < boundBox.left() )
+			boundBox.setLeft( i->bbox->left() );
+		if ( i->bbox->top() < boundBox.top() )
+			boundBox.setTop( i->bbox->top() );
+		if ( i->bbox->right() > boundBox.right() )
+			boundBox.setRight( i->bbox->right() );
+		if ( i->bbox->bottom() > boundBox.bottom() )
+			boundBox.setBottom( i->bbox->bottom() );
+	}
+//	eDebug("boundBox left = %i, top = %i, right = %i, bottom = %i", boundBox.left(), boundBox.top(), boundBox.right(), boundBox.bottom() );
+	bboxValid=1;
+}
+
+void eTextPara::newLine(int flags)
+{
+	if (!(flags & RS_RTL))
+	{
+		if (maximum.width()<cursor.x())
+			maximum.setWidth(cursor.x());
+		cursor.setX(left);
+		previous=0;
+	} else
+	{
+		if (maximum.width()<(area.right()-cursor.x()))
+			maximum.setWidth(area.right()-cursor.x());
+		cursor.setX(area.right());
+	}
+	int linegap=current_face->size->metrics.height-(current_face->size->metrics.ascender+current_face->size->metrics.descender);
+	cursor+=ePoint(0, (current_face->size->metrics.ascender+current_face->size->metrics.descender+linegap*1/2)>>6);
+	if (maximum.height()<cursor.y())
+		maximum.setHeight(cursor.y());
+	previous=0;
+}
+
+static eLock refcntlck;
+
+eTextPara::~eTextPara()
+{
+	clear();
+	if (refcnt>=0)
+		eFatal("verdammt man der war noch gelockt :/\n");
+}
+
+void eTextPara::destroy()
+{
+	eLocker lock(refcntlck);
+
+	if (!refcnt--)
+		delete this;
+}
+
+eTextPara *eTextPara::grab()
+{
+	eLocker lock(refcntlck);
+
+	refcnt++;
+	return this;
+}
+
+void eTextPara::setFont(const gFont &font)
+{
+	if (refcnt)
+		eFatal("mod. after lock");
+	setFont(fontRenderClass::getInstance()->getFont(font.family.c_str(), font.pointSize));
+}
+
+void eTextPara::setFont(Font *fnt)
+{
+	if (refcnt)
+		eFatal("mod. after lock");
+	if (!fnt)
+		return;
+	if (current_font && !current_font->ref)
+		delete current_font;
+	current_font=fnt;
+	eLocker lock(ftlock);
+
+	if (FTC_Manager_Lookup_Size(fontRenderClass::instance->cacheManager, &current_font->font.font, &current_face, &current_font->size)<0)
+	{
+		eDebug("FTC_Manager_Lookup_Size failed!");
+		return;
+	}
+	cache_current_font=&current_font->font.font;
+	previous=0;
+	use_kerning=FT_HAS_KERNING(current_face);
+}
+
+int eTextPara::renderString(const eString &string, int rflags)
+{
+	eLocker lock(ftlock);
+	
+	if (refcnt)
+		eFatal("mod. after lock");
+
+	if (!current_font)
+		return -1;
+
+	if (cursor.y()==-1)
+	{
+		if (!(rflags & RS_RTL))
+		{
+			cursor=ePoint(area.x(), area.y()+(current_face->size->metrics.ascender>>6));
+		} else
+		{
+			cursor=ePoint(area.right(), area.y()+(current_face->size->metrics.ascender>>6));
+		}
+		left=cursor.x();
+	}
+		
+	glyphs.reserve(glyphs.size()+string.length());
+
+	if (&current_font->font.font != cache_current_font)
+	{
+		if (FTC_Manager_Lookup_Size(fontRenderClass::instance->cacheManager, &current_font->font.font, &current_face, &current_font->size)<0)
+		{
+			eDebug("FTC_Manager_Lookup_Size failed!");
+			return -1;
+		}
+		cache_current_font=&current_font->font.font;
+	}
+	
+	std::string::const_iterator p(string.begin());
+
+	while(p != string.end())
+	{
+		int isprintable=1;
+		int flags=0;
+		
+		unsigned int unicode=*p++;
+
+		if (unicode & 0x80) // we have (hopefully) UTF8 here, and we assume that the encoding is VALID
+		{
+			if ((unicode & 0xE0)==0xC0) // two bytes
+			{
+				unicode&=0x1F;
+				unicode<<=6;
+				if (p != string.end())
+					unicode|=(*p++)&0x3F;
+			} else if ((unicode & 0xF0)==0xE0) // three bytes
+			{
+				unicode&=0x0F;
+				unicode<<=6;
+				if (p != string.end())
+					unicode|=(*p++)&0x3F;
+				unicode<<=6;
+				if (p != string.end())
+					unicode|=(*p++)&0x3F;
+			} else if ((unicode & 0xF8)==0xF0) // four bytes
+			{
+				unicode&=0x07;
+				unicode<<=6;
+				if (p != string.end())
+					unicode|=(*p++)&0x3F;
+				unicode<<=6;
+				if (p != string.end())
+					unicode|=(*p++)&0x3F;
+				unicode<<=6;
+				if (p != string.end())
+					unicode|=(*p++)&0x3F;
+			}
+		}
+
+		if (!(rflags&RS_DIRECT))
+		{
+			switch (unicode)
+			{
+			case '\t':
+				isprintable=0;
+				if (!(rflags & RS_RTL))
+				{
+					cursor+=ePoint(current_font->tabwidth, 0);
+					cursor-=ePoint(cursor.x()%current_font->tabwidth, 0);
+				} else
+				{
+						// does this work?
+					cursor-=ePoint(current_font->tabwidth, 0);
+					cursor+=ePoint(cursor.x()%current_font->tabwidth, 0);
+				}
+				break;
+			case 0x8A:
+			case 0xE08A:
+			case '\n':
+				isprintable=0;
+				newLine(rflags);
+				flags|=GS_ISFIRST;
+				break;
+			case '\r':
+			case 0x86: case 0xE086:
+			case 0x87: case 0xE087:
+				isprintable=0;
+				break;
+			case ' ':
+				flags|=GS_ISSPACE;
+			default:
+				break;
+			}
+		}
+		if (isprintable)
+		{
+			FT_UInt index;
+
+			index=(rflags&RS_DIRECT)? unicode : FT_Get_Char_Index(current_face, unicode);
+
+			if (!index)
+				eDebug("unicode %d ('%c') not present", unicode, unicode);
+			else
+				appendGlyph(index, flags, rflags);
+		}
+	}
+	bboxValid=false;
+	calc_bbox();
+	return 0;
+}
+
+void eTextPara::blit(gPixmapDC &dc, const ePoint &offset, const gRGB &background, const gRGB &foreground)
+{
+	eLocker lock(ftlock);
+
+	if (&current_font->font.font != cache_current_font)
+	{
+		if (FTC_Manager_Lookup_Size(fontRenderClass::instance->cacheManager, &current_font->font.font, &current_face, &current_font->size)<0)
+		{
+			eDebug("FTC_Manager_Lookup_Size failed!");
+			return;
+		}
+		cache_current_font=&current_font->font.font;
+	}
+
+	gPixmap &target=dc.getPixmap();
+
+	register int opcode;
+	gColor *lookup8=0;
+	__u32 lookup32[16];
+		
+	if (target.bpp == 8)
+	{
+		if (target.clut.data)
+		{
+			lookup8=getColor(target.clut, background, foreground).lookup;
+			opcode=0;
+		} else
+			opcode=1;
+	} else if (target.bpp == 32)
+	{
+		opcode=3;
+		if (target.clut.data)
+		{
+			lookup8=getColor(target.clut, background, foreground).lookup;
+			for (int i=0; i<16; ++i)
+				lookup32[i]=((target.clut.data[lookup8[i]].a<<24)|
+					(target.clut.data[lookup8[i]].r<<16)|
+					(target.clut.data[lookup8[i]].g<<8)|
+					(target.clut.data[lookup8[i]].b))^0xFF000000;
+		} else
+		{
+			for (int i=0; i<16; ++i)
+				lookup32[i]=(0x010101*i)|0xFF000000;
+		}
+	} else
+	{
+		eWarning("can't render to %dbpp", target.bpp);
+		return;
+	}
+	
+	eRect clip(0, 0, target.x, target.y);
+	clip&=dc.getClip();
+
+	int buffer_stride=target.stride;
+
+	for (glyphString::iterator i(glyphs.begin()); i != glyphs.end(); ++i)
+	{
+		FTC_SBit glyph_bitmap;
+		memset(&glyph_bitmap, 0, sizeof(glyph_bitmap));
+		if (fontRenderClass::instance->getGlyphBitmap(&i->font->font, i->glyph_index, &glyph_bitmap))
+			continue;
+		if (!glyph_bitmap->buffer)
+			eFatal("you suck.");
+		int rx=i->x+glyph_bitmap->left + offset.x();
+		int ry=i->y-glyph_bitmap->top  + offset.y();
+		__u8 *d=(__u8*)(target.data)+buffer_stride*ry+rx*target.bypp;
+		__u8 *s=glyph_bitmap->buffer;
+		register int sx=glyph_bitmap->width;
+		int sy=glyph_bitmap->height;
+		if ((sy+ry) >= clip.bottom())
+			sy=clip.bottom()-ry;
+		if ((sx+rx) >= clip.right())
+			sx=clip.right()-rx;
+		if (rx < clip.left())
+		{
+			int diff=clip.left()-rx;
+			s+=diff;
+			sx-=diff;
+			rx+=diff;
+			d+=diff*target.bypp;
+		}
+		if (ry < clip.top())
+		{
+			int diff=clip.top()-ry;
+			s+=diff*glyph_bitmap->pitch;
+			sy-=diff;
+			ry+=diff;
+			d+=diff*buffer_stride;
+		}
+		if (sx>0)
+			for (int ay=0; ay<sy; ay++)
+			{
+				if (!opcode)		// 4bit lookup to 8bit
+				{
+					register __u8 *td=d;
+					register int ax;
+					for (ax=0; ax<sx; ax++)
+					{	
+						register int b=(*s++)>>4;
+						if(b)
+							*td++=lookup8[b];
+						else
+							td++;
+					}
+				} else if (opcode == 1)	// 8bit direct
+				{
+					register __u8 *td=d;
+					register int ax;
+					for (ax=0; ax<sx; ax++)
+					{	
+						register int b=*s++;
+						*td++^=b;
+					}
+				} else
+				{
+					register __u32 *td=(__u32*)d;
+					register int ax;
+					for (ax=0; ax<sx; ax++)
+					{	
+						register int b=(*s++)>>4;
+						if(b)
+							*td++=lookup32[b];
+						else
+							td++;
+					}
+				}
+				s+=glyph_bitmap->pitch-sx;
+				d+=buffer_stride;
+			}
+	}
+}
+
+void eTextPara::realign(int dir)	// der code hier ist ein wenig merkwuerdig.
+{
+	glyphString::iterator begin(glyphs.begin()), c(glyphs.begin()), end(glyphs.begin()), last;
+	if (dir==dirLeft)
+		return;
+	while (c != glyphs.end())
+	{
+		int linelength=0;
+		int numspaces=0, num=0;
+		begin=end;
+		
+			// zeilenende suchen
+		do {
+			last=end;
+			++end;
+		} while ((end != glyphs.end()) && (!(end->flags&GS_ISFIRST)));
+			// end zeigt jetzt auf begin der naechsten zeile
+			
+		for (c=begin; c!=end; ++c)
+		{
+				// space am zeilenende skippen
+			if ((c==last) && (c->flags&GS_ISSPACE))
+				continue;
+
+			if (c->flags&GS_ISSPACE)
+				numspaces++;
+			linelength+=c->w;;
+			num++;
+		}
+		if (!num)		// line mit nur einem space
+			continue;
+
+		switch (dir)
+		{
+		case dirRight:
+		case dirCenter:
+		{
+			int offset=area.width()-linelength;
+			if (dir==dirCenter)
+				offset/=2;
+			while (begin != end)
+			{
+				begin->x+=offset;
+				begin->bbox->moveBy(offset,0);
+				++begin;
+			}
+			break;
+		}
+		case dirBlock:
+		{
+			if (end == glyphs.end())		// letzte zeile linksbuendig lassen
+				continue;
+			int spacemode;
+			if (numspaces)
+				spacemode=1;
+			else
+				spacemode=0;
+			if ((!spacemode) && (num<2))
+				break;
+			int off=(area.width()-linelength)*256/(spacemode?numspaces:(num-1));
+			int curoff=0;
+			while (begin != end)
+			{
+				int doadd=0;
+				if ((!spacemode) || (begin->flags&GS_ISSPACE))
+					doadd=1;
+				begin->x+=curoff>>8;
+				begin->bbox->moveBy(curoff>>8,0);
+				if (doadd)
+					curoff+=off;
+				++begin;
+			}
+			break;
+		}
+		}
+	}
+	bboxValid=false;
+}
+
+void eTextPara::clear()
+{
+	eLocker lock(ftlock);
+
+	for (glyphString::iterator i(glyphs.begin()); i!=glyphs.end(); ++i)
+	{
+		i->font->unlock();
+		delete i->bbox;
+	}
+	glyphs.clear();
+}
+
+eAutoInitP0<fontRenderClass> init_fontRenderClass(1, "Font Render Class");