Gensosce.c File Reference

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

Include dependency graph for Gensosce.c:

Go to the source code of this file.

Functions
int	main (int argc, argv)

---

Function Documentation

int main	(	int	argc,
		argv
	)

Definition at line 8 of file Gensosce.c.

References file, fname, j, and NULL.

{
  char nam1[256];  char fname[256]; char nam2[256];
  FILE *file,*filei1,*filei2;

  /*   ***********Open Xfilename2*************   */
  strcpy(fname,argv[2]);
  fname[strlen(fname)]= '\0';
  if (NULL == (filei2=fopen(fname+1,"r")))  return 1;
  /*  nam2 = the library name;  nam1 (tmp) = nam2.sce = name of script file  */
      fscanf(filei2,"%s",nam2); strcpy(nam1,nam2); strcat(nam1,".sce");
      fclose(filei2);
      if (NULL == (file = fopen (nam1, "w"))) return 1;

  /*   ***********Open Xfilename1*************   */
  strcpy(fname,argv[1]);
  fname[strlen(fname)]= '\0';
  /********* scilab_functions *************/
  if (NULL == (filei1=fopen(fname+1,"r"))) return 1;

fprintf(file, "scilab_functions=[... \n");
  /* loop  */
  while (1)
    {
      int j;
      if ( fscanf(filei1,"%s",nam1) == EOF ) break;
      j= strlen(nam1);
      while ( j != 0 && nam1[j] != '/' ) j--; 
      nam1[j]= '\0';
      fprintf(file, "\"%s\";\n",nam1); 
    }
  /* end loop */
  fprintf(file,"                 ]; \n");
  fprintf(file, "      \n");
  fclose(filei1);
  /*  ends with addinter stuff   
      fprintf(file, "addinter(\"./%s.so\",\"%s_gateway\",scilab_functions); \n",nam2,nam2); */
  fclose (file) ;  return 0;
}

---