Отправлено Сидоргек 26 августа 2004 г. 17:32 В ответ на: Народ ! Кто-нибудь увлекался компрессией конфигурционных данных для FPGA (+) отправлено Шурик 26 августа 2004 г. 15:59

Ниже - текст упаковщика.

#include

unsigned char buf[256000];
int blen = 0;

unsigned char res[256000];
int rlen = 0;

unsigned char msk[256000];
int mlen = 0;
int mbit = 0;

// Возвращает число одинаковых символов после того, на который указывает указатель
int SerLen(int from)
{
for (int i = from+1, n = 0; i < blen; i ++)
{
if (buf[i] != buf[from])
{
break;
}

n ++;
}

return n;
}

void Pack(int treshold)
{
rlen = 0;
mlen = 0;
msk[mlen] = 0;
mbit = 0;

for (int i = 0; i < blen;)
{
if (mbit > 7)
{
msk[++ mlen] = 0;
mbit = 0;
}

int sl = SerLen(i);

// Серия не длиннее байта
if (sl > 255)
{
sl = 255;
}

if ((buf[i] == 0) && (sl > treshold))
{
// Серия нулей
res[rlen++] = sl;
msk[mlen] |= 1 << mbit;

i += 1 + sl;
}
else
{
// Все остальное без сжатия
res[rlen++] = buf[i ++];
}

mbit ++;
}
}

// Контрольная распаковка
int tptr;
void UnpackedByte(unsigned char b)
{
if (buf[tptr++] != b)
{
printf("compare error in %d\n", tptr - 1);
}
}

void Unpack(void)
{
unsigned char n;

tptr = 0;

for (int pd = 0, bd = 0, mbit = 0; pd < rlen;)
{
if (mbit > 7)
{
bd ++;
mbit = 0;
}

if (msk[bd] & (1 << mbit))
{
n = res[pd++];

UnpackedByte(0);
while(n --)
{
UnpackedByte(0);
}
}
else
{
UnpackedByte(res[pd++]);
}

mbit ++;
}
}

void main (int argc, char **argv)
{
if (argc < 2)
{
printf("RBF file needed\n");
return;
}

// Загружаю в буфер
printf ("Open file '%s'\n", argv[1]);
FILE * inp = fopen(argv[1], "rb");
if (!inp)
{
printf ("Open file error\n");
}

blen = 0;
while (!feof(inp))
{
buf[blen++] = fgetc(inp);
}
fclose(inp);

printf ("%d bytes loaded\n", blen);

// Пакую
Pack(1);

printf ("Total altera data length %d bytes\n", rlen + mlen + 1);

// Сохраняю результат
FILE * outp = fopen ("altera_data.c", "wt");

fprintf (outp, "// Упакованная прошивка Альтеры подготовлена из файла\n");
fprintf (outp, "// %s\n\n", argv[1]);

fprintf (outp, "#define PDLENGTH %d\n", rlen);

// fprintf (outp, "const unsigned int packed_data_length = PDLENGTH;\n");

fprintf (outp, "const unsigned char flash packed_data[PDLENGTH] =\n{");

for (int i = 0, n = 8; i < rlen; i ++)
{
if (n == 8)
{
fprintf(outp, "\n\t");
n = 0;
}

fprintf(outp, "0x%02X", res[i]);

if (i < rlen-1)
{
fprintf(outp, ", ");
}

n ++;
}
fprintf (outp, "\n};\n");

fprintf (outp, "const unsigned char flash zero_burst_bits[%d] =\n{", mlen+1);

for (i = 0, n = 8; i < mlen+1; i ++)
{
if (n == 8)
{
fprintf(outp, "\n\t");
n = 0;
}

fprintf(outp, "0x%02X", msk[i]);

if (i < mlen)
{
fprintf(outp, ", ");
}

n ++;
}
fprintf (outp, "\n};\n\n");

fclose (outp);

// Тестовая распаковка
printf ("Check\n");
Unpack();
}

• А текст РАСПАКОВЩИКА можете опубликовать? Буду ооочень благодарен (тоже хочу разобраться). — Maksim Z.   (26.08.2004 18:03, пустое)
  • No problema (+) — Сидоргек   (27.08.2004 10:39, 1677 байт)
    • Big thanks. — Maksim Z.   (27.08.2004 13:00, пустое)
  • Здесь и то, и другое. — Iwan   (26.08.2004 18:41, пустое)
• Спасибо! Буду разбираться. — Шурик   (26.08.2004 17:47, пустое)
• В догонку: А Циклоны "отроду" умеют грузиться из упакованных файлов, которые для них Квартус генерирует ... — Сидоргек   (26.08.2004 17:38, пустое)