have otangle and luatangle respect WEBINPUTS

git-svn-id: svn://tug.org/texlive/trunk@12300 c570f23f-e606-0410-a88d-b1316a301751

4 files changed, 12 insertions, 4 deletions

diff --git a/Build/source/texk/web2c/luatexdir/ChangeLog b/Build/source/texk/web2c/luatexdir/ChangeLog
new file mode 100644
index 00000000000..e48b74b06dc
--- /dev/null
+++ b/Build/source/texk/web2c/luatexdir/ChangeLog
@@ -0,0 +1,4 @@
+2009-03-03  Peter Breitenlohner  <peb@mppmu.mpg.de>
+
+	* luatangle.ch: use kpse_open_file to locate input files,
+	in order to respect WEBINPUTS (ported from tangle.ch).
diff --git a/Build/source/texk/web2c/luatexdir/luatangle.ch b/Build/source/texk/web2c/luatexdir/luatangle.ch
index 578238d722a..f6de622eeb2 100644
--- a/Build/source/texk/web2c/luatexdir/luatangle.ch
+++ b/Build/source/texk/web2c/luatexdir/luatangle.ch
@@ -151,8 +151,8 @@ certain file will appear on the user's terminal.
 @x [24] open input files
 begin reset(web_file); reset(change_file);
 @y
-begin reset(web_file, web_name);
-if chg_name then reset(change_file, chg_name);
+begin web_file := kpse_open_file(web_name, kpse_web_format);
+if chg_name then change_file := kpse_open_file(chg_name, kpse_web_format);
 @z
 
 @x [26] Open output files (except for the pool file).
diff --git a/Build/source/texk/web2c/omegaware/ChangeLog b/Build/source/texk/web2c/omegaware/ChangeLog
index e69de29bb2d..17f28a7a438 100644
--- a/Build/source/texk/web2c/omegaware/ChangeLog
+++ b/Build/source/texk/web2c/omegaware/ChangeLog
@@ -0,0 +1,4 @@
+2009-03-03  Peter Breitenlohner  <peb@mppmu.mpg.de>
+
+	* otangle.ch: use kpse_open_file to locate input files,
+	in order to respect WEBINPUTS (ported from tangle.ch).
diff --git a/Build/source/texk/web2c/omegaware/otangle.ch b/Build/source/texk/web2c/omegaware/otangle.ch
index 31c2fd35710..ec6437a3a6a 100644
--- a/Build/source/texk/web2c/omegaware/otangle.ch
+++ b/Build/source/texk/web2c/omegaware/otangle.ch
@@ -151,8 +151,8 @@ certain file will appear on the user's terminal.
 @x [24] open input files
 begin reset(web_file); reset(change_file);
 @y
-begin reset(web_file, web_name);
-if chg_name then reset(change_file, chg_name);
+begin web_file := kpse_open_file(web_name, kpse_web_format);
+if chg_name then change_file := kpse_open_file(chg_name, kpse_web_format);
 @z
 
 @x [26] Open output files (except for the pool file).