13 messages in org.perl.perl5-portersRe: Find the line number of the curre...
FromSent OnAttachments
Tim BunceMay 2, 2007 4:56 pm 
Artur BergmanMay 2, 2007 6:59 pm 
Dave MitchellMay 3, 2007 3:43 am 
Paul JohnsonMay 3, 2007 4:07 am 
Tim BunceMay 3, 2007 4:15 am 
Artur BergmanMay 3, 2007 10:34 am 
Artur BergmanMay 3, 2007 10:49 am 
Tim BunceMay 3, 2007 1:46 pm 
Tim BunceAug 8, 2007 6:13 am 
Tim BunceAug 8, 2007 6:33 am 
Dave MitchellAug 8, 2007 8:33 am 
Tim BunceJul 16, 2008 2:59 pm 
Paul JohnsonJul 17, 2008 2:48 am 
Actions with this message:
Paste this link in email or IM:
Paste this link in email or IM:
Atom feed for this thread
Paste this URL into your reader:
Subject:Re: Find the line number of the current block from XS code?Actions...
From:Paul Johnson (pa@pjcj.net)
Date:May 3, 2007 4:07:59 am
List:org.perl.perl5-porters

On Thu, May 03, 2007 at 11:44:03AM +0100, Dave Mitchell wrote:

On Wed, May 02, 2007 at 06:59:27PM -0700, Artur Bergman wrote:

On May 2, 2007, at 4:56 PM, Tim Bunce wrote:

I'm not very familar with this part of perl guts...

How can I find the line number of the start of the current block/ scope? Or, more likely, the line number of the first statement in the block/scope?

This is with the -d option, so PL_perldb would be set.

Tim.

Of the top of my head, PL_curop>

just guessing at CopLINE(PL_copline)

I think you mean CopLINE(PL_curcop)

PL_copline doesn't have a meaningful value outside of compilation.

But this still doesn't answer the question, I think.

I suspect it would be necessary to find the enclosing lineseq and then get the info from the first nextstate, perhaps by using closest_cop() on the lineseq.

But how to reliably find the enclosing lineseq is not immediately obvious to me.

-- Paul Johnson - pa@pjcj.net http://www.pjcj.net