diff options
author | Karl Berry <karl@freefriends.org> | 2012-08-30 00:13:50 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2012-08-30 00:13:50 +0000 |
commit | 8231318d57cff4a8f9fcd70d387a3f00f4513428 (patch) | |
tree | e99336aabe9de04bad055bcf07814a1a00474a38 /Master/texmf-dist/scripts | |
parent | c16497900d7216f5269a43b9c18ae469820d3cd2 (diff) |
pgfplots 1.6.1 (29aug12)
git-svn-id: svn://tug.org/texlive/trunk@27550 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts')
-rw-r--r-- | Master/texmf-dist/scripts/lua/pgfplots/pgfplots.lua | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/Master/texmf-dist/scripts/lua/pgfplots/pgfplots.lua b/Master/texmf-dist/scripts/lua/pgfplots/pgfplots.lua new file mode 100644 index 00000000000..8242222e8d6 --- /dev/null +++ b/Master/texmf-dist/scripts/lua/pgfplots/pgfplots.lua @@ -0,0 +1,30 @@ + +pgfplotsGetLuaBinaryStringFromCharIndicesChunkSize = 7000; + +-- Takes a table containing an arbitrary number of integers in the range 0..255 and converts it +-- into a binary stream of the corresponding binary chars. +-- +-- @param charIndices a table containing 0...N arguments; each in the range 0..255 +-- +-- @return a string containing binary content, one byte for each input integer. +function pgfplotsGetLuaBinaryStringFromCharIndices(charIndices) + -- unpack extracts only the indices (we can't provide a table to string.char). + -- note that pdf.immediateobj has been designed to avoid sanity checking for invalid UTF strings - + -- in other words: it accepts binary strings. + -- + -- unfortunately, this here fails for huge input tables: + -- pgfplotsretval=string.char(unpack(charIndices)); + -- we have to create it incrementally using chunks: + local len = #charIndices; + local chunkSize = pgfplotsGetLuaBinaryStringFromCharIndicesChunkSize; + local buf = {}; + -- ok, append all full chunks of chunkSize first: + local numFullChunks = math.floor(len/chunkSize); + for i = 0, numFullChunks-1, 1 do + table.insert(buf, string.char(unpack(charIndices, 1+i*chunkSize, (i+1)*chunkSize))); + end + -- append the rest: + table.insert(buf, string.char(unpack(charIndices, 1+numFullChunks*chunkSize))); + return table.concat(buf); +end + |