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
|
/***************************************************************************
* mglcgi.cpp is part of Math Graphic Library
* Copyright (C) 2007-2016 Alexey Balakin <mathgl.abalakin@gmail.ru> *
* *
* This program is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
* *
* This program is distributed in the hope that it will be useful, *
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
* GNU General Public License for more details. *
* *
* You should have received a copy of the GNU General Public License *
* along with this program; if not, write to the *
* Free Software Foundation, Inc., *
* 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
***************************************************************************/
#include <locale.h>
#include "mgl2/mgl.h"
//-----------------------------------------------------------------------------
int MGL_LOCAL_CONST mgl_hex(char ch)
{
int res=-1;
if(ch>='0' && ch<='9') res = ch-'0';
if(ch>='a' && ch<='f') res = ch-'a'+10;
if(ch>='A' && ch<='F') res = ch-'A'+10;
return res;
}
//-----------------------------------------------------------------------------
/// Parse CGI string buf and return usual string as val for given name.
/// The size of val should be the same as size of buf.
void mgl_get_value(const char *buf, const char *name, char *val)
{
const char *pos = strstr(buf,name);
memset(val,0,strlen(buf)+1);
if(pos && (pos==buf || pos[-1]=='&'))
{
pos+=4; // shift for "mgl="
size_t l=strlen(pos);
for(size_t i=0, j=0;i<l;i++,j++)
{
char ch=pos[i];
if(ch=='&') break;
else if(ch=='+') val[j]=' ';
else if(ch=='%' && i+2<l)
{ val[j] = 16*mgl_hex(pos[i+1]) + mgl_hex(pos[i+2]); i+=2; }
else val[j]=ch;
}
}
}
//-----------------------------------------------------------------------------
int main(int argc, char **argv)
{
mgl_textdomain(argv?argv[0]:NULL,"");
mgl_suppress_warn(true);
mglGraph gr;
mglParse p(true);
mgl_ask_func = 0; mgl_progress_func = 0;
// read script
char *str, *buf;
const char *method = getenv("REQUEST_METHOD");
bool alloc=false;
if(method && strcmp(method,"GET"))
{
long len=atol(getenv("CONTENT_LENGTH"));
buf = new char[len+2]; alloc=true;
fgets(buf, len+1, stdin);
}
else buf = getenv("QUERY_STRING");
if(buf==0) { printf(_("There is no query. Exit.\n")); return 0; }
str = new char[strlen(buf)+1];
mgl_get_value(buf,"mgl",str);
p.Execute(&gr,str);
printf("Content-Type: text/html\n\n");
printf("<!DOCTYPE html>\n");
printf("<html><head><meta http-equiv=\"content-type\" content=\"text/html; charset=utf-8\">\n");
printf("<title>MathGL - library for scientific graphics</title></head><body>\n");
// printf("<h2>MGL script output</h2>\n<p>The script</p>\n<pre>%s</pre><p>give</p>\n",str);
gr.WriteSVG("-"); fflush(stdout);
printf("\n</body></html>\n");
// printf("Content-Type: image/png\n\n"); gr.WritePNG("-");
if(alloc) delete []buf;
return 0;
}
//-----------------------------------------------------------------------------
|
