NRE implementation [Patch 2017110]

1 files changed, 34 insertions, 1 deletions

diff --git a/generic/tcl.decls b/generic/tcl.decls
index 6c9b09a..460d6dc 100644
--- a/generic/tcl.decls
+++ b/generic/tcl.decls
@@ -12,7 +12,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: tcl.decls,v 1.133 2008/06/13 05:45:07 mistachkin Exp $
+# RCS: @(#) $Id: tcl.decls,v 1.134 2008/07/13 09:03:32 msofer Exp $
 
 library tcl
 
@@ -2108,6 +2108,39 @@ declare 581 generic {
     int Tcl_Canceled(Tcl_Interp *interp, int flags)
 }
 
+# NRE public interface
+declare 582 generic {
+    Tcl_Command TclNR_CreateCommand(Tcl_Interp *interp, 
+		    CONST char *cmdName, Tcl_ObjCmdProc *proc, 
+	            Tcl_ObjCmdProc *nreProc, ClientData clientData, 
+		    Tcl_CmdDeleteProc *deleteProc)
+}
+declare 583 generic {
+    int TclNR_EvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr, int flags)
+}
+declare 584 generic {
+    int TclNR_EvalObjv(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[],
+	    int flags)
+}
+declare 585 generic {
+    int TclNR_ObjProc(Tcl_Interp *interp, Tcl_ObjCmdProc *objProc,
+                      ClientData clientData)
+}
+declare 586 generic {
+    void TclNR_AddCallback(Tcl_Interp *interp, TclNR_PostProc *postProcPtr, 
+                      ClientData data0, ClientData data1,
+                      ClientData data2, ClientData data3)
+}
+
+# For use by NR extenders, to have a simple way to also provide a (required!)
+# classic objProc 
+declare 587 generic {
+    int TclNR_CallObjProc(Tcl_Interp *interp, Tcl_ObjCmdProc *objProc,
+			  ClientData clientData, int objc,
+	                     Tcl_Obj *const objv[])
+}
+
+
 ##############################################################################
 
 # Define the platform specific public Tcl interface.  These functions are