python abort / script timeout


Author: Dave
Date: 09.28.23 - 9:02am



working with python embedding, I wanted a way to guaranteed abort a script on command, or trigger a script timeout. Googling didnt provide any simple ways so I ended up hacking the main opcode processing loop in ceval.c.

The following brief patch seems to be working allowing for normal script returns.

//-------------- dzzie
typedef int(__stdcall* vbCallback)(int, char*);

int opCounter = 0; 
int g_AbortScript = 0;
vbCallback vbTimeOutHandler = 0;

void __declspec(dllexport) __stdcall SetTimeoutCallBack(void* lpfnTimeoutHandler) {vbTimeOutHandler = (vbCallback)lpfnTimeoutHandler;}
void __declspec(dllexport) __stdcall SetGlobalAbort(int gAbort) { g_AbortScript = gAbort; }

int dz_timeoutHandler(void) {

    int timedOut = 0;

    if (g_AbortScript == 1) return 1; //is it better to still receive the heartbeat for ui refresh? should be ending very soon...

    if (vbTimeOutHandler != NULL && opCounter != 0 && (opCounter % 1000) == 0) {
        opCounter = 0;
        timedOut = vbTimeOutHandler(0, 0);
        if (timedOut == 1) g_AbortScript = 1;
    }
    opCounter++;

    return timedOut;
}

//--------------- dzzie

/* Do interpreter dispatch accounting for tracing and instrumentation */
#define DISPATCH() 
    { 
        NEXTOPARG(); 
        PRE_DISPATCH_GOTO(); 
        assert(cframe.use_tracing == 0 || cframe.use_tracing == 255); 
        opcode |= cframe.use_tracing OR_DTRACE_LINE; 
        if(dz_timeoutHandler()==1) goto exit_unwind; 
        DISPATCH_GOTO(); 
    }

...

start_frame:

    if(g_AbortScript == 1) goto exit_unwind; //dzzie 

...

resume_frame:
    if (g_AbortScript == 1) goto exit_unwind; //dzzie


Public Function cb_TimeoutHandler(ByVal t As Long, ByVal lpMsg As Long) As Long
    'return 1 to halt execution, 0 to continue
    
    DoEvents 'allow our timer and UI to breath in case its a dead loop
    
    If ABORT_SCRIPT Then
        cb_TimeoutHandler = 1
        Debug.Print "Aborting!"
    Else
        cb_TimeoutHandler = 0
    End If
    
End Function

Function UseTimeoutHandler() As Boolean
    
    Dim h As Long, p As Long
    h = LoadLibrary("python311.dll")
    If h = 0 Then Exit Function
    
    p = GetProcAddress(h, "_SetTimeoutCallBack@4")
    If p = 0 Then Exit Function
    
    SetTimeoutCallBack AddressOf cb_TimeoutHandler
    UseTimeoutHandler = True
    
End Function





Comments: (0)

 
Leave Comment:
Name:
Email: (not shown)
Message: (Required)
Math Question: 81 + 53 = ? followed by the letter: G 



About Me
More Blogs
Main Site
Posts: (All)
2024 ( 3 )
2023 (9)
     VB6 Virtual Files
     File handles across dlls
     python abort / script timeout
     py4vb
     VB6 Python embed w/debugger
     python embedding
     VB6 IDE Enhancements
     No Sleep
     A2W no ATL
2022 (4)
     More VB6 - C data passing
     Vb6 Asm listing
     Byte Array C to VB6
     Planet Source Code DVDs
2021 (2)
     Obscure VB
     VB6 IDE SP6
2020 ( 4 )
2019 ( 5 )
2018 ( 6 )
2017 ( 6 )
2016 ( 22 )
2015 ( 15 )
2014 ( 25 )
2013 ( 4 )
2012 ( 10 )
2011 ( 7 )
2010 ( 11 )
2009 ( 3 )