Rev 5523 | Rev 6208 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 10 | reyssat | 1 | /* Copyright (C) 1998-2003 XIAO, Gang of Universite de Nice - Sophia Antipolis |
| 2 | * |
||
| 3 | * This program is free software; you can redistribute it and/or modify |
||
| 4 | * it under the terms of the GNU General Public License as published by |
||
| 5 | * the Free Software Foundation; either version 2 of the License, or |
||
| 6 | * (at your option) any later version. |
||
| 7 | * |
||
| 8 | * This program is distributed in the hope that it will be useful, |
||
| 9 | * but WITHOUT ANY WARRANTY; without even the implied warranty of |
||
| 10 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
||
| 11 | * GNU General Public License for more details. |
||
| 12 | * |
||
| 13 | * You should have received a copy of the GNU General Public License |
||
| 14 | * along with this program; if not, write to the Free Software |
||
| 15 | * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
||
| 16 | */ |
||
| 17 | |||
| 18 | /* fonts which should have align=middle */ |
||
| 19 | char *middle_fonts=",y,beta,eta,mu,phi,rho,varphi,psi,\ |
||
| 20 | le,leq,ge,geq,pm,ne,neq,\ |
||
| 21 | subseteq,supseteq,wp,\ |
||
| 22 | int,oint,Vert,\ |
||
| 23 | QQ,\ |
||
| 24 | eufQ,eufz,\ |
||
| 25 | leftpar2,leftpar3,leftpar4,leftpar5,leftpar6,\ |
||
| 26 | leftpar7,leftpar8,leftpar9,leftpar10,leftpar11,leftpar12,\ |
||
| 27 | rightpar2,rightpar3,rightpar4,rightpar5,rightpar6,\ |
||
| 28 | rightpar7,rightpar8,rightpar9,rightpar10,rightpar11,rightpar12,\ |
||
| 29 | leftbrace2,leftbrace3,leftbrace4,leftbrace5,leftbrace6,\ |
||
| 30 | leftbrace7,leftbrace8,leftbrace9,leftbrace10,leftbrace11,leftbrace12,\ |
||
| 31 | rightbrace2,rightbrace3,rightbrace4,rightbrace5,rightbrace6,\ |
||
| 32 | rightbrace7,rightbrace8,rightbrace9,rightbrace10,rightbrace11,rightbrace12,"; |
||
| 33 | |||
| 34 | /* These are temporary definitions. */ |
||
| 35 | char *mathfont_dir="mathfonts"; |
||
| 36 | |||
| 37 | /* tex font size list */ |
||
| 38 | int texsize_list[]={63,69,76,83,91,100,109,120,131,144,158,173}; |
||
| 39 | int texbasesize=6; /* defaults to 109 */ |
||
| 40 | int usertexsize=-1; /* non-negative if defined */ |
||
| 41 | #define texsize_no (sizeof(texsize_list)/sizeof(texsize_list[0])) |
||
| 42 | |||
| 43 | int current_tex_size; |
||
| 44 | |||
| 45 | void fix_tex_size(void) |
||
| 46 | { |
||
| 47 | char buf[64],*p; int i,ts; |
||
| 48 | ts=texbasesize; |
||
| 49 | if(usertexsize>=0) ts=usertexsize+1; |
||
| 50 | if(getwimstexsize) p=getvar("wims_texsize"); else p=NULL; |
||
| 51 | if(p!=NULL && *p!=0) { |
||
| 52 | i=evalue(p); |
||
| 53 | if(i>=-5 && i<=5) ts+=i; |
||
| 54 | } |
||
| 55 | if(ts<0) ts=0; |
||
| 56 | if(ts>=texsize_no) ts=texsize_no-1; |
||
| 57 | current_tex_size=texsize_list[ts]; |
||
| 58 | snprintf(buf,sizeof(buf),"%d",current_tex_size); |
||
| 59 | setenv("texgif_density",buf,1); |
||
| 60 | } |
||
| 61 | |||
| 62 | /* takes math font image file string */ |
||
| 63 | char *mathfont(char *fontname) |
||
| 64 | { |
||
| 65 | char buf1[MAX_LINELEN+1],buf2[MAX_LINELEN+1]; |
||
| 66 | struct stat st; |
||
| 67 | |||
| 68 | if(fontname[0]=='\\') fontname++; |
||
| 69 | else if(strncmp(fontname,mathfont_prefix,strlen(mathfont_prefix))==0) |
||
| 70 | fontname+=strlen(mathfont_prefix); |
||
| 71 | if(strlen(fontname)==1 /* && strchr("xyz",fontname[0])==NULL */) { |
||
| 72 | char c=fontname[0]; |
||
| 5461 | bpr | 73 | if(!isalpha(c)) { // c is not a letter |
| 10 | reyssat | 74 | buf2[0]=c;buf2[1]=0; |
| 75 | } |
||
| 76 | else { |
||
| 5461 | bpr | 77 | // case of variable xyz in particular |
| 10 | reyssat | 78 | char *pp; |
| 79 | if(c=='f') pp=" "; else pp=""; |
||
| 5523 | bpr | 80 | snprintf(buf2,sizeof(buf2),"<i>%c</i>%s",c,pp); |
| 81 | //FIXME-> should we arrive here in mathml case ??? |
||
| 10 | reyssat | 82 | } |
| 83 | } |
||
| 5461 | bpr | 84 | else {/* interpret font with at least two caracters as \RR \calB - only outside of math environment |
| 85 | not useful in mathml*/ |
||
| 10 | reyssat | 86 | #ifdef CASE_INSENSITIVE_FS |
| 87 | char *underscore; |
||
| 88 | fix_tex_size(); underscore=""; |
||
| 89 | { |
||
| 90 | char *p, *p2; |
||
| 91 | for(p=fontname; *p && !isupper(*p); p++); |
||
| 92 | /* verify positionning of capital letter */ |
||
| 93 | if(*p && p>fontname && *(p+1)!=0) return NULL; |
||
| 94 | if(p==fontname && (fontname[1]!=*p || strlen(fontname)!=2)) { |
||
| 95 | for(p2=p+1; *p2 && !isupper(*p2); p2++); |
||
| 96 | if(*p2) return NULL; |
||
| 97 | } |
||
| 98 | if(*p) underscore="_"; |
||
| 99 | } |
||
| 100 | snprintf(buf1,sizeof(buf1),"%s/%d/%s%s.gif", |
||
| 101 | mathfont_dir,current_tex_size,fontname,underscore); |
||
| 102 | if(*underscore && stat(buf1,&st)!=0) |
||
| 103 | snprintf(buf1,sizeof(buf1),"%s/%d/%s.gif", |
||
| 104 | mathfont_dir,current_tex_size,fontname); |
||
| 105 | #else |
||
| 106 | fix_tex_size(); |
||
| 107 | snprintf(buf1,sizeof(buf1),"%s/%d/%s.gif", |
||
| 108 | mathfont_dir,current_tex_size,fontname); |
||
| 109 | #endif |
||
| 110 | if(stat(buf1,&st)!=0) return NULL; |
||
| 111 | snprintf(buf2,sizeof(buf2),",%s,",fontname); |
||
| 112 | if(strstr(middle_fonts,buf2)!=NULL) |
||
| 113 | snprintf(buf2,sizeof(buf2), |
||
| 3522 | bpr | 114 | "%s<img src=\"%s%s\" align=\"middle\" border=\"0\" \ |
| 5729 | bpr | 115 | alt=\"%s\"/>%s", |
| 10 | reyssat | 116 | mathalign_sup1,ref_base,buf1,fontname,mathalign_sup2); |
| 117 | else |
||
| 3522 | bpr | 118 | snprintf(buf2,sizeof(buf2),"<img src=\"%s%s\" vspace=\"0\" border=\"0\" \ |
| 5729 | bpr | 119 | alt=\"%s\"/>", |
| 10 | reyssat | 120 | ref_base,buf1,fontname); |
| 121 | } |
||
| 122 | force_setvar("wims_mathfont_",buf2); return getvar("wims_mathfont_"); |
||
| 123 | } |
||
| 124 |