Replace depreciated com2str in zpout.m

[Ben Abbott]

On Jan 31, 2009, at 4:22 AM, Thomas D. Dean wrote:

> --------
> Bug report for Octave 3.0.3 configured for i686-pc-linux-gnu
>
> Description:
> -----------
>
>  * zpout uses depreciated com2str().
>
> Repeat-By:
> ---------
>
>  * zpout(sys)
>
> Fix:
> ---
>> diff -cp zpout.m.orig zpout.m
> *** zpout.m.orig	2009-01-31 01:03:07.000000000 -0800
> --- zpout.m	2009-01-31 01:03:46.000000000 -0800
> *************** function zpout (zer, pol, k, x)
> *** 64,70 ****
>      zer = sortcom (-zer);
>      for ii = 1:length(zer)
>        if (zer(ii) != 0)
> ! 	numstring = sprintf ("%s (%s %s)", numstring, x, com2str (zer(ii),
> 1));
>        endif
>      endfor
>    endif
> --- 64,70 ----
>      zer = sortcom (-zer);
>      for ii = 1:length(zer)
>        if (zer(ii) != 0)
> ! 	numstring = sprintf ("%s (%s %s)", numstring, x, num2str (zer(ii),
> 1));
>        endif
>      endfor
>    endif
> *************** function zpout (zer, pol, k, x)
> *** 85,91 ****
>      for ii = 1:length(pol)
>        if (pol(ii) != 0)
>  	denomstring = sprintf ("%s (%s %s)", denomstring, x,
> ! 			       com2str (pol(ii), 1));
>        endif
>      endfor
>    endif
> --- 85,91 ----
>      for ii = 1:length(pol)
>        if (pol(ii) != 0)
>  	denomstring = sprintf ("%s (%s %s)", denomstring, x,
> ! 			       num2str (pol(ii), 1));
>        endif
>      endfor
>    endif

I don't see zpout in the developer's sources. In fact, I don't the the  
control directory at all.

... also Octave-Forge still links to it

	http://octave.sourceforge.net/doc/f/zpout.html

The link on that page is below.

	http://velveeta.che.wisc.edu/cgi-bin/hgwebdir.cgi/octave/file/tip//scripts/control/system/zpout.m?rev=HEAD&content-type=text/plain

Ben