1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
% pdfluaapi.w
%
% Copyright 2010 Taco Hoekwater <taco@@luatex.org>
%
% This file is part of LuaTeX.
%
% LuaTeX is free software; you can redistribute it and/or modify it under
% the terms of the GNU General Public License as published by the Free
% Software Foundation; either version 2 of the License, or (at your
% option) any later version.
%
% LuaTeX is distributed in the hope that it will be useful, but WITHOUT
% ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
% FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
% License for more details.
%
% You should have received a copy of the GNU General Public License along
% with LuaTeX; if not, see <http://www.gnu.org/licenses/>.
@ @c
static const char _svn_version[] =
"$Id: pdfluaapi.w 5072 2014-10-24 16:53:43Z oneiros $"
"$URL: https://foundry.supelec.fr/svn/luatex/trunk/source/texk/web2c/luatexdir/pdf/pdfluaapi.w $";
#include "ptexlib.h"
@ @c
int new_pdflua(void)
{
int i, err;
Byte *uncompr;
const zlib_struct *zp = pdflua_zlib_struct_ptr;
uLong uncomprLen = zp->uncomprLen;
if ((uncompr = xtalloc(zp->uncomprLen, Byte)) == NULL)
luatex_fail("new_pdflua(): xtalloc()");
err = uncompress(uncompr, &uncomprLen, zp->compr, zp->comprLen);
if (err != Z_OK)
luatex_fail("new_pdflua(): uncompress()");
assert(uncomprLen == zp->uncomprLen);
if (luaL_loadbuffer(Luas, (const char *) uncompr, uncomprLen, "pdflua")
|| lua_pcall(Luas, 0, 1, 0))
luatex_fail("new_pdflua(): lua_pcall()");
luaL_checktype(Luas, -1, LUA_TTABLE); /* t */
i = luaL_ref(Luas, LUA_REGISTRYINDEX); /* - */
xfree(uncompr);
return i;
}
@ @c
void pdflua_begin_page(PDF pdf)
{
int err; /* ... */
lua_rawgeti(Luas, LUA_REGISTRYINDEX, pdf->pdflua_ref); /* t ... */
lua_pushstring(Luas, "beginpage"); /* s t ... */
lua_gettable(Luas, -2); /* f t ... */
lua_newtable(Luas); /* t f t ... */
lua_pushnumber(Luas, total_pages + 1); /* i t f t ... */
lua_setfield(Luas, -2, "pagenum"); /* t f t ... */
lua_pushnumber(Luas, pdf->last_page); /* i t f t ... */
lua_setfield(Luas, -2, "page_objnum"); /* t f t ... */
lua_pushnumber(Luas, pdf->last_stream); /* i t f t ... */
lua_setfield(Luas, -2, "stream_objnum"); /* t f t ... */
lua_pushnumber(Luas, pdf->page_resources->last_resources); /* i t f t ... */
lua_setfield(Luas, -2, "resources_objnum"); /* t f t ... */
err = lua_pcall(Luas, 1, 0, 0); /* (e) t ... */
if (err != 0)
luatex_fail("pdflua.lua: beginpage()");
/* t ... */
lua_pop(Luas, 1); /* ... */
}
@ @c
void pdflua_end_page(PDF pdf, int annots, int beads)
{
int err; /* ... */
lua_rawgeti(Luas, LUA_REGISTRYINDEX, pdf->pdflua_ref); /* t ... */
lua_pushstring(Luas, "endpage"); /* s t ... */
lua_gettable(Luas, -2); /* f t ... */
lua_newtable(Luas); /* t f t ... */
lua_pushnumber(Luas, total_pages); /* i t f t ... */
lua_setfield(Luas, -2, "pagenum"); /* t f t ... */
lua_pushnumber(Luas, pdf->page_size.h); /* i t f t ... */
lua_setfield(Luas, -2, "hsize"); /* t f t ... */
lua_pushnumber(Luas, pdf->page_size.v); /* i t f t ... */
lua_setfield(Luas, -2, "vsize"); /* t f t ... */
if (annots != 0) {
lua_pushnumber(Luas, annots); /* i t f t ... */
lua_setfield(Luas, -2, "annots"); /* t f t ... */
}
if (beads != 0) {
lua_pushnumber(Luas, beads); /* i t f t ... */
lua_setfield(Luas, -2, "beads"); /* t f t ... */
}
if (pdf->img_page_group_val != 0) {
lua_pushnumber(Luas, pdf->img_page_group_val); /* i t f t ... */
lua_setfield(Luas, -2, "imggroup"); /* t f t ... */
}
err = lua_pcall(Luas, 1, 0, 0); /* (e) t ... */
if (err != 0)
luatex_fail("pdflua.lua: endpage()");
/* t ... */
lua_pop(Luas, 1); /* ... */
}
@ @c
void pdflua_output_pages_tree(PDF pdf)
{
int err;
lua_rawgeti(Luas, LUA_REGISTRYINDEX, pdf->pdflua_ref); /* t */
lua_pushstring(Luas, "outputpagestree"); /* s t */
lua_gettable(Luas, -2); /* f */
err = lua_pcall(Luas, 0, 0, 0); /* - */
if (err != 0)
luatex_fail("pdflua.lua: outputpagestree()");
}
|
