| | 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) {
|
| | 269 | | pvm_upkint(&n, 1, 1); | | | 270 | | | | | 271 | | if (n > 0) { | | | 272 | | if (!(op = obuf_find(jp, tid))) { | | | 273 | | printf("Bogus message, job %d has no task t%x\n", | | | 274 | | jp->j_jid - joboffset, tid); | | | 275 | | goto hork; | | | 276 | | } | | | 277 | | if (n + op->o_len >= op->o_maxl) { | | | 278 | | op->o_maxl = op->o_len + n + 1; | | | 279 | | | | | 280 | | | | | 281 | | | | | | | ... | | | 298 | | fprintf((jp->j_ff ? jp->j_ff : stdout), | | | 299 | | "[%d:t%x] ", jp->j_jid - joboffset, tid); | | | 300 | | fprintf((jp->j_ff ? jp->j_ff : stdout), | | | 301 | | "%s\n", op->o_buf); | | | 302 | | op->o_len -= p - op->o_buf; | | | 303 | | if ( !(op->o_len) ) break; | | | 304 | | BCOPY(p, op->o_buf, op->o_len);
| | | 305 | | p = op->o_buf; | | | 306 | | } | | | 307 | | | | | 308 | | } else { | | | 309 | | switch (n) { | | | 310 | | | | | 311 | | case 0: | | | 312 | | if (!(op = obuf_find(jp, tid))) { | | | 313 | | printf("Bogus message, job %d has no task t%x\n", | | | 314 | | jp->j_jid - joboffset, tid); | | | 315 | | goto hork; | | | 316 | | } | | | 317 | | if (op->o_len > 0) { | | | 318 | | if ( show ) | | | 319 | | fprintf((jp->j_ff ? jp->j_ff : stdout), | | | | | ... | | | 350 | | break; | | | 351 | | | | | 352 | | case -2: | | | 353 | | if (!(op = obuf_find(jp, tid))) | | | 354 | | op = obuf_new(jp, tid); | | | 355 | | | | | 356 | | | | | 357 | | | | | 358 | | break; | | | 359 | | | | | 360 | | default: | | | 361 | | printf("Bogus message from job %d task t%x\n", | | tid is uninitialized | 362 | | jp->j_jid - joboffset, tid); |
|