comp.lang.idl-pvwave archive: archive » Re: Which like command for IDL?

Home » Public Forums » archive » Re: Which like command for IDL?

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

Re: Which like command for IDL? [message #23102 is a reply to message #23101]

Thu, 04 January 2001 18:55

davidf
Messages: 2866
Registered: September 1996

Senior Member

Richard G. French (rfrench@wellesley.edu) writes:

> That does the job for a routine you've already compiled, but what if you
> want to find out BEFORE you compile it which display.pro you would end
> up running?

Can't be done. Heisenberg uncertainty principle applies.
You can't possibly know WHICH routine you are using until
the wave function collapses. Or, was that an electron? Humm.
Can't remember ... :-(

> Or even better (JD can probably do this with a recursive
> one-line routine), how about a procedure that goes through your full
> path and finds all of the duplicate filenames?

I'm shocked that you think JD can write better recursive
functions than me. But I'm busy. I'll leave it to him. :-)

> I am sure that I have about six different routines
> called CIRCLE.PRO in libraries that I have gotten from people, and
> having
> a routine that figured this out in advance would be a nice thing.

How about this WHICH program. *Very* quick and dirty.
I'll leave it to others to make perfect. (I can already
think of a couple of ways it can be greatly improved.)
But this finds the *first* program with the given name
of all the names I tested it on. Of course, it can
only find library routines. :-)

IDL> Which, "arrow"
D:\RSI\IDL54\lib\arrow.pro

IDL> Which, "congrid", /Func
D:\RSI\IDL54\lib\congrid.pro

Cheers,

David

--
David Fanning, Ph.D.
Fanning Software Consulting
Phone: 970-221-0438 E-Mail: davidf@dfanning.com
Coyote's Guide to IDL Programming: http://www.dfanning.com/
Toll-Free IDL Book Orders: 1-888-461-0155

************************************************************ ******
PRO WHICH, routineName, Funct=funct

Catch, theError
IF theError NE 0 THEN BEGIN
Catch, /Cancel
answer = Dialog_Message("Can't find: " + StrUpCase(routineName) + $
'. Is this a function?', /Question)
IF StrUpCase(answer) EQ 'YES' THEN BEGIN
Catch, theError
IF theError NE 0 THEN BEGIN
Catch, /Cancel
ok = Dialog_Message("Sorry. Can't find: " + $
StrUpCase(routineName) + '. Returning')
RETURN
ENDIF
Which, routineName, /Funct
RETURN
ENDIF ELSE BEGIN
ok = Dialog_Message("Sorry. Can't find: " + $
StrUpCase(routineName) + '. Returning')
RETURN
ENDELSE
ENDIF

Resolve_Routine, routineName, Is_Function=Keyword_Set(funct)
Help, /Source, Output=text

array = StrPos(STRUPCASE(text), STRUPCASE(routineName) + " ", -1)
index = Where(array NE -1, count)
IF count GT 0 THEN Print, text[index[0]] ELSE Print, 'Undetermined'
END
************************************************************ ******

Report message to a moderator

[Message index]

		Re: Which like command for IDL? By: Vapuser on Fri, 05 January 2001 14:29
		Re: Which like command for IDL? By: Vapuser on Fri, 05 January 2001 13:42
		Re: Which like command for IDL? By: John-David T. Smith on Fri, 05 January 2001 11:03
		Re: Which like command for IDL? By: Pavel A. Romashkin on Fri, 05 January 2001 08:57
		Re: Which like command for IDL? By: davidf on Fri, 05 January 2001 08:06
		Re: Which like command for IDL? By: John-David T. Smith on Fri, 05 January 2001 07:21
		Re: Which like command for IDL? By: davidf on Fri, 05 January 2001 07:15
		Re: Which like command for IDL? By: Martin Schultz on Fri, 05 January 2001 01:42
		Re: Which like command for IDL? By: davidf on Thu, 04 January 2001 19:32
		Re: Which like command for IDL? By: davidf on Thu, 04 January 2001 18:55
		Re: Which like command for IDL? By: Richard French on Thu, 04 January 2001 17:51
		Re: Which like command for IDL? By: davidf on Thu, 04 January 2001 16:33

Previous Topic:	Re: Map projection and object graphics
Next Topic:	Re: GIF again.....

-=] Back to Top [=-

[ Syndicate this forum (XML) ] [

] [

]

Current Time: Wed Oct 08 18:10:44 PDT 2025

Total time taken to generate the page: 0.00472 seconds