cuikmerge.c

Go to the documentation of this file.

#include "cuiksystem.h"
#include "parameters.h"

#include "defines.h"
#include "error.h"
#include "filename.h"

#include <string.h>
#include <stdlib.h>
#include <time.h>
#include <unistd.h>


int main(int argc, char **arg)
{
  TCuikSystem cuiksystem;  /* The set of equations */
  Tparameters parameters;  /* Parameters used in the Cuik process */

  Tfilename fcuikIn;
  Tfilename fcuikAdded;
  Tfilename fcuikOut;
  Tfilename fparam;
  
  unsigned int i;
  FILE *fs;
  
  if (argc>2)
    {
      /*Init parameters*/
      CreateFileName(NULL,arg[2],NULL,PARAM_EXT,&fparam);
      #if (_DEBUG>0)
        printf("Reading parameter file            : %s\n",GetFileFullName(&fparam));
      #endif
      InitParametersFromFile(GetFileFullName(&fparam),&parameters);

      /*keep equations in the original form*/
      ChangeParameter(CT_DUMMIFY,0,&parameters);

      /*Read the problem from file*/
      CreateFileName(NULL,arg[2],NULL,CUIK_EXT,&fcuikIn);
      #if (_DEBUG>0)
        printf("Reading cuik file                 : %s\n",GetFileFullName(&fcuikIn));
      #endif
      InitCuikSystemFromFile(&parameters,GetFileFullName(&fcuikIn),&cuiksystem);
      
      for(i=3;i<argc;i++)
        {
          /*Read the problem from file*/
          CreateFileName(NULL,arg[i],NULL,CUIK_EXT,&fcuikAdded);
          #if (_DEBUG>0)
            printf("Reading cuik file                 : %s\n",GetFileFullName(&fcuikAdded));
          #endif
          AddCuikSystemFromFile(&parameters,GetFileFullName(&fcuikAdded),&cuiksystem);

          DeleteFileName(&fcuikAdded);
        }

      /*Save the final cuiksystem */
      CreateFileName(NULL,arg[2],arg[1],CUIK_EXT,&fcuikOut);
      fs=fopen(GetFileFullName(&fcuikOut),"w");
      if (!fs)
        Error("Could not open the output file for the merged cuiksystem.");
      #if (_DEBUG>0)
        printf("Generating merged cuik file       : %s\n",GetFileFullName(&fcuikOut));
      #endif
      PrintCuikSystem(&parameters,fs,&cuiksystem);
      fclose(fs);

      /* link the parameter files (after the merge joints/links are no longer valid,
         use cuikmerge boxes to address this issue) */
      LinkFileNmeWithExtension(&fcuikIn,PARAM_EXT ,&fcuikOut);

      /*Remove the allocated objects*/
      DeleteParameters(&parameters);
      DeleteCuikSystem(&cuiksystem);

      DeleteFileName(&fparam);
      DeleteFileName(&fcuikIn);
      DeleteFileName(&fcuikOut);
    }
 else
   {
     fprintf(stderr,"  Wrong number of parameters.\n");
     fprintf(stderr,"  Use:\n");   
     fprintf(stderr,"      cuikmerge <suffx> <problem filenames>.cuik \n");
     fprintf(stderr,"  where <problem filenames> contains the kinematic equations to merge\n");
     fprintf(stderr,"    (the '.cuik' extension is not required)\n");
   }
  return(EXIT_SUCCESS);
}