#include  "complex.h"
#include  "shst_prt.h"


extern controller * c_ptr;      /* указатель на начало описат.контp. */
extern word_s c_num;               /* количество контpоллеpов */

extern struct fimg_prt fimg;         /* стр-ра записи этого файла,B FP.C */

/*---- ИЗМЕНЕНО ДЛЯ СЕТЕЙ -----
extern FILE *pfimg;        указатель на файл имен групп событий,B FP.C
-----------------------------*/
extern word_s hn_imgs;        /* хандлер ф-ла имен групп событий */

void nom_gr_sob()

{  byte i;
   word_s n,k,numrec;
   controller * ptr_c;
   digit * d_ptr;

 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
 /* O_CREAT - создать и открыть новый файл для записи;              */
 /*           не дает результата, если файл уже существует.         */
 /* O_EXCL - возвращает ошибочный код, если файл, определенный      */
 /*          в pathname уже существует. Применяется только          */
 /*          вместе с O_CREAT.                                      */
 /* O_TRUNC - открыть и сузить существующий файл до нулевой длины;  */
 /*           файл должен иметь доступ для записи. Содержимое файла */
 /*           теряется.                                             */

 if((hn_imgs = sopen( "fimg_s.prt",O_BINARY | O_WRONLY | O_CREAT | O_EXCL,
                                                                   SH_DENYRW, S_IREAD | S_IWRITE))==-1)
        /* если файл существует */
        hn_imgs = sopen( "fimg_s.prt", O_BINARY | O_TRUNC | O_WRONLY ,
                                                                   SH_DENYRW );
 /* SH_DENYRW - отказать доступ для чтения и записи  - скрытый для сети */
 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */

         /*---- ИЗМЕНЕНО ДЛЯ СЕТЕЙ -----
         fseek(pfimg,0L,SEEK_SET);
         -----------------------------*/
         lseek(hn_imgs,0L,SEEK_SET);

         memset (fimg.name,' ',9);
         fimg.name[9]='\0';

         /*---- ИЗМЕНЕНО ДЛЯ СЕТЕЙ -----
         fwrite ((char *)&fimg,sizeof(fimg),1,pfimg);
         fclose(pfimg);
         -----------------------------*/
         write (hn_imgs, (char *)&fimg, sizeof(fimg));
         close(hn_imgs);


   /*fprintf(stdprn,"заполнение в паспоpтах номеpа гpуппы событий");*/
   numrec = c_num;  i = 0;

   for( ptr_c=c_ptr, n=0;  n<numrec;  ptr_c++,n++ ) /* по всем контр-рам */
         for( d_ptr=ptr_c->d_ptr,k=0;   k<ptr_c->num_dp;   d_ptr++,k++ )

          {       /* по всем дискpетным параметрам контроллера */
          /*---------------------------------------
          if(!(k%6)) { i++; d_ptr->nom_gr_sob = i;}
                else d_ptr->nom_gr_sob = i;
          ---------------------------------------*/

          d_ptr->nom_gr_sob = 1;

          /*fprintf(stdprn," cipher = %s , %d",d_ptr->cipher,d_ptr->nom_gr_sob);*/
          }
   return;
}