/* Copyright ENPC/Chancelier Jean-Philippe */
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#ifndef __STDC__
#include <stdlib.h>
#endif 
#include <stdio.h>
#include "util.h" 

#ifdef WIN32 
extern void SciEnv(void);
#endif 

/*---------------------------------------------------------
  Blatexprs fileres file1 .... filen  
  fait une mise en page de n dessins scilab ou neoclo 
  genere le fichier postscript fileres.ps 
  associe ainsi  qu'un fichier TeX fileres.tex
-------------------------------------------------------------*/

char * UsageStr[]={
#ifndef DOC
  "Usage  : Blatexprs fileres file1 .... filen  \n",
#else 
  "Usage  : Blatdocs fileres file1 .... filen  \n",
#endif
  "\tfile1, ... filen : are n Postscript files produced by Scilab\n",
  "\tfileres : a file name for the result \n",
  "\tThis command will create fileres.ps and fileres.tex \n",
  "fin"};

char entete[160];

void WriteTeX(char *filename, double wide, double height)
{
  char filename1[255];
  FILE *fdo;
  sprintf(filename1,"%s.tex",filename);
  fdo=fopen(filename1,"w");
  if (fdo == 0 ) 
    {
      fprintf (stderr," Can't Create Output file <%s> \n",filename1);
      exit(0);
    }
#ifndef DOC 
  fprintf(fdo,"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n");
  fprintf(fdo,"%% Usage: -To include a Figure with a caption, insert the TWO following lines\n");
  fprintf(fdo,"%%        in your Latex file:\n");
  fprintf(fdo,"%% \\input{This_file_name} \n");
  fprintf(fdo,"%% \\dessin{The_caption}{The_label}\n");
  fprintf(fdo,"%%         -To include just a picture, insert the lines \n");
  fprintf(fdo,"%%         between \\fbox{\\begin{picture}...  and \\end{picture}} below \n");
  fprintf(fdo,"%%          \n");
  fprintf(fdo,"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n");

  fprintf(fdo," \n");

  fprintf(fdo,"\\long\\def\\Checksifdef#1#2#3{\n");
  fprintf(fdo,"\\expandafter\\ifx\\csname #1\\endcsname\\relax#2\\else#3\\fi}\n");
  fprintf(fdo,"\\Checksifdef{Figdir}{\\gdef\\Figdir{}}{}\n");
  fprintf(fdo,"\\def\\dessin#1#2{\n");
#endif
  fprintf(fdo,"\\begin{figure}\n\\begin{center}\n");
  fprintf(fdo,"\\setlength{\\unitlength}{1cm}\n");
  fprintf(fdo,"\\fbox{\\begin{picture}(%.2f,%.2f)\n",wide,height);
#ifdef EPSFIG
  fprintf(fdo,"\\epsfig{file=\\Figdir %s.ps}\n",filename);
#else
  fprintf(fdo,"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n");
  fprintf(fdo,"%% If you want do not want to use epsfig ,comment the following line \n");
  fprintf(fdo,"%% and uncomment the \\special line \n");
  fprintf(fdo,"\\epsfig{file=\\Figdir %s.ps}\n",filename);
  fprintf(fdo,"%%\\special{psfile=\\Figdir %s.ps}\n", filename);
#endif
  fprintf(fdo,"\\end{picture}}\n");
  fprintf(fdo,"\\end{center}\n");
#ifndef DOC 
  fprintf(fdo,"\\caption{\\label{#2}#1}\n\\end{figure}}");
#endif
  fclose(fdo);
}

/*---------------------------------------------------
 remplace strin<i> par strout<i> en lisant le contenu de 
 file et en ecrivant sur fdo
-------------------------------------------------------*/

void Sed(char *file, char *strin1, char *strout1, char *strin2, char *strout2, char *strin3, char *strout3, FILE *fdo)
{
  FILE *fd;

  static char *buff = NULL;
  static int buflen = 512;
  if ( buff == NULL) 
    {
      buff = malloc(buflen*sizeof(char));
      if ( buff == NULL) 
	{
	  fprintf(stderr,"Running out of space \n");
	  exit(1);
	}
    }

  fd=fopen(file,"r");
  if (fd != 0)
    { int stop=0;
      while ( stop != 1)
	{  
	   read_one_line (&buff,&stop,fd,&buflen); 
	   if (strncmp(buff,strin1,strlen(strin1))==0)
	     fprintf(fdo,"%s\n",strout1);
	   else
	     {
	       if (strncmp(buff,strin2,strlen(strin2))==0)
		 fprintf(fdo,"%s\n",strout2);
	       else 
		 {
		   if (strncmp(buff,strin3,strlen(strin3))==0)
		     fprintf(fdo,"%s\n",strout3);
		   else
		     fprintf(fdo,"%s",buff);
		 }
	     }
	 }
      fclose(fd);
    }
  else 
    {
      fprintf(stderr,"file %s not found ",file);
      return;
    }
}

/*-----------------------------------------------
  calcule la taille pour un dessin suivant le nombre de dessin a 
  placer dans la feuille 
  num est le nombre de dessins et i le numero du dessin 
  renvoit le point gauche dans (*x,*y) la largeur et le hauteur 
  dans (*w,*h)
  (*wt et *ht sont la hauteur totale et la argeur totale)
-----------------------------------------------------*/

void ComputeSize(int num, int i, double *x, double *y, double *w, double *h, double *wt, double *ht)
{
  switch (num)
    {
    case 1 :
      /** une figure dans upleft(0,20,h=20,w=15) **/
      *wt=15.0;*ht=20.0;
      *x=0.0;*y=20.0;*h=20.0;*w=15.0;
      break;
    case 2 :
      *wt=15.0;*ht=20.0;
      /** 2 figures dans upleft(0,20,h=20,w=15) **/
      *x=0.0;*y=(20-(i-1)*10);*h=10.0;*w=15.0;
      break;
    case 3 :
      *wt=15.0;*ht=21.0;
      /** 3 figures dans upleft(0,21,h=21,w=15) **/
      *x=0.0;*y=(21-(i-1)*7);*h=7.0;*w=15.0;
      break;
    case 4 :

      /** 4 figures dans upleft **/
      *wt=16.0;*ht=16.0;
      if (i <= 2) *y=16.0;else *y=8.0;
      if ( (i % 2 ) == 0 ) 
	{ *x= 8.0;*h=8.0;*w=8.0;}
      else 
	{*x= 0.0;*h=8.0;*w=8.0;}
      break ;
    case 5 :
    case 6 :
      *wt=16.0;*ht=21.0;
      if (i <= 2) *y=21.0;else { if ( i <= 4) *y=14.0; else *y=7.0;}
      if ( (i % 2 ) == 0 ) 
	{ *x= 8.0;*h=7.0;*w=8.0;}
      else 
	{*x= 0 ;*h=7.0;*w=8.0;}
      break ;
    case 7 :
    case 8 :
    case 9 :
      *wt=16.0;*ht=18.0;
      if (i <= 3) *y=18.0;else { if ( i <= 6) *y=12.0; else *y=6.0;}
      if ( (i % 3 ) == 0 ) 
	{ *x= 2*5.3;*h=6.0;*w=5.3;}
      else 
	{
	  if ( (i % 3 ) == 1 ) 
	    { *x= 0.0;*h=6.0;*w=5.3;}
	  else 
	    {*x= 5.3 ;*h=6.0;*w=5.3;}
	}
      break ;
    case 10 :
    case 11 :
    case 12 :
    default :
      *wt=16.0;*ht=20.0;
      if (i <= 3) *y=20.0;
      else { 
	if ( i <= 6) *y=15.0;
	else {
	  if (i <= 9 ) *y=10.0; else *y=5.0;}
      }
      if ( (i % 3 ) == 0 ) 
	{ *x= 2*5.3;*h=5.0;*w=5.3;}
      else 
	{
	  if ( (i % 3 ) == 1 ) 
	    { *x=0.0;*h=5.0;*w=5.3;}
	  else 
	    {*x= 5.3 ;*h=5.0;*w=5.3;}
	}
      break ;
    }
}



int main(int argc, char **argv)
{
  char *env;
  char filename1[255];
  double x,y,w,h,wt,ht;
  char buf[256];
  int i ;
  FILE *fd;
  FILE *fdo;
#ifdef WIN32 
  SciEnv();
#endif 

  if (argc <= 2) { int i=0;
		   while (strcmp(UsageStr[i],"fin")!=0)
		     { 
		       fprintf(stderr,"%s",UsageStr[i]),i++;
		     }
		   exit(0);
		 }
  sprintf(filename1,"%s.ps",argv[1]);
  fdo=fopen(filename1,"w");
  if (fdo == 0 ) 
    {
      fprintf (stderr," Can't Create Output file <%s> \n",filename1);
      exit(0);
    }
  env = getenv("SCI");
  if (env == NULL) {
    fprintf(stderr,"Environment variable SCI must be defined\n");
    exit(0);
  }
  sprintf(entete,"%s/imp/NperiPos.ps",env);
  fd=fopen(entete,"r");
  if (fd != 0)
    { int c;
      while ( (c=getc(fd)) != EOF)
	{
	  putc((char) c,fdo);
	}
      fclose(fd);
    }
  else 
    {
      fprintf(stderr,"file %s not found ",entete);
      return(1);
    }
  for ( i = 2 ; i < argc-1 ; i++)
    { 
      ComputeSize(argc-2,i-1,&x,&y,&w,&h,&wt,&ht)      ;
      sprintf(buf,"gsave [1 0 0 -1 0 0] concat %5.2f %5.2f %5.2f %5.2f DesPosi"
	      ,x,y,w,h);
      Sed(argv[i],"[0.5 10 div 0 0 0.5 10 div neg  0 2120 10 div] concat",
	  buf," showpage","grestore",
	  " end saved restore","% end saved restore",fdo);
    }
  ComputeSize(argc-2,argc-2,&x,&y,&w,&h,&wt,&ht)      ;   
  sprintf(buf,"gsave [1 0 0 -1 0 0] concat %5.2f %5.2f %5.2f %5.2f DesPosi"
	  ,x,y,w,h);
  Sed(argv[argc-1],"[0.5 10 div 0 0 0.5 10 div neg  0 2120 10 div] concat",
      buf, " showpage"," grestore ",
      " end saved restore"," end saved restore",fdo);
  fprintf(fdo,"%%%%BoundingBox: 0 0 %d %d\n",(int)wt ,(int)ht);
  fclose(fdo);
  /** ecriture du fichier TeX associe **/
  WriteTeX(argv[1],wt,ht);
  return(0);
}