Mercurial > cgi-bin > hgwebdir.cgi > VMS > VMS_Implementations > VMS_impls > VMS__MC_shared_impl

comparison AnimationMaster.c @ 289:744b5ff9851e

find changesets by author, revision, files, or words in the commit message
Merge
author Sean Halle <seanhalle@yahoo.com>
date Thu, 05 Sep 2013 18:08:14 -0700
parents 15ee3fe10e3d 7b6f8cf08b1f
children c63b498d0a00
comparison
equal deleted inserted replaced
23:c0bd243bbe3e 24:33358c4d2a55
31 31
32 inline void 32 inline void
33 handleMakeProbe( PRServiceReq *langReq, PRLangEnv *protoLangEnv ); 33 handleMakeProbe( PRServiceReq *langReq, PRLangEnv *protoLangEnv );
34 inline void 34 inline void
35 handleThrowException( PRServiceReq *langReq, PRLangEnv *protoLangEnv ); 35 handleThrowException( PRServiceReq *langReq, PRLangEnv *protoLangEnv );
36
37 void
38 debug_print_req(AnimSlot *slot, PRReqst *req);
36 39
37 //=========================================================================== 40 //===========================================================================
38 41
39 /*Note: there used to be a coreController that was another animation 42 /*Note: there used to be a coreController that was another animation
40 * layer below both the masterVP and the slaveVPs.. in that case, the 43 * layer below both the masterVP and the slaveVPs.. in that case, the
71 //NOTE: left over from when had a coreController & MasterVP managed 74 //NOTE: left over from when had a coreController & MasterVP managed
72 // several slots 75 // several slots
73 if( slot->workIsDone ) 76 if( slot->workIsDone )
74 { slot->workIsDone = FALSE; 77 { slot->workIsDone = FALSE;
75 slot->needsWorkAssigned = TRUE; 78 slot->needsWorkAssigned = TRUE;
76 //printf("top handle request: %d | reqType: %d\n", slot->coreSlotIsOn, (int32)req->reqType );fflush(stdin);
77 79
78 //An Idle VP has no request to handle, so skip to assign.. 80 //An Idle VP has no request to handle, so skip to assign..
79 if( slot->slaveAssignedToSlot->typeOfVP != IdleVP && 81 if( slot->slaveAssignedToSlot->typeOfVP != IdleVP &&
80 slot->slaveAssignedToSlot->typeOfVP != ShutdownVP) 82 slot->slaveAssignedToSlot->typeOfVP != ShutdownVP)
81 { 83 {
590 PR_int__throw_exception( langReq->msgStr, langReq->requestingSlv, langReq->exceptionData ); 592 PR_int__throw_exception( langReq->msgStr, langReq->requestingSlv, langReq->exceptionData );
591 593
592 (*protoLangEnv->makeSlaveReadyFn)( langReq->requestingSlv, PR_int__give_lang_env(protoLangEnv) ); 594 (*protoLangEnv->makeSlaveReadyFn)( langReq->requestingSlv, PR_int__give_lang_env(protoLangEnv) );
593 } 595 }
594 596
597 void
598 debug_print_req(AnimSlot *slot, PRReqst *req)
599 {
600 if(dbgMaster)
601 { printf("top handle request: %d | reqType: ", slot->coreSlotIsOn );
602 switch(req->reqType)
603 { case TaskCreate: printf("TaskCreate \n"); break;
604 case TaskEnd: printf("TaskEnd \n"); break;
605 case SlvCreate: printf("SlvCreate \n"); break;
606 case SlvDissipate: printf("SlvDissipate \n"); break;
607 case Language: printf("Language \n"); break;
608 case Service: printf("Service \n"); break;
609 case Hardware: printf("Hardware \n"); break;
610 case IO: printf("IO \n"); break;
611 case OSCall: printf("OSCall \n"); break;
612 case LangShutdown: printf("LangShutdown \n"); break;
613 case ProcessEnd: printf("ProcessEnd \n"); break;
614 case PRShutdown: printf("PRShutdown \n"); break;
615 }
616 fflush(stdin);
617 }
618 }
619
620