pike.git / bin / mkxml.pike

version» Context lines:

pike.git/bin/mkxml.pike:1: - /* $Id: mkxml.pike,v 1.11 2001/05/06 15:45:20 grubba Exp $ */ + /* $Id: mkxml.pike,v 1.12 2001/05/06 16:07:55 grubba Exp $ */      import Stdio;   import Array;      mapping parse=([]);   int illustration_counter;      mapping manpage_suffix=   ([    "Image":"i",
pike.git/bin/mkxml.pike:805:    default:    f->write("</docgroup>\n\n");    break;    }   }      void make_doc_files()   {    stderr->write("modules: "+sort(indices(parse))*", "+"\n");    +  stdout->write("<module name=''>\n");    foreach (sort(indices(parse)-({"_order"})),string module)    document("module",parse[module],module,module+".",stdout); -  +  stdout->write("</module>\n");   }      void process_line(string s, string currentfile, int line)   {    int i;    s=getridoftabs(s);       if ((i=search(s,"**!"))!=-1 || (i=search(s,"//!"))!=-1)    {    string kw,arg;