671 |
|
if (hdfragl[hp->fd].writerr) /* check for file error */ |
672 |
|
return(0); |
673 |
|
if (i == 0) { /* clear entire holodeck */ |
674 |
+ |
if (blglob(hp)->nrm == 0) |
675 |
+ |
return(0); /* already clear */ |
676 |
|
nchanged = 0; |
677 |
|
for (i = nbeams(hp); i > 0; i--) |
678 |
|
if (hp->bl[i] != NULL) |
679 |
|
nchanged += hdfreebeam(hp, i); |
680 |
+ |
DCHECK(blglob(hp)->nrm != 0, |
681 |
+ |
CONSISTENCY, "bad beam count in hdfreebeam"); |
682 |
|
return(nchanged); |
683 |
|
} |
684 |
|
DCHECK(i < 1 | i > nbeams(hp), |
710 |
|
return(nchanged); |
711 |
|
} |
712 |
|
if (i == 0) { /* clobber entire holodeck */ |
713 |
+ |
if (biglob(hp)->nrd == 0 & blglob(hp)->nrm == 0) |
714 |
+ |
return(0); /* already empty */ |
715 |
+ |
nchanged = 0; |
716 |
|
nchanged = 0; |
717 |
|
for (i = nbeams(hp); i > 0; i--) |
718 |
|
if (hp->bi[i].nrd > 0 || hp->bl[i] != NULL) |