The R Project SVN R

Rev

Rev 18264 | Rev 24068 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 18264 Rev 21789
Line 756... Line 756...
756 
   */
 756 
   */
757 
  if (max > 0)
 757 
  if (max > 0)
758 
  {
 758 
  {
759 
    total += dopr_outch (buffer, currlen, maxlen, '.');
 759 
    total += dopr_outch (buffer, currlen, maxlen, '.');
760 
 
 760 
 
- 
 
 761 
    while (zpadlen-- > 0)
- 
 
 762 
      total += dopr_outch (buffer, currlen, maxlen, '0');
- 
 
 763 
 
761 
    while (fplace > 0)
764 
    while (fplace > 0)
762 
      total += dopr_outch (buffer, currlen, maxlen, fconvert[--fplace]);
 765 
      total += dopr_outch (buffer, currlen, maxlen, fconvert[--fplace]);
763 
  }
 766 
  }
764 
 
 767 
 
765 
  while (zpadlen > 0)
 - 
 
766 
  {
 - 
 
767 
    total += dopr_outch (buffer, currlen, maxlen, '0');
 - 
 
768 
    --zpadlen;
 - 
 
769 
  }
 - 
 
770 
 
 - 
 
771 
  while (padlen < 0)
768 
  while (padlen < 0)
772 
  {
 769 
  {
773 
    total += dopr_outch (buffer, currlen, maxlen, ' ');
 770 
    total += dopr_outch (buffer, currlen, maxlen, ' ');
774 
    ++padlen;
 771 
    ++padlen;
775 
  }
 772 
  }