Ooops
November 30, 2020, 02:41:43 AM

Author Topic: [bmx] EasyHtml by AntonyWells [ 1+ years ago ]  (Read 464 times)

Offline BlitzBot

  • Jr. Member
  • **
  • Posts: 1
[bmx] EasyHtml by AntonyWells [ 1+ years ago ]
« on: June 29, 2017, 12:28:38 AM »
Title : EasyHtml
Author : AntonyWells
Posted : 1+ years ago

Description : See short description fool. [MODERATOR EDIT: "Helper funcs to easily generate html pages with images/headers etc" - I still don't know what it does.]

Code :
Code: BlitzMax
  1. Type THml
  2.  
  3.         Global as:TStream
  4.        
  5.         Function SetActiveStream( in:TStream )
  6.                 as = in
  7.         End Function
  8.        
  9.         Function Header(title:String)
  10.                
  11.                 WriteLine as,"<html>"
  12.                 WriteLine as,"<head>"
  13.                 WriteLine as,"<title>"+title+"</title>"
  14.                 WriteLine as,"</head>" 
  15.        
  16.         End Function
  17.        
  18.         Function BodyHead()
  19.                 WriteLine as,"<body>"
  20.         End Function
  21.        
  22.         Function HeadHead(size:Int,align:String="")
  23.                 If align = ""
  24.                         WriteLine as,"<h"+String(Size)+">"
  25.                 Else
  26.                         WriteLine as,"<h"+String(size)+" align='"+align+"'>"
  27.                 EndIf
  28.                
  29.         End Function
  30.        
  31.         Function Break()
  32.                 WriteLine as,"<br>"
  33.         End Function
  34.        
  35.         Function StrongHead()
  36.                 WriteLine as,"<strong>"
  37.         End Function
  38.        
  39.         Function StrongFoot()
  40.                 WriteLine as,"</strong>"
  41.         End Function
  42.        
  43.         Function BigHead()
  44.                 WriteLine as,"<big>"
  45.         End Function
  46.        
  47.         Function BigFoot()
  48.                 WriteLine as,"</big>"
  49.         End Function
  50.        
  51.         Function EmpHead()     
  52.                 WriteLine as,"<em>"
  53.         End Function
  54.        
  55.         Function EmpFoot()
  56.                 WriteLine as,"</em>"
  57.         End Function
  58.        
  59.         Function ItalicHead()
  60.                 WriteLine as,"<i>"
  61.         End Function
  62.        
  63.         Function ItalicFoot()
  64.                 WriteLine as,"</i>"
  65.         End Function
  66.        
  67.         Function SmallHead()
  68.                 WriteLine as,"<small>"
  69.         End Function
  70.        
  71.         Function SmallFoot()
  72.                 WriteLine as,"</small>"
  73.         End Function
  74.        
  75.         Function SubHead()
  76.                 WriteLine as,"<sub>"
  77.         End Function
  78.        
  79.         Function SubFoot()
  80.                 WriteLine as,"</sub>"
  81.         End Function
  82.        
  83.         Function SupHead()
  84.                 WriteLine as,"<sup>"
  85.         End Function
  86.        
  87.         Function SupFoot()
  88.                 WriteLine as,"</sup>"
  89.         End Function
  90.        
  91.         Function PreHead()
  92.                 WriteLine as,"<pre>"
  93.         End Function
  94.        
  95.         Function PreFoot()
  96.                 WriteLine as,"</pre>"
  97.         End Function
  98.        
  99.         Function varHead()
  100.                 WriteLine as,"<var>"
  101.         End Function
  102.        
  103.         Function VarFoot()
  104.                 WriteLine as,"</var>"
  105.         End Function
  106.        
  107.         Function acronHead(ac:String)
  108.                 WriteLine as,"<acronym title='"+ac+"'>"
  109.         End Function
  110.        
  111.         Function AcronFoot()
  112.                 WriteLine as,"</acronym>"
  113.         End Function
  114.        
  115.         Function QuoteHead()
  116.                 WriteLine as,"<blockquote>"
  117.         End Function
  118.        
  119.         Function QuoteFoot()
  120.                 WriteLine as,"</blockquote>"
  121.         End Function
  122.        
  123.         Function LinkHeadTar(html:String,tar:String)
  124.                 WriteLine as,"<a href='"+html+"' target='"+tar+"'>"
  125.         End Function
  126.        
  127.         Function LinkHead(html:String)
  128.                 WriteLine as,"<a href='"+html+"'>"
  129.         End Function
  130.        
  131.         Function SectionHead(name:String)
  132.                 WriteLine as,"<a name='"+name+"'>"     
  133.         End Function
  134.        
  135.         Function FrameSetRow( size:Int[],src:String[],nam:String[])
  136.                
  137.                 Local cols = size.length
  138.                 Local cs:String
  139.                 For Local j=0 Until cols
  140.                         If j>0 cs:+","
  141.                         cs:+String( size[j] )+"%"
  142.                 Next
  143.                
  144.                 WriteLine as,"<frameset rows='"+cs+"'>"
  145.                
  146.                 For Local j=0 Until cols
  147.                         Local txt:String
  148.                         txt = "<frame src='"+src[j]+"'"
  149.                         If nam[j]<>""
  150.                                 txt:+" name='"+nam[j]+"'"
  151.                         EndIf
  152.                         txt:+">"
  153.                         WriteLine as,txt
  154.                 Next
  155.                 WriteLine as,"</frameset>"
  156.                        
  157.         End Function
  158.  
  159.  
  160.         Function ListHead()
  161.                 WriteLine as,"<ul>"
  162.         End Function
  163.        
  164.         Function ListFoot()
  165.                 WriteLine as,"</ul>"
  166.         End Function
  167.        
  168.         Function ItemHead()
  169.                 WriteLine as,"<li>"
  170.         End Function
  171.        
  172.         Function ItemFoot()
  173.                 WriteLine as,"</li>"
  174.         End Function
  175.        
  176.        
  177.        
  178.         Function FrameSetCol( size:Int[],src:String[],nam:String[])
  179.                
  180.                 Local cols = size.length
  181.                 Local cs:String
  182.                 For Local j=0 Until cols
  183.                         If j>0 cs:+","
  184.                         cs:+String( size[j] )+"%"
  185.                 Next
  186.                
  187.                 WriteLine as,"<frameset cols='"+cs+"'>"
  188.                
  189.                 For Local j=0 Until cols
  190.                         Local txt:String
  191.                         txt = "<frame src='"+src[j]+"'"
  192.                         If nam[j]<>""
  193.                                 txt:+" name='"+nam[j]+"'"
  194.                         EndIf
  195.                         txt:+">"
  196.                         WriteLine as,txt
  197.                 Next
  198.                 WriteLine as,"</frameset>"
  199.                
  200.        
  201.         End Function
  202.        
  203.         Function LinkFoot()
  204.                 WriteLine as,"</a>"
  205.         End Function
  206.        
  207.         Function Image(border=0,src:String,width,height,align="")
  208.                 If align = ""
  209.                         WriteLine as,"img border='"+String(border)+"' src='"+src+"' width='"+String(width)+"' height='"+String(height)+"'>"
  210.                 Else
  211.                         WriteLine as,"img border='"+String(border)+"' src='"+src+"' align='"+align+"' width='"+String(width)+"' height='"+String(height)+"'>"
  212.                 EndIf
  213.         End Function
  214.        
  215.                
  216.        
  217.         Function HRule()
  218.                 WriteLine as,"<hr>"
  219.         End Function
  220.        
  221.         Function HeadFoot(size:Int)
  222.                 WriteLine as,"</h"+String(size)+">"
  223.         End Function
  224.        
  225.         Function ParaHead()
  226.                 WriteLine as,"<p>"
  227.         End Function
  228.        
  229.         Function ParaFoot()
  230.                 WriteLine as,"</p>"
  231.         End Function
  232.        
  233.        
  234.         Function Text( txt:String )
  235.                 WriteLine as,txt
  236.         End Function
  237.        
  238.         Function BoldText(txt:String)
  239.                 WriteLine as,"<b>"+txt+"</b>"
  240.         End Function
  241.        
  242.         Function BodyFoot()
  243.                 WriteLine as,"</body>"
  244.         End Function
  245.        
  246.         Function Footer()
  247.                 WriteLine as,"</html>"
  248.         End Function
  249.        
  250.        
  251.        
  252.  
  253. End Type


Comments : none...

 

SimplePortal 2.3.6 © 2008-2014, SimplePortal