| | 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) {
|
| | 357 | | pvm_upkint(&n, 1, 1); | | | 358 | | | | | 359 | | if (!tobuflist) { | | | 360 | | pvmlogprintf("pvmclaimo() message from task t%x\n", tid); | | | 361 | | goto done; | | | 362 | | } | | | 363 | | | | | 364 | | if (n > 0) { | | | 365 | | if (!(op = tobuf_find(tid))) { | | | 366 | | pvmlogprintf("pvmclaimo() bogus message, no task t%x\n", tid); | | | 367 | | goto done; | | | 368 | | } | | | 369 | | if (n + op->o_len >= op->o_maxl) { | | | 370 | | op->o_maxl = op->o_len + n + 1; | | | 371 | | | | | 372 | | | | | 373 | | | | | 374 | | if (op->o_buf) | | | | | ... | | | 389 | | if (outlogff) | | | 390 | | if (pvmshowtaskid) | | | 391 | | fprintf(outlogff, "[t%x] %s\n", tid, op->o_buf); | | | 392 | | else | | | 393 | | fprintf(outlogff, "%s\n", op->o_buf); | | | 394 | | op->o_len -= p - op->o_buf; | | | 395 | | BCOPY(p, op->o_buf, op->o_len + 1);
| | | 396 | | p = op->o_buf; | | | 397 | | } | | | 398 | | | | | 399 | | } else { | | | 400 | | switch (n) { | | | 401 | | | | | 402 | | case TO_EOF:
| | tid is uninitialized | 403 | | if (!(op = tobuf_find(tid))) { |
|