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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
|
/* Copyright (C) 1998 Chancelier Jean-Philippe */
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#ifndef __STDC__
#include <malloc.h>
#endif
#include <stdio.h>
#include "../machine.h"
static int Sed __PARAMS ((int, char *, FILE *, char *, char *, char *, char *, char *, char *));
static void readOneLine __PARAMS ((char *buff, int *stop, FILE * fd));
static void ConvertName __PARAMS ((char *filein, char *fileout));
extern void sciprint __PARAMS ((char *fmt,...));
/**************************************************
* Converts a scilab Eps file to an Epsf file
* by adding a preamble
**************************************************/
static char entete[256];
int
ScilabPsToEps (char orientation, char *filein, char *fileout)
{
int flag = 0, rep;
FILE *fo;
char *env;
env = getenv ("SCI");
if (env == NULL)
{
sciprint ("Environment variable SCI must be defined\r\n");
return (1);
}
sprintf (entete, "%s/imp/NperiPos.ps", env);
ConvertName (filein, fileout);
if (strcmp (fileout, filein) == 0)
{
flag = 1;
strcat (fileout, ".temp");
}
if ((fo = fopen (fileout, "w")) == 0)
{
sciprint (" Can't open file %s\r\n", fileout);
return 1;
}
fprintf (fo, "%%!PS-Adobe-2.0 EPSF-2.0\n");
if (orientation == 'p')
fprintf (fo, "%%%%BoundingBox: 0 200 600 624\n");
else
fprintf (fo, "%%%%BoundingBox: 0 0 600 780\n");
Sed (0, entete, fo, "%!PS-ADOBE", "%%", (char *) 0, (char *) 0, (char *) 0, (char *) 0);
if (orientation == 'p')
rep = Sed (1, filein, fo, "[0.5 10 div 0 0 0.5 10 div neg 0 2120 10 div] concat",
"[0.5 5 div 0 0 0.5 5 div neg 0 3120 5 div] concat",
(char *) 0, (char *) 0, (char *) 0, (char *) 0);
else
rep = Sed (1, filein, fo, "[0.5 10 div 0 0 0.5 10 div neg 0 2120 10 div] concat",
"90 rotate 10 640 neg translate [0.5 5 div 0 0 0.5 5 div neg 0 3120 5 div] concat",
(char *) 0, (char *) 0, (char *) 0, (char *) 0);
fclose (fo);
if (rep >= 1)
{
if (rep == 1)
sciprint ("input file doesn't need to be changed to epsf \r\n");
remove (fileout);
return (0);
}
if (flag == 1)
{
/** we move xxx.temp to xxx */
fo = fopen (filein, "w");
Sed (0, fileout, fo, (char *) 0, (char *) 0, (char *) 0, (char *) 0, (char *) 0, (char *) 0);
fclose (fo);
}
else
{
remove (filein);
}
return (0);
}
static void
ConvertName (filein, fileout)
char *filein, *fileout;
{
char *p = filein, *p1;
p1 = strchr (p, '/');
while (p1 != 0)
{
p = p1 + 1;
p1 = strchr (p, '/');
}
p = strchr (p, '.');
if (p != 0)
{
*p = '\0';
sprintf (fileout, "%s.eps", filein);
*p = '.';
}
else
sprintf (fileout, "%s.eps", filein);
/** sciprint("[%s]=>[%s]\r\n",filein,fileout); **/
}
/**************************************************
* copies file to fileo performing some substitutions
**************************************************/
static int
Sed (flag, file, fileo, strin1, strout1, strin2, strout2, strin3, strout3)
char file[], strin1[], strout1[], strout3[];
char strin2[], strout2[], strin3[];
FILE *fileo;
int flag;
{
FILE *fd;
fd = fopen (file, "r");
if (fd != 0)
{
int stop = 0;
while (stop != 1)
{
char buff[512];
readOneLine (buff, &stop, fd);
if (flag == 1)
{
if (strncmp (buff, "%!PS-Adobe-2.0 EPSF-2.0",
strlen ("%!PS-Adobe-2.0 EPSF-2.0")) == 0)
{
fclose (fd);
return (1);
}
}
if (strin1 != (char *) 0 && strncmp (buff, strin1, strlen (strin1)) == 0)
fprintf (fileo, "%s\n", strout1);
else
{
if (strin2 != (char *) 0 && strncmp (buff, strin2, strlen (strin2)) == 0)
fprintf (fileo, "%s\n", strout2);
else
{
if (strin3 != (char *) 0 && strncmp (buff, strin3, strlen (strin3)) == 0)
fprintf (fileo, "%s\n", strout3);
else
fprintf (fileo, "%s", buff);
}
}
}
fclose (fd);
}
else
{
sciprint ("file %s not found \r\n", file);
return (2);
}
return (0);
}
/*-----------------------------------------------
lit une ligne dans fd et la stocke dans buff
---------------------------------------------------*/
static void
readOneLine (buff, stop, fd)
char buff[];
int *stop;
FILE *fd;
{
int i, c;
for (i = 0; (c = getc (fd)) != '\n' && c != EOF; i++)
buff[i] = c;
buff[i] = '\n';
buff[i + 1] = '\0';
if (c == EOF)
{
*stop = 1;
}
}
|
