Branch: Tag:

2001-05-08

2001-05-08 06:45:22 by Mirar (Pontus Hagland) <pike@sort.mirar.org>

only use the parameter name in <param/>

Rev: bin/mkxml.pike:1.18

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;
659: Inside #if 1
   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>"+