From a0b98c4e4bd8cba1ce4fc5d8574f369c319eb147 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 4 Apr 2019 22:29:54 +0000 Subject: /.shellarguments as well as /shellarguments, for gs 9.27 git-svn-id: svn://tug.org/texlive/trunk@50767 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/gsftopk/ChangeLog | 5 +++++ Build/source/texk/gsftopk/render.ps | 29 ++++++++++++++++++++++++----- 2 files changed, 29 insertions(+), 5 deletions(-) (limited to 'Build') diff --git a/Build/source/texk/gsftopk/ChangeLog b/Build/source/texk/gsftopk/ChangeLog index 8a386627aca..fb67e8bd1ad 100644 --- a/Build/source/texk/gsftopk/ChangeLog +++ b/Build/source/texk/gsftopk/ChangeLog @@ -1,3 +1,8 @@ +2019-04-05 Paul Vojta + + * render.ps (shellarguments): check for /.shellarguments + before shellarguments. + 2014-06-23 Akira Kakuto * gsftopk.c: Support 64bit compilation (Windows only). diff --git a/Build/source/texk/gsftopk/render.ps b/Build/source/texk/gsftopk/render.ps index 2c067451b97..be9d8c8b532 100644 --- a/Build/source/texk/gsftopk/render.ps +++ b/Build/source/texk/gsftopk/render.ps @@ -3,7 +3,7 @@ % ======================================================================== % -% Copyright (c) 1993-1998 Paul Vojta +% Copyright (c) 1993-2019 Paul Vojta % % Permission is hereby granted, free of charge, to any person obtaining a copy % of this software and associated documentation files (the "Software"), to @@ -214,10 +214,29 @@ def % Get arguments. -shellarguments not - { - (You must provide arguments to the shell!\n) fatal - } +% +% shellarguments is renamed as .shellarguments in gs-9.27 (early 2019) +% The following works for gs-9.27 and gs-9.26 or older ones. +% +/.shellarguments where +{ + pop + .shellarguments not + { + (You must provide arguments to the shell!\n) fatal + } + if +} +if +/shellarguments where +{ + pop + shellarguments not + { + (You must provide arguments to the shell!\n) fatal + } + if +} if /dpi exch cvr def -- cgit v1.2.3