#include "include.h"
#include <string.h>
#include <malloc.h>
#include <stdlib.h>
#include <stdio.h>

 extern void *hscb_lst_ptr;
 extern void *nau_lst_ptr;

 unsigned long findnau (void *np, void **naupp);

/*********************CRHSCB********************************************/
   struct hscb *crhscb( mylu, partlu )
      char *mylu,*partlu;
        {
            unsigned long rc;
            struct hscb *whscb,*whscbq;
            struct nau *wnau;


               whscb = calloc (1,sizeof(struct hscb));
               if (whscb == NULL )
                    return (NULL);
               rc = findnau ( mylu ,&wnau);
               if (rc != 0)
                    return (NULL);
	       whscb->naup = wnau;
               memcpy (whscb->hslunam, partlu, 8);
               wnau -> link = whscb;
               if (hscb_lst_ptr == NULL )
                    hscb_lst_ptr = whscb;
               else
                    {
                        whscbq = hscb_lst_ptr;
                        while (whscbq -> next != NULL )
                                whscbq = whscbq -> next;
                        whscbq -> next = whscb;
                    }
              return (whscb);
         }
  /*************************FINDHSCB********************************/

        struct hscb *findhscb( ccor )
                char *ccor;
                 {
                    struct hscb *whscb;
                        whscb = hscb_lst_ptr;
                        if (whscb -> cor == ccor)
                                return(whscb);
                        whscb = whscb -> next;
                        do {
                             if (whscb ->cor == ccor)
                                    return (whscb);
                             whscb = whscb -> next;
                           } while (whscb != NULL );
                       return (NULL);
              }
 /**************************DELHSCB************************************/

        int delhscb (whscb)
                struct hscb *whscb;
                 {
                    struct hscb *whscbq;
                        whscbq = hscb_lst_ptr;
                        if (whscbq == whscb)
                               hscb_lst_ptr = NULL;
                        do {
                              if ( whscbq -> next == whscb)
                                    {
                                        whscbq -> next == whscb -> next;
                                        return;
                                     }
                              whscbq = whscbq -> next;
                          } while ( whscbq != NULL );
                       return;
                 }
 /****************************FINDNAU***********************************/

       unsigned long findnau (np,naupp)
            char *np;
            struct nau **naupp;
               {
                 struct nau *naup;
                 int i;

                     naup = nau_lst_ptr;
                     i = 0;
                     do {
                          if (memcmp( np, naup -> name,8) == 0)
                                {
                                    *naupp = naup;
                                    return ( NULL );
                                }
                          naup ++;
                          i++;
                       } while ( i < 10 );
                    return (i);
}
  /******************************THE END *******************************/