pike.git / bin / mkxml.pike

version» Context lines:

pike.git/bin/mkxml.pike:1: - /* $Id: mkxml.pike,v 1.2 2001/05/05 17:54:36 mirar Exp $ */ + /* $Id: mkxml.pike,v 1.3 2001/05/05 19:23:09 mirar Exp $ */      import Stdio;   import Array;      mapping parse=([]);   int illustration_counter;      mapping manpage_suffix=   ([    "Image":"i",
pike.git/bin/mkxml.pike:475:    nindent+    "<function>"+    map(z[..sizeof(z)-2],    lambda(string s)    {    return nindent+" <argtype>"+s+"<argtype>";    })*""+    nindent+" <returntype>"+z[-1]+"</returntype>"+    nindent+"</function>";    } +  if (b && a=="int") +  { +  if (sscanf(b,"%d..%d",int min,int max)==2) +  return nindent+"<int><min>"+min+"</min><max>"+max+"</max></int>"; +  if (sscanf(b,"..%d",int max)==1) +  return nindent+"<int><max>"+max+"</max></int>"; +  if (sscanf(b,"%d..%",int min)==1) +  return nindent+"<int><min>"+min+"</min></int>"; +  } +     if (b)    werror("warning: confused type: %O\n",type);       return nindent+"<object>"+type+"</object>";   }      void docdecl(string enttype,    string decl,    object f)   {
pike.git/bin/mkxml.pike:601:   // f->write(replace(htmlify(map(huh->decl,synopsis_to_html,huh)*   // "<br>\n"),"\n","\n\t")+"\n");   // else   // f->write(huh->decl);      // f->write("</man_syntax>\n\n");   // }      // [DESCRIPTION]    +  if (huh->desc || huh->returns || huh->bugs || huh->added || +  huh["see_also"]) +  f->write("<doc>\n"); +     if (huh->desc)    { -  f->write("<doc><text>\n"); +  f->write("<text>\n");       if (huh->inherits)    {    string s="";    foreach (huh->inherits,string what)    f->write("inherits "+make_nice_reference(what,prefix,what)+    "<br>\n");    f->write("<br>\n");    }       f->write(fixdesc(huh->desc,prefix,huh->_line)+"\n"); -  f->write("</text></doc>\n"); +  f->write("</text>\n");    }      // [ARGUMENTS]      #if 0    if (huh->args)    {    string rarg="";    f->write("<man_arguments>\n");    mapping arg;
pike.git/bin/mkxml.pike:650: Inside #if 0
   {    rarg+="\t\t<aarg>"    +arg->args*"</aarg>\n\t\t<aarg>"+    "</aarg>\n";    }    }    if (rarg!="") error("trailing args w/o desc on "+arg->_line+"\n");       f->write("</man_arguments>\n\n");    } + #endif      // [RETURN VALUE]       if (huh->returns)    { -  f->write("<man_returns>\n"); +  f->write("<group><returns/>\n");    f->write(fixdesc(huh->returns,prefix,huh->_line)+"\n"); -  f->write("</man_returns>\n\n"); +  f->write("</group>\n");    }         // [NOTE]       if (huh->note && huh->note->desc)    { -  f->write("<man_note>\n"); +  f->write("<group><note/>\n");    f->write(fixdesc(huh->note->desc,prefix,huh->_line)+"\n"); -  f->write("</man_note>\n\n"); +  f->write("</group>\n");    }      // [BUGS]       if (huh->bugs && huh->bugs->desc)    { -  f->write("<man_bugs>\n"); +  f->write("<group><bugs/>\n");    f->write(fixdesc(huh->bugs->desc,prefix,huh->_line)+"\n"); -  f->write("</man_bugs>\n\n"); +  f->write("</group>\n");    }      // [ADDED]       if (huh->added && huh->added->desc)    {    /* noop */    }      // [SEE ALSO]       if (huh["see also"])    { -  f->write("<man_see exp>\n"); +  f->write("<group><see_also/>\n");    f->write(htmlify(huh["see also"]*", ")); -  f->write("</man_see>\n\n"); +  f->write("</group>\n");    }    - #endif +  if (huh->desc || huh->returns || huh->bugs || huh->added || +  huh["see_also"]) +  f->write("</doc>\n");      // ---childs----       if (huh->constants)    {    foreach(huh->constants,mapping m)    {    sscanf(m->decl,"%s %s",string type,string name);    sscanf(name,"%s=%s",name,string value);    document("constant",m,prefix+name,prefix+name+".",f);