comp.lang.idl-pvwave archive: archive » Re: how to find name of top level program

Home » Public Forums » archive » Re: how to find name of top level program

Show: Today's Messages :: Show Polls :: Message Navigator
E-mail to friend

Re: how to find name of top level program [message #58023]

Mon, 14 January 2008 10:34

Douglas G. Dirks
Messages: 10
Registered: October 2006

Junior Member

Vince Hradil wrote:
> On Jan 11, 2:04 pm, Enemy of the State <mfquig...@wisc.edu> wrote:
>> Greetings IDL comrades!
>>
>> I suspect this is an overly simple question but I'm stumped.....
>>
>> What I would like to do is to find out the name of the top level IDL
>> procedure so that I can put it via xyouts on the plots it produces:
>>
>> pro junk,xxx
>>
>> ... various other routines and functions called to do one thing or
>> another ...
>>
>> plot, some_vector
>>
>> .... something magical happens here so that I have a variable (eg,
>> program_name)
>> that tells me the name of the program that produced this plot
>> is "junk"
>>
>> sub_xyouts,.1,.1,' name of program that produced this plot is
>> '+program_name,/normal
>>
>> return
>> end
>>
>> It seems like the help command would do this somehow, but darn if I
>> can figure out how it might be done.
>>
>> Thanks!
>>
>> Mark
>
> Here's what I do:
> help, /recall_commands, output=cmds
> cmdline = strmid(cmds[1],2)

Or, if you have IDL 6.2 or later, the same basic idea in a single line:

topRoutine=(SCOPE_TRACEBACK(/STRUCTURE))[1].Routine

(It's element 1 of the array returned by SCOPE_TRACEBACK because
IDL considers $MAIN$ to be the top of the call stack.)

Doug

----------------
Douglas G. Dirks
IDL Documentation Group * ITT Visual Information Solutions
4990 Pearl East Circle * Boulder, CO 80301
ddirks@ittvis.com

Report message to a moderator

[Message index]

		Re: how to find name of top level program By: Douglas G. Dirks on Mon, 14 January 2008 10:34
		Re: how to find name of top level program By: Vince Hradil on Fri, 11 January 2008 12:56
		Re: how to find name of top level program By: David Fanning on Fri, 11 January 2008 12:46

Previous Topic:	Re: postgresql queries
Next Topic:	Re: Hate to Bring Up Another Debug "Feature"

-=] Back to Top [=-

[ Syndicate this forum (XML) ] [

] [

]

Current Time: Wed Oct 08 19:18:20 PDT 2025

Total time taken to generate the page: 0.00442 seconds