Rev 5556 | Rev 5595 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 5522 | bpr | 1 | /* Copyright (C) 2012 WIMSDEV |
| 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"); |
||
| 23 | return 0; // got to insmath with gifs |
||
| 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 |
||
| 27 | return 0; // got to insmath with gifs |
||
| 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; |
||
| 36 | return 0; // got to insmath with gifs |
||
| 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 |
||
| 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 |
| 50 | // not limited by font-size !! |
||
| 5556 | schaersvoo | 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 |
||
| 55 | // next code is stolen from wims.c |
||
| 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){ |
||
| 61 | if(myisdigit(u[0])){ //2 digit code : 12,22,32,...,92 [tex_size mathalignbase] |
||
| 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 ){ |
||
| 83 | use_js_zoom = 0; |
||
| 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 |
||
| 89 | sprintf(mathml_tex_size,"%s","120%"); |
||
| 90 | // if it goes wrong we set 120% |
||
| 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}; |
||
| 96 | /* This is the child process. Close other end first. */ |
||
| 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; |
||
| 104 | return 0; // got to insmath with gifs |
||
| 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; |
||
| 113 | return 0; // got to insmath with gifs |
||
| 114 | } |
||
| 115 | else |
||
| 116 | { |
||
| 117 | FILE *stream; |
||
| 118 | close(my_pipe[1]); // close the write end of the pipe in the parent |
||
| 119 | stream = fdopen (my_pipe[0], "r"); |
||
| 120 | char buffer[MAX_LINELEN+1]; |
||
| 121 | // make buffer filled with 'zero/null' |
||
| 122 | memset(buffer,'\0',MAX_LINELEN);//bzero(buffer,maxsize); |
||
| 123 | /* read output from program line by line*/ |
||
| 124 | if (option == 1) { |
||
| 125 | *p=0; |
||
| 126 | while ( fgets(buffer, MAX_LINELEN, stream) != NULL ){ |
||
| 5537 | schaersvoo | 127 | if(strcmp(buffer,"ERROR") != 0){ |
| 128 | mystrncpy(p, buffer, MAX_LINELEN-1); |
||
| 129 | } |
||
| 130 | else |
||
| 131 | { |
||
| 132 | mathalign_base=1; |
||
| 133 | return 0; |
||
| 134 | } |
||
| 5522 | bpr | 135 | } |
| 136 | } |
||
| 137 | else |
||
| 138 | { |
||
| 5537 | schaersvoo | 139 | while ( fgets(buffer, MAX_LINELEN, stream) != NULL ){ |
| 140 | if(strcmp(buffer,"ERROR") != 0){ |
||
| 141 | output("%s", buffer); |
||
| 142 | } |
||
| 143 | else |
||
| 144 | { |
||
| 145 | mathalign_base=1; |
||
| 146 | return 0; |
||
| 5522 | bpr | 147 | } |
| 5537 | schaersvoo | 148 | } |
| 5522 | bpr | 149 | } |
| 150 | fclose (stream); |
||
| 151 | close(my_pipe[0]); |
||
| 152 | int status; |
||
| 153 | waitpid(pid, &status, 0); |
||
| 154 | } |
||
| 155 | } |
||
| 156 | } |
||
| 157 | return 1; |
||
| 158 | } |