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
|
#include <string>
#include <math.h>
#include <stdio.h>
#include "gr.hh"
#include "extern.hh"
#include "private.hh"
extern char _grTempString[];
/* `input \ps_filename [.xcm. .ycm. [.xmag. .ymag. [.rot_deg.]]]' */
bool
inputCmd()
{
double xcm = 0.0, ycm = 0.0, xmag = 1.0, ymag = 1.0, angle = 0.0;
std::string fname(_word[1]);
un_double_quote(fname);
std::string completefilename(fname);
resolve_filename(completefilename, true, 'c'); // BUG do I want 'c' or 'd' here??
switch (_nword) {
case 7:
getdnum(_word[6], &angle);
getdnum(_word[5], &ymag);
getdnum(_word[4], &xmag);
getdnum(_word[3], &ycm);
getdnum(_word[2], &xcm);
break;
case 6:
getdnum(_word[5], &ymag);
getdnum(_word[4], &xmag);
getdnum(_word[3], &ycm);
getdnum(_word[2], &xcm);
break;
case 4:
getdnum(_word[3], &ycm);
getdnum(_word[2], &xcm);
break;
default:
demonstrate_command_usage();
NUMBER_WORDS_ERROR;
break;
}
/* Search directory only if not specified as local/fullpath */
std::string longfilename(completefilename);
//OLD if (completefilename[0] != '/' && completefilename[0] != '.')
//OLD longfilename.assign(file_in_list(completefilename.c_str(), false, false));
FILE *fp;
if (NULL == (fp = fopen(longfilename.c_str(), "r"))) {
fatal_err("Cannot open `input' file named `\\",
longfilename.c_str(),
"'",
"\\");
return false;
}
/*
* Scan through the file, doing lines.
*/
extern FILE *_grPS;
fprintf(_grPS, "q %% Beginning of `input' file named `%s'\n", longfilename.c_str());
fprintf(_grPS, "%f %f translate %f %f scale %f rotate\n",
xcm * PT_PER_CM, ycm * PT_PER_CM, xmag, ymag, angle);
while (!feof(fp)) {
/*
* See if hit EOF on a line with no text.
*/
if (NULL == fgets(_grTempString, LineLength, fp))
break;
fprintf(_grPS, "%s", _grTempString);
}
fprintf(_grPS, "Q %% End of `input' file named `%s'\n", longfilename.c_str());
fclose(fp);
return true;
}
|
