--- macros/util/formatman.sci.orig Fri Mar 2 03:50:36 2001 +++ macros/util/formatman.sci Thu Dec 20 17:34:38 2001 @@ -389,5 +389,5 @@ end end -function wh=asciiwhatis(path,fnam) +function wh_out=asciiwhatis(path,fnam) txt=mgetl(path) d=find(part(txt,1:8)=='.SH NAME') @@ -401,5 +401,17 @@ wh=stripblanks(wh) k=find(wh=='');if k<>[] then wh(k)=[];end -wh=wh+' @'+fnam +sz=size(wh); +for i=1:sz(1), +// pad the output to make the descriptions all line up on the left +ind=min(strindex(wh(i,:),' - '))-1; +ind=ind(1); +tmps=sprintf('%-15s%s',part(wh(i),1:ind),part(wh(i),(ind+1):length(wh(i)))); +tmps=tmps +' @'+fnam +if (i == 1), + wh_out = tmps; +else + wh_out=sprintf('%s\n%s',wh_out,tmps); +end +end function wh=texwhatis(path,fnam) @@ -426,5 +438,10 @@ p=p(1) - whk=part(whk,1:p-1)+''+part(whk,p:length(whk)) + // pad the output to make the descriptions all line up on the left + pad=''; + for i=1:(15-p), + pad=pad+' '; + end + whk=part(whk,1:p-1)+''+pad+part(whk,p:length(whk)) wh(k)='
'+whk+'
' end