Subversion Repositories wimsdev

Compare Revisions

Ignore whitespace Rev 12247 → Rev 12248

/trunk/wims/src/Misc/Plouffe.c
32,9 → 32,9
#define lang_no (sizeof(langs)/sizeof(langs[0]))
 
char *post_msg[lang_no]={
" <small>(click on a value to check its meaning in another window)</small> ",
" <small>(cliquez sur une valeur pour voir sa signification dans une autre fen&ecirc;tre)</small> ",
" <small>(ÔÚÊý×ÖÉϵ¥»÷¿É¹©ÄãÔÚÁíÒ»ÊÓ´°ÄÚ²éÔÄÆäÒâÒå)</small> "
" <small>(click on a value to check its meaning in another window)</small> ",
" <small>(cliquez sur une valeur pour voir sa signification dans une autre fen&ecirc;tre)</small> ",
" <small>(ÔÚÊý×ÖÉϵ¥»÷¿É¹©ÄãÔÚÁíÒ»ÊÓ´°ÄÚ²éÔÄÆäÒâÒå)</small> "
};
 
/***************** Nothing should need change hereafter *****************/
45,58 → 45,58
 
int getlang(void)
{
char *p;
int i;
p=getenv("w_module_language");
if(p==NULL || *p==0) p=getenv("w_lang");
if(p==NULL || *p==0) return 0; /* English is default */
for(i=0;i<lang_no && strcmp(p,langs[i])!=0;i++);
if(i<lang_no) return i; else return 0;
char *p;
int i;
p=getenv("w_module_language");
if(p==NULL || *p==0) p=getenv("w_lang");
if(p==NULL || *p==0) return 0; /* English is default */
for(i=0;i<lang_no && strcmp(p,langs[i])!=0;i++);
if(i<lang_no) return i; else return 0;
}
 
int main(int argc,char *argv[])
{
char *p,*pp,*p2,*p3,*ps,*last;
char buf[parmlim];
int i,got;
char *p,*pp,*p2,*p3,*ps,*last;
char buf[parmlim];
int i,got;
 
parm=getenv("wims_exec_parm");
parm=getenv("wims_exec_parm");
/* nothing to do if no parameter */
if(parm==NULL || *parm==0) return 0;
i=strlen(parm); if(i<0 || i>parmlim) {
fprintf(stderr,"Plouffe: parameter too long. \n"); exit(1);
}
got=0;
for(p=last=parm;*p!=0;p++) {
if(*p=='<') {
for(;*p!=0 && *p!='>'; p++);
if(*p==0) p--;
continue;
}
if(!isdigit(*p)) continue;
for(i=0,pp=p;isdigit(*pp) || *pp=='.';pp++) if(*pp=='.') i++;
if(i>1) { /* several decimal points. */
p=pp-1;continue;
}
for(p2=pp-1;p2>=p && (*p2=='.' || *p2=='0');p2--);
p2++;
for(i=0,p3=p;p3<p2 && *p3!='.';p3++);
for(i=0,ps=p;ps<p2 && (*ps=='0' || *ps=='.'); ps++);
if(p3>=p2 || p2<ps+Plouffe_min) {
p=pp-1;continue;
}
memmove(buf,last,p-last);buf[p-last]=0;
printf("%s",buf);last=p;
i=p2-p;if(i>Plouffe_max) i=Plouffe_max;
memmove(buf,p,i);buf[i]=0;
printf(WebPlouffe,buf);
memmove(buf,p,pp-p);buf[pp-p]=0;
printf("%s</a>",buf);last=pp;
got=1;p=pp-1;
if(parm==NULL || *parm==0) return 0;
i=strlen(parm); if(i<0 || i>parmlim) {
fprintf(stderr,"Plouffe: parameter too long. \n"); exit(1);
}
got=0;
for(p=last=parm;*p!=0;p++) {
if(*p=='<') {
for(;*p!=0 && *p!='>'; p++);
if(*p==0) p--;
continue;
}
if(*last!=0) printf("%s",last);
if(got) printf("%s",post_msg[getlang()]);
return 0;
if(!isdigit(*p)) continue;
for(i=0,pp=p;isdigit(*pp) || *pp=='.';pp++) if(*pp=='.') i++;
if(i>1) { /* several decimal points. */
p=pp-1;continue;
}
for(p2=pp-1;p2>=p && (*p2=='.' || *p2=='0');p2--);
p2++;
for(i=0,p3=p;p3<p2 && *p3!='.';p3++);
for(i=0,ps=p;ps<p2 && (*ps=='0' || *ps=='.'); ps++);
if(p3>=p2 || p2<ps+Plouffe_min) {
p=pp-1;continue;
}
memmove(buf,last,p-last);buf[p-last]=0;
printf("%s",buf);last=p;
i=p2-p;if(i>Plouffe_max) i=Plouffe_max;
memmove(buf,p,i);buf[i]=0;
printf(WebPlouffe,buf);
memmove(buf,p,pp-p);buf[pp-p]=0;
printf("%s</a>",buf);last=pp;
got=1;p=pp-1;
continue;
}
if(*last!=0) printf("%s",last);
if(got) printf("%s",post_msg[getlang()]);
return 0;
}