') do nn=1 to cnt url_line=part.1||ql.url.nn||part.2||ql.title.nn||part.3 say url_line rc=lineout(html_file,url_line) end /* do */ rc=lineout(html_file,'
')
/* Sort by URL */
Do i = 1 to cnt
var1.i=ql.url.i
var2.i=ql.title.i
End
Say
Say 'Sorting ...'
Call BubbleSort
/* and display the sorted array */
Do i = 1 to cnt
ql.url.i=var1.i
ql.title.i=var2.i
url_line=part.1||ql.url.i||part.2||ql.title.i||part.3
say url_line
rc=lineout(html_file,url_line)
url_line='
___'||ql.url.i
rc=lineout(html_file,url_line)
End
rc=lineout(html_file,'
') /* Sort by Title */ Do i = 1 to cnt var2.i=ql.url.i var1.i=ql.title.i End Say Say 'Sorting ...' Call BubbleSort Do i = 1 to cnt ql.url.i=var2.i ql.title.i=var1.i url_line=part.1||ql.url.i||part.2||ql.title.i||part.3 say url_line rc=lineout(html_file,url_line) End rc=lineout(html_file,'
') rc=lineout(html_file,'[Unsorted]-[URL sorted]-[Title sorted]') /* Write bottom of file */ do n=1 to html_bot.0 rc=lineout(html_file,html_bot.n) end /* do */ rc=lineout(html_file) rc=lineout(we_inifile) say say 'Wrote ' cnt ' URLs to ' html_file return /* the program */ /* ==================================================================== */ /* ========================================== */ BubbleSort: procedure expose cnt var1. var2. say cnt var1.1 var2.1 Do i = 1 to cnt Do j = i+1 to cnt IF var1.i > var1.j Then Call Swap i j var1. var2. End end Return Swap: procedure expose i j var1. var2. /* Say 'Swapping var1.'i '('var1.i') and var1.'j '('var1.j')' */ tmp = var1.i tmp2= var2.i var1.i = var1.j var2.i=var2.j var1.j = tmp var2.j=tmp2 Return