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
|
diff -Naur gri-2.12.18/src/extern.hh gri-2.12.18.new/src/extern.hh
--- gri-2.12.18/src/extern.hh 2003-06-07 13:37:55.000000000 -0400
+++ gri-2.12.18.new/src/extern.hh 2008-11-01 10:46:40.000000000 -0400
@@ -137,6 +137,7 @@
extern int _arrow_type;
extern bool _warn_offpage;
+extern bool _export_postscript;
extern std::vector<double> _dash;
diff -Naur gri-2.12.18/src/gr.cc gri-2.12.18.new/src/gr.cc
--- gri-2.12.18/src/gr.cc 2008-09-04 13:32:21.000000000 -0400
+++ gri-2.12.18.new/src/gr.cc 2008-11-01 10:52:24.000000000 -0400
@@ -397,7 +397,16 @@
/*
* write conforming postscript prolog
*/
- fprintf(fp, "%%!PS-Adobe-2.0 EPSF-1.2\n");
+ //fprintf(fp, "%%!PS-Adobe-2.0 EPSF-1.2\n");
+ extern bool _export_postscript;
+ if (_export_postscript)
+ {
+ fprintf(fp, "%%!PS-Adobe-2.0\n");
+ }
+ else
+ {
+ fprintf(fp, "%%!PS-Adobe-2.0 EPSF-1.2\n");
+ }
if (privacy)
fprintf(fp, "%%%%Creator: %s\n", "");
else
diff -Naur gri-2.12.18/src/gri.cc gri-2.12.18.new/src/gri.cc
--- gri-2.12.18/src/gri.cc 2006-06-16 19:18:40.000000000 -0400
+++ gri-2.12.18.new/src/gri.cc 2008-11-01 10:46:40.000000000 -0400
@@ -35,6 +35,7 @@
// Globals used elsewhere (variables begin with _).
int _arrow_type;
bool _warn_offpage;
+bool _export_postscript;
std::vector<double> _dash;
std::vector<DataFile> _dataFILE;
std::vector<CmdFile> _cmdFILE;
diff -Naur gri-2.12.18/src/startup.cc gri-2.12.18.new/src/startup.cc
--- gri-2.12.18/src/startup.cc 2008-06-12 08:57:26.000000000 -0400
+++ gri-2.12.18.new/src/startup.cc 2008-11-01 10:57:26.000000000 -0400
@@ -188,6 +188,7 @@
_axes_offset = 0.0;
_use_default_for_query = false;
_warn_offpage = true;
+ _export_postscript = false;
PUT_VAR("..use_default_for_query..", 0.0);
PUT_VAR("..words_in_dataline..", 0.0); // just in case tested
PUT_VAR("..batch..", 0.0);
@@ -681,6 +682,7 @@
#define FLAG_PUBLICATION 1009
#define FLAG_SUPERUSER 1010
#define FLAG_WARN_OFFPAGE 1011
+#define FLAG_POSTSCRIPT 1012
// I use the 'FLAG_...' numbers for options that lack single-character abbreviations.
static struct poptOption optionsTable[] = {
{ "batch", 'b', POPT_ARG_NONE | POPT_ARGFLAG_ONEDASH, NULL, 'b' },
@@ -703,6 +705,7 @@
{ "version", 'v', POPT_ARG_NONE | POPT_ARGFLAG_ONEDASH, NULL, 'v' },
{ "warn_offpage", '\0', POPT_ARG_NONE | POPT_ARGFLAG_ONEDASH, NULL, FLAG_WARN_OFFPAGE },
{ "yes", 'y', POPT_ARG_NONE | POPT_ARGFLAG_ONEDASH, NULL, 'y' },
+ { "postscript", '\0', POPT_ARG_NONE | POPT_ARGFLAG_ONEDASH, NULL, FLAG_POSTSCRIPT },
{ 0, 0, 0, 0, 0 }
};
const poptContext optCon =
@@ -872,6 +875,8 @@
printf("Gri cannot read in '%s'\n",optArg);
}
break;
+ case FLAG_POSTSCRIPT
+ _export_postscript = true;
default:
printf("Unknown option\n");
break;
@@ -1058,6 +1063,8 @@
} else if (!strcmp(argv[i], "-y") || !strcmp(argv[i], "-yes")) {
_use_default_for_query = true;
PUT_VAR("..use_default_for_query..", 1.0);
+ } else if (!strcmp(argv[i], "-postscript")){
+ _export_postscript = true;
#if 0
} else if (!strcmp(argv[i], "-e")) {
// User wants to do cmd in argv[i+1]
@@ -1190,6 +1197,8 @@
gr_textput(" Makes Gri print out command lines as they are executed.\n");
gr_textput(" -true or -y\n");
gr_textput(" Makes Gri think the answer to all `query's is RETURN.\n");
+ gr_textput(" -postscript\n");
+ gr_textput(" Export a PostScript file instead of an EPS file.\n");
#if 0
gr_textput(" -e cmd\n");
gr_textput(" BUG: NOT IMPLEMENTED YET!\n");
|
GitWeb