source: trunk/etc/src/ylmodf.c @ 1

//gcc ylmodf.c -Wall -o ylmodf

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

#define BUFSIZE       2048
#define LG_MAX_NAME     24
#define LG_STR80        80

FILE    *fpin, *fpout;
char    buffer[BUFSIZE+1];
int     nbenrlus;
int     nbitem;
char    modname[LG_MAX_NAME+1];
int     nbi, nbo, mode, prodlev;
int     wi;
char    cdesys[LG_STR80+1];

//==========================================================
int main(int argc, char *argv[])
{   //syntaxe: ylmodf filein fileout [mode]
    //         mode determine le mode d'ecriture du fichier filout :
                //   avec mode = 1, >> dans filout
                //        mode = 0, raz de filout
                //   mais attention, ce mode est positionne selon en priorite :
                //        - le 2eme caratere du 1er enregistrement de filin a condition
                //          qu'il commence par un diese et qu'il valle 0 ou 1
                //        - le mode passe en parametre qui doit valoir 0 ou 1,
                //        - et par defaut, mode = 1
  printf("\n");

        /* debut : verif arg, ouverture fichier ... */
        if (argc<3 || argc>4)
        {        printf (" > ylmodf: syntaxe error: ylmodf file_in file_out [mode]\n");
                 exit(-9);
        }
        if ((fpin = fopen(argv[1], "r")) <= 0)
        {        printf (" > ylmodf: problem when opening %s \n", argv[1]);
                 exit(-9);
        }
        if (argc==3) mode = 1;
        if (argc==4) mode = atoi(argv[3]);
        if (mode!=0 && mode!=1)
        {  printf(" > ylmodf: error on mode value (%i), must 0 to RAZ or 1 to CONCAT\n", mode);
        }
        /*--------------------------
        if (mode==0)
        {  if ((fpout = fopen(argv[2], "w")) <= 0)
           {  printf (" > ylmodf: problem when opening %s \n", argv[2]);
                    exit(-9);
           }
        }
        else //=>mode==1
        {  if ((fpout = fopen(argv[2], "r")) <= 0)
           {  printf (" > ylmodf: problem when opening %s \n", argv[2]);
                    exit(-9);
           }
  }
  fclose(fpout); //on n'a plus besoin ici de file out
        */

  //-------------------------------------------------------------------
  nbenrlus=0;
        while (  (fgets(buffer, BUFSIZE+1, fpin)) != NULL)
  {   ++nbenrlus;

            nbitem=sscanf(buffer, "%s %i %i %i", modname, &nbi, &nbo, &prodlev);
                        //printf(" %i> %s %i %i [%i] \n", nbitem, modname, nbi, nbo, prodlev);

            if (nbenrlus==1)
                        {  //si dans l'entete (i.e 1er enreg) du fichier on trouve que le
                           //   1er caractere du 1er token est un '#' (indication de commentaire),
                                 //   et que le 2eme token correspond a O ou 1, alors c'est
                                 //   ca qui prime pour determiner le mode 'w' ou 'r'
         if (nbitem >=2 && modname[0]=='#' && (nbi==0 || nbi==1))
                                 {      mode=nbi;
                //--------------------------
                                                                if (mode==0)
                                                                {  if ((fpout = fopen(argv[2], "w")) <= 0)
                                                                         {  printf (" > ylmodf: problem when opening %s \n", argv[2]);
                                                                                        exit(-9);
                                                                         }
                                                                }
                                                                else //=>mode==1
                                                                {  if ((fpout = fopen(argv[2], "r")) <= 0)
                                                                         {  if ((fpout = fopen(argv[2], "w")) <= 0)
                                                                            {  printf (" > ylmodf: problem when opening %s \n", argv[2]);
                                                                                           exit(-9);
                                                                                        }
                                                                         }
                                                                }
                                                                fclose(fpout); //on n'a plus besoin ici de file out
                                                                //--------------------------
                                                    continue;
                                 }
                                 else //alors seulement le mode passed en parametre ou par defaut est utilise
                                 {      //--------------------------
                                                if (mode==0)
                                                {  if ((fpout = fopen(argv[2], "w")) <= 0)
                                                         {  printf (" > ylmodf: problem when opening %s \n", argv[2]);
                                                                        exit(-9);
                                                         }
                                                }
                                                else //=>mode==1
                                                {  if ((fpout = fopen(argv[2], "r")) <= 0)
                                                   {  if ((fpout = fopen(argv[2], "w")) <= 0)
                                                            {  printf (" > ylmodf: problem when opening %s \n", argv[2]);
                                                                           exit(-9);
                                                            }
                                                         }
                                                }
                                                fclose(fpout); //on n'a plus besoin ici de file out
                                        }
                        }

                        if (nbitem<=0) continue; //ligne vide
            if (modname[0]=='#') continue; //commentaire

                        //dans un enregistrement, on doit au moins trouver modname nbi nbo
                        if (nbitem<3)
                        {  printf(" < %s", buffer);
                           printf(" > ylmodf: uncomplete ligne; skeep to the next\n");
                           continue;
                        }

                        //on verifie que le module existe bien
            if ((fpout = fopen(modname, "r")) <= 0) //on essaye avec le nom tel quel
            {  //sinon on essaye en rajoutant .h
                           strcat(modname, ".h");
                                 if ((fpout = fopen(modname, "r")) <= 0)
                           {  printf (" > ylmodf: problem when opening %s \n", modname);
                        printf ("   skeep to next module\n\n");
                        continue;
                                 }
            }
                        fclose(fpout); //c'etait juste pour verifier

      //on cree la commande d'appel a la procedure de derivation automatique
                        //pour le module: YdfA fileout modname nbi nbo prodlev
                        sprintf(cdesys, "YdfA %s %s %i %i %i\n", argv[2], modname, nbi, nbo, prodlev);
                        system (cdesys);
  }

        fclose(fpin);
        printf("\n");
        return(0);
}
//=========================================================