NRE implementation [Patch 2017110]

1 files changed, 25 insertions, 1 deletions

diff --git a/generic/tclInt.decls b/generic/tclInt.decls
index e05298a..f5be70a 100644
--- a/generic/tclInt.decls
+++ b/generic/tclInt.decls
@@ -13,7 +13,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: tclInt.decls,v 1.123 2008/07/08 17:52:17 dgp Exp $
+# RCS: @(#) $Id: tclInt.decls,v 1.124 2008/07/13 09:03:33 msofer Exp $
 
 library tcl
 
@@ -940,6 +940,30 @@ declare 237 generic {
     int TclResetCancellation(Tcl_Interp *interp, int force)
 }
 
+# NRE functions for "rogue" extensions to exploit NRE; they will need to
+# include NRE.h too.
+declare 238 generic {
+    int TclEvalObjv_NR2(Tcl_Interp *interp, int result,
+			struct TEOV_record *rootPtr)
+}
+declare 239 generic {
+    Tcl_ObjCmdProc TclNRInterpProc
+}
+declare 240 generic {
+    int TclNRInterpProcCore(Tcl_Interp *interp, Tcl_Obj *procNameObj,
+			    int skip, ProcErrorProc errorProc)
+}
+declare 241 generic {
+    struct TEOV_record * TclNRPushRecord(Tcl_Interp *interp)
+}
+declare 242 generic {
+    void TclNRPopAndFreeRecord(Tcl_Interp *interp)
+}
+
+declare 243 generic {
+    int TclNREvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr, int flags,
+	    const CmdFrame *invoker, int word)
+}
 ##############################################################################
 
 # Define the platform specific internal Tcl interface. These functions are