summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2009-11-13 14:56:29 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2009-11-13 14:56:29 +0000
commit4fa51ebdd5131be8194a0b3b73aa7d347bfdc73c (patch)
tree1000ac71093fa1932833520857cfedef351c7895
parent4b03955aab00a38ad11244687daec832f83a350a (diff)
fix bibtex.ch -- use kpse_in_name_ok for input files, not kpse_out_name_ok
git-svn-id: svn://tug.org/texlive/trunk@16004 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Build/source/texk/web2c/ChangeLog5
-rw-r--r--Build/source/texk/web2c/bibtex.ch8
2 files changed, 9 insertions, 4 deletions
diff --git a/Build/source/texk/web2c/ChangeLog b/Build/source/texk/web2c/ChangeLog
index 7cdec44e851..868eb8581bf 100644
--- a/Build/source/texk/web2c/ChangeLog
+++ b/Build/source/texk/web2c/ChangeLog
@@ -1,3 +1,8 @@
+2009-11-13 Peter Breitenlohner <peb@mppmu.mpg.de>
+
+ * bibtex.ch: Replace kpse_out_name_ok by kpse_in_name_ok for
+ input files. From Akira Kakuto <kakuto@fuk.kindai.ac.jp>.
+
2009-11-07 Peter Breitenlohner <peb@mppmu.mpg.de>
* doc/web2c.texi (tex invocation): Shorten the paragraph about
diff --git a/Build/source/texk/web2c/bibtex.ch b/Build/source/texk/web2c/bibtex.ch
index 39cfc6b87bd..9a3376af6be 100644
--- a/Build/source/texk/web2c/bibtex.ch
+++ b/Build/source/texk/web2c/bibtex.ch
@@ -655,7 +655,7 @@ then
else
aux_name_length := aux_name_length - 4; {set to length without \.{.aux}}
aux_ptr := 0; {initialize the \.{.aux} file stack}
-if (not kpse_out_name_ok(stringcast(name_of_file+1)) or
+if (not kpse_in_name_ok(stringcast(name_of_file+1)) or
not a_open_in(cur_aux_file,no_file_path)) then
@z
@@ -770,7 +770,7 @@ if (not a_open_in(cur_bib_file)) then
open_bibdata_aux_err ('I couldn''t open database file ');
end;
@y
-if (not kpse_out_name_ok(stringcast(name_of_file+1)) or
+if (not kpse_in_name_ok(stringcast(name_of_file+1)) or
not a_open_in(cur_bib_file, kpse_bib_format)) then
open_bibdata_aux_err ('I couldn''t open database file ');
@z
@@ -789,7 +789,7 @@ if (not a_open_in(bst_file)) then
end;
end;
@y
-if (not kpse_out_name_ok(stringcast(name_of_file+1)) or
+if (not kpse_in_name_ok(stringcast(name_of_file+1)) or
not a_open_in(bst_file, kpse_bst_format)) then
begin
print ('I couldn''t open style file ');
@@ -847,7 +847,7 @@ while (name_ptr <= file_name_size) do {pad with blanks}
if (not a_open_in(cur_aux_file)) then
@y
name_of_file[name_ptr] := 0;
-if (not kpse_out_name_ok(stringcast(name_of_file+1)) or
+if (not kpse_in_name_ok(stringcast(name_of_file+1)) or
not a_open_in(cur_aux_file, no_file_path)) then
@z