/*$Id: iceb_tu_prnb.c,v 5.7 2013/08/13 05:50:32 sasa Exp $*/
/*08.06.2013    16.08.1993      Белых А.И.      iceb_tu_prnb.c
Подпрограмма преобразования числа в символьную строку
со точек
Возвращаемое значение в списке параметров
*/
#include	"util.h"

void iceb_tu_prnb(double nb, //Число для преобразования
class iceb_tu_str *str) //Символьная строка с числом
{
char            nb1[30],nb2[30];
short           i,i1;
short           mt;
str->new_plus("");
sprintf(nb1,"%.2f",nb);
i1=strlen(nb1);
memset(nb2,' ',sizeof(nb2));

nb2[29]='\0';

for(i=sizeof(nb2)-2; i1>=0; i--)
 {
  if(nb1[i1] == '-')
   {
    nb2[i]=nb1[i1];
    break;
   }
  if(i == 21 || i == 17 || i == 13 || i == 9  || i == 5 || i == 1)
   {
    nb2[i]='.';
    i--;
   }
  if(nb1[i1] == '.')
    nb2[i]='-';
  else
    nb2[i]=nb1[i1];
  i1--;
 }
memset(nb1,'\0',sizeof(nb1));
mt=i1=0;
for(i = 0 ; i <= 29 ; i++)
 {
  if(nb2[i] != ' ' && mt == 0)
    mt++;
  if(mt !=0)
   {
    nb1[i1] = nb2[i];
    i1++;
   }
 }
str->new_plus(nb1);
}
/*****************************************/

void iceb_tu_prnb(double nb, //Число для преобразования
char *str) //Символьная строка с числом
{
char            nb1[30],nb2[30];
short           i,i1;
short           mt;

sprintf(nb1,"%.2f",nb);
i1=strlen(nb1);
memset(nb2,' ',sizeof(nb2));

nb2[29]='\0';

for(i=sizeof(nb2)-2; i1>=0; i--)
 {
  if(nb1[i1] == '-')
   {
    nb2[i]=nb1[i1];
    break;
   }
  if(i == 21 || i == 17 || i == 13 || i == 9  || i == 5 || i == 1)
   {
    nb2[i]='.';
    i--;
   }
  if(nb1[i1] == '.')
    nb2[i]='-';
  else
    nb2[i]=nb1[i1];
  i1--;
 }
memset(nb1,'\0',sizeof(nb1));
mt=i1=0;
for(i = 0 ; i <= 29 ; i++)
 {
  if(nb2[i] != ' ' && mt == 0)
    mt++;
  if(mt !=0)
   {
    nb1[i1] = nb2[i];
    i1++;
   }
 }
strcpy(str,nb1);
}

