diff options
| author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2009-11-13 14:56:29 +0000 |
|---|---|---|
| committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2009-11-13 14:56:29 +0000 |
| commit | 4fa51ebdd5131be8194a0b3b73aa7d347bfdc73c (patch) | |
| tree | 1000ac71093fa1932833520857cfedef351c7895 | |
| parent | 4b03955aab00a38ad11244687daec832f83a350a (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/ChangeLog | 5 | ||||
| -rw-r--r-- | Build/source/texk/web2c/bibtex.ch | 8 |
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 |