webmcp
annotate libraries/luatex/luatex.lua @ 66:afed1ab1477f
Bugfix regarding compatibility with Lua 5.2:
#if instead of #ifdef in webmcp_accelerator.c
#if instead of #ifdef in webmcp_accelerator.c
| author | jbe |
|---|---|
| date | Tue Apr 17 15:38:05 2012 +0200 (2012-04-17) |
| parents | 3d43a5cf17c1 |
| children |
| rev | line source |
|---|---|
| jbe/bsw@0 | 1 #!/usr/bin/env lua |
| jbe/bsw@0 | 2 |
| jbe/bsw@0 | 3 local _G = _G |
| jbe/bsw@0 | 4 local _VERSION = _VERSION |
| jbe/bsw@0 | 5 local assert = assert |
| jbe/bsw@0 | 6 local error = error |
| jbe/bsw@0 | 7 local getmetatable = getmetatable |
| jbe/bsw@0 | 8 local ipairs = ipairs |
| jbe/bsw@0 | 9 local next = next |
| jbe/bsw@0 | 10 local pairs = pairs |
| jbe/bsw@0 | 11 local print = print |
| jbe/bsw@0 | 12 local rawequal = rawequal |
| jbe/bsw@0 | 13 local rawget = rawget |
| jbe@64 | 14 local rawlen = rawlen |
| jbe/bsw@0 | 15 local rawset = rawset |
| jbe/bsw@0 | 16 local select = select |
| jbe/bsw@0 | 17 local setmetatable = setmetatable |
| jbe/bsw@0 | 18 local tonumber = tonumber |
| jbe/bsw@0 | 19 local tostring = tostring |
| jbe/bsw@0 | 20 local type = type |
| jbe/bsw@0 | 21 |
| jbe/bsw@0 | 22 local io = io |
| jbe/bsw@0 | 23 local math = math |
| jbe/bsw@0 | 24 local os = os |
| jbe/bsw@0 | 25 local string = string |
| jbe/bsw@0 | 26 local table = table |
| jbe/bsw@0 | 27 |
| jbe@64 | 28 local multirand = require("multirand") |
| jbe/bsw@0 | 29 |
| jbe@64 | 30 local _M = {} |
| jbe@64 | 31 if _ENV then |
| jbe@64 | 32 _ENV = _M |
| jbe@64 | 33 else |
| jbe@64 | 34 _G[...] = _M |
| jbe@64 | 35 setfenv(1, _M) |
| jbe@64 | 36 end |
| jbe/bsw@0 | 37 |
| jbe@64 | 38 -- NOTE: |
| jbe@64 | 39 -- temp_dir MUST NOT contain any charactes interpreted by system shell |
| jbe@64 | 40 -- and has to be set to a private directory (/tmp may be unsafe) |
| jbe@64 | 41 temp_dir = false |
| jbe/bsw@0 | 42 |
| jbe/bsw@0 | 43 function escape(str) |
| jbe/bsw@0 | 44 return ( |
| jbe/bsw@0 | 45 string.gsub( |
| jbe/bsw@0 | 46 str, |
| jbe/bsw@0 | 47 "[\001-\031\127\\#$&~_^%%{}]", |
| jbe/bsw@0 | 48 function(char) |
| jbe/bsw@0 | 49 local b = string.byte(char) |
| jbe/bsw@0 | 50 if (b > 1 and b < 31) or b == 127 then |
| jbe/bsw@0 | 51 return " " |
| jbe/bsw@0 | 52 elseif |
| jbe/bsw@0 | 53 char == "#" or char == "$" or char == "&" or char == "_" or |
| jbe/bsw@0 | 54 char == "%" or char == "{" or char == "}" |
| jbe/bsw@0 | 55 then |
| jbe/bsw@0 | 56 return "\\" .. char |
| jbe/bsw@0 | 57 else |
| jbe/bsw@0 | 58 return "\\symbol{" .. b .. "}" |
| jbe/bsw@0 | 59 end |
| jbe/bsw@0 | 60 end |
| jbe/bsw@0 | 61 ) |
| jbe/bsw@0 | 62 ) |
| jbe/bsw@0 | 63 end |
| jbe/bsw@0 | 64 |
| jbe/bsw@0 | 65 document_methods = {} |
| jbe/bsw@0 | 66 |
| jbe/bsw@0 | 67 document_mt = { |
| jbe/bsw@0 | 68 __index = document_methods, |
| jbe/bsw@0 | 69 __call = function(...) return document_methods.write(...) end |
| jbe/bsw@0 | 70 } |
| jbe/bsw@0 | 71 |
| jbe/bsw@0 | 72 function new_document() |
| jbe/bsw@0 | 73 return setmetatable({}, document_mt) |
| jbe/bsw@0 | 74 end |
| jbe/bsw@0 | 75 |
| jbe/bsw@0 | 76 function document_methods:write(...) |
| jbe/bsw@0 | 77 local i = 1 |
| jbe/bsw@0 | 78 while true do |
| jbe/bsw@0 | 79 local v = select(i, ...) |
| jbe/bsw@0 | 80 if v == nil then |
| jbe/bsw@0 | 81 break |
| jbe/bsw@0 | 82 end |
| jbe/bsw@0 | 83 self[#self+1] = v |
| jbe/bsw@0 | 84 i = i + 1 |
| jbe/bsw@0 | 85 end |
| jbe/bsw@0 | 86 end |
| jbe/bsw@0 | 87 |
| jbe/bsw@0 | 88 function document_methods:get_latex() |
| jbe/bsw@0 | 89 local str = table.concat(self) |
| jbe/bsw@0 | 90 for i in ipairs(self) do |
| jbe/bsw@0 | 91 self[i] = nil |
| jbe/bsw@0 | 92 end |
| jbe/bsw@0 | 93 self[1] = str |
| jbe/bsw@0 | 94 return str |
| jbe/bsw@0 | 95 end |
| jbe/bsw@0 | 96 |
| jbe/bsw@0 | 97 function document_methods:get_pdf() |
| jbe@64 | 98 -- TODO: proper escaping of shell commands |
| jbe@64 | 99 -- (not a security risk, as args are safe) |
| jbe/bsw@0 | 100 if not temp_dir then |
| jbe/bsw@0 | 101 error("luatex.temp_dir not set") |
| jbe/bsw@0 | 102 end |
| jbe/bsw@0 | 103 local basename = temp_dir .. "/tmp.luatex_" .. multirand.string(16) |
| jbe/bsw@0 | 104 local latex_file = assert(io.open(basename .. ".tex", "w")) |
| jbe/bsw@0 | 105 latex_file:write(self:get_latex()) |
| jbe/bsw@0 | 106 latex_file:close() |
| jbe@64 | 107 local result1, result2, result3 = os.execute( |
| jbe/bsw@0 | 108 'latex -output-format=pdf "-output-directory=' .. temp_dir .. '" ' .. |
| jbe/bsw@0 | 109 basename .. '< /dev/null > /dev/null 2> /dev/null' |
| jbe/bsw@0 | 110 ) |
| jbe@64 | 111 -- NOTE: use result1 and result3 for lua5.1 and lua5.2 compatibility |
| jbe@64 | 112 if not (result1 == 0 or (result2 == "exit" and result3 == 0)) then |
| jbe/bsw@0 | 113 error('LaTeX failed, see "' .. basename .. '.log" for details.') |
| jbe/bsw@0 | 114 end |
| jbe/bsw@0 | 115 local pdf_file = assert(io.open(basename .. ".pdf", "r")) |
| jbe/bsw@0 | 116 local pdf_data = pdf_file:read("*a") |
| jbe/bsw@0 | 117 pdf_file:close() |
| jbe/bsw@0 | 118 os.execute('rm -f "' .. basename .. '.*"') |
| jbe/bsw@0 | 119 return pdf_data |
| jbe/bsw@0 | 120 end |
| jbe/bsw@0 | 121 |
| jbe@64 | 122 return _M |
| jbe@64 | 123 |
| jbe/bsw@0 | 124 --[[ |
| jbe/bsw@0 | 125 |
| jbe@64 | 126 luatex = require("luatex") |
| jbe/bsw@0 | 127 luatex.temp_dir = "." |
| jbe/bsw@0 | 128 |
| jbe/bsw@0 | 129 local tex = luatex.new_document() |
| jbe/bsw@0 | 130 |
| jbe/bsw@0 | 131 tex "\\documentclass[a4paper,12pt]{article}\n" |
| jbe/bsw@0 | 132 tex "\\usepackage{german}\n" |
| jbe/bsw@0 | 133 tex "\\usepackage{amsfonts}\n" |
| jbe/bsw@0 | 134 tex "\\usepackage{amssymb}\n" |
| jbe/bsw@0 | 135 tex "\\usepackage{ulem}\n" |
| jbe/bsw@0 | 136 tex "\\pagestyle{headings}\n" |
| jbe/bsw@0 | 137 tex "\\begin{document}\n" |
| jbe/bsw@0 | 138 tex "\\title{Demo}\n" |
| jbe/bsw@0 | 139 tex "\\author{John Doe}\n" |
| jbe/bsw@0 | 140 tex "\\date{\\small 25. August 2008}\n" |
| jbe/bsw@0 | 141 tex "\\maketitle\n" |
| jbe/bsw@0 | 142 tex "\\end{document}\n" |
| jbe/bsw@0 | 143 |
| jbe/bsw@0 | 144 local pdf = tex:get_pdf() |
| jbe/bsw@0 | 145 |
| jbe/bsw@0 | 146 --]] |