Added support for relative line numbers.

Added instructions for, brk and cont. (They are still untested...)
Parser code cleanup. Removed garbage output to stderr.
Reorganize the repository structure.
Updated BLR2 code move it into archive.
Added BLR1 files.

1 files changed, 98 insertions, 0 deletions

diff --git a/archive/blr2/src/hgeft.cpp b/archive/blr2/src/hgeft.cpp
new file mode 100644
index 0000000..479027b
--- /dev/null
+++ b/archive/blr2/src/hgeft.cpp
@@ -0,0 +1,98 @@
+// Freetype2 ext4hge implementations  -*- C++ -*-
+#include "hgeft.h"
+static const char* HGEFT_SRC_FN="hgeft.cpp";
+void hgeTTChar::Free(){if(quad.tex)hge->Texture_Free(quad.tex),quad.tex=0;}
+bool hgeTTChar::SetChar(wchar_t ch,FT_Face ttfface)
+{
+	FT_GlyphSlot slot=ttfface->glyph;
+	FT_UInt glyph_index=FT_Get_Char_Index(ttfface,ch);
+	FT_Error err=FT_Load_Glyph(ttfface,glyph_index,FT_LOAD_DEFAULT);
+	if(err){hge->System_Log("%s: Glyph load failed!",HGEFT_SRC_FN);return false;}
+	err=FT_Render_Glyph(ttfface->glyph,FT_RENDER_MODE_NORMAL);
+	if(err){hge->System_Log("%s: Glyph render failed!",HGEFT_SRC_FN);return false;}
+	_w=slot->advance.x>>6;_h=slot->bitmap.rows;//we are one line only.
+	rw=slot->bitmap.width;rh=slot->bitmap.rows;
+	xofst=slot->bitmap_left;
+	yofst=slot->bitmap.rows-slot->bitmap_top;
+	quad.tex=hge->Texture_Create(
+	slot->bitmap.width?slot->bitmap.width:1,
+	slot->bitmap.rows?slot->bitmap.rows:1);
+	DWORD* tx=hge->Texture_Lock(quad.tex,false,0,0,
+	slot->bitmap.width?slot->bitmap.width:1,
+	slot->bitmap.rows?slot->bitmap.rows:1);
+	memset(tx,0,sizeof(DWORD)*(slot->bitmap.width?slot->bitmap.width:1)*(slot->bitmap.rows?slot->bitmap.rows:1));
+	int ptr=0;
+	for(int i=0;i<slot->bitmap.rows;++i)
+	for(int j=0;j<slot->bitmap.width;++j)
+	{
+#ifdef WIN32
+		tx[i*slot->bitmap.width+j]=ARGB(slot->bitmap.buffer[ptr],255,255,255);
+#else
+		tx[(slot->bitmap.rows-i-1)*slot->bitmap.width+j]=ARGB(slot->bitmap.buffer[ptr],255,255,255);
+		//In OpenGL, textures are locked upside down...
+#endif
+		ptr++;
+	}
+	hge->Texture_Unlock(quad.tex);
+	quad.blend=BLEND_ALPHABLEND;
+	quad.v[0].tx=0;quad.v[0].ty=0;quad.v[1].tx=1;quad.v[1].ty=0;
+	quad.v[2].tx=1;quad.v[2].ty=1;quad.v[3].tx=0;quad.v[3].ty=1;
+	return true;
+}
+void hgeTTChar::Render(double x,double y,DWORD col)
+{
+	for(int i=0;i<4;++i)quad.v[i].col=col;
+	quad.v[0].x=x;quad.v[0].y=y-rh+yofst;
+	quad.v[1].x=x+rw;quad.v[1].y=y-rh+yofst;
+	quad.v[2].x=x+rw;quad.v[2].y=y+yofst;
+	quad.v[3].x=x;quad.v[3].y=y+yofst;
+	hge->Gfx_RenderQuad(&quad);
+}
+bool hgeTTFont::Init(const char *ttf,int size)
+{
+	FT_Error err=FT_Init_FreeType(&libft);
+	if(err){hge->System_Log("%s: Failed to initialize freetype",HGEFT_SRC_FN);return false;}
+	err=FT_New_Face(libft,ttf,0,&ttfface);
+	if(err){hge->System_Log("%s: Failed to load font: %s",HGEFT_SRC_FN,ttf);return false;}
+	err=FT_Set_Char_Size(ttfface,0,size*64,96,96);
+	return true;
+}
+void hgeTTFont::UpdateString(const wchar_t *format, ...)
+{
+	for(int i=0;buf[i]!='\0';++i)chars[i].Free();
+	memset(buf,0,sizeof(buf));memset(chars,0,sizeof(chars));
+	va_list vl;
+	va_start(vl,format);
+	vswprintf(buf,1024,format,vl);
+	va_end(vl);
+	buf[1024]='\0';
+	w=h=0;
+	for(int i=0;buf[i]!='\0';++i)
+	{
+		chars[i].SetChar(buf[i],ttfface);
+		w+=chars[i].w();
+		if(chars[i].h()>h)h=chars[i].h();
+	}
+}
+void hgeTTFont::Render(double x,double y,DWORD color,int align)
+{
+	int cur;
+	if(align==0)
+	{
+		cur=x;
+		for(int i=0;buf[i]!='\0';++i)
+		{
+			chars[i].Render(cur,y,color);
+			cur+=chars[i].w();
+		}
+	}
+	if(align==1)
+	{
+		cur=x;
+		for(int i=wcslen(buf)-1;i>=0;--i)
+		{
+			chars[i].Render(cur,y,color);
+			cur-=chars[i].w();
+		}
+	}
+}