comp.lang.idl-pvwave archive
Messages from Usenet group comp.lang.idl-pvwave, compiled by Paulo Penteado

Home » Public Forums » archive » Re: current directory
Show: Today's Messages :: Show Polls :: Message Navigator
E-mail to friend 
Return to the default flat view Create a new topic Submit Reply
Re: current directory [message #34287 is a reply to message #34286] Sat, 01 March 2003 14:44 Go to previous messageGo to previous message
Ulf-Dietrich Braumann is currently offline  Ulf-Dietrich Braumann
Messages: 3
Registered: March 2003
Junior Member
Thanks a lot, you two guys David and Reimar,
both of you had just the solution to my problem!

> Well, I guess because I'm trying to advertise myself as
> a programmer who writes code you can understand after I
> go home. :-)

Ok, the very scaring solution (which in fact also runs under IDL5.0)
comes here (just before I go home now ...):

PRO Tester
Help, Calls=callStack
thisRoutine = (Str_Sep(StrCompress(callStack[0])," "))[0]
callingRoutine = (Str_Sep(StrCompress(callStack[1])," "))[0]
Print, 'In ' + thisRoutine + ', which is called by ' + $
callingRoutine + '.'
thisRoutine = StrLowCase(thisRoutine) + '.pro'
thePath=strmid(StrMid(callStack[0], 0, StrPos(callStack[0],thisRoutine)),$
StrPos(StrMid(callStack[0], 0, StrPos(callStack[0],thisRoutine)),'<')+1,$
StrLen(StrMid(callStack[0], 0, StrPos(callStack[0],thisRoutine))) - $
StrPos(StrMid(callStack[0], 0, StrPos(callStack[0],thisRoutine)),'<'))
Print, 'The default path to ' + thisRoutine + ' is: ' + thePath
END

Greetings

Ulf-Dietrich

Ulf-Dietrich Braumann, PhD
Interdiscpilinary Centre for Bioinformatics
University of Leipzig
Kreuzstraße 7b
D-04103 Leipzig
+49-341-1495114
[Message index]
 
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Previous Topic: Re: dynamically naming variables
Next Topic: dlm returning ptr array and string array

-=] Back to Top [=-
[ Syndicate this forum (XML) ] [ RSS ] [ PDF ]

Current Time: Sun Oct 12 02:21:55 PDT 2025

Total time taken to generate the page: 0.24188 seconds