File: b64.lua

package info (click to toggle)
luasocket 2.0.1-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 764 kB
  • ctags: 652
  • sloc: ansic: 3,148; sh: 131; makefile: 89
file content (20 lines) | stat: -rw-r--r-- 733 bytes parent folder | download | duplicates (9)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
-----------------------------------------------------------------------------
-- Little program to convert to and from Base64
-- LuaSocket sample files
-- Author: Diego Nehab
-- RCS ID: $Id: b64.lua,v 1.8 2004/06/16 04:28:21 diego Exp $
-----------------------------------------------------------------------------
local ltn12 = require("ltn12")
local mime = require("mime")
local source = ltn12.source.file(io.stdin)
local sink = ltn12.sink.file(io.stdout)
local convert
if arg and arg[1] == '-d' then
    convert = mime.decode("base64")
else
    local base64 = mime.encode("base64")
    local wrap = mime.wrap()
    convert = ltn12.filter.chain(base64, wrap)
end
sink = ltn12.sink.chain(convert, sink)
ltn12.pump.all(source, sink)