[Scummvm-cvs-logs] CVS: residual/lua/src lbuiltin.c,1.1.1.1,1.2 ltask.c,1.1.1.1,1.2 ltask.h,1.1.1.1,1.2

[Daniel Schepler]

Update of /cvsroot/scummvm/residual/lua/src
In directory sc8-pr-cvs1:/tmp/cvs-serv20795/lua/src

Modified Files:
	lbuiltin.c ltask.c ltask.h 
Log Message:
Implement GetCurrentScript.  Overrides should work better now.


Index: lbuiltin.c
===================================================================
RCS file: /cvsroot/scummvm/residual/lua/src/lbuiltin.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- lbuiltin.c	15 Aug 2003 18:00:40 -0000	1.1.1.1
+++ lbuiltin.c	16 Aug 2003 20:12:02 -0000	1.2
@@ -514,7 +514,8 @@
   {"next_script", next_script},
   {"identify_script", identify_script},
   {"find_script", find_script},
-  {"break_here", break_here}
+  {"break_here", break_here},
+  {"GetCurrentScript", GetCurrentScript}
 };
 
 

Index: ltask.c
===================================================================
RCS file: /cvsroot/scummvm/residual/lua/src/ltask.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- ltask.c	15 Aug 2003 18:00:40 -0000	1.1.1.1
+++ ltask.c	16 Aug 2003 20:12:02 -0000	1.2
@@ -160,6 +160,15 @@
   L->Tstate = YIELD;
 }
 
+void GetCurrentScript (void) {
+  if (L->curr_task == L->root_task)
+    lua_pushnil();
+  else {
+    L->curr_task->auto_delete = 0;
+    lua_pushusertag(L->curr_task, task_tag);
+  }
+}
+
 void lua_runtasks (void) {
   struct lua_Task *t, *prev;
   struct lua_Task *old_task = L->curr_task;

Index: ltask.h
===================================================================
RCS file: /cvsroot/scummvm/residual/lua/src/ltask.h,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- ltask.h	15 Aug 2003 18:00:44 -0000	1.1.1.1
+++ ltask.h	16 Aug 2003 20:12:02 -0000	1.2
@@ -12,6 +12,7 @@
 void identify_script (void);
 void find_script (void);
 void break_here (void);
+void GetCurrentScript (void);
 
 void gc_task (void);