// ========================================================================

// HTML rendering routines for Arachne WWW browser, statical part

// (c)1997-2000 Michael Polak, Arachne Labs

// ========================================================================

#include "arachne.h"

#include "html.h"

#include "xanimgif.h"

// ========================================================================

// Fast arguments for HTML tags.

// ========================================================================

// getvar() reads value of variable of given name

int getvar(char *name,char **value)

{

int i=0,nameidx=0,valueidx=0;

while(i<argnamecount)

{

if(!strcmpi(argnamestr+nameidx+sizeof(int),name))

{

*value=argvaluestr+valueidx+sizeof(int);

return 1;

}

nameidx+=*(int*)(&argnamestr[nameidx]);

valueidx+=*(int*)(&argvaluestr[valueidx]);

i++;

}

return 0;

}

// Alternative to getvar() [JdS 2004/1/28]

// getarg() reads value of a "variable" of a given name

int getarg(char *name,char **value)

{

int i=0;

while(i<argvarcount)

{

if(!strcmpi(argnameptr[i],name))

{

*value=argvalueptr[i];

return 1;

}

i++;

}

return 0;

}

int searchvar(char *name)

{

int i=0,nameidx=0;

int l=strlen(name);

while(i<argnamecount)

{

if(!strncmpi(argnamestr+nameidx+sizeof(int),name,l))

return 1;

nameidx+=*(int*)(&argnamestr[nameidx]);

i++;

}

return 0;

}

// Alternative to searchvar() [JdS 2004/1/28]

// searcharg() searches for a "variable" of a given name

int searcharg(char *name)

{

int i=0, l=strlen(name);

while(i<argvarcount)

{

if(!strncmpi(argnameptr[i],name,l))

return 1;

i++;

}

return 0;

}

// putvarname() sets new variable name

void putvarname(char *name,int size)

{

int idx=0,i=argnamecount;

while(i--)

{

idx+=*(int*)(&argnamestr[idx]);

}//loop

size+=1+sizeof(int);

if(idx+size<MAXARGNAMES)

{

memcpy(argnamestr+idx,&size,sizeof(int));

memcpy(argnamestr+idx+sizeof(int),name,size-1-sizeof(int));

argnamestr[idx+size-1]='\0';

argnamecount++;

}

}

// Alternative to putvarname() [JdS 2004/1/28]

// putargname() sets new "variable" name pointer

// Needs to be followed by putargvalue() to update argvarcount

void putargname(char *name)

{

if(argvarcount<MAXARGS)

{

argnameptr[argvarcount]=name;

}

}

// putvarvalue() sets new variable value (putvarname must be called first)

void putvarvalue(char *value,int size)

{

int idx=0,i=argvaluecount;

while(i--)

{

idx+=*(int*)(&argvaluestr[idx]);

}//loop

size+=1+sizeof(int);

if(idx+size<BUF/4)

{

memcpy(argvaluestr+idx,&size,sizeof(int));

memcpy(argvaluestr+idx+sizeof(int),value,size-1-sizeof(int));

argvaluestr[idx+size-1]='\0';

argvaluecount++;

}

}

// Alternative to putvarvalue() [JdS 2004/1/28]

// putargvalue() sets new "variable" value pointer

void putargvalue(char *value)

{

if(argvarcount<MAXARGS)

{

argvalueptr[argvarcount]=value;

argvarcount++;

}

}

//converts hexadecimal character to decimal value

char hexdigit(char c)

{

if(c>='0' && c<='9') return c-'0';

if(c>='A' && c<='F') return 10+c-'A';

return 0;

}

//try2readHTMLcolor reads RGB color in HTML format "#RRGGBB" - supports also

//16 basic color names acording to HTML/4.0 specification.

void try2readHTMLcolor(char *str,unsigned char *r,unsigned char *g,unsigned char *b)

{

char string[7]="0000000";

strupr(str);

if(*str=='#')

{

strncpy(string,&str[1],6);

goto resolve;

}

else

if(strstr(str,"BLACK"))

{*r=0;*g=0;*b=0;}

else

if(strstr(str,"GREEN"))

{*r=0;*g=0x80;*b=0;}

else

if(strstr(str,"SILVER"))

{*r=0xC0;*g=0xC0;*b=0xC0;}

else

if(strstr(str,"LIME"))

{*r=0;*g=0xFF;*b=0;}

else

if(strstr(str,"GRAY") || strstr(str,"GREY"))

{*r=0x80;*g=0x80;*b=0x80;}

else

if(strstr(str,"OLIVE"))

{*r=0x80;*g=0x80;*b=0;}

else

if(strstr(str,"WHITE"))

{*r=0xFF;*g=0xFF;*b=0xFF;}

else

if(strstr(str,"YELLOW"))

{*r=0xFF;*g=0xFF;*b=0;}

else

if(strstr(str,"MAROON"))

{*r=0x80;*g=0;*b=0;}

else

if(strstr(str,"NAVY"))

{*r=0;*g=0;*b=0x80;}

else

if(strstr(str,"RED"))

{*r=0xFF;*g=0;*b=0;}

else

if(strstr(str,"BLUE"))

{*r=0;*g=0;*b=0xFF;}

else

if(strstr(str,"PURPLE"))

{*r=0x80;*g=0;*b=0x80;}

else

if(strstr(str,"TEAL"))

{*r=0;*g=0x80;*b=0x80;}

else

if(strstr(str,"FUCHSIA"))

{*r=0xFF;*g=0;*b=0xFF;}

else

if(strstr(str,"AQUA"))

{*r=0;*g=0xFF;*b=0xFF;}

else

{

//!!glennmcc: Dec 01, 2005 -- fix 'bad html' <TD BGCOLR= ALIGN=RIGHT>

if(str[0]>'F' || str[1]>'F' || str[2]>'F' ||

str[3]>'F' || str[4]>'F' || str[5]>'F')

strncpy(string,"777777",6);

else

//!!glennmcc: end

strncpy(string,str,6);

resolve:

//!!glennmcc: begin Mar 29, 2002

//added to include RGB format in addition to RRGGBB

if((string[3])<'0')

{

*r=16*hexdigit(string[0]);

*g=16*hexdigit(string[1]);

*b=16*hexdigit(string[2]);

}

else

//!!glennmcc: end

{

*r=16*hexdigit(string[0])+hexdigit(string[1]);

*g=16*hexdigit(string[2])+hexdigit(string[3]);

*b=16*hexdigit(string[4])+hexdigit(string[5]);

}

}

}

//try2getnum converts HTML object metrics to number: pixels or percents

int try2getnum(char *str,unsigned proczaklad)

{

int l;

l=strlen(str);

if(str[l-1]=='%')

{

str[l-1]='\0';

return (int)( (long)((long)atoi(str)*(long)proczaklad) /100 );

}

else

{

return atoi(str);

}

}

// ========================================================================

// fast HTML tag analysis

// ========================================================================

int FastTagDetect(char *tagname)

{

char *ptr=&tagname[1];

tagname[0]=toupper(tagname[0]);

switch(tagname[0])

{

case '/':

return 1000+FastTagDetect(ptr);

case 'A': //most frequent tag: <A HREF=...>

if(!*ptr)

return TAG_A;

strupr(ptr);

if(!strcmp(ptr,"REA"))

return TAG_AREA;

if(!strcmp(ptr,"DDRESS"))

return TAG_I;

if(!strcmp(ptr,"RACHNE"))

return TAG_ARACHNE_BONUS;

//!!glennmcc: Aug 05, 2011 --- added support for HTML5 'AUDIO' & 'VIDEO'

if(!strcmp(ptr,"UDIO"))

return TAG_AUDIO;

break;

case 'T': //second most frequend tag: <TABLE>, <TD>, etc.

strupr(ptr);

if(!strcmp(ptr,"D"))

return TAG_TD;

if(!strcmp(ptr,"R"))

return TAG_TR;

if(!strcmp(ptr,"H"))

return TAG_TH;

if(!strcmp(ptr,"T"))

return TAG_TT;

if(!strcmp(ptr,"ABLE"))

return TAG_TABLE;

if(!strcmp(ptr,"ITLE"))

return TAG_TITLE;

if(!strcmp(ptr,"EXTAREA"))

return TAG_TEXTAREA;

break;

case 'B':

if(!*ptr)

return TAG_B;

strupr(ptr);

if(!strcmp(ptr,"R"))

return TAG_BR;

if(!strcmp(ptr,"IG"))

return TAG_BIG;

if(!strcmp(ptr,"ODY"))

return TAG_BODY;

if(!strcmp(ptr,"ASE"))

return TAG_BASE;

if(!strcmp(ptr,"ASEFONT"))

return TAG_BASEFONT;

if(!strcmp(ptr,"LOCKQUOTE"))

return TAG_BLOCKQUOTE;

if(!strcmp(ptr,"UTTON"))

return TAG_BUTTON;

//!!glennmcc: Jan 19, 2003 --- added support for 'BGSOUND'

if(!strcmp(ptr,"GSOUND"))

return TAG_BGSOUND;

break;

case 'C':

strupr(ptr);

if(!strcmp(ptr,"ENTER"))

return TAG_CENTER;

if(!strcmp(ptr,"APTION"))

return TAG_CAPTION;

if(!strcmp(ptr,"ODE"))

return TAG_CODE;

if(!strcmp(ptr,"ITE"))

return TAG_I;

break;

case 'D':

strupr(ptr);

if(!strcmp(ptr,"T"))

return TAG_LI;

if(!strcmp(ptr,"D"))

return TAG_DD;

#ifdef CAV

if(!strcmp(ptr,"L"))// || !strcmp(ptr,"IR"))

return TAG_OL;

#else

if(!strcmp(ptr,"L") || !strcmp(ptr,"IR"))

return TAG_OL;

#endif

if(!strcmp(ptr,"IV"))

return TAG_DIV;

//!!glennmcc: Feb 27, 2007 -- <S> has been depreciated to <DEL>

//therefore, we can treat <DEL> with the same action as <S> here

//<S> is actually 'strike'

//since our font set does not support 'strike',

//we should italicise <S> instead of treating it as <B>

//!!JDS: Feb 28, 2007 -- STRIKE now implemented (see code in htmldraw.c)

if(!strcmp(ptr,"EL"))

return TAG_S;

//!!glennmcc: end

break;

case 'E':

strupr(ptr);

if(!strcmp(ptr,"M"))

return TAG_B;

if(!strcmp(ptr,"MBED"))

return TAG_EMBED;

break;

case 'F':

strupr(ptr);

if(!strcmp(ptr,"ONT"))

return TAG_FONT;

if(!strcmp(ptr,"ORM"))

return TAG_FORM;

if(!strcmp(ptr,"RAME"))

return TAG_FRAME;

if(!strcmp(ptr,"RAMESET"))

return TAG_FRAMESET;

break;

case 'H':

if(*ptr<'7' && *ptr>'0')

return TAG_H1+*ptr-'1';

strupr(ptr);

if(!strcmp(ptr,"R"))

return TAG_HR;

if(!strcmp(ptr,"EAD"))

return TAG_HEAD;

break;

case 'I':

if(!*ptr)

return TAG_I;

strupr(ptr);

if(!strcmp(ptr,"MG"))

return TAG_IMG;

if(!strcmp(ptr,"NPUT"))

return TAG_INPUT;

//!!glennmcc: Feb 27, 2007 -- <U> has been depreciated to <INS>

//therefore, we can treat <INS> with the same action as <U> here

if(!strcmp(ptr,"NS"))

return TAG_U;

//!!glennmcc: end

//!!glennmcc: Mar 12, 2007 -- quick-n-dirty hack to support <iframe

//test page .... http://www.auschess.org.au/

if(!strcmp(ptr,"FRAME"))

return TAG_IFRAME;

//!!glennmcc: end

break;

case 'K':

strupr(ptr);

if(!strcmp(ptr,"BD"))

return TAG_CODE;

break;

case 'L':

strupr(ptr);

if(!strcmp(ptr,"I"))

return TAG_LI;

if(!strcmp(ptr,"INK"))

return TAG_LINK;

break;

case 'M':

strupr(ptr);

if(!strcmp(ptr,"AP"))

return TAG_MAP;

if(!strcmp(ptr,"ENU"))

return TAG_OL;

if(!strcmp(ptr,"ETA"))

return TAG_META;

break;

case 'N':

strupr(ptr);

if(!strcmp(ptr,"OBR"))

return TAG_NOBR;

if(!strcmp(ptr,"OFRAMES"))

return TAG_NOFRAMES;

if(!strcmp(ptr,"OSCRIPT"))

return TAG_NOSCRIPT;

break;

case 'O':

strupr(ptr);

if(!strcmp(ptr,"L"))

return TAG_OL;

if(!strcmp(ptr,"PTION"))

return TAG_OPTION;

break;

case 'P':

if(!*ptr)

return TAG_P;

strupr(ptr);

if(!strcmp(ptr,"RE"))

return TAG_PRE;

break;

case 'S':

//!!glennmcc: Feb 27, 2007 -- <S> is actually 'strike'

//since our font set does not support 'strike',

//we should italicise <S> instead of treating it as <B>

//!!JDS: Feb 28, 2007 -- STRIKE now implemented (see code in htmldraw.c)

if(!*ptr)

return TAG_S;

// return TAG_B;//original line

//!!glennmcc: end

strupr(ptr);

//!!glennmcc: Aug 13, 2007 -- support <strike> in addition to <s>

if(!strcmp(ptr,"TRIKE"))

return TAG_S;

//!!glennmcc: end

if(!strcmp(ptr,"ELECT"))

return TAG_SELECT;

if(!strcmp(ptr,"MALL"))

return TAG_SMALL;

if(!strcmp(ptr,"UP"))

return TAG_SUP;

if(!strcmp(ptr,"UB"))

return TAG_SUB;

if(!strcmp(ptr,"CRIPT"))

return TAG_SCRIPT;

if(!strcmp(ptr,"TYLE"))

return TAG_STYLE;

if(!strcmp(ptr,"TRONG"))

return TAG_B;

break;

case 'U':

if(!*ptr)

return TAG_U;

strupr(ptr);

if(!strcmp(ptr,"L"))

return TAG_UL;

break;

//!!glennmcc: Aug 05, 2011 --- added support for HTML5 'AUDIO' & 'VIDEO'

case 'V':

strupr(ptr);

if(!strcmp(ptr,"IDEO"))

return TAG_VIDEO;

break;

//!!glennmcc: end

}

return 0;

}

//close HTML atom == set coordinates of right bottom corner

char closeatom(XSWAP adr,int deltax,long absy)

{

char expand=0;

struct HTMLrecord *atomptr;

if(adr!=IE_NULL)

{

atomptr=(struct HTMLrecord *)ie_getswap(adr);

if(atomptr)

{

if(abs((int)atomptr->x+deltax-(int)atomptr->xx)>FUZZYPIX)

expand=1;

p->xsum+=(atomptr->x+deltax)-atomptr->xx;

atomptr->xx=atomptr->x+deltax;

if(absy) //0...don't overwrite!

atomptr->yy=absy;

swapmod=1;

}

else

//!!glennmcc: Mar 03, 2007 -- too many atoms, return instead of crashing

//"Page too long !" message will then be displayed

//and the incomplete page can be viewed.

return NULL;

// MALLOCERR();

//!!glennmcc: end

}

return expand;

}//end if

// find target frame for any HTML tag with TARGET attribute

// <A HREF=... TARGET=...>

int findtarget(int basetarget)

{

int target=basetarget;

char *tagarg;

if(arachne.framescount && getvar("TARGET",&tagarg))

{

int fr=0;

if(!strcmpi(tagarg,"_parent"))

return p->htmlframe[p->currentframe].parent;

do

{

if(!strncmpi(p->htmlframe[fr].framename,tagarg,39))

target=fr;

}

while(fr++<arachne.framescount);

}

return target;

}

//add atom to metafile

void addatom(struct HTMLrecord *atom,void *ptr,int len,char t, char align,

char d1, unsigned char d2,unsigned currentlink,char norightedge)

{

unsigned dataptr,prevHTMLatom=p->lastHTMLatom;

// printf("Adding atom of type %d...\n",t);

if(len==0 && t==TEXT) return;

if(len)

dataptr=ie_putswap((char *)ptr,len,CONTEXT_HTML);

else

dataptr=IE_NULL;

atom->type=t;

atom->align=align;

atom->data1=d1;

atom->data2=d2;

// atom->R=r; //this comes pre-defined in HTML atom...

// atom->G=g;

// atom->B=b;

atom->ptr=dataptr;

atom->datalen=len;

atom->linkptr=currentlink;

atom->next=IE_NULL;

atom->prev=prevHTMLatom;

atom->frameID=p->currentframe;

#ifdef JAVASCRIPT

atom->jsptr=IE_NULL;

#endif

p->lastHTMLatom=ie_putswap((char *)atom,sizeof(struct HTMLrecord),CONTEXT_HTML);

if(p->firstHTMLatom==IE_NULL)

p->firstHTMLatom=p->lastHTMLatom;

else

{

struct HTMLrecord *atomptr=(struct HTMLrecord *)ie_getswap(prevHTMLatom);

if(atomptr)

{

atomptr->next=p->lastHTMLatom;

swapmod=1;

}

else

//!!glennmcc: Mar 03, 2007 -- too many atoms, return instead of crashing

//"Page too long !" message will then be displayed

//and the incomplete page can be viewed.

return;

// MALLOCERR();

//!!glennmcc: end

}

if(p->lastHTMLatom==IE_NULL)

{

p->memory_overflow=1;

return;

}

else

p->HTMLatomcounter++;

if(!norightedge)

{

if(atom->xx>p->docRight)

p->docRight=atom->xx;

if(atom->xx>p->docRightEdge)

p->docRightEdge=atom->xx;

if(atom->xx+HTMLBORDER>p->htmlframe[p->currentframe].scroll.total_x)

p->htmlframe[p->currentframe].scroll.total_x=atom->xx+HTMLBORDER;

p->xsum+=(long)(atom->xx-atom->x);

}

}

// move HTML document "cursor" d pixels to the right

void xshift(int *x,int d)

{

*x+=d;

if(*x>p->docRight)

p->docRight=*x;

if(*x>p->docRightEdge)

p->docRightEdge=*x;

if(*x+HTMLBORDER>p->htmlframe[p->currentframe].scroll.total_x)

p->htmlframe[p->currentframe].scroll.total_x=*x+HTMLBORDER;

p->xsum+=(long)d;

}

//called after the current line has been processed

void alignrow(int x,long y,int islist)

{

int xhop;

//int idx;

long vsize;

unsigned currentHTMLatom=p->lastHTMLatom;

struct HTMLrecord *atomptr;

if(p->HTMLatomcounter==0)

return;

if(!p->sizeTextRow)p->sizeTextRow=p->sizeRow;

alignloop:

atomptr=(struct HTMLrecord *)ie_getswap(currentHTMLatom);

if(!atomptr)

//!!glennmcc: Mar 03, 2007 -- too many atoms, return instead of crashing

//"Page too long !" message will then be displayed

//and the incomplete page can be viewed.

return;

// MALLOCERR();

//!!glennmcc: end

if(atomptr->y==y && //eliminate unclosed buttons:

!(atomptr->type==INPUT && (atomptr->data2 & 2) && atomptr->x==atomptr->xx) &&

!(atomptr->type==TD || atomptr->type==TD_BACKGROUND ||

atomptr->type==TABLE || atomptr->type==NAME))

{

if(atomptr->align & BOTTOM) //ALIGN=BOTTOM

{

if(atomptr->type==TEXT) //text

{

atomptr->y+=p->sizeTextRow;

atomptr->yy=atomptr->y;

atomptr->y-=fonty((int)atomptr->data1,atomptr->data2);

}

else if(atomptr->type!=INPUT || ! (atomptr->data2 & 2))

//^^^^^^^^^^^^^^^^^ this is for <BUTTON> tags

{

vsize=atomptr->yy-atomptr->y;

atomptr->y+=p->sizeRow;

atomptr->yy=atomptr->y;

atomptr->y-=vsize;

}

swapmod=1; //I have written to swapped memory!

}

if(atomptr->align & CENTER) //ALIGN=CENTER

{

xhop=(p->docRight-x)/2;

atomptr->x+=xhop;

atomptr->xx+=xhop;

swapmod=1; //I have written to swapped memory!

}

else

if(atomptr->align & RIGHT) //ALIGN=RIGHT

{

xhop=(p->docRight-x);

atomptr->x+=xhop;

atomptr->xx+=xhop;

swapmod=1; //I have written to swapped memory!

}

if(atomptr->align & SUP) //ALIGN=SUP

{

vsize=fonty((int)atomptr->data1,atomptr->data2)/3;

atomptr->y-=vsize;

atomptr->yy-=vsize;

swapmod=1; //I have written to swapped memory!

}

if(atomptr->align & SUB) //ALIGN=SUB

{

vsize=fonty((int)atomptr->data1,atomptr->data2)/3;

atomptr->y+=vsize;

atomptr->yy+=vsize;

swapmod=1; //I have written to swapped memory!

}

atomptr->align=0;

if(atomptr->prev!=IE_NULL && atomptr->yy>y)

{

currentHTMLatom=atomptr->prev;

goto alignloop;

}

}

if(p->docClearRight && y+p->sizeRow>=p->docClearRight)

{

p->docRight=p->docRightEdge;

p->docClearRight=0;

}

if(p->docClearLeft && y+p->sizeRow>=p->docClearLeft)

{

if(islist==0)p->docLeft=p->docLeftEdge;

p->docClearLeft=0;

}

p->sizeTextRow=0;

}//end sub

//implementatino of HTML tag <BR CLEAR=ALL>

void clearall(long *y)

{

if(p->docClearLeft && p->docClearLeft>=p->docClearRight)

*y=p->docClearLeft;

else if (p->docClearRight)

*y=p->docClearRight;

if(p->docClearLeft)

{

p->docClearLeft=0;

p->docLeft=p->docLeftEdge;

}

if(p->docClearRight)

{

p->docClearRight=0;

p->docRight=p->docRightEdge;

}

}

void fixrowsize(int font,char style)

{

if(fonty(font,style)>p->sizeRow)

p->sizeRow=fonty(font,style);

if(fonty(font,style)>p->sizeTextRow)

p->sizeTextRow=fonty(font,style);

}

//save current font information to font stack

void pushfont(int font,char style, struct HTMLrecord *atom,struct Fontstack *fontstack)

{

if(fontstack->depth<MAXFONTSTACK)

{

if(fontstack->depth<0) //default value is -1

fontstack->depth=0;

else

fontstack->depth++; //default value is -1

fontstack->font[fontstack->depth]=font;

fontstack->style[fontstack->depth]=style;

fontstack->rgb[3*fontstack->depth]=atom->R;

fontstack->rgb[3*fontstack->depth+1]=atom->G;

fontstack->rgb[3*fontstack->depth+2]=atom->B;

}

}

//restore current font information to font stack

int popfont(int *font,char *style, struct HTMLrecord *atom, struct Fontstack *fontstack)

{

if(fontstack->depth>=0)

{

*font=fontstack->font[fontstack->depth];

*style=fontstack->style[fontstack->depth];

atom->R=fontstack->rgb[3*fontstack->depth];

atom->G=fontstack->rgb[3*fontstack->depth+1];

atom->B=fontstack->rgb[3*fontstack->depth+2];

fontstack->depth--; //margin value is -1

return 1;

}

else

return 0;

}

int RGB256(unsigned char r,unsigned char g,unsigned char b);

int RGB(unsigned char r,unsigned char g,unsigned char b)

{

#ifdef HICOLOR

if(xg_256==MM_Hic)

{

char pal[3];

pal[0]=r>>2;

pal[1]=g>>2;

pal[2]=b>>2;

x_pal_1(17, pal);

return 17;

}

else

#endif

return RGB256(r,g,b);

}

//returns width of space (ASCI 32)

int space(char font)

{

return fontx(font,0,' ');

}

//initialization of color cache, which speeds up color lookup

void resetcolorcache(void)

{

memset(cacher,0,16);

memset(cacheg,0,16);

memset(cacheb,0,16);

memset(coloridx,0,16);

cacher[1]=255;

cacheg[1]=255;

cacheb[1]=255;

coloridx[1]=15;

rgbcacheidx=2;

}

int InitInput(struct ib_editor *fajl,char *name,char *str,int lines,int context)

{

int rc;

fajl->filename[0]='\0';

rc=ie_openf_lim(fajl,context,lines);

strcpy(fajl->filename,name);

if(rc==1 && str)

ie_insline(fajl,0,str);

return rc;

}

struct TMPframedata *locatesheet(struct TMPframedata *rootsheet, struct TMPframedata *tmpsheet,XSWAP stylesheetadr)

{

if(stylesheetadr==IE_NULL)

return rootsheet;

else

return locatesheet_ovrl(rootsheet,tmpsheet,stylesheetadr);

}