Branch: Tag:

1996-03-31

1996-03-31 04:10:29 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

improved

Rev: bin/htmlify_docs.lpc:1.7
Rev: bin/rsif:1.3

242:   inherit "/precompiled/regexp":is_example;      list(string) indexes_done=(<>); + list(string) pages_done=(<>); +    string mkindex(string topic, int usehead)   {    string head;
256:    head="<b>All pages:</b>\n";    ret="<ul>\n";    foreach(sort_array(m_indices(pages)),a) +  {    ret+="<li><a href="+pages[a]+">"+a+"</a>"+short(a)+"\n"; -  +  }       ret+="</ul>\n";    break;
268:    {    if(a[0]!='/') continue;    +  pages_done[a]=1;    ret+="<li><a href="+pages[a]+">"+a+"</a>"+short(a)+"\n";    }   
281:    {    if(search(a,"example")==-1) continue;    +  pages_done[a]=1; +     ret+="<li><a href="+pages[a]+">"+a+"</a>"+short(a)+"\n";    }   
290:    case "other":    head="<b>Other pages</b>\n";    ret="<ul>\n"; -  foreach(sort_array(m_indices(pages) - -  map_array(`|(@m_values(keywords)),html_quote) - -  map_array(m_indices(all_efuns()),html_quote)),a) +  foreach(sort_array(m_indices(pages) - indices(pages_done) ),a)    { -  if(a[0]=='/') continue; +     if(a[0..4]=="index") continue; -  if(search(a,"example")!=-1) continue; +     ret+="<li><a href="+pages[a]+">"+a+"</a>"+short(a)+"\n";    }    ret+="</ul>\n";
310:    a=html_quote(a);    if(pages[a])    { +  pages_done[a]=1;    ret+="<li><a href="+pages[a]+">"+a+"</a>"+short(a)+"\n";    }else{    if(writepages)
334:    foreach(sort_array(keywords[topic]),a)    {    a=html_quote(a); +  pages_done[a]=1;    ret+="<li><a href="+pages[a]+">"+a+"</a>"+ short(a) +"\n";    }    ret+="</ul></a>\n";
443:    {    string tmp;    tmp=a; +  if(a[0]!='`' && a[0]!='/')    a=explode(a,"/")[-1];    if(pages[a])    {
453:    b+=({ "<a href="+subpages[name+"-&gt;"+a]+">" + a + "</a>" });    }else{    if(writepages) -  perror("Warning, unlinked SEE ALSO: "+a+"\n"); +  perror(path+": Warning, unlinked SEE ALSO: "+a+"\n");    b+=({ tmp });    }    }
474:       case "RELATED FUNCTIONS":    a=name; +     sscanf(rest,"%*skeyword %[a-z/A-Z0-9]",a);    rest=mkindex(a, 0);    }
550:       case "LINK":    sscanf(a,"%s %s",a,b); -  tmp="<a href="+a+".html>"+b+"</a>"; +  pages_done[(a/"/")[-1]]=1; +  tmp="<a href="+fippel_path(a)+".html>"+b+"</a>";    break;       default:
637:       if(l > i*2)    { +  int err;    l=0;    foreach(cont/"\n", tmp)    {
644:    if(!is_example::match(tmp+"\n"))    {    perror(path+":"+l+": not on example form.\n"); +  if(++err == 5) break;    }    }    }