Subversion Repositories wimsdev

Rev

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="&nbsp;"; 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