source: Sophya/trunk/Poubelle/archediab.old/archediab.sources/c/fichier_diabolo.c@ 637

#include "diabolo.h"
#include "fichier.h"
//#include "acqui.h"
#include "controle.h"


extern  F_entete                *E;
extern  F_block_desc            *BD;
extern  F_block_param           *BP;
extern  F_donne                 * T;            // tableau courant de donnee

extern char * nom_du_fichier;

unsigned long           temps_debut_dia2;


//---------------------------------------------------------------------------------------
//---------------    ecrit  les  fichiers      DIA2       -------------------------------
//---------------------------------------------------------------------------------------



void    ecrit_fichier_dia2(F_donne  d,unsigned long temps_cntl,unsigned long temps_mac)                 //      ecrit les valeurs bolo et synchro 
{
int nl=BD->n_ligne_don;

E->tempsfin=temps_mac;                                  // comme ca bon a la fin du fichier
if(!E->tempsdebut)      E->tempsdebut=temps_mac;        // parceque mis a zero a l'ouverture du fichier

T[nl]=d;
if(!nl) BP->temps_controleur_debut=temps_cntl;
BP->temps_controleur_fin=temps_cntl;
BD->n_ligne_don++;      if (BD->n_ligne_don>=max_nb_donne) fich_save_partiel(0);
if( (nl%100)==0 )       ecritD(fenetre_fichier,f_bloc,"bloc %d : %d lignes",BD->n_blok+1,nl);

if( (nl%100)==0 )       ecritD(fenetre_controle,con_fichier,"%s  *",nom_du_fichier);
if( (nl%100)==50 )      ecritD(fenetre_controle,con_fichier,"%s   ",nom_du_fichier);
}



void    fich_save_partiel(int change)   //  change==3   -> fin de fichier sans changement de parametres
                                        //  change==1   ->      change un parametre: nouveau block
                                        //      change==2       ->      nouveau fichier, nouvelle serie de mesure                       
                                        //      change==0       ->      meme fichier nouveau block avec memes parametres                        
{
unsigned long ttx;
int j,i,n=gg->reglage.horloge.nb_mesures;

if((!fenetre(fichier_dia2_1)) && (!fenetre(fichier_dia2_2)))    return;
if (change!=2)
        {
        for(j=0;j<nb_max_bolo;j++)
                for(i=0;i<n;i++)        BP->bol_per[j][i]=gg->bol_per[j][i];
        
        if(fenetre(fichier_dia2_1))
                {
                position(fichier_dia2_1,fin_f);
                ecritF(fichier_dia2_1,sizeof(F_block_desc),BD);                         // ecrit l'entete partielle
                ecritF(fichier_dia2_1,sizeof(F_block_param),BP);                        // ecrit l'entete partielle
                ecritF(fichier_dia2_1,(long)E->long_donne*(long)BD->n_ligne_don,T);     // ecrit le block de data
                }
        if(fenetre(fichier_dia2_2))
                {
                position(fichier_dia2_2,fin_f);
                ecritF(fichier_dia2_2,sizeof(F_block_desc),BD);                         // ecrit l'entete partielle
                ecritF(fichier_dia2_2,sizeof(F_block_param),BP);                        // ecrit l'entete partielle
                ecritF(fichier_dia2_2,(long)E->long_donne*(long)BD->n_ligne_don,T);
                }

        }
if( (change==0) ou (change==2) )        lit_data_telescope();   //  debut fichier ou apres block complet  

BD->n_ligne_don=0;
BP->temps_controleur_debut=BP->temps_controleur_fin;

BD->n_blok++;
BP->reglage=gg->reglage;
BD->change=change;
BD->bololut=0;

if( (change==0) ou (change==1) )
        {
        GetDateTime(&ttx);
//      printf(" temps debut fichier = %d   temps courant=%d  \n",E->tempsdebut,ttx);
        if(gg->scan_en_cours)   temps_debut_dia2=ttx;
        if( (!gg->scan_en_cours)  && ( (ttx-temps_debut_dia2) > temps_max_fichier) )    
                {
//              printf(" fichier Diabolo sans scan de plus de 5 minutes: fich_new \n");
                GetDateTime(&temps_debut_dia2); // pour etre sur de ne pas le faire deux fois
                fich_new(0,0);
                }
        }
if(change==3) change=0; 
BD->change=change;
}




void exec_DIA2(int fen,int item,double valeur,...)      // exec du fichier lui_meme
                                                        // apellé pour les deux fichiers DIA2 ouverts et fermés
{
switch(item)
        {
        case ouverture  :       
                if( (fen!=fichier_dia2_1) && (fen!=fichier_dia2_2) )    {lit_fichier_DIA2(fen);break;}
                gg->fichier_dia2_ouvert=1;
                E->tempsdebut=0;        E->tempsfin=0;                  // temps de debut et fin de fichier             
                litD(fenetre_fichier,f_comment,E->commentaires);        // commentaires à la main
                ecritF(fen,(long)E->long_entete,E);
//              printf("fabrique fichier : %s  \n",titre(fen));
                GetDateTime(&temps_debut_dia2);
                break;

        case fermeture :
                if( (fen!=fichier_dia2_1) && (fen!=fichier_dia2_2) )  break;
                gg->fichier_dia2_ouvert=0;
                fich_save_partiel(3);

//              litD(fenetre_fichier,f_comment,E->commentaires);
//              ecritD(fenetre_fichier,f_comment,"../..");
                break;
                
        }
}