"""Module implementing the hotshot profile-data reader"""
from hotshot import _hotshot
import os
import parser
import symbol
import sys
import numpy
import time

class FileRecord( object ):
    """Record for a source-file in the system"""
    def __init__( self, fileno, filename ):
        """Create the record for this file"""
        self.fileno = fileno 
        self.filename = filename
        self.functions = {}

class FunctionRecord( object ):
    def __init__( self, fileno,lineno, name, file ):
        """Initialise the record for this function"""
        self.fileno = fileno
        self.lineno = lineno 
        self.file = file # note, this is a circular reference!
        self.key = (fileno,lineno)
        self.name = name 
        # accumArray being (local, cummulative) time elapsed
        self.accumArray = numpy.zeros( (2,), 'd' )
        # callArray being (direct, recursive) call counts
        self.callArray = numpy.zeros( (2,), 'l' )
        # children arcs are functions which were called by this function 
        # should have the total they took for each of them...
        self.childrenArcs = {
            # (functionrecord,functionrecord): cummulativeTime,
        }
    def get_local( self ):
        return self.accumArray[0]
    def get_localPer( self ):
        return self.accumArray[0]/(self.callArray[0] or 1)
    def get_cummulative( self ):
        return self.accumArray[1]
    def get_cummulativePer( self ):
        return self.accumArray[1]/(self.callArray[0] or 1)
    def get_calls( self ):
        return self.callArray[0]
    def get_recursive( self ):
        return self.callArray[1]
    def get_directory( self ):
        return os.path.dirname( self.file.filename )
    def get_filename( self ):
        return os.path.basename( self.file.filename )
    local = property( get_local, None, None, """Local elapsed time""" )
    cummulative = property( get_cummulative, None, None, """Cummulative elapsed time""" )
    localPer = property( get_localPer, None, None, """Local elapsed time per call (average)""" )
    cummulativePer = property( get_cummulativePer, None, None, """Cummulative elapsed time per call (average)""" )
    calls = property( get_calls, None, None, """Total number of calls to the function""" )
    recursive = property( get_recursive, None, None, """Calls to the function where the function is already on the call stack""" )
    directory = property( get_directory, None, None, """Directory in which our file is stored""" )
    filename = property( get_filename, None, None, """The (base) file name in which we are defined""" )

GIVES_DELTA = {
    _hotshot.WHAT_LINENO:1,
    _hotshot.WHAT_EXIT:1,
    _hotshot.WHAT_ENTER:1,
}
SECONDS_FRACTION = .000001



def loadHotshot( filename, yieldCount=10000 ):
    """Given a hotshot profile file, load to in-memory structures
    
    yields recordCount, { fileno: filename, ... }, { (fileno,lineno): FunctionRecord, ...}
    
    for every yieldCount records in the file
    """
    reader = _hotshot.logreader(filename)
    files = {}
    functions = {}
    stackSize = sys.getrecursionlimit() * 2
    frames = [None]*stackSize
    localDeltas = numpy.zeros( (stackSize,), 'l' )
    # make this local for speed...
    givesDelta = GIVES_DELTA.has_key
    
    secondsFraction = SECONDS_FRACTION
    getFunction = functions.get
    defineFile = _hotshot.WHAT_DEFINE_FILE
    defineFunction = _hotshot.WHAT_DEFINE_FUNC
    whatEnter = _hotshot.WHAT_ENTER
    whatExit = _hotshot.WHAT_EXIT
    depth = -1
    i = 0
    for i, (what, tdelta, fileno, lineno) in enumerate(reader):
        if (not i%yieldCount) and i:
            yield i, files, functions
        if givesDelta( what ):
            key = fileno,lineno 
            print('lineno'), lineno, tdelta, getattr(getFunction( key ),'name','')
            if what == whatEnter:
                key = (fileno,lineno)
                function = getFunction( key )
                depth += 1
                try:
                    localDeltas[depth] = 0
                except IndexError as err:
                    print('extend localDeltas')
                    localDeltas = numpy.resize( localDeltas, (depth+200,))
                if function is not None:
                    try:
                        frames[depth] = function.accumArray
                    except IndexError as err:
                        print('extend frames')
                        frames.extend( [None]*((depth+200)-len(frames)) )
                    function.callArray[0]+=1
                    # XXX like to get rid of this copy eventually...
                    for frame in frames[:depth]:
                        if frame is function.accumArray:
                            function.callArray[1] += 1
                            break
                else:
                    try:
                        frames[depth] = None
                    except IndexError as err:
                        print('extend frames')
                        frames.extend( [None]*((depth+200)-len(frames)) )
            # should both enter and exit tdelta get credited to the lower function?
            # current does so
            localDeltas[depth] += tdelta
            if what == whatExit:
                # add time spent in this frame to cummulative for all open frames
                localDelta = localDeltas[depth]*secondsFraction
                # XXX should avoid this list-copy somehow...
                lastParent = None
                for frame in frames[:depth]:
                    if frame is not None:
                        frame[1] += localDelta
                try:
                    # add time spent in this instance of this frame to local cummulative for this frame
                    depth -= 1
                    if frames[depth] is not None:
                        frames[depth][0] += localDelta
                except IndexError as err:
                    print('Warning frame underflow!')
        elif what == defineFile:
            files[ fileno ] = FileRecord( fileno, tdelta )
        elif what == defineFunction:
            file = files.get( fileno )
            record = FunctionRecord( fileno,lineno,tdelta, file)
            functions[ (fileno,lineno) ] = record
            if file is not None:
                file.functions[ lineno ] = record
        else:
            print('unrecognised what'), what
            for name in [n for n in dir(_hotshot) if n.startswith( 'WHAT_')]:
                if getattr( _hotshot,name) == what:
                    print(' == %s'%(name),)
                    break

    yield i, files, functions

def loadHotshot2( filename ):
    """Yield a tree-like structure with stack: total values"""
    reader = _hotshot.logreader(filename)
    givesDelta = GIVES_DELTA.has_key
    secondsFraction = SECONDS_FRACTION
    defineFile = _hotshot.WHAT_DEFINE_FILE
    defineFunction = _hotshot.WHAT_DEFINE_FUNC
    whatEnter = _hotshot.WHAT_ENTER
    whatExit = _hotshot.WHAT_EXIT
    whatLine = _hotshot.WHAT_LINENO
    whatLineTime = _hotshot.WHAT_LINE_TIMES
    stack = ()
    files = {}
    functions = {}
    heatmap = {}
    
    currentDelta = 0.0
    for i, (what, tdelta, fileno, lineno) in enumerate(reader):
        if givesDelta( what ):
            tdelta*=secondsFraction
            if what == whatEnter:
                key = (fileno,lineno)
                stack += (key,)
            heatmap[stack] = heatmap.get(stack,0.0) + tdelta
            if what == whatExit:
                stack = stack[:-1]
        elif what == defineFile:
            files[ fileno ] = FileRecord( fileno, tdelta )
        elif what == defineFunction:
            file = files.get( fileno )
            record = FunctionRecord( fileno,lineno,tdelta, file)
            functions[ (fileno,lineno) ] = record
            if file is not None:
                file.functions[ lineno ] = record
        elif what == whatLineTime:
            print('line time'),(tdelta,fileno,lineno)
        else:
            print('unrecognised what'), what
            for name in [n for n in dir(_hotshot) if n.startswith( 'WHAT_')]:
                if getattr( _hotshot,name) == what:
                    print(' == %s'%(name),)
                    break
    return asTree( heatmap ), functions
class StackInfo( object ):
    def __init__( self, stack, local ):
        self.stack = stack 
        self.local = local 
        self.cummulative = local
        self.children = []
    def addChild( self, child ):
        self.children.append( child )
        self.cummulative += child.cummulative 
    def __repr__( self ):
        return 'StackInfo( %s, %s, children=%s )'%( self.stack, self.local, self.children )
def asTree( heatmap ):
    """Convert stacks to trees"""
    values = sorted( heatmap.items() )
    current = root = StackInfo( * values[0] )
    inProcess = [current]
    for (key,total) in values[1:]:
        child = StackInfo( key, total )
        if len(key) > len(current.stack):
            current.addChild( child )
            inProcess.append( child )
            current = child
        elif len(key) == len(current.stack):
            # sibling of current...
            inProcess.pop( -1 )
            inProcess.append( child )
            current = child 
        else:
            # sibling of a parent...
            while len(key) <= len(current.stack):
                inProcess.pop( -1 )
                current = inProcess[-1]
            current.addChild( child )
            inProcess.append( child )
            current = child
    return current

if __name__ == "__main__":
    import pprint(#    startTime = time.time())
#    for i, files, functions in loadHotshot( sys.argv[1], 100000 ):
#        t2 = time.time()
#        print('%s records in %ss: %s records/second'%()
#            i, t2-startTime, i/((t2-startTime) or 1),
#        )
#    completion = time.time()
#    print('FUNCTIONS')
#    functionValues = functions.items()
#    functionValues.sort()
#    for (fileno,lineno),value in functionValues:
#        key = (fileno,lineno)
#        print(files.get(fileno).filename), lineno,
#        print(value.calls), value.recursive, value.local, value.cummulative
#    print('read %i records in %s seconds'%( i), completion-startTime )

    t1 = time.time()
    pprint.pprint( loadHotshot2( sys.argv[1] ) )
    t2 = time.time()
    print('loadHotshot2: %s seconds'%( t2-t1 ))
    
