pike.git / bin / mkxml.pike

version» Context lines:

pike.git/bin/mkxml.pike:1: - /* $Id: mkxml.pike,v 1.1 2001/05/05 17:53:06 mirar Exp $ */ + /* $Id: mkxml.pike,v 1.2 2001/05/05 17:54:36 mirar Exp $ */      import Stdio;   import Array;      mapping parse=([]);   int illustration_counter;      mapping manpage_suffix=   ([    "Image":"i",
pike.git/bin/mkxml.pike:480:    return nindent+" <argtype>"+s+"<argtype>";    })*""+    nindent+" <returntype>"+z[-1]+"</returntype>"+    nindent+"</function>";    }    if (b)    werror("warning: confused type: %O\n",type);       return nindent+"<object>"+type+"</object>";   } +    void docdecl(string enttype,    string decl,    object f)   { -  f->write("<!-- "+decl+" -->\n"); -  +     string rv,name,params=0;    sscanf(decl,"%s %s(%s",rv,name,params);       f->write("<"+enttype+" name="+S(name)+">");       if (params)    {    string paramlist(string in)    {    int i;