texlive: fix more scripts

Midly annoying that the texlive root is not retrieved from TEXMFROOT..
This commit is contained in:
Henrik Grimler 2020-05-01 17:42:58 +02:00
parent 01abe10e2a
commit 89952bd6b6
4 changed files with 105 additions and 0 deletions

View File

@ -0,0 +1,11 @@
--- ../cjk-gs-integrate.pl.orig 2020-05-01 17:26:10.709915553 +0200
+++ ./texmf-dist/scripts/cjk-gs-integrate/cjk-gs-integrate.pl 2020-05-01 17:28:25.023071451 +0200
@@ -1937,7 +1937,7 @@
my $foundres = '';
if (win32()) {
# determine tlgs or native gs
- chomp(my $foo = `kpsewhich -var-value=SELFAUTOPARENT`);
+ chomp(my $foo = `kpsewhich -var-value=TEXMFROOT`);
if ( -d "$foo/tlpkg/tlgs" ) {
# should be texlive with tlgs
print_debug("Assuming tlgs win32 ...\n");

View File

@ -0,0 +1,72 @@
diff -u -r ../crossrefware.orig/bbl2bib.pl ./texmf-dist/scripts/crossrefware/bbl2bib.pl
--- ../crossrefware.orig/bbl2bib.pl 2020-05-01 17:25:50.416609028 +0200
+++ ./texmf-dist/scripts/crossrefware/bbl2bib.pl 2020-05-01 17:28:25.033071437 +0200
@@ -98,7 +98,7 @@
use strict;
BEGIN {
# find files relative to our installed location within TeX Live
- chomp(my $TLMaster = `kpsewhich -var-value=SELFAUTOPARENT`); # TL root
+ chomp(my $TLMaster = `kpsewhich -var-value=TEXMFROOT`); # TL root
if (length($TLMaster)) {
unshift @INC, "$TLMaster/texmf-dist/scripts/bibtexperllibs";
}
diff -u -r ../crossrefware.orig/bibdoiadd.pl ./texmf-dist/scripts/crossrefware/bibdoiadd.pl
--- ../crossrefware.orig/bibdoiadd.pl 2020-05-01 17:25:50.416609028 +0200
+++ ./texmf-dist/scripts/crossrefware/bibdoiadd.pl 2020-05-01 17:28:25.043071424 +0200
@@ -97,7 +97,7 @@
use strict;
BEGIN {
# find files relative to our installed location within TeX Live
- chomp(my $TLMaster = `kpsewhich -var-value=SELFAUTOPARENT`); # TL root
+ chomp(my $TLMaster = `kpsewhich -var-value=TEXMFROOT`); # TL root
if (length($TLMaster)) {
unshift @INC, "$TLMaster/texmf-dist/scripts/bibtexperllibs";
}
diff -u -r ../crossrefware.orig/bibmradd.pl ./texmf-dist/scripts/crossrefware/bibmradd.pl
--- ../crossrefware.orig/bibmradd.pl 2020-05-01 17:25:50.416609028 +0200
+++ ./texmf-dist/scripts/crossrefware/bibmradd.pl 2020-05-01 17:28:25.036404766 +0200
@@ -64,7 +64,7 @@
use strict;
BEGIN {
# find files relative to our installed location within TeX Live
- chomp(my $TLMaster = `kpsewhich -var-value=SELFAUTOPARENT`); # TL root
+ chomp(my $TLMaster = `kpsewhich -var-value=TEXMFROOT`); # TL root
if (length($TLMaster)) {
unshift @INC, "$TLMaster/texmf-dist/scripts/bibtexperllibs";
}
diff -u -r ../crossrefware.orig/biburl2doi.pl ./texmf-dist/scripts/crossrefware/biburl2doi.pl
--- ../crossrefware.orig/biburl2doi.pl 2020-05-01 17:25:50.416609028 +0200
+++ ./texmf-dist/scripts/crossrefware/biburl2doi.pl 2020-05-01 17:28:25.039738095 +0200
@@ -51,7 +51,7 @@
use strict;
BEGIN {
# find files relative to our installed location within TeX Live
- chomp(my $TLMaster = `kpsewhich -var-value=SELFAUTOPARENT`); # TL root
+ chomp(my $TLMaster = `kpsewhich -var-value=TEXMFROOT`); # TL root
if (length($TLMaster)) {
unshift @INC, "$TLMaster/texmf-dist/scripts/bibtexperllibs";
}
diff -u -r ../crossrefware.orig/bibzbladd.pl ./texmf-dist/scripts/crossrefware/bibzbladd.pl
--- ../crossrefware.orig/bibzbladd.pl 2020-05-01 17:25:50.416609028 +0200
+++ ./texmf-dist/scripts/crossrefware/bibzbladd.pl 2020-05-01 17:28:25.043071424 +0200
@@ -64,7 +64,7 @@
use strict;
BEGIN {
# find files relative to our installed location within TeX Live
- chomp(my $TLMaster = `kpsewhich -var-value=SELFAUTOPARENT`); # TL root
+ chomp(my $TLMaster = `kpsewhich -var-value=TEXMFROOT`); # TL root
if (length($TLMaster)) {
unshift @INC, "$TLMaster/texmf-dist/scripts/bibtexperllibs";
}
diff -u -r ../crossrefware.orig/ltx2crossrefxml.pl ./texmf-dist/scripts/crossrefware/ltx2crossrefxml.pl
--- ../crossrefware.orig/ltx2crossrefxml.pl 2020-05-01 17:25:50.416609028 +0200
+++ ./texmf-dist/scripts/crossrefware/ltx2crossrefxml.pl 2020-05-01 17:28:25.036404766 +0200
@@ -70,7 +70,7 @@
BEGIN {
# find files relative to our installed location within TeX Live
- chomp(my $TLMaster = `kpsewhich -var-value=SELFAUTOPARENT`); # TL root
+ chomp(my $TLMaster = `kpsewhich -var-value=TEXMFROOT`); # TL root
if (length($TLMaster)) {
unshift @INC, "$TLMaster/texmf-dist/scripts/bibtexperllibs";
}

View File

@ -0,0 +1,11 @@
--- ../pedigree.pl.orig 2020-05-01 17:26:30.863222262 +0200
+++ ./texmf-dist/scripts/pedigree-perl/pedigree.pl 2020-05-01 17:28:24.936404899 +0200
@@ -110,7 +110,7 @@
BEGIN {
# find files relative to our installed location within TeX Live
- chomp(my $TLMaster = `kpsewhich -var-value=SELFAUTOPARENT`); # TL root
+ chomp(my $TLMaster = `kpsewhich -var-value=TEXMFROOT`); # TL root
if (length($TLMaster)) {
unshift @INC, "$TLMaster/texmf-dist/scripts/pedigree-perl";
$TLCONF = "$TLMaster/texmf-config/pedigree/pedigree.cfg";

View File

@ -0,0 +1,11 @@
--- ../tlshell.tcl.orig 2020-05-01 17:29:18.643000616 +0200
+++ ./texmf-dist/scripts/tlshell/tlshell.tcl 2020-05-01 17:29:38.669640826 +0200
@@ -1466,7 +1466,7 @@
tk_messageBox -message [__ "No backup directory defined"]
return
}
- set bdir [file join [exec kpsewhich -var-value SELFAUTOPARENT] $bdir]
+ set bdir [file join [exec kpsewhich -var-value TEXMFROOT] $bdir]
if {! [file isdirectory $bdir]} {
tk_messageBox -message [__ "Backup directory %s does not exist" $bdir]
return