root/trunk/samples/unlzw.md

module unlzw

function main(vararg)
{
    if(#vararg < 2)
    {
        writefln("Usage: mdcl unlzw.md inputFile outputFile")
        return
    }
    
    local input = io.File(vararg[0], io.FileMode.In)
    local output = io.File(vararg[1], io.FileMode.OutNew)
    local dict = {}
    local code
    
    for(code = 0; code < 128; code++)
        dict[code] = toString(toChar(code))
    
    local shortCount = input.readInt()
    
    local k = input.readShort()
    output.writeChars(dict[k])
    shortCount--
    
    local w = dict[k]
    local fchar = w[0]
    local entry
    
    for( ; shortCount > 0; shortCount--)
    {
        k = input.readShort()
    
        if(k in dict)
            entry = dict[k]
        else
            entry = w ~ fchar
    
        output.writeChars(entry)
    
        fchar = entry[0]
        dict[code] = w ~ fchar
        code++
        w = entry
    }
    
    output.flush()
    
    input.close()
    output.close()
}