pike.git / bin / mkxml.pike

version» Context lines:

pike.git/bin/mkxml.pike:1: - /* $Id: mkxml.pike,v 1.18 2001/05/08 06:45:22 mirar Exp $ */ + /* $Id: mkxml.pike,v 1.19 2001/05/09 11:50:38 grubba Exp $ */      import Stdio;   import Array;      mapping parse=([]);   int illustration_counter;      mapping manpage_suffix=   ([    "Image":"i",
pike.git/bin/mkxml.pike:83:    else return nowM=methodM;   }      void report(string s)   {    verbose("mkxml: "+s+"\n");   }      #define complain(X) (X)    + string file_version = ""; +    mapping keywords= - (["module":lambda(string arg,string line) + (["$Id":lambda(string arg, string line) +  { +  file_version = " version='Id: "+arg[..search(arg, "$")-1]+"'"; +  werror("mkxml: Version: "+file_version+"\n"); +  }, +  "module":lambda(string arg,string line)    { classM=descM=nowM=moduleM=focM(parse,stripws(arg),line);    methodM=0;    if (!nowM->classes) nowM->classes=(["_order":({})]);    if (!nowM->modules) nowM->modules=(["_order":({})]);    report("module "+arg); },    "class":lambda(string arg,string line)    { if (!moduleM) return complain("class w/o module");    descM=nowM=classM=focM(moduleM->classes,stripws(arg),line);    methodM=0; report("class "+arg); },    "submodule":lambda(string arg,string line)
pike.git/bin/mkxml.pike:317:    t=v;    }    else    {    s+=replace(a,"\n\n","\n\n<p>")+"<"+b+">";    t=c;    }    }    s+=replace(t,"\n\n","\n\n<p>");    -  if (where) -  return "<source-position " +where+ "/>\n"+s; +  if (where) { +  return "<source-position " + where + file_version + "/>\n"+s; +  }    return s;   }         multiset(string) get_method_names(string *decls)   {    string decl,name;    multiset(string) names=(<>);    foreach (decls,decl)    {
pike.git/bin/mkxml.pike:611:    }    else    foreach (names,string name)    {    if (convname[name]) name=convname[name];    f->write("<"+enttype+" name="+S(name)+">\n");    f->write("</"+enttype+">");    }    break;    } -  f->write("<source-position " + huh->_line + "/>\n"); +  f->write("<source-position " + huh->_line + file_version + "/>\n");      // [DESCRIPTION]       string res="";       if (huh->desc)    {    res+="<text>\n";       if (huh->inherits)
pike.git/bin/mkxml.pike:923:       for (;;)    {    int i;    inpre=0;       if (!f)    {    if (!sizeof(files)) break;    verbose("mkxml: reading "+files[0]+"...\n"); +  file_version = "";    f=File();    currentfile=files[0];    files=files[1..];    if (!f->open(currentfile,"r")) { f=0; continue; }    t=0;    ss=({""});    line=0;    }       if (sizeof(ss)<2)