diff --git a/bin/mkwmml.pike b/bin/mkwmml.pike index 2503fa0e91af234111b16fbbfebe6d2dc868eb10..9270bc81d5a4a39d3b1c94bbb4e51e3b1ae7b968 100644 --- a/bin/mkwmml.pike +++ b/bin/mkwmml.pike @@ -1,4 +1,4 @@ -/* $Id: mkwmml.pike,v 1.10 1999/01/24 01:14:29 mirar Exp $ */ +/* $Id: mkwmml.pike,v 1.11 1999/04/09 10:17:08 mirar Exp $ */ import Stdio; import Array; @@ -174,11 +174,16 @@ object(File) make_file(string filename) return f; } -string synopsis_to_html(string s) +string synopsis_to_html(string s,mapping huh) { string type,name,arg; if (sscanf(s,"%s%*[ \t]%s(%s",type,name,arg)!=4) + { sscanf(s,"%s(%s",name,arg),type=""; + werror(huh->_line+": suspicios method %O\n",(s/"(")[0]); + } + + if (!arg) arg=""; return type+" <b>"+name+"</b>("+ @@ -304,7 +309,7 @@ void document(string enttype, { f->write("<man_syntax>\n"); - f->write(replace(htmlify(map(huh->decl,synopsis_to_html)* + f->write(replace(htmlify(map(huh->decl,synopsis_to_html,huh)* "<br>\n"),"\n","\n\t")+"\n"); f->write("</man_syntax>\n\n");