/ressources/png/mhtml-icon-80.png


-MHTML-






how to generate html with fasm macros ...





/ressources/png/home-icon-40.png
/ressources/png/fool-icon-40.png
/ressources/png/kaya-icon-40.png
/ressources/png/pic-icon-40.png
/ressources/png/mhtml-icon-40.png
/ressources/png/hammer-icon-40.png
/home
/fool
/kaya
/fpic
/mhtml
/misc




format binary as 'html' org 0 crlf equ 10,13 include 'svg.inc' macro icon i { db '<link rel="icon" href="',i,'">',crlf } macro redir title,url,msg { db '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">' db '<html>' db '<head>' db '<title>',title,'</title>' db '<meta http-equiv="REFRESH" content="0;url=',url,'"></HEAD>' db '<BODY>' db msg db '</BODY>' db '</HTML>' } macro header title,color,ico,ref;,back,ref { db '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">' db '<html>' db '<head>',crlf if ~ ref eq db '<meta http-equiv="refresh" content=',ref,'>' end if db '<meta http-equiv="content-type" content="text/html;charset=utf-8">',crlf db '<title>',title,'</title>',crlf icon ico db '</head>',crlf db '<body bgcolor="',color,'">',crlf; background=',back,'>',crlf } macro home { link 'index.html', db 'return to home' } macro footer { db '</body>',crlf,'</html>' } macro L text { db '<br>' db text,crlf } macro P text,a { db '<p' if a in <'left','center','right'> db ' align=',a end if db '>',text db '</p>',crlf } macro H s,text,a { db '<h',s+'0' if a in <'left','center','right'> db ' align=',a end if db '><font color="black">',crlf L text db '</font></h',s+'0','>',crlf } macro title text { db '<font size=4>',crlf H 1,text db '</font>',crlf } macro chapter text { db '<font size=4>',crlf H 2,text db '</font>',crlf } macro img i,a { db '<img src="',i,'" alt="',i,'"' if a in <'left','center','right'> db ' align=',a end if db '>',crlf } macro link l,t { db '<a href="',l,'">' t db '</a>',crlf } macro anchor l,t { db '<a name="',l,'">',crlf t db '</a>',crlf } macro center { db '<center>',crlf } macro left { db '<left>',crlf } macro right { db '<right>',crlf } macro centend { db '</center>',crlf } macro leftend { db '</left>',crlf } macro rightend { db '</right>',crlf } macro empty { L '' L '' L '' L '' } macro code text { db '<code>',crlf db text db '</code>',crlf } macro audio file { db '<embed src=',file,' autostart=true loop=false hidden=true></embed>' } macro video file { db '<embed src=',file,' autostart=true loop=false hidden=false></embed>' } macro w3cvalid { link "http://validator.w3.org/check?uri=referer",img "http://www.w3.org/Icons/valid-html401" } ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; macro tagitem width,icon { db '<td width="',width,'">' center db '<font color="black">' img icon ; db i1 db '</font>' centend db '</td>' } macro tags i1,i2 { tab '0' db '<tr>' tagitem '200',i1 tagitem '200',i2 db '</tr>' db '</table>' } macro menuitem i1,width,color,icon { db '<td> ';width="',width, ; db ' bgcolor=',color,'>' center db '<font color="black">' if icon eq link i1,db i1 else link i1,img icon ; db i1 end if db '</font>' centend db '</td>' } macro menu color,i1,i2,i3,i4,i5,i6,p1,p2,p3,p4,p5,p6 { db '<table>'; border="8" ' ;db 'bgcolor=',color,'>' db '<tr>' menuitem i1,'20%',homecolor,p1 menuitem i2,'20%',foolcolor,p2 menuitem i3,'20%',kayacolor,p3 menuitem i4,'20%',piccolor ,p4 menuitem i5,'20%',htmlcolor,p5 menuitem i6,'20%',misccolor,p6 db '</tr>' db '<tr>' menuitem i1,'20%',homecolor menuitem i2,'20%',foolcolor menuitem i3,'20%',kayacolor menuitem i4,'20%',piccolor menuitem i5,'20%',htmlcolor menuitem i6,'20%',misccolor db '</tr>' tabend } macro hline w { db '<hr width="',w,'">',crlf } macro ulist { db '<ul>',crlf,'<li>',crlf } macro litem { db '</li>',crlf,'<li>',crlf } macro ulend { db '</li>',crlf,'</ul>',crlf } macro tab s { db '<table' ;border="',s, db '>',crlf } macro tabend { db '</table>',crlf } macro tcol s { db '<td' if ~ s eq db ' rowspan="',s,'"' end if db '>',crlf } macro endcol { db '</td>',crlf } macro trow s { db '<tr' if ~ s eq db ' rowspan="',s,'"' end if db '>',crlf } macro endrow { db '</tr>',crlf }








/ressources/png/home-icon-40.png
/ressources/png/fool-icon-40.png
/ressources/png/kaya-icon-40.png
/ressources/png/pic-icon-40.png
/ressources/png/mhtml-icon-40.png
/ressources/png/hammer-icon-40.png
/home
/fool
/kaya
/fpic
/mhtml
/misc
/gif/tag_foolcodercatorg.gif
/gif/tag_freedom.gif
. Contact me
http://www.w3.org/Icons/valid-html401

copyleft edfed 2011-2012