| true | 659 | | gs_get_tidlist(group, msgtag, ntids, tids, holes_not_allowed) | | | 660 | | char *group; | | | 661 | | int msgtag; | | | 662 | | int *ntids; | | | 663 | | int **tids; | | | 664 | | int holes_not_allowed; | | | 665 | | { | | | 666 | | int cc; | | | 667 | | int i; | | | 668 | | int len; | | | 669 | | int rbuf; | | | 670 | | int sbuf, state, stid; | | | 671 | | int savectx; | | | 672 | | | | | 673 | | GROUP_STRUCT_PTR sgroup; | | | 674 | | | | | 675 | | if ( group == (char*)0 || *group == '\0' ) | | | 676 | | return(PvmNullGroup);
| | | 677 | | | | | 678 | | | | | 679 | | | | | 680 | | sgroup = gs_group(group, sgroup_list, &ngroups, NOCREATE);
| | | 681 | | | | | 682 | | if (sgroup != (GROUP_STRUCT_PTR) NULL)
| | | 683 | | { | | | 684 | | if (holes_not_allowed) | | | 685 | | { | | | 686 | | for (i=0; i < sgroup->ntids; i++) | | | 687 | | if (sgroup->tids[i] == NOTID)
| | | 688 | | { | | | 689 | | *ntids = -1; | | | 690 | | return (*ntids); | | | 691 | | } | | | 692 | | } | | | | | ... | | | 695 | | | | | 696 | | for (i = 0; i < sgroup->maxntids; i++) | | | 697 | | (*tids)[i] = sgroup->tids[i]; | | | 698 | | | | | 699 | | *ntids = sgroup->ntids; | | | 700 | | | | | 701 | | return (PvmOk);
| | | 702 | | } | | | 703 | | | | | 704 | | | | | 705 | | if ( (stid = gs_getgstid()) < 0 ) | | | 706 | | return(PvmSysErr);
| | | 707 | | | | | 708 | | sbuf = pvm_mkbuf(PvmDataDefault);
| | | 709 | | | | | 710 | | sbuf = pvm_setsbuf(sbuf); | | | 711 | | | | | 712 | | rbuf = pvm_setrbuf(0); | | | 713 | | | | | 714 | | pvm_pkstr(group); | | | 715 | | | | | 716 | | | | | 717 | | savectx = pvm_setcontext( SYSCTX_DG );
| | | 718 | | | | | 719 | | if (holes_not_allowed) | | | 720 | | { | | | 721 | | pvm_send(stid, TIDLIST);
| | | 722 | | cc = pvm_trecv(stid, TIDLIST, pvmgs_tmout);
| | | 723 | | } | | | 724 | | else | | | 725 | | { | | | 726 | | pvm_send(stid, BCAST);
| | | 727 | | cc = pvm_trecv(stid, BCAST, pvmgs_tmout);
| | | 728 | | } | | | 729 | | | | | 730 | | | | | 731 | | if ( cc <= 0 ) | | | 732 | | return(PvmSysErr);
| | | 733 | | | | | 734 | | | | | 735 | | pvm_setcontext( savectx ); | | | 736 | | | | | 737 | | pvm_upkint(ntids, 1, 1); | | | 738 | | | | | 739 | | if (*ntids < 0) | | | 740 | | { | | | 741 | | pvm_freebuf(pvm_setsbuf(sbuf)); | | | 742 | | pvm_freebuf(pvm_setrbuf(rbuf)); | | | 743 | | | | | 744 | | return(*ntids); | | | 745 | | } | | | 746 | | | | | 747 | | if (*ntids == 0) | | | 748 | | { | | | 749 | | pvm_freebuf(pvm_setsbuf(sbuf)); | | | 750 | | pvm_freebuf(pvm_setrbuf(rbuf)); | | | 751 | | | | | 752 | | return(PvmNoInst);
| | | 753 | | } | | | 754 | | | | | 755 | | | | | 756 | | *tids = (int *)PVM_ALLOC((*ntids) * sizeof(int), "gs_get_tidlist");
| | | 757 | | | | | 758 | | if ((*tids) == (int *) NULL)
| | | 759 | | { | | | 760 | | pvm_freebuf(pvm_setsbuf(sbuf)); | | | 761 | | pvm_freebuf(pvm_setrbuf(rbuf)); | | | 762 | | | | | 763 | | return(PvmSysErr);
| | | 764 | | } | | | 765 | | | | | 766 | | pvm_upkint(*tids, *ntids, 1); | | | 767 | | |
| | 3047 | | | | | | | | | 3048 | | | | | | TEV_EXCLUSIVE;
| | | 3049 | | | | | | | | | 3050 | | | | | | authfn[0] = 0; | | | 3051 | | | | | | | | | 3052 | | | | | | #ifndef WIN32 | | | 3053 | | | | | | pvmmyupid = getpid(); | | | 3054 | | | | | | #else | | | 3055 | | | | | | pvmmyupid = _getpid(); | | | 3056 | | | | | | #endif | | | 3057 | | | | | | | | | 3058 | | | | | | | | | 3059 | | | | | | | | | 3060 | | | | | | | | | 3061 | | | | | | | | | 3062 | | | | | | | | | 3063 | | | | | | if (p = getenv("PVMEPID")) | | | 3064 | | | | | | cookie = atoi(p); | | | 3065 | | | | | | else | | | 3066 | | | | | | cookie = 0; | | | 3067 | | | | | | | | | 3068 | | | | | | | | | 3069 | | | | | | | | | 3070 | | | | | | #ifndef WIN32 | | | 3071 | | | | | | if ((pvm_useruid = geteuid()) == -1) { | | | 3072 | | | | | | pvmlogerror("can't getuid()\n"); | | | 3073 | | | | | | cc = PvmSysErr;
| | | 3074 | | | | | | goto bail2; | | | 3075 | | | | | | } | | | 3076 | | | | | | pvmchkuid( pvm_useruid ); | | | 3077 | | | | | | #else | | | 3078 | | | | | | if (!username) | | | 3079 | | | | | | username = MyGetUserName(); | | | 3080 | | | | | | #endif | | | 3081 | | | | | | | | | 3082 | | | | | | if (p = getenv("PVMTASKDEBUG")) { | | | 3083 | | | | | | pvmdebmask = pvmstrtoi(p); | | | 3084 | | | | | | if (pvmdebmask) { | | | 3085 | | | | | | pvmlogprintf("task debug mask is 0x%x (%s)\n", | | | 3086 | | | | | | pvmdebmask, debug_flags(pvmdebmask)); | | | 3087 | | | | | | } | | | 3088 | | | | | | } | | | 3089 | | | | | | | | | 3090 | | | | | | #ifndef IMA_MPP | | | 3091 | | | | | | if (cc = mksocs()) | | | 3092 | | | | | | goto bail2; | | | 3093 | | | | | | #endif | | | 3094 | | | | | | | | | 3095 | | | | | | | | | 3096 | | | | | | | | | 3097 | | | | | | | | | 3098 | | | | | | | | | 3099 | | | | | | pvmrxlist = pmsg_new(1); | | | 3100 | | | | | | BZERO((char*)pvmrxlist, sizeof(struct pmsg));
| | | 3101 | | | | | | pvmrxlist->m_link = pvmrxlist->m_rlink = pvmrxlist; | | | 3102 | | | | | | | | | 3103 | | | | | | ttlist = TALLOC(1, struct ttpcb, "tpcb");
| | | 3104 | | | | | | BZERO((char*)ttlist, sizeof(struct ttpcb));
| | | 3105 | | | | | | ttlist->tt_link = ttlist->tt_rlink = ttlist; | | | 3106 | | | | | | | | | 3107 | | | | | | sbf = pvm_setsbuf(pvm_mkbuf(PvmDataFoo));
| | | 3108 | | | | | | rbf = pvm_setrbuf(0); | | | 3109 | | | | | | | | | 3110 | | | | | | | | | 3111 | | | | | | | | | 3112 | | | | | | | | | 3113 | | | | | | | | | 3114 | | | | | | #ifndef IMA_MPP | | | 3115 | | | | | | #ifndef NOPROT | | | 3116 | | | | | | (void)PVMTMPNAMFUN(authfn);
| | | 3117 | | | | | | #ifdef IMA_OS2 | | | 3118 | | | | | | if ((authfd = open(authfn, O_RDWR|O_CREAT|O_EXCL|O_TRUNC, 0600)) == -1) | | | 3119 | | | | | | #else | | | 3120 | | | | | | if ((authfd = open(authfn, O_RDONLY|O_CREAT|O_EXCL|O_TRUNC, 0600)) == -1)
| | | 3121 | | | | | | #endif | | | 3122 | | | | | | { | | | 3123 | | | | | | pvmlogperror(authfn); | | | 3124 | | | | | | pvmlogerror("pvmbeatask() can't creat t-auth file\n"); | | | 3125 | | | | | | cc = PvmSysErr;
| | | 3126 | | | | | | goto bail2; | | | 3127 | | | | | | } | | | 3128 | | | | | | #endif | | | 3129 | | | | | | | | | 3130 | | | | | | | | | 3131 | | | | | | | | | 3132 | | | | | | | | | 3133 | | | | | | | | | 3134 | | | | | | mxfersingle = 1; | | | 3135 | | | | | | prver = TDPROTOCOL;
| | | 3136 | | | | | | pvm_pkint(&prver, 1, 1); | | | 3137 | | | | | | pvm_pkstr(authfn); | | | 3138 | | | | | | if ((cc = msendrecv(TIDPVMD, TM_CONNECT, SYSCTX_TM)) <= 0)
| | | 3139 | | | | | | goto bail; | | | 3140 | | | | | | pvm_upkint(&prver, 1, 1); | | | 3141 | | | | | | if (prver != TDPROTOCOL) {
| | | 3142 | | | | | | pvmlogprintf("pvmbeatask() t-d protocol mismatch (%d/%d)\n", | | | 3143 | | | | | | TDPROTOCOL, prver);
| | | 3144 | | | | | | cc = PvmSysErr;
| | | 3145 | | | | | | goto bail; | | | 3146 | | | | | | } | | | 3147 | | | | | | pvm_upkint(&cc, 1, 1); | | | 3148 | | | | | | if (!cc) { | | | 3149 | | | | | | pvmlogerror("pvmbeatask() pvmd refuses connection\n"); | | | | | | | | | ... | | | 3408 | | | | | | pvm_setrbuf(rbf); | | | 3409 | | | | | | } | | | 3410 | | | | | | | | | 3411 | | | | | | tev_init(); | | | 3412 | | | | | | | | | 3413 | | | | | | if (TEV_AMEXCL) {
| | | 3414 | | | | | | TEV_ENDEXCL;
| | | 3415 | | | | | | } | | | 3416 | | | | | | return 0; | | | 3417 | | | | | | | | | 3418 | | | | | | bail: | | | 3419 | | | | | | if (pvm_getrbuf() > 0) | | | 3420 | | | | | | pvm_freebuf(pvm_getrbuf()); | | | 3421 | | | | | | if (pvm_getsbuf() > 0) | | | 3422 | | | | | | pvm_freebuf(pvm_getsbuf()); | | | 3423 | | | | | | pvm_setrbuf(rbf); | | | 3424 | | | | | | pvm_setsbuf(sbf); | | | 3425 | | | | | | | | | 3426 | | | | | | #ifndef IMA_MPP | | | 3427 | | | | | | if (authfd != -1) | | | 3428 | | | | | | (void)close(authfd); | | | 3429 | | | | | | if (authfn[0]) | | | 3430 | | | | | | (void)unlink(authfn); | | | 3431 | | | | | | unmksocs(); | | | 3432 | | | | | | #endif | | | 3433 | | | | | | | | | 3434 | | | | | | bail2: | | | 3435 | | | | | | if (TEV_AMEXCL) {
| | | 3436 | | | | | | TEV_ENDEXCL;
| | | 3437 | | | | | | } | | | 3438 | | | | | | return cc; | | state is uninitialized | 3439 | | | | | | } |
| | 1266 | | | | ad = (long)np; | | | 1267 | | | | TEV_PACK_LONG( TEV_DID_PDA, TEV_DATA_SCALAR, &ad, 1, 1 );
| | | 1268 | | | | TEV_PACK_INT( TEV_DID_PC, TEV_DATA_SCALAR, &cnt, 1, 1 );
| | | 1269 | | | | TEV_PACK_INT( TEV_DID_PSD, TEV_DATA_SCALAR, &std, 1, 1 );
| | | 1270 | | | | TEV_FIN;
| | | 1271 | | | | } | | | 1272 | | | | } | | | 1273 | | | | | | | 1274 | | | | if (cnt < 0) | | | 1275 | | | | cc = PvmBadParam;
| | | 1276 | | | | else if (!pvmrbuf) | | | 1277 | | | | cc = PvmNoBuf;
| | | 1278 | | | | else | | | 1279 | | | | cc = (pvmrbuf->m_codef->dec_int) (pvmrbuf, (void*)np, cnt, std, sizeof(int)); | | | 1280 | | | | | | | 1281 | | | | if (TEV_AMEXCL) {
| | | 1282 | | | | if (TEV_DO_TRACE(TEV_UPKINT,TEV_EVENT_EXIT)) {
| | | 1283 | | | | TEV_PACK_INT( TEV_DID_CC, TEV_DATA_SCALAR, &cc, 1, 1 );
| | | 1284 | | | | TEV_FIN;
| | | 1285 | | | | } | | | 1286 | | | | TEV_ENDEXCL;
| | | 1287 | | | | } | | | 1288 | | | | return (cc < 0 ? lpvmerr("pvm_upkint", cc) : PvmOk);
| | state is uninitialized | 1289 | | | | } |
|