1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
#include <stdio.h>
#include <string.h>
/*
Lib file or Lib file
Lib File : generates : tmp_Macros tmp_Bin
*/
int main(argc,argv)
int argc;char *argv[];
{
char name[256];
char fname[256];
FILE *filei,*fileo2,*fileo3;
int i=0;
strcpy(fname,argv[1]);
fname[strlen(fname)]= '\0';
/** we use fname +1 since msvc makefile temporary filenames
begin whith extrac @ char **/
if (NULL == (filei=fopen(fname+1,"r")))
return 1;
/**********************/
if (NULL == (fileo2 = fopen ("tmp_Macros", "w"))) return 1;
if (NULL == (fileo3 = fopen ("tmp_Bin", "w"))) return 1;
fprintf(fileo2,"mode(0);\n");
while (1)
{
int j;
char *c;
if ( fscanf(filei,"%s",name) == EOF ) break;
j= strlen(name);
while ( j != 0 && name[j] != '.' ) j--;
name[j]= '\0';
fprintf(fileo2,"getf('%s.sci'),save('%s.bin'),clear ;\n",name,name);
fprintf(fileo3,"%s.bin\n",name);
fprintf(stdout,"Processing file %s.sci\n",name);
}
fprintf(fileo2,"exit;\n");
fclose (fileo2) ;
fclose (fileo3) ;
return 0;
}
|
