[Tcl-bugs] [ tcl-Feature Requests-1091046 ] Accessor functions for iPtr->scriptFile

[SourceForge.net <no...@so...>]

Feature Requests item #1091046, was opened at 2004-12-25 10:10
Message generated for change (Comment added) made by davidw
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=360894&aid=1091046&group_id=10894

Category: 36. File System
Group: None
Status: Open
Resolution: None
Priority: 5
Submitted By: David N. Welton (davidw)
Assigned to: Vince Darley (vincentdarley)
Summary: Accessor functions for iPtr->scriptFile

Initial Comment:
Hi,

In Apache Rivet, we would like to be able to do the
equivalent of

info script foobar

to set the name of the rivet file being parsed and
evaluated.  I measured a significant, if not huge
speedup when I set things directly:

	Interp *iPtr = (Interp *) interp;
	if (iPtr->scriptFile != NULL) {
	    Tcl_DecrRefCount(iPtr->scriptFile);
	}
	iPtr->scriptFile = Tcl_NewStringObj(r->filename, -1);
	Tcl_IncrRefCount(iPtr->scriptFile);

Instead of building up and evaluating an "info script
...." command.

However, we have to use the internal API to do the
above... providing a pair of get/set accessor functions
would be appreciated.

Should I write a TIP for this?

Thanks,
Dave


----------------------------------------------------------------------

>Comment By: David N. Welton (davidw)
Date: 2004-12-27 19:22

Message:
Logged In: YES 
user_id=240

Well... here's how it's used:

There is a file like /var/www/tcl/hello.rvt that gets
accessed like http://foo.bar.com/tcl/hello.rvt

hello.rvt is a template file that is part HTML, part Tcl, so
it doesn't get sourced directly.  We would like it to "know
its name", so to speak.

If there's a better way, we're open to suggestions.

Thanks

----------------------------------------------------------------------

Comment By: Jeffrey Hobbs (hobbs)
Date: 2004-12-27 18:52

Message:
Logged In: YES 
user_id=72656

I have a hard time thinking of why C code would be setting
the script file, considering this is something meant while
sourcing Tcl files ... are you sure you will be handling it
correctly?

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=360894&aid=1091046&group_id=10894