pike.git / bin / mkxml.pike

version» Context lines:

pike.git/bin/mkxml.pike:1: - /* $Id: mkxml.pike,v 1.5 2001/05/05 20:39:13 mirar Exp $ */ + /* $Id: mkxml.pike,v 1.6 2001/05/05 20:42:39 mirar Exp $ */      import Stdio;   import Array;      mapping parse=([]);   int illustration_counter;      mapping manpage_suffix=   ([    "Image":"i",
pike.git/bin/mkxml.pike:254:    }    else if (search(what,".")==-1 &&    search(what,"->")==-1 &&    !parse[what])    {    q=prefix+what;    }    else    q=what;    -  return "<link to="+linkify(q)+">"+htmlify(stuff)+"</link>"; +  return "<ref to="+linkify(q)+">"+htmlify(stuff)+"</ref>";   }      string fixdesc(string s,string prefix,string where)   {    s=desc_stripws(s);       string t,u,v,q;       t=s; s="";    while (sscanf(t,"%s<ref%s>%s</ref>%s",t,q,u,v)==4)
pike.git/bin/mkxml.pike:519:    for (i=0; i<strlen(in); i++)    switch (in[i])    {    case '(': q++; break;   // case ')': q--; if (q==-1) return ""; break;    case ')': q--; if (q) break;    case ':':    case ',':    array z=in[..i-1]/" "-({""});    if (sizeof(z)==1) -  return "\n <argument><type>"+doctype(z[0],"\n ")+ +  return "\n <argument><type>"+doctype(z[0],"\n ")+    "</type></argument>"+    paramlist(in[i+1..]);    else -  return "\n <argument name="+S(z[-1])+ +  return "\n <argument name="+S(z[-1])+    "><type>"+doctype(z[0..sizeof(z)-2]*"","\n ")+    "</type></argument>"+    paramlist(in[i+1..]);    }    array z=in[..i-1]/" "-({""});    if (sizeof(z)==1) -  return "\n <argument><type>"+doctype(z[0])+ +  return "\n <argument><type>"+doctype(z[0])+    "</type></argument>";    else -  return "\n <argument name="+S(z[-1])+ +  return "\n <argument name="+S(z[-1])+    "><type>"+doctype(z[0..sizeof(z)-2]*"");    };    -  f->write("<returntype>"+doctype(rv)+"</returntype>\n" -  "<arguments>"+paramlist(params)+"\n</arguments>\n"); +  f->write("\n <returntype>"+doctype(rv,"\n ")+"</returntype>\n" +  " <arguments>"+paramlist(params)+"\n </arguments>\n");    }    else    {    f->write("<typevalue>"+doctype(rv)+"</typevalue>\n");    }       f->write("</"+enttype+">");   }      void document(string enttype,