summaryrefslogtreecommitdiff
path: root/Build
diff options
context:
space:
mode:
authorAkira Kakuto <kakuto@fuk.kindai.ac.jp>2016-07-29 10:32:56 +0000
committerAkira Kakuto <kakuto@fuk.kindai.ac.jp>2016-07-29 10:32:56 +0000
commit0f3506cd4a1cae68bac7f7d48cc4937ff83115e4 (patch)
treed41b5a8782686d9580881ecd0b9c14065f56d010 /Build
parent5a3131310d9b9d7dfce387c19749e0970dd37ab3 (diff)
eptexdir: H. Kitagawa ipmroves \pdfsavepos in e-(u)pTeX
git-svn-id: svn://tug.org/texlive/trunk@41762 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build')
-rw-r--r--Build/source/texk/web2c/eptexdir/ChangeLog4
-rw-r--r--Build/source/texk/web2c/eptexdir/pdfutils.ch18
2 files changed, 17 insertions, 5 deletions
diff --git a/Build/source/texk/web2c/eptexdir/ChangeLog b/Build/source/texk/web2c/eptexdir/ChangeLog
index 20c37df1198..d7807ae1aeb 100644
--- a/Build/source/texk/web2c/eptexdir/ChangeLog
+++ b/Build/source/texk/web2c/eptexdir/ChangeLog
@@ -1,3 +1,7 @@
+2016-07-29 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp>
+
+ * pdfutils.ch: Improve \pdfsavepos as pointed out by N. Abe.
+
2016-03-04 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp>
* etex.ch1: Adapt to changes in ptexdir/ptex-base.ch.
diff --git a/Build/source/texk/web2c/eptexdir/pdfutils.ch b/Build/source/texk/web2c/eptexdir/pdfutils.ch
index b5380c84dcc..d8005318868 100644
--- a/Build/source/texk/web2c/eptexdir/pdfutils.ch
+++ b/Build/source/texk/web2c/eptexdir/pdfutils.ch
@@ -945,7 +945,7 @@ begin
pdf_last_x_pos := pdf_last_x_pos + 4736286;
case dvi_dir of
dir_tate,dir_dtou:
- pdf_last_y_pos := cur_page_width - pdf_last_y_pos - 4736286;
+ pdf_last_y_pos := cur_page_height - pdf_last_y_pos - 4736286;
dir_yoko:
pdf_last_y_pos := cur_page_height - pdf_last_y_pos - 4736286;
endcases;
@@ -955,16 +955,24 @@ end
@ @<Calculate DVI page dimensions and margins@>=
if pdf_page_height <> 0 then
cur_page_height := pdf_page_height
+ else if (type(p)=dir_node) then begin
+ if (box_dir(list_ptr(p))=dir_tate)or(box_dir(list_ptr(p))=dir_dtou) then
+ cur_page_height := width(p) + 2*v_offset + 2*4736286
+ else
+ cur_page_height := height(p) + depth(p) + 2*v_offset + 2*4736286;
+ end
else
cur_page_height := height(p) + depth(p) + 2*v_offset + 2*4736286;
if pdf_page_width <> 0 then
cur_page_width := pdf_page_width
+ else if (type(p)=dir_node) then begin
+ if (box_dir(list_ptr(p))=dir_tate)or(box_dir(list_ptr(p))=dir_dtou) then
+ cur_page_width := height(p) + depth(p) + 2*h_offset + 2*4736286
+ else
+ cur_page_width := width(p) + 2*h_offset + 2*4736286;
+ end
else
cur_page_width := width(p) + 2*h_offset + 2*4736286;
- if (type(p)=dir_node) then
- if (box_dir(list_ptr(p))=dir_tate)or(box_dir(list_ptr(p))=dir_dtou) then begin
- t:=cur_page_height; cur_page_height:=cur_page_width;
- cur_page_width:=t; end;
@ Of course \epTeX\ can produce a \.{DVI} file only, not a PDF file.