Subversion Repositories Kolibri OS

Rev

Rev 5676 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5676 Rev 5803
Line 279... Line 279...
279
 
279
 
280
:byte ConvertSize_size_prefix[8];
280
:byte ConvertSize_size_prefix[8];
281
:dword ConvertSize(dword bytes)
281
:dword ConvertSize(dword bytes)
282
{
282
{
283
  byte size_nm[4];
283
  byte size_nm[4];
284
  if (bytes>=1073741824) strncpy(#size_nm, "Gb",2);
284
  if (bytes>=1073741824) strlcpy(#size_nm, "Gb",2);
285
  else if (bytes>=1048576) strncpy(#size_nm, "Mb",2);
285
  else if (bytes>=1048576) strlcpy(#size_nm, "Mb",2);
286
  else if (bytes>=1024) strncpy(#size_nm, "Kb",2);
286
  else if (bytes>=1024) strlcpy(#size_nm, "Kb",2);
287
  else strncpy(#size_nm, "b ",2);
287
  else strlcpy(#size_nm, "b ",2);
288
  while (bytes>1023) bytes/=1024;
288
  while (bytes>1023) bytes/=1024;
289
  sprintf(#ConvertSize_size_prefix,"%d %s",bytes,#size_nm);
289
  sprintf(#ConvertSize_size_prefix,"%d %s",bytes,#size_nm);
290
  return #ConvertSize_size_prefix;
290
  return #ConvertSize_size_prefix;
291
}
291
}