import binascii
import os
import sys
import time
import shutil

LEN = 2 ** 16
huffman = False
TARGET = os.getcwd()
SOURCE = sys.argv[1]
LOC = os.path.dirname(os.path.realpath(__file__))
HUFFMAN_ENCODER = os.path.join(LOC, "..", "tools", "huffman", "huffman-encode")

data = open(SOURCE, "r").read()
print "Load %s, %i bytes" % (SOURCE, len(data))
data = data[:LEN]
print "Use %i bytes" % (len(data))
data = binascii.rlecode_hqx(data)
print "RLE crunch (%i) bytes" % (len(data))

rle_size = len(data)
huffman_size = 0

if huffman:
    binfile = open("/tmp/loader.rle", "w")
    binfile.write(data)
    binfile.close()

    cmd = "%s /tmp/loader.rle" % HUFFMAN_ENCODER
    print cmd
    os.system(cmd)
    data = open("/tmp/loader.rle.hfm", "r").read()
    print "HUFFMAN crunch (%i) bytes" % (len(data))
    huffman_size = len(data)
    os.unlink("/tmp/loader.rle")
    os.unlink("/tmp/loader.rle.hfm")

cfile = open("/tmp/loader.c", "w")
hfile = open("/tmp/loader.h", "w")
parts = []
cnt = len(data) / ((2 ** 15) - 1)
r = len(data) - (cnt * ((2 ** 15) - 1))
for i in range(0, cnt):
    parts.append(((2 ** 15) - 1))
parts.append(r)
hfile.write('''/*
File: %s
Time: %s
*/
#ifndef __FIFO_H__
#define __FIFO_H__

#define ROM_HUFFMAN_SIZE %i
#define ROM_RLE_SIZE     %i
#define ROM_BUFFER_CNT   %i

''' % (
    os.path.basename(SOURCE),
    time.strftime("%a, %d %b %Y %H:%M:%S", time.localtime()),
    huffman_size,
    rle_size,
    len(parts)
))

for idx, val in enumerate(parts):
    hfile.write('#define ROM_BUFFER_SIZE%02i  %i\n' % (idx + 1, val))
hfile.write('\n#endif\n')
hfile.close()
cfile.write('''/*
File: %s
Time: %s
*/
#include <avr/pgmspace.h>
#include <loader.h>
''')

addr = 0
for idx, val in enumerate(parts):
    cfile.write('''
const char _rom%02i[ROM_BUFFER_SIZE%02i] PROGMEM = {
''' % (idx + 1, idx + 1))
    l = addr
    h = addr + parts[idx]
    addr += parts[idx]
    for idx, c in enumerate(data[l:h]):
        c = ord(c)
        if idx < len(data) - 1:
            cfile.write("0x%02x," % c)
        else:
            cfile.write("0x%02x" % c)
        if idx and idx % 16 == 0:
            cfile.write("\n")
    cfile.write('''
    };
''')

cfile.write('PGM_VOID_P _rom[ROM_BUFFER_CNT]= {')
for idx, val in enumerate(parts):
    if idx < len(parts) - 1:
        cfile.write('''&_rom%02i,''' % (idx + 1))
    else:
        cfile.write('''&_rom%02i''' % (idx + 1))
cfile.write('''};
''')

cfile.write('const int _rom_size[ROM_BUFFER_CNT] = {')
for idx, val in enumerate(parts):
    if idx < len(parts) - 1:
        cfile.write('''%i,''' % (val))
    else:
        cfile.write('''%i''' % (val))
cfile.write('''};
''')
cfile.close()
shutil.copy("/tmp/loader.c", os.path.join(TARGET, "loader.c"))
shutil.copy("/tmp/loader.h", os.path.join(TARGET, "loader.h"))