diff options
| author | Hans Hagen <pragma@wxs.nl> | 2001-07-11 00:00:00 +0200 |
|---|---|---|
| committer | Hans Hagen <pragma@wxs.nl> | 2001-07-11 00:00:00 +0200 |
| commit | 60cc55d63b06031c0c852888fddeaff74a209011 (patch) | |
| tree | e36f74ebcb4f47a78b72756fbafc50315d19601d /context/perltk/texexec.pl | |
| parent | 8e7b17b0b24641743f62d3f5779e79c2c25b67e0 (diff) | |
| download | context-60cc55d63b06031c0c852888fddeaff74a209011.tar.gz | |
stable 2001.07.11
Diffstat (limited to 'context/perltk/texexec.pl')
| -rw-r--r-- | context/perltk/texexec.pl | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/context/perltk/texexec.pl b/context/perltk/texexec.pl index 87eb9af41..31042cd84 100644 --- a/context/perltk/texexec.pl +++ b/context/perltk/texexec.pl @@ -655,6 +655,7 @@ $Help{PDFCOPY} = " --pdfcopy scale pages down/up\n" ; $Help{pdfcopy} = $Help{PDFCOPY} . " --scale new page scale\n" . " --paperoffset room left at paper border\n" . + " --markings add cutmarks\n" . " --background =background graphic\n" ; $Help{PDFSELECT} = " --pdfselect select pdf pages\n" ; $Help{pdfselect} = @@ -1163,7 +1164,7 @@ sub CopyFile # agressive copy, works for open files like in gs close (INP) ; close (OUT) } -sub CheckChanges # also tuo +sub CheckChanges # also tub { my $JobName = shift ; my $checksum = 0 ; my $MPJobName = MPJobName($JobName,"mpgraph") ; @@ -1562,7 +1563,12 @@ sub RunCopy print COP " [directory=]\n" ; print COP "\\starttext\n" ; print COP "\\copypages\n" ; - print COP " [$FileName][scale=$PageScale,offset=$PaperOffset]\n" ; + print COP " [$FileName]\n" ; + print COP " [scale=$PageScale,\n" ; + if ($Markings) + { print COP " marking=on,\n" ; + print " cutmarkings : on\n" } + print COP " offset=$PaperOffset]\n" ; print COP "\\stoptext\n" ; close (COP) ; $ConTeXtInterface = "en" ; |