packages: texlive/texlive-getline.patch - more patching (needs luatex)

[uzsolt]

Author: uzsolt                       Date: Mon Jul  6 10:10:42 2009 GMT
Module: packages                      Tag: HEAD
---- Log message:
- more patching (needs luatex)

---- Files affected:
packages/texlive:
   texlive-getline.patch (1.3 -> 1.4) 

---- Diffs:

================================================================
Index: packages/texlive/texlive-getline.patch
diff -u packages/texlive/texlive-getline.patch:1.3 packages/texlive/texlive-getline.patch:1.4
--- packages/texlive/texlive-getline.patch:1.3	Sat Jul  4 13:38:45 2009
+++ packages/texlive/texlive-getline.patch	Mon Jul  6 12:10:37 2009
@@ -310,3 +310,51 @@
    {
      for (p = buffer; *p; p++)
        if (*p == '%')
+--- texlive-20080816-source.orig/libs/lua51/ldebug.c	2009-07-04 10:12:19.813158914 +0200
++++ texlive-20080816-source/libs/lua51/ldebug.c	2009-07-06 12:07:17.645671661 +0200
+@@ -48,7 +48,7 @@
+   if (pc < 0)
+     return -1;  /* only active lua functions have current-line information */
+   else
+-    return getline(ci_func(ci)->l.p, pc);
++    return tl_getline(ci_func(ci)->l.p, pc);
+ }
+ 
+ 
+--- texlive-20080816-source.orig/libs/lua51/ldebug.h	2009-07-04 10:12:19.813158914 +0200
++++ texlive-20080816-source/libs/lua51/ldebug.h	2009-07-06 12:07:17.648962801 +0200
+@@ -13,7 +13,7 @@
+ 
+ #define pcRel(pc, p)	(cast(int, (pc) - (p)->code) - 1)
+ 
+-#define getline(f,pc)	(((f)->lineinfo) ? (f)->lineinfo[pc] : 0)
++#define tl_getline(f,pc)	(((f)->lineinfo) ? (f)->lineinfo[pc] : 0)
+ 
+ #define resethookcount(L)	(L->hookcount = L->basehookcount)
+ 
+--- texlive-20080816-source.orig/libs/lua51/lvm.c	2009-07-04 10:12:19.816492277 +0200
++++ texlive-20080816-source/libs/lua51/lvm.c	2009-07-06 12:07:17.702572571 +0200
+@@ -70,10 +70,10 @@
+   if (mask & LUA_MASKLINE) {
+     Proto *p = ci_func(L->ci)->l.p;
+     int npc = pcRel(pc, p);
+-    int newline = getline(p, npc);
++    int newline = tl_getline(p, npc);
+     /* call linehook when enter a new function, when jump back (loop),
+        or when enter a new line */
+-    if (npc == 0 || pc <= oldpc || newline != getline(p, pcRel(oldpc, p)))
++    if (npc == 0 || pc <= oldpc || newline != tl_getline(p, pcRel(oldpc, p)))
+       luaD_callhook(L, LUA_HOOKLINE, newline);
+   }
+ }
+--- texlive-20080816-source.orig/libs/lua51/print.c	2009-07-04 10:12:19.813158914 +0200
++++ texlive-20080816-source/libs/lua51/print.c	2009-07-06 12:07:17.705304192 +0200
+@@ -84,7 +84,7 @@
+   int c=GETARG_C(i);
+   int bx=GETARG_Bx(i);
+   int sbx=GETARG_sBx(i);
+-  int line=getline(f,pc);
++  int line=tl_getline(f,pc);
+   printf("\t%d\t",pc+1);
+   if (line>0) printf("[%d]\t",line); else printf("[-]\t");
+   printf("%-9s\t",luaP_opnames[o]);
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/packages/texlive/texlive-getline.patch?r1=1.3&r2=1.4&f=u