void __declspec(dllexport) ExecToStack(HWND hwndParent, int string_size, char *variables, stack_t **stacktop) { g_hwndParent=hwndParent; EXDLL_INIT(); { ExecScript(2); } }
/*---------------------------------------------------------------------------*/ void wxSQLBook::OnExecScriptClick(wxCommandEvent& event) { wxArrayString array; GetScripSQL(array); ExecScript(array); }
void DrScript::ReadSlide(QPainter *p){ DrMessage("DrScript.ReadSlide"); if((File2Read = fopen("DrScript.dr","r"))==0){ return ; } char *cLine = (char *)calloc(256,sizeof(char)); for(int k=0;!(fgets(cLine,256,File2Read)==NULL);k++){ if(strncmp(cLine,"Slide",5)==0){ int NSlide = 0; fgets(cLine,256,File2Read); sscanf(cLine,"%d\n",&NSlide); if(NSlide != Slide) continue; ExecScript(p); } } free(cLine); fclose(File2Read); }
int CExpressionCaculator::ContinueInterrupt(int type,CBolanStack& ScriptList,CBolan& InterruptReturn,CBolan& ExpResult) { int Pos=0; if(type>IPT_NONE&&type<IPT_MAX) { if(m_InterruptDataBuff[type].InterruptType==type) { int StackUsed=m_InterruptDataBuff[type].UseWhichStack; CBolan * pInterruptResult=m_Stack[StackUsed].GetTop(); InterruptReturn.type=BOLAN_TYPE_VALUE; if(pInterruptResult) *pInterruptResult=InterruptReturn; m_CurInterrupt=type; return ExecScript(ScriptList,ExpResult,Pos,false); } } return 5001; }