the source code for luatex 0.40.4

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

7 files changed, 21 insertions, 8 deletions

diff --git a/Build/source/texk/web2c/luatexdir/ChangeLog b/Build/source/texk/web2c/luatexdir/ChangeLog
index ecc8c178184..9cd2955ed7d 100644
--- a/Build/source/texk/web2c/luatexdir/ChangeLog
+++ b/Build/source/texk/web2c/luatexdir/ChangeLog
@@ -1,3 +1,7 @@
+2009-06-09  Taco Hoekwater <taco@luatex.org>
+ 	
+	* luatexdir: import of luatex release 0.40.4.
+
 2009-06-08  Taco Hoekwater <taco@luatex.org>
  	
 	* luatexdir: import of luatex release 0.40.3.
diff --git a/Build/source/texk/web2c/luatexdir/NEWS b/Build/source/texk/web2c/luatexdir/NEWS
index 5878d46bf5b..2f38d65acf5 100644
--- a/Build/source/texk/web2c/luatexdir/NEWS
+++ b/Build/source/texk/web2c/luatexdir/NEWS
@@ -1,4 +1,13 @@
 ==============================================================
+Luatex beta-0.40.4 was released 20090609
+==============================================================
+
+* \the\textfont0 returned a number instead of doing a font 
+  switch.
+
+* The embedded MPlib is now 1.203.
+
+==============================================================
 Luatex beta-0.40.3 was released 20090608
 ==============================================================
 
@@ -804,7 +813,7 @@ Other news:
    we probably introduced new problems as well).
 
 * Most (all?) files now have a corrected Copyright header,
-   and link in $Id$ and  $URL: http://foundry.supelec.fr/svn/luatex/tags/beta-0.40.3/source/texk/web2c/luatexdir/NEWS $ into the object file.
+   and link in $Id$ and  $URL: http://foundry.supelec.fr/svn/luatex/tags/beta-0.40.4/source/texk/web2c/luatexdir/NEWS $ into the object file.
 
 * Some unnecessary files were removed from the distribution.
 
diff --git a/Build/source/texk/web2c/luatexdir/luatex.web b/Build/source/texk/web2c/luatexdir/luatex.web
index b7e8e0f8949..7b6a85c3374 100644
--- a/Build/source/texk/web2c/luatexdir/luatex.web
+++ b/Build/source/texk/web2c/luatexdir/luatex.web
@@ -250,8 +250,8 @@ known as `\eTeX'.
 @d pdftex_version_string=='-2.00.0' {current \pdfTeX\ version}
 @#
 @d luatex_version==40 { \.{\\luatexversion} }
-@d luatex_revision=="3" { \.{\\luatexrevision} }
-@d luatex_version_string=='beta-0.40.3' {current \LuaTeX\ version}
+@d luatex_revision=="4" { \.{\\luatexrevision} }
+@d luatex_version_string=='beta-0.40.4' {current \LuaTeX\ version}
 @d luatex_date_info==-extra_version_info { the compile date is negated }
 @d luatex_svnversion=='$Id$'
    {for long --version information, as proposed by Peter M\"unster}
@@ -9247,7 +9247,7 @@ else  begin back_input; scan_font_ident;
 
 @ @<Fetch a math font identifier@>=
 begin scan_char_num; cur_val1:=fam_fnt(cur_val,m);
-  scanned_result(cur_val1)(int_val);
+  scanned_result(font_id_base+cur_val1)(ident_val);
   end
 
 @ @<Fetch a math param@>=
diff --git a/Build/source/texk/web2c/luatexdir/makecpool.c b/Build/source/texk/web2c/luatexdir/makecpool.c
index 218c7e668b0..734b0d39d5a 100644
--- a/Build/source/texk/web2c/luatexdir/makecpool.c
+++ b/Build/source/texk/web2c/luatexdir/makecpool.c
@@ -6,7 +6,7 @@
 #include <stdlib.h>
 
 static const char __svn_version[] =
-    "$Id: makecpool.c 2321 2009-04-18 09:17:13Z hhenkel $ $URL: http://foundry.supelec.fr/svn/luatex/tags/beta-0.40.3/source/texk/web2c/luatexdir/makecpool.c $";
+    "$Id: makecpool.c 2321 2009-04-18 09:17:13Z hhenkel $ $URL: http://foundry.supelec.fr/svn/luatex/tags/beta-0.40.4/source/texk/web2c/luatexdir/makecpool.c $";
 
 int main(int argc, char *argv[])
 {
diff --git a/Build/source/texk/web2c/luatexdir/managed-sa.c b/Build/source/texk/web2c/luatexdir/managed-sa.c
index 118f07ee5ac..9c0a3700d71 100644
--- a/Build/source/texk/web2c/luatexdir/managed-sa.c
+++ b/Build/source/texk/web2c/luatexdir/managed-sa.c
@@ -22,7 +22,7 @@
 #include "managed-sa.h"
 
 static const char __svn_version[] =
-    "$Id$ $URL: http://foundry.supelec.fr/svn/luatex/tags/beta-0.40.3/source/texk/web2c/luatexdir/managed-sa.c $";
+    "$Id$ $URL: http://foundry.supelec.fr/svn/luatex/tags/beta-0.40.4/source/texk/web2c/luatexdir/managed-sa.c $";
 
 static void store_sa_stack(sa_tree a, integer n, integer v, integer gl)
 {
diff --git a/Build/source/texk/web2c/luatexdir/mathcodes.c b/Build/source/texk/web2c/luatexdir/mathcodes.c
index bd5a1990833..b6bc7002ea5 100644
--- a/Build/source/texk/web2c/luatexdir/mathcodes.c
+++ b/Build/source/texk/web2c/luatexdir/mathcodes.c
@@ -26,7 +26,7 @@
 extern void rawset_sa_item(sa_tree head, integer n, integer v);
 
 static const char __svn_version[] =
-    "$Id$ $URL: http://foundry.supelec.fr/svn/luatex/tags/beta-0.40.3/source/texk/web2c/luatexdir/mathcodes.c $";
+    "$Id$ $URL: http://foundry.supelec.fr/svn/luatex/tags/beta-0.40.4/source/texk/web2c/luatexdir/mathcodes.c $";
 
 /* math codes */
 
diff --git a/Build/source/texk/web2c/luatexdir/textcodes.c b/Build/source/texk/web2c/luatexdir/textcodes.c
index 09012f601fe..2a18e92856e 100644
--- a/Build/source/texk/web2c/luatexdir/textcodes.c
+++ b/Build/source/texk/web2c/luatexdir/textcodes.c
@@ -25,7 +25,7 @@
 #include "commands.h"
 
 static const char __svn_version[] =
-    "$Id$ $URL: http://foundry.supelec.fr/svn/luatex/tags/beta-0.40.3/source/texk/web2c/luatexdir/textcodes.c $";
+    "$Id$ $URL: http://foundry.supelec.fr/svn/luatex/tags/beta-0.40.4/source/texk/web2c/luatexdir/textcodes.c $";
 
 #define LCCODESTACK  8
 #define LCCODEDEFAULT 0