Rev 7673 | Rev 8185 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
7673 | bpr | 1 | /* Copyright (C) 2012 WIMSDEV |
5522 | bpr | 2 | * This file is part of the WIMS package. |
3 | * |
||
4 | * This program is free software; you can redistribute it and/or modify |
||
5 | * it under the terms of the GNU General Public License as published by |
||
6 | * the Free Software Foundation; either version 2 of the License, or |
||
7 | * (at your option) any later version. |
||
8 | * |
||
9 | * This program is distributed in the hope that it will be useful, |
||
10 | * but WITHOUT ANY WARRANTY; without even the implied warranty of |
||
11 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
||
12 | * GNU General Public License for more details. |
||
13 | * |
||
14 | * You should have received a copy of the GNU General Public License |
||
15 | * along with this program; if not, write to the Free Software |
||
16 | * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
||
17 | */ |
||
18 | |||
19 | int mathml(char *p, int option ){ |
||
5578 | schaersvoo | 20 | if (strlen(p)==0) return 1 ; |
5522 | bpr | 21 | if( mathalign_base <= 1){ |
22 | internal_error(" why is wims trying mathml()?\n"); |
||
5595 | schaersvoo | 23 | return 0; // go to insmath with gifs |
5522 | bpr | 24 | } |
25 | if(strlen(p) > MAX_LINELEN ){ // too big ? probably too big for gifs as well ; but error signalling is better in gif-methods |
||
26 | mathalign_base = 1;// 0 or 1 position of tex_gifs |
||
5595 | schaersvoo | 27 | return 0; // go to insmath with gifs |
5522 | bpr | 28 | } |
29 | //singlespace(p); // needed for check unbalanced \left\right in wims_mathml.cc --> insmath.c |
||
30 | singlespace(p); |
||
31 | int my_pipe[2]; |
||
32 | pid_t pid; |
||
33 | if(pipe(my_pipe)){// pipe could not be opened... |
||
34 | internal_error("mathml(): pipe() failure.\n"); |
||
35 | mathalign_base = 1; |
||
5595 | schaersvoo | 36 | return 0; // go to insmath with gifs |
5522 | bpr | 37 | } |
38 | else |
||
39 | { |
||
40 | pid = fork(); |
||
41 | if (pid == (pid_t) 0){ |
||
42 | // this buffer should probably be set to 0.5 * MAX_LINELEN : mathml is very big ! |
||
43 | // if output mathml string larger ;ERROR will be signaled by wims_matml. |
||
44 | char mml_buffer[MAX_LINELEN+1]; |
||
45 | sprintf(mml_buffer, "%d", MAX_LINELEN);// int --> char |
||
46 | // setting --tex-size argument to wims_mathml.cc |
||
7673 | bpr | 47 | char mathml_tex_size[64];//this should be a string like "250%" |
5556 | schaersvoo | 48 | int texsize_list[]={20,30,50,70,90,100,120,130,150,180,220,300}; |
5522 | bpr | 49 | // analogue to mathfonts.c but now we talk % and we could make any amount of changes |
7673 | bpr | 50 | // not limited by font-size !! |
51 | // when math_with_gifs is removed from wims, we can rethink / improve this |
||
5522 | bpr | 52 | int idx = 6; |
53 | int use_js_zoom = 0; // default js-zoom in mathml if disabled |
||
54 | // enable via adm/light |
||
7673 | bpr | 55 | // next code is stolen from wims.c |
5522 | bpr | 56 | if(getvar("useropts") != NULL || getvar("wims_useropts") != NULL){ |
57 | char *u; |
||
58 | u = getvar("useropts"); // set via adm/light or via cookie? |
||
59 | if(u == NULL || *u == 0){ u=getvar("wims_useropts");} // wims_user? look into def file |
||
60 | if(u != NULL && *u != 0){ |
||
7673 | bpr | 61 | if(myisdigit(u[0])){ //2 digit code : 12,22,32,...,92 [tex_size mathalignbase] |
5522 | bpr | 62 | idx = u[0] - '0'; |
63 | if(idx < 0 || idx > 11){ idx = 6; } // the default value 120% |
||
64 | } |
||
65 | if(myisdigit(u[2]) && u[2]!=0){ // suppose we add 0 or 1 to useropts for using js-zoom on mathml? |
||
66 | // 3 digitcode: 621 == fontsize idx=6 & use mathml & use zoom |
||
67 | use_js_zoom = u[2] - '0'; |
||
68 | if(use_js_zoom > 1 || use_js_zoom < 0){ |
||
69 | use_js_zoom = 0; //disable js-zooming of mathml |
||
70 | } |
||
71 | } |
||
72 | } |
||
73 | } |
||
74 | else |
||
75 | { // we take the default setting from adm/management config |
||
76 | idx = atoi(getvar("wims_texbasesize")) ; |
||
77 | if(idx < 0 || idx > 11){ idx = 6; } // the default value 120% |
||
78 | } |
||
5578 | schaersvoo | 79 | // check is a module wants to disable zooming (eg drag&drop or others ) |
80 | // !set disable_zoom=yes |
||
81 | // if not set: disable_zoom="no"; see config.c |
||
82 | if( strcmp( getvar("disable_zoom") , "yes" ) == 0 ){ |
||
7673 | bpr | 83 | use_js_zoom = 0; |
5578 | schaersvoo | 84 | } |
5522 | bpr | 85 | // now write the "char" 200% into variable "mathml_tex_size" |
86 | snprintf(mathml_tex_size,sizeof(mathml_tex_size),"%d%%",texsize_list[idx]); |
||
87 | // int --> char : added % sign (needed for mathml) [%% = escaped %] |
||
88 | if(mathml_tex_size == NULL || strlen(mathml_tex_size) == 0 ){ // this should not happen |
||
7673 | bpr | 89 | sprintf(mathml_tex_size,"%s","120%"); |
90 | // if it goes wrong we set 120% |
||
5522 | bpr | 91 | // default in itex2MML was 110% : but we thought it was too small... ? |
92 | } |
||
93 | char zoom[2]; |
||
94 | snprintf(zoom, 2 ,"%d",use_js_zoom);// int --> char : "0" or "1" |
||
95 | char *argv[]={"wims_mathml","--use-zoom",zoom,"--tex-size",mathml_tex_size,"--max-mml-size",mml_buffer,"--tex-string",p,NULL}; |
||
8155 | bpr | 96 | /* This is the child process. Close other end first. */ |
5522 | bpr | 97 | close(my_pipe[0]); |
98 | dup2(my_pipe[1], 1); // send stdout to the pipe |
||
99 | dup2(my_pipe[1], 2); // send stderr to the pipe |
||
100 | close(my_pipe[1]); |
||
101 | execv("../bin/wims_mathml",argv); |
||
102 | internal_error("could not execute wims_mathml\n"); |
||
103 | mathalign_base = 1; |
||
5595 | schaersvoo | 104 | return 0; // go to insmath with gifs |
5522 | bpr | 105 | } |
106 | else |
||
107 | { |
||
108 | if (pid < (pid_t) 0){ |
||
109 | close(my_pipe[0]); // close the read end of the pipe in the parent |
||
110 | close(my_pipe[1]); // close the write end of the pipe in the parent |
||
111 | internal_error("mathml(): fork() failure.\n"); |
||
112 | mathalign_base = 1; |
||
5595 | schaersvoo | 113 | return 0; // go to insmath with gifs |
5522 | bpr | 114 | } |
115 | else |
||
116 | { |
||
7673 | bpr | 117 | int status; |
5522 | bpr | 118 | FILE *stream; |
119 | close(my_pipe[1]); // close the write end of the pipe in the parent |
||
120 | stream = fdopen (my_pipe[0], "r"); |
||
121 | char buffer[MAX_LINELEN+1]; |
||
122 | // make buffer filled with 'zero/null' |
||
123 | memset(buffer,'\0',MAX_LINELEN);//bzero(buffer,maxsize); |
||
8155 | bpr | 124 | /* read output from program line by line */ |
5522 | bpr | 125 | if (option == 1) { |
126 | *p=0; |
||
127 | while ( fgets(buffer, MAX_LINELEN, stream) != NULL ){ |
||
7673 | bpr | 128 | if(strcmp(buffer,"ERROR") != 0){ |
129 | mystrncpy(p, buffer, MAX_LINELEN-1); |
||
130 | } |
||
8155 | bpr | 131 | else /* ERROR close stream; close pipe; wait for clean exit */ |
5537 | schaersvoo | 132 | { |
8155 | bpr | 133 | fclose (stream); /* do not know if this is really needed... but it won't hurt ? */ |
7673 | bpr | 134 | close(my_pipe[0]); |
135 | waitpid(pid, &status, 0); |
||
8155 | bpr | 136 | mathalign_base=1; /* go to insmath with gifs */ |
7673 | bpr | 137 | return 0; |
5537 | schaersvoo | 138 | } |
5522 | bpr | 139 | } |
140 | } |
||
8155 | bpr | 141 | else /* this will probably not used ? remove it ? */ |
5522 | bpr | 142 | { |
7673 | bpr | 143 | while ( fgets(buffer, MAX_LINELEN, stream) != NULL ){ |
144 | if(strcmp(buffer,"ERROR") != 0){ |
||
145 | output("%s", buffer); |
||
146 | } |
||
5537 | schaersvoo | 147 | else |
148 | { |
||
7673 | bpr | 149 | mathalign_base=1; |
150 | return 0; |
||
5522 | bpr | 151 | } |
5537 | schaersvoo | 152 | } |
5522 | bpr | 153 | } |
154 | fclose (stream); |
||
155 | close(my_pipe[0]); |
||
156 | waitpid(pid, &status, 0); |
||
157 | } |
||
158 | } |
||
159 | } |
||
160 | return 1; |
||
161 | } |