| | 338 | | | | | | | | pvmgetdsig() | | | 339 | | | | | | | | { | | | 340 | | | | | | | | static int myfmt = -1; | | | 341 | | | | | | | | | | | 342 | | | | | | | | short i0; | | | 343 | | | | | | | | int i1; | | | 344 | | | | | | | | long i2; | | | 345 | | | | | | | | float f0; | | | 346 | | | | | | | | double f1; | | | 347 | | | | | | | | int i, j; | | | 348 | | | | | | | | int fmt; | | | 349 | | | | | | | | | | | 350 | | | | | | | | if (myfmt != -1) | | | 351 | | | | | | | | return myfmt; | | | 352 | | | | | | | | | | | 353 | | | | | | | | fmt = 0; | | | 354 | | | | | | | | | | | 355 | | | | | | | | i0 = 0; | | | 356 | | | | | | | | for (i = 0; i < sizeof(i0); i++) | | | 357 | | | | | | | | i0 += (short)i << (i * 8); | | | 358 | | | | | | | | fmt |= ibol(0, (char *) &i0, (int) sizeof(i0)); | | | 359 | | | | | | | | | | | 360 | | | | | | | | i1 = 0; | | | 361 | | | | | | | | for (i = 0; i < sizeof(i1); i++) | | | 362 | | | | | | | | i1 += (int)i << (i * 8); | | | 363 | | | | | | | | fmt |= ibol(5, (char *) &i1, (int) sizeof(i1)); | | | 364 | | | | | | | | | | | 365 | | | | | | | | i2 = 0; | | | 366 | | | | | | | | for (i = 0; i < sizeof(i2); i++) | | | 367 | | | | | | | | i2 += (long)i << (i * 8); | | | 368 | | | | | | | | fmt |= ibol(10, (char *) &i2, (int) sizeof(i2)); | | | 369 | | | | | | | | | | | 370 | | | | | | | | f0 = 1.0; | | | 371 | | | | | | | | fmt |= fbol(15, (unsigned char *) &f0, (int) sizeof(f0)); | | | 372 | | | | | | | | | | | 373 | | | | | | | | f1 = 1.0; | | | 374 | | | | | | | | fmt |= fbol(21, (unsigned char *) &f1, (int) sizeof(f1)); | | | 375 | | | | | | | | | | | 376 | | | | | | | | myfmt = fmt; | | | 377 | | | | | | | | return fmt; | | tid is uninitialized | 378 | | | | | | | | } |
| | 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); |
|