summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/base/mkiv/strc-pag.lua
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2016-04-27 21:54:13 +0000
committerKarl Berry <karl@freefriends.org>2016-04-27 21:54:13 +0000
commit4ca0e50699e2f4fc4dbe8b1dc4fe528a51b5429d (patch)
tree15c515e279a70c47939a7451b70ebfec6bbcb579 /Master/texmf-dist/tex/context/base/mkiv/strc-pag.lua
parent92b16675f5d3c1e9819112e099165b4dbc5f8a52 (diff)
context (27apr16)
git-svn-id: svn://tug.org/texlive/trunk@40787 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/context/base/mkiv/strc-pag.lua')
-rw-r--r--Master/texmf-dist/tex/context/base/mkiv/strc-pag.lua25
1 files changed, 21 insertions, 4 deletions
diff --git a/Master/texmf-dist/tex/context/base/mkiv/strc-pag.lua b/Master/texmf-dist/tex/context/base/mkiv/strc-pag.lua
index 96d26e6f666..dcd35fc20b7 100644
--- a/Master/texmf-dist/tex/context/base/mkiv/strc-pag.lua
+++ b/Master/texmf-dist/tex/context/base/mkiv/strc-pag.lua
@@ -263,12 +263,23 @@ function helpers.prefix(data,prefixspec)
end
end
+function helpers.pageofinternal(n,prefixspec,pagespec)
+ local data = structures.references.internals[n]
+ if not data then
+ -- error
+ elseif prefixspec then
+ helpers.prefixpage(data,prefixspec,pagespec)
+ else
+ helpers.prefix(data,pagespec)
+ end
+end
+
function pages.is_odd(n)
n = n or texgetcount("realpageno")
if texgetcount("pagenoshift") % 2 == 0 then
- return n % 2 == 0
- else
return n % 2 ~= 0
+ else
+ return n % 2 == 0
end
end
@@ -277,9 +288,9 @@ function pages.on_right(n)
if pagemode == 2 or pagemode == 1 then
n = n or texgetcount("realpageno")
if texgetcount("pagenoshift") % 2 == 0 then
- return n % 2 == 0
- else
return n % 2 ~= 0
+ else
+ return n % 2 == 0
end
else
return true
@@ -399,3 +410,9 @@ implement { -- weird place
}
}
}
+
+interfaces.implement {
+ name = "pageofinternal",
+ arguments = { "integer" },
+ actions = helpers.pageofinternal,
+}