| 26 |  | char    *hdkfile;               /* holodeck file name */ | 
| 27 |  | char    froot[256];             /* root file name */ | 
| 28 |  |  | 
| 29 | – | int     nowarn = 0;             /* turn warnings off? */ | 
| 30 | – |  | 
| 29 |  | int     ncprocs = 0;            /* desired number of compute processes */ | 
| 30 |  |  | 
| 31 |  | char    *outdev = NULL;         /* output device name */ | 
| 53 |  |  | 
| 54 |  | char  *sigerr[NSIG];            /* signal error messages */ | 
| 55 |  |  | 
| 56 | + | extern int      nowarn;         /* turn warnings off? */ | 
| 57 | + |  | 
| 58 |  | extern time_t   time(); | 
| 59 |  |  | 
| 60 |  |  | 
| 420 |  | } | 
| 421 |  |  | 
| 422 |  |  | 
| 423 | + | int | 
| 424 |  | headline(s)                     /* process information header line */ | 
| 425 |  | char    *s; | 
| 426 |  | { | 
| 434 |  | HOLOFMT, hdkfile, FMTSTR, fmt); | 
| 435 |  | error(USER, errmsg); | 
| 436 |  | } | 
| 437 | < | return; | 
| 437 | > | return(0); | 
| 438 |  | } | 
| 439 |  | for (cp = s; *cp; cp++)         /* take off any comments */ | 
| 440 |  | if (*cp == '#') { | 
| 442 |  | break; | 
| 443 |  | } | 
| 444 |  | setvariable(s, matchvar);       /* don't flag errors */ | 
| 445 | + | return(0); | 
| 446 |  | } | 
| 447 |  |  | 
| 448 |  |  | 
| 455 |  | int4    nextloc; | 
| 456 |  | /* open holodeck file */ | 
| 457 |  | if ((fp = fopen(hdkfile, ncprocs>0 ? "r+" : "r")) == NULL) { | 
| 458 | < | sprintf(errmsg, "cannot open \"%s\" for %s", hdkfile, | 
| 459 | < | ncprocs>0 ? "appending" : "reading"); | 
| 458 | > | sprintf(errmsg, "cannot %s \"%s\"", | 
| 459 | > | ncprocs>0 ? "append" : "read", hdkfile); | 
| 460 |  | error(SYSTEM, errmsg); | 
| 461 |  | } | 
| 462 |  | /* load variables from header */ | 
| 506 |  | p->next = freepacks;            /* push onto free list */ | 
| 507 |  | freepacks = p; | 
| 508 |  | } | 
| 509 | + | #if MAXQTIME | 
| 510 |  | if (n2flush > 300/MAXQTIME*totqlen) { | 
| 511 | < | hdflush(NULL);                  /* flush holodeck buffers */ | 
| 511 | > | #else | 
| 512 | > | if (n2flush > 50*totqlen) { | 
| 513 | > | #endif | 
| 514 | > | if (outdev == NULL) | 
| 515 | > | hdflush(NULL);          /* flush holodeck buffers */ | 
| 516 | > | else | 
| 517 | > | hdsync(NULL, 1);        /* sync holodeck file */ | 
| 518 |  | n2flush = 0; | 
| 519 |  | } | 
| 520 |  | } | 
| 559 |  | fflush(stderr); | 
| 560 |  | midline = 0; | 
| 561 |  | } | 
| 553 | – | } | 
| 554 | – |  | 
| 555 | – |  | 
| 556 | – | wputs(s)                        /* put warning string to stderr */ | 
| 557 | – | char    *s; | 
| 558 | – | { | 
| 559 | – | if (!nowarn) | 
| 560 | – | eputs(s); | 
| 562 |  | } | 
| 563 |  |  | 
| 564 |  |  |