summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/latexconfig/lualatexquotejobname.tex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2023-11-20 20:54:50 +0000
committerKarl Berry <karl@freefriends.org>2023-11-20 20:54:50 +0000
commitf2c544db15e39f47082849b2a648f144852810d0 (patch)
tree317eb8bbdbd0dbae851e17feef2c5af11344918e /Master/texmf-dist/tex/latex/latexconfig/lualatexquotejobname.tex
parenta5dced73080c4a32837513e82957c71c4b776aed (diff)
tex-ini-files, now merging most from TL-specific dirs
git-svn-id: svn://tug.org/texlive/trunk@68920 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/latexconfig/lualatexquotejobname.tex')
-rw-r--r--Master/texmf-dist/tex/latex/latexconfig/lualatexquotejobname.tex63
1 files changed, 0 insertions, 63 deletions
diff --git a/Master/texmf-dist/tex/latex/latexconfig/lualatexquotejobname.tex b/Master/texmf-dist/tex/latex/latexconfig/lualatexquotejobname.tex
deleted file mode 100644
index cea56d72bcd..00000000000
--- a/Master/texmf-dist/tex/latex/latexconfig/lualatexquotejobname.tex
+++ /dev/null
@@ -1,63 +0,0 @@
-% $Id$
-% Manuel Pegourie-Gonnard, originally written 2010. WTFPL v2.
-%
-% Quote \jobname if it contains spaces, similarly to what other engines do.
-%
-% Recent versions of luatex kindly provide a process_jobname callback for
-% this. Detect if it is available and use a fallback in pure TeX otherwise.
-% If using the callback, register it at \everyjob time since callbacks are not
-% dumped in formats currently.
-%
-% The TeX version fails (jobname is set to texput) with invocations like
-% luatex '\input foo'
-% but work correctly with the following:
-% luatex foo\ bar
-% luatex -jobname foo\ bar '\input "foo bar"'
-% It is is not possible to support all this case without the callback. It is
-% debatable if supporting another set cases would be better, but this is the
-% historical (TL 2010) behaviour, so just keep it.
-%
-% \jobname quoting is normalized in the same way as in web2c's
-% normalize_quotes() function (see lib/texmfmp.c, non-XeTeX case), that is:
-% - remove quotes
-% - complain if quotes are not "balanced" (ie not in even number)
-% - enclose the result in quotes iff it contains spaces
-%
-% This file is inputed after latex.ltx.
-%
-\makeatletter
-\everyjob\expandafter{\the\everyjob
- \ifcase\directlua{
- tex.sprint(callback.list().process_jobname == nil and 0 or 1)}\relax
- % no callback, do what we can in TeX
- \begingroup
- % strip quotes from job name and count them
- \def\stripquotes#1"#2\@nil{%
- \edef\clean{\clean#1}%
- \ifx\empty#2\empty \else
- \advance\count@\@ne
- \stripquotes#2\@nil
- \fi}%
- \count@\z@
- \def\clean{}%
- \expandafter\stripquotes\jobname"\@nil
- % complain if their was not an even ("balanced") number of quotes
- \ifodd\count@
- \errmessage{Unbalanced quotes in jobname: \jobname}%
- \fi
- % now check if their are spaces and quote if necessary
- \def\testsp#1 #2\@nil{%
- \ifx\empty#2\empty
- \edef\fixjobname{\def\noexpand\jobname{\clean}}%
- \else
- \edef\fixjobname{\def\noexpand\jobname{"\clean"}}%
- \fi}%
- \edef\dotest{\noexpand\testsp\clean\space\noexpand\@nil}\dotest
- % do it after closing the group
- \expandafter\endgroup\fixjobname
- \or % callback available, use it
- % function in a separate file for convenience (uses %, ~, etc)
- \directlua{dofile(assert(kpse.find_file("lualatexquotejobname.lua")))}
- \fi}
-\makeatother
-\endinput