/* detector.scs : convert environmental states to environmental message. */

/* Procedure to convert environmental states to env. message. */
detectors (environrec, detectrec, envmessage)
    erecord *environrec;
    drecord *detectrec;
    message envmessage;
{

    /* Place signal message in env. message. */
    bcopy ((char *) environrec->signal, (char *) envmessage, sizeof(environrec->lsignal)*(environrec->lsignal));
} 

/* Procedure to write a message in bit-reverse order. */
writemessage (rep, mess, lmessage)
    FILE *rep;
    message mess;
    int lmessage;
{
    int j;

    for (j=(lmessage - 1); j>=0; j--)
        fprintf (rep, "%1d", mess[j]);
}

/* procedure to write out environmental message. */
reportdetectors (rep, envmessage, nposition)
    FILE *rep;
    message envmessage;
    int nposition;
{
    fprintf (rep, "\n");
    fprintf (rep, "Environmental message :    ");
    writemessage (rep, envmessage, nposition);
    fprintf (rep, "\n");
}

/* Dummy detector initialization. */
initdetectors (efile, detectrec)
    FILE *efile;
    drecord *detectrec;
{
}

/* Dummy initial detectors report. */
initrepdetectors (rep, detectrec)
    FILE *rep;
    drecord *detectrec;
{
}