pike.git / bin / mkxml.pike

version» Context lines:

pike.git/bin/mkxml.pike:1: - /* $Id: mkxml.pike,v 1.17 2001/05/07 19:12:41 grubba Exp $ */ + /* $Id: mkxml.pike,v 1.18 2001/05/08 06:45:22 mirar Exp $ */      import Stdio;   import Array;      mapping parse=([]);   int illustration_counter;      mapping manpage_suffix=   ([    "Image":"i",
pike.git/bin/mkxml.pike:652: Inside #if 1
   array v=({});       foreach (huh->args, arg)    {    v+=arg->args;    if (arg->desc)    {    res+="<group>\n";    foreach (v,string arg)    { -  string rv,name,params; -  if (sscanf(arg,"%s %s(%s",rv,name,params)<2) -  name=arg; -  res+=" <param name="+S(name)+"/>\n"; +  sscanf(arg,"%*s %s",arg); +  sscanf(arg,"%s(%*s",arg); // type name(whatever) +  res+=" <param name="+S(arg)+"/>\n";    }    res+=    "<text>"+    fixdesc(arg->desc,prefix,arg->_line)+    "</text></group>\n";    }    }    if (rarg!="") error("trailing args w/o desc on "+arg->_line+"\n");    }   #endif