/* gen_par.c  Fabrication d'un fichier gen.prm a partir de gen.cat
              Creation d'un tube et processus fils qui envoie dans
              le tube le fichier compresse lu par zcat
 */
#include <stdio.h>

main()
  {
   int p[2], n;
   int dup();
  
   if(pipe(p) == 0)               /* creation du tube */
      
     if ((n=fork()) == -1)
        {
         fprintf(stderr,"fork: echec\n");
         exit(1);
        }
      else
        if( n == 0 )              /* processus fils */
         {
          close(1);
          dup (p[1]);
          close (p[1]);
          close (p[0]);
          execlp("zcat","zcat","vsini.ref.Z",0);
         }
        else                       /* processus pere */
         {
          close (0);
          dup (p[0]);
          close (p[0]);
          close (p[1]);
          execlp("pultiref","pultiref",0);
         }
      else
        fprintf(stderr,"pipe: echec\n");
   }