#!/usr/local/bin/bee -s

ero="none"; side=no; s=""; sss=""; ss=""; cor=0; boo=0; tbl=""; toclev2=no; toclev3=no

if (!file(".pretx.ibi").ok) quit "Please run pretx and tx2htm prior to running this script."
eee=yes
read  '.pretx.ibi'
t=T
T=t.B!~'#'


doargs(Nof(T))

if (side)  tbl="<table cellpadding='0' cellspacing='0' noborder width='100%'><tr><td>"
for i=2, Nof(ss)  #FOR EACH SEPERATE WEBPAGE
 if((i-boo+1)<Nof(sss) & i<=Nof(sss) & i-boo+1>0 & T[i-boo+1].F!=sss[i]) then
  if(i+1<=Nof(T)) then
  " Error_splittx ***> in (or near) the heading of " + sss[i]
   ero="\nHeading Error in splittx:"
   ero+="The section:" + T[i+1].F + " \nhas the heading:" + sss[i]
   write append string ero '.splittxerr.tx'
  endif
  if (eee) quit " Error_splittx ***> Please correct the error and run splittx again."
  boo+=1
 endif
 while(t[i+cor].B~"#")
  cor+=1
 endwhile

 show " Info> splittx: writing page " + i + " of " + Nof(ss) + ": " + T[i].B + "\t" + T[i].D
 z=linkss(T,i, side)
 d=toc(t,i,cor, side, z)
 fin=ss[i]
 if side then
  fin=Replace(fin, 'split><h[1234]>.*?</h[1234]>', '')
  fin2=Replace(ss[i], 'split>', '')
  fin2=Replace(fin2, '<hr>', '<br>')
  fin2=Replace(fin2, 'darkblue', 'black')
  fin2=Replace(fin2, "<a href=.*?\s*" + '\>(.*?)\<\/a\>', '<b><u>\1</u></b>')
  final=HtmlHeader() + Style() + fin2 + "</body></html>"
  write string final path + "/" + T[i].B + "print.htm"
 endif
 final = HtmlHeader()+ Style() + rtop + tbl + d + fin + rbot + "</body></html>"
 write string final path + "/" + T[i].B+".htm"
endfor
write string HtmlHeader()+Style()+searchh()+"</body></html>" path + "/searchh.htm"
read string '.splittxerr.tx' name='tryy'
 if !tryy then
 write string " Info> no errors found" '.splittxerr.tx'
 "No errors found"
 endif
 show tryy
quit

#========================================
#=================================================
#========================================

function linkss(T, i, side)
 v="" #Search
 a="" #Next
 b="" #Previous
 c="" #Up
 e="" #Contents and Index
 f="" #Print
 g="" #h2 title
 v+='<form name="form1"><input value="Search" size="8" type="text" onFocus="document.form1.text1.value='
 v+="''"
 v+='" onBlur="if(document.form1.text1.value!='
 v+="''){search();}"
 v+='" onClick="document.form1.text1.value='
 v+="''"
 v+='" onChange="search()" name="text1"></input> '
 if (side) v=""
 done=no
 l=i+1
  while (l<=Nof(T.E)) & (T[l].E>=T[i].E)
   if T[l].E==T[i].E then
     a=" <a href='"+T[l].B+".htm'"
     a+=' onMouseOut="MM_swapImgRestore();" onMouseOver="MM_swapImage'
     a+="('next','','next_f2.gif',1);"
     a+='" onMousedown="MM_swapImage'
     a+="('next','','next_f3.gif',1);"
     a+='"><img alt='
     a+="'Next'"
     a+=' name="next" src="next.gif" width="22" height="25" border="0"></a>'
     l=Nof(T.E)+1
     done=yes
   endif
  l+=1
  endwhile

 if done==no then
   a=" <img border=0 src='nextin.gif'> "
 endif
 l=i-1
 done=no
 if ((i-2)>0) then
  while (l>=2) & (T[l].E>=T[i].E)
   if T[l].E==T[i].E then
     b=" <a href='"+T[l].B+".htm'"
     b+='  onMouseOut="MM_swapImgRestore();" onMouseOver="MM_swapImage'
     b+="('prev','','prev_f2.gif',1);"
     b+='"  onMousedown="MM_swapImage'
     b+="('prev','','prev_f3.gif',1);"
     b+='" ><img name="prev" src="prev.gif" width="22" height="25" border="0"></a>'
     l=1
     done=yes
   endif
  l-=1
  endwhile
 endif
 if done==no then
   b=" <img border=0 src='previn.gif'> "
 endif
 if ((i-2)>0) then
  done=no
  for z=i-1, 2, -1
  if (T[z].E+1==T[i].E) then
    c=" <a href='"+T[z].B+".htm'"
    c+=' onMouseOut="MM_swapImgRestore();"  onMouseOver="MM_swapImage'
    c+="('up','','up_f2.gif',1)"
    c+=';"  onMousedown="MM_swapImage'
    c+="('up','','up_f3.gif',1);"
    c+='" ><img name="up" src="up.gif" width="26" height="23" border="0"></a>'
    done=yes
    z=2
  endif
  if done==no then
   c=" <img border=0 src='upin.gif'> "
  endif
  endfor
 else
   c=" <img border=0 src='upin.gif'> "
 endif
 if !side then
  e=" <a href='toc.htm'>Contents</a> | <a href='indexx.htm'>Index</a> "
 endif
 f=" <a href='" + T[i].B + "print.htm'"
 f+=' onMouseOut="MM_swapImgRestore();"  onMouseOver="MM_swapImage('
 f+="'print','','print_f2.gif',1);"
 f+='"  onMousedown="MM_swapImage('
 f+="'print','','print_f3.gif',1);"
 f+='" ><img name="print" src="print.gif" width="24" height="24" border="0"></a>'
 z=v+b+a+c+e+f
 return z
endfunction

#========================================
#=================================================
#========================================

function toc(T, i, cor, side,z)
 d=" "
 a=0
 b=0
 c=0
 i=i+cor
 u=i
 args=Split(T[i].G,skipEmptyEnds=yes)
 if(T[i].E==1) args//="inserttoc"
 while((u>1) & (T[u].E>=T[i].E)) #find next highest level
 u=u-1
 endwhile
 if T[u].E==1 then #if its one then set a to the index
  a=u
  b=i
 elseif T[u].E==2 then # otherwise set b to the index and find the first level
  b=u
  while((u>1) & (T[u].E!=1))
  u=u-1
  endwhile
  a=u #and set it to a
  u=b
  c=i
 elseif T[u].E==3 then
  c=u
  while((u>1) & (T[u].E!=2))
  u=u-1
  endwhile
  b=u
  while((u>1) & (T[u].E!=1))
  u=u-1
  endwhile
  a=u
  u=c
 endif

 if T[i].E==1 then
  a=i
 endif
 if side then
   d+="<font size='+2'>" + T[a].A + " <b><a href='"+ T[a].B + ".htm'>"+Up(T[a].F)+"</a></b></font><br>\n"
   d+="</td><td  align=right>" + z #z-->links
   d+="</td></tr></table>"
 if b!=0 & T[b].E==2 then
   d+="<font size='+1'>" + T[b].A + " <b><a href='"+ T[b].B  + ".htm'>"+Up(T[b].F)+"</a></b></font><br>\n"
 endif
 endif

 children=no
 childnum=0
 child=0
 o=i+1
 while ( o<=Nof(T) ) & ( T[o].E>T[i].E )
  if (T[o].E==T[i].E+1) then
   childnum+=1
   children=yes
   child=o
  endif
  o+=1
 endwhile

 if childnum==1 then
  " Error_splittx ***>: file " + T[i].F + " has only one child. See .splittxerr.tx"
  ero="\nSingle child parent: " + T[i].F +"\n"
  ero+="Child: " + T[child].F + "\n"
  write append string ero ".splittxerr.tx"
  if (eee) quit " Error_splittx ***> please correct errors and run splittx again."
 endif

 if (Nof(ss[i-cor])<175) args//="inserttoc"

#----------------------------------------
#----------------------------------------

if !side then #side flag check

for oo=1, 20
 d+=Spacer(1)
endfor

 for j=2, Nof(T) #printout first level
  if (T[j].E==1) then
   if (j!=i) & (j!=a) then
    d+=" <a href='" + T[j].B + ".htm'>" + Upn(T[j].D) + "</a> | "
   else
    d+="</u>" + Upn(T[j].D)+ "</u> | "
   endif
  endif
 endfor
 d+="</tr></table>"

 if d[Nof(d)-1]=='|' then
 d=d[1:$-3]
 endif

#----------------------------------------
#----------------------------------------
  d+="<table bgcolor=" + AA + "><tr><td>"
  j=a+1
  while(j<=Nof(T)&(T[j].E>=2))  #printout second level
   if (T[j].E==2) then
    if (j!=i) & (j!=b) then
     d+=" <a href='" + T[j].B + ".htm'>" + Upn(T[j].D) + "</a> | "
    else
     d+="<u>" + Upn(T[j].D)+ "</u> | "
    endif
   endif
  j+=1
  endwhile


 if d[Nof(d)-1]=='|' then
  d=d[1:$-3]

 endif
 d+="</td></tr></table>"

endif #side flag check
#----------------------------------------
#----------------------------------------
 if(T[i].E!=1) then   #if not in the first level then
  j=b+1

  if (T[i].E==2) then
   if (children) then
    d+="<table bgcolor=" + AA + "><tr><td>"
     if args=="inserttoc" then
      d+="<u><i>Section Contents</i></u> | "
      toclev2=yes
     else
      d+="<u><i>Section Intro</i></u> | "
      toclev2=no
     endif
   endif
  else
   d+="<table bgcolor=" + AA + "><tr><td>"
   if toclev2 then
     d+=" <a href='" + T[b].B + ".htm'><i>Section Contents</i></a> | "
   else
      d+=" <a href='" + T[b].B + ".htm'><i>Section Intro</i></a> | "
   endif
  endif

  while(j<=Nof(T)&(T[j].E>=3)&!(T[i].E==2 & args=="inserttoc"))  #printout third level
   if (T[j].E==3) then
    if (j!=i & j!=c) then
     if Nof(T[j].B~"#")==0 then
      d+=" <a href='" + T[j].B + ".htm'>" + Upn(T[j].D) + "</a> | "
     else
      d+=" <a href='" + T[j].B + "'>" + Upn(T[j].D) + "</a> | "
     endif
    else
     d+="<u>" + Upn(T[j].D)+ "</u> | "
    endif
   endif
   j+=1
  endwhile
  if d[Nof(d)-1]=='|' then
   d=d[1:$-3]
  endif
  if T[i].E==2 & (children) then
   d+="</td></tr></table>"
  elseif T[i].E!=2 then
   d+="</td></tr></table>"
  endif
 endif  #end level check
#----------------------------------------
#----------------------------------------
 if(T[i].E>2) then   #if not in the first or second level then
  if c!=0 & side then
  d+="<br>"+ T[c].A + " <b><a href='"+ T[c].B +".htm'>" + Upn(T[c].F) + "</a></b><br>\n"
  endif
  j=c+1

  if (T[i].E==3) then
   if (children) then
    d+="<table bgcolor=" + AA + "><tr><td>"
     if args=="inserttoc" then
      d+="<u><i>Section Contents</i></u> | "
      toclev3=yes
     else
      d+="<u><i>Section Intro</i></u> | "
      toclev3=no
     endif
   endif
  else
    d+="<table bgcolor=" + AA + "><tr><td>"
    if toclev3 then
      d+=" <a href='" + T[c].B + ".htm'><i>Section Contents</i></a> | "
    else
     d+=" <a href='" + T[c].B + ".htm'><i>Section Intro</i></a> | "   
   endif
  endif
  
  while(j<=Nof(T)&(T[j].E>3)&!(T[i].E==3 & args=='inserttoc'))  #printout fourth level
   if (T[j].E==4) then
    if (j!=i) then
     if Nof(T[j].B~"#")==0 then
      d+=" <a href='" + T[j].B + ".htm'>" + Upn(T[j].D) + "</a> | "
     else
      d+=" <a href='" + T[j].B + "'>" + Upn(T[j].D) + "</a> | "
     endif
    else
     d+="<u>" + Upn(T[j].D)+ "</u> | "     
    endif
   endif
   j+=1
  endwhile
 if d[Nof(d)-1]=='|' then
  d=d[1:$-3]

 endif
 if T[i].E==3 & (children) then
  d+="</td></tr></table>"
 elseif T[i].E!=3 then
  d+="</td></tr></table>"
 endif
 if T[i].E==4 & side then
  d+="<br>"+ T[i].A + " <b><a href='"+ T[i].B +".htm'>" + (T[i].F) + "</a></b><br>\n"
 endif
 endif
#----------------------------------------
#----------------------------------------
 if args=="inserttoc" then
  if (i==Nof(T) | T[i].E==4) then
   " Error_splittx ***> 'inserttoc' problem. See .splittxerr.tx"
  ero="\nOptional Argument Error: " + T[i].F + "\n"
  ero+="Either the 'inserttoc' argument is invalid for this page or the page is an empty child."
  write append string ero '.splittxerr.tx'
  if (eee) quit "Please correct error and run again."
  
  else
  d+="<br>"
   o=i+1
   while(o<=Nof(T) & T[o].E>T[i].E)
    if(T[o].E-1==T[i].E)then
   d+="\n" + Spacer(3) + T[o].A + " <a href='" + T[o].B + ".htm'>" + Upn(T[o].F) + "</a>\n<br>\n"
    endif
    o+=1
   endwhile
  endif
 endif
 return d
endfunction

#========================================
#=================================================
#========================================

function frameset(T)
f=""
f+='<Title>' + HH + '</title>' + "\n"
#f+='  <frameset rows="100%,*" name="cols">' + "\n"
f+='  <frameset cols="' + GG + ',*" name="cols">' + "\n"
f+='    <frame src="toc.htm"  marginheight=5   marginwidth=5' + "\n"
f+='        scrolling="auto"  resize>' + "\n"
f+='    <frame src="' + T[2].B + '.htm"  marginheight=10   marginwidth=10' + "\n"
f+='        scrolling="auto"  resize name="body">' + "\n"
f+='  </frameset>' + "\n"
f+='<noframes>' + "\n"
f+='<center><h2>' + "\n"
f+='<a href="toc.htm">Contents</a>' + "\n"
f+='<p>' + "\n"
f+='</h2></center>' + "\n"
f+='</noframes>' + "\n"
#f+='</frameset>' + "\n"
return f
endfunction

#========================================
#=================================================
#========================================


function helpp()

"\nActions:\n"
"1. Generates Previous, Next, and Up links for each page"
"2. Generates local table of contents for the top of each page"
"3. Splits and names files according to information stored in table.ibi from 'pre'\n"
"Error output:\n"
"1. Table and Headings do not match (heading syntax error)"
"2. Improper anchor arguments"
"3. Empty children"
"4. Single child parents"
"All errors are written to '.splittxerr.tx'"
"Flags:\n"
"-h, --help: displays this help file"
"-e, --err: continues to run despite any detected errors(see above)"
"-s, --side: limits local toc to only 3d and 4th levels and creates frameset file (frames.htm)"
"-f, --full: creates a single file named 'full.htm' with table of contents at the beggining and the index at the end."
"-p, --path: specify the output path. Defaults to most recently used path. If none found then defaults to '/man'"
"For heading, anchor, and link syntax and other information see also: 'pre --help'"
endfunction

#========================================
#=================================================
#========================================

function Style()

style='<style type="text/css">' + "\n"
style+='               <!--' + "\n"
style+='               A:link { COLOR:"' +  DD + '"; TEXT-DECORATION: none;}' + "\n"
style+='               A:visited { COLOR: "' + EE + '"; TEXT-DECORATION: none;}' + "\n"
style+='               A:active { COLOR: "' + FF + '"; TEXT-DECORATION: none }' + "\n"
style+='               A:hover { COLOR: "' + FFF + '"; TEXT-DECORATION: none; }' + "\n"
style+='               -->' + "\n"
style+='               </style>' + "\n"
return style
endfunction

#========================================
#=================================================
#========================================

function Spacer(o)
iii=""
 for milk=1, o
  iii+="&nbsp;"
 endfor
return iii
endfunction

#========================================
#=================================================
#========================================

function HtmlHeader()

html='<html>' + "\n"
html+='<head>' + "\n"

html+='<script language="JavaScript">' + "\n"
html+='<!--' + "\n"

html+=' function search()' + "\n"
html+=' {' + "\n"
html+='  k=document.form1.text1.value;' + "\n"
html+='  document.cookie="";' + "\n"
html+='  document.cookie= "wm_javascript=search::" + escape(k)' + "\n"
html+='  window.location="searchh.htm";' + "\n"
html+=' }' + "\n"
html+=' ' + "\n"
html+='if (navigator.appName!="Netscape")' + "\n"
html+='{' + "\n"
html+=' document.writeln(''<style type="text/css">'')' + "\n"
html+=' document.writeln("  body {")' + "\n"
html+=' document.writeln("    margin-left: 8%;")' + "\n"
html+=' document.writeln("    margin-right: 8%;")' + "\n"
html+=' document.writeln("    font-family: sans-serif;")' + "\n"
html+=' document.writeln("  }")' + "\n"
html+=' document.writeln("  h2 { margin-left: -3% }")' + "\n"
html+=' document.writeln("  h3,h4,h5,h6 { margin-left: -2% }")' + "\n"
html+=' document.writeln("  pre {")' + "\n"
html+=' document.writeln("     font-weight: normal;")' + "\n"
html+=' document.writeln(''     white-space: pre; font-family: "Courier New", monospace;'')' + "\n"
html+=' document.writeln("  }")' + "\n"
html+=' document.writeln("  tt {")' + "\n"
html+=' document.writeln("     font-weight: normal;")' + "\n"
html+=' document.writeln(''     white-space: pre; font-family: "Courier New", monospace;'')' + "\n"
html+=' document.writeln("  }")' + "\n"
html+=' document.writeln("  em { font-style: italic; font-weight: bold }")' + "\n"
html+=' document.writeln("  strong { text-transform: uppercase; font-weight: bold }")' + "\n"
html+=' document.writeln("</style>              ")' + "\n"
html+='}      ' + "\n"
html+='function MM_findObj(n, d) { //v3.0' + "\n"
html+='  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {' + "\n"
html+='    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}' + "\n"
html+='  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];' + "\n"
html+='  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document); return x;' + "\n"
html+='}' + "\n"
html+='function MM_swapImage() { //v3.0' + "\n"
html+='  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)' + "\n"
html+='   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}' + "\n"
html+='}' + "\n"
html+='function MM_swapImgRestore() { //v3.0' + "\n"
html+='  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;' + "\n"
html+='}' + "\n"
html+='' + "\n"
html+='function MM_preloadImages() { //v3.0' + "\n"
html+=' var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();' + "\n"
html+='   var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)' + "\n"
html+='   if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}' + "\n"
html+='}' + "\n"
html+='' + "\n"
html+='function popup(width,height,link,title)'
html+='{'
html+='window.open(link, "pop", "location=" + title + ",menubars=" + title + ",toolbar=" + title + ",scrollbars=" + title + ",width=" + width + ",height=" + height);'
html+='}'
html+='//-->' + "\n"
html+='</script>' + "\n"
html+='</head>' + "\n"
html+='<body text="' + CC + '" bgcolor="' + BB + '" link=' + DD + ' vlink="' + EE + '" alink=' + FF + ' onLoad="MM_preloadImages' + "\n"
html+="('prev_f2.gif','prev_f3.gif','print_f2.gif','print_f3.gif','up_f2.gif','up_f3.gif','next_f2.gif','next_f3.gif');"
html+='"'
if(II!="")then
 html+=" background='" + II + "'"
endif
html+='>' + "\n"
return html
endfunction

function Up(s)
 return (Split(s) % function(x) (x=='and'| x=='or'|x=='of'|x=='the')?x:Toupper(x,1))>>Sum(@," ") 
# return (Split(s) % function(x) (x=='and'|x=='to'|x=='a'|x=='an'|x=='for|'x=='by'|x=='or'|x=='of'|x=='the')?x:Toupper(x,1))>>Sum(@," ")
endfunction

function Upn(s) return s; endfunction

function doargs(noft)

write string "" '.splittxerr.tx'



if (!shell.ParseArgs("esfp",{"side","err","full","path"}) | Nof(shell.args)>1) then  	#PROCESS ARGS
  helpp()
  quit
endif

side=shell.options.s | shell.options.side 					#SIDE FLAG CHECK
if (side) write string frameset(T) path + "/" + "frames.htm"
if (shell.options.e | shell.options.err) then					#ERROR FLAG CHECK
 eee=no
endif

if(! shell.options.path) shell.options.path=shell.options.p			#PATH SET
if(! shell.options.path) then
 shell.options.path=path
endif
if(! shell.options.path) shell.options.path="man"
unix mkdir $path


if(Nof(shell.args)==0) shell.args[1] = "stdin"					#STANDARD INPUT SET
for i=1,Nof(shell.args) read string shell.args[i] name="aaa"; s+= aaa; endfor
s=Replace(s, '\{\}', '{ }')

sss # titles
ss # body texts
sss=string(Match(s, '<!-- split><h[1234]>(.*?)</h[1234]>', field=1, global))
sss=Trim(sss)
ss=Split(s, '(<!-- )split><h[1234]>', field=1)


if shell.options.full | shell.options.f then
 read string path + "/" + 'indexx.htm' name='index'
 index=Replace(index, "<a href='#A'>A</a>" + '.*?' + "<a href='#Z'>Z</a>", '')
 read string path + "/" + 'toc.htm' name='toca'
 temporary = ss[2:$]>>Sum
 fin2=toca + temporary + index
 fin2=Replace(fin2, "<a href=.*?\s*" + '\>(.*?)\<\/a\>', '<b><u>\1</u></b>')
 fin2=Replace(fin2, 'split>', '')
 write string fin2 path + "/" + 'full.htm'
 quit
endif

 if (noft!=Nof(ss)) then
  show "There are " + Abs(noft-Nof(ss)) + " errors in your headings.\n"
  show "(see '.splittxerr.tx' for first detected error)"
 endif
 show noft
 show Nof(ss)

endfunction


function searchh()
return << END

<script src="java.js" language="Javascript">
</script>
<script language="javascript" >

 var s = document.cookie;
 var ss = s.split("::");
 var search = ss[1];
 var search = unescape(search);
 if (search[length]==';')
 {search=search.substring(0, search.length-1);}
 w="";
 document.write("<b> Search for: <b>" + search +"<hr>");
 search=search.toLowerCase()
 w="<table>"
 for (i=1;i<keys.length;i++)
 {
  if ((keys[i].toLowerCase().indexOf(search)!=-1)&&(i>0)&&(keys[i]!=keys[i-1])&&(keys  [i]!=" ")&&(keys[i]!=""))
  {
   w+="<tr><td>" + keys[i] + '</td>\n<td>' + paths[i] + '</td></tr>';
  }
 }
  w+="</table>"
  if (w=="<table></table>")
   document.write("Sorry, no keywords matched your search.");
  else
  document.write(w);
 </script>

 END
endfunction

function blank()
return << END
<html>
<head>
<script language="Javascript">
<!--
function readCookie()
{
    window.resizeTo=(340, 160);
    var the_cookie = document.cookie;
    var first=0, last=0;
    first = the_cookie.indexOf('glossary');
    first += 9;
    last = the_cookie.indexOf(';', first);
    if(last == -1) last= the_cookie.length;
    var good= the_cookie.substring(first, last);
    writestuff(good);
}

function writestuff(goody)
{
 good_array=goody.split(':');
 document.writeln('<font size= "+1">' + good_array[0] + "</font><br>" + good_array[1] + "<br><br><a href='#'>Top</a><br><br>");
}

//-->
</script>
</head>

<body>



</body>
</html>
END
endfunction