pike.git / bin / mkxml.pike

version» Context lines:

pike.git/bin/mkxml.pike:1: - /* $Id: mkxml.pike,v 1.27 2001/07/19 21:23:43 nilsson Exp $ */ + /* $Id: mkxml.pike,v 1.28 2001/07/20 00:21:48 nilsson Exp $ */      string LENA_PATH = "../autodoc/image_ill.pnm";   string makepic1;   string makepic2;      mapping parse=([ " appendix":([]) ]);   int illustration_counter;      #define error(X) throw( ({ (X), backtrace()[0..sizeof(backtrace())-2] }) )   
pike.git/bin/mkxml.pike:364:    for (i=0; i<strlen(in); i++)    switch (in[i])    {    case '(': q++; break;    case ')': q--; break;    case ':':    case ',':    if (!q) return ({doctype(in[..i-1],indent+" ")})+    paramlist(in[i+1..],indent);    } -  return ({in}); +  return ({doctype(in,indent+" ")});    };          if (!indent) indent="\n ";    string nindent=indent+" ";       if (type[..2]=="...")    return nindent+"<varargs>"+doctype(type[3..])+"</varargs>";       string a=type,b=0,c,o=0;
pike.git/bin/mkxml.pike:416:    case "array":    return nindent+"<array><valuetype>"+    doctype(b,nindent)+"</valuetype></array>";    case "multiset":    return nindent+"<multiset><indextype>"+    doctype(b,nindent)+"</indextype></multiset>";    case "mapping":    array z=paramlist(b,nindent);    if (sizeof(z)!=2)    werror("warning: confused mapping type: %O\n",type), -  z+=({"mixed","mixed"}); +  z+=({"<mixed/>","<mixed/>"});    return nindent+"<mapping><indextype>"+z[0]+"</indextype>"+    nindent+" <valuetype>"+z[1]+"</valuetype></mapping>";    case "object":    return nindent+"<object>"+b+"</object>";    case "function":    z=paramlist(b,nindent);    if (sizeof(z)<1)    werror("warning: confused function type: %O\n",type), -  z+=({"mixed"}); +  z+=({"<mixed/>"});    return    nindent+    "<function>"+    map(z[..sizeof(z)-2],    lambda(string s)    {    return nindent+" <argtype>"+s+"</argtype>";    })*""+    nindent+" <returntype>"+z[-1]+"</returntype>"+    nindent+"</function>";