#include "mendex.h" #include #include "exvar.h" #include "kp.h" FILE *fp; static char icu_attr_str[STYBUFSIZE]; static void convline(char *buff1, int start, char *buff2); static int scompare(char *buff1, const char *buff2); static int getparam(char *buff, const char *paraname, char *param); static int getparachar(char *buff, const char *paraname, char *param); static size_t sstrlen(const char *buff); static int sstrcmp(const char *s1, const char *s2); static int sstrncmp(const char *s1, const char *s2, size_t len); static int escape_mode=0; static char * bfgets (char *buf, int size, FILE *fp) { char *p, *q; p = fgets (buf, size, fp); for (q = buf; *q; q++) { if(*q == '\r') { *q++ = '\n'; *q = '\0'; break; } } return p; } #define fgets bfgets /* read style file */ void styread(const char *filename) { int i,cc; char buff[4096],tmp[4096]; filename = KP_find_file(&kp_ist,filename); if(kpse_in_name_ok(filename)) fp=fopen(filename,"rb"); else fp=NULL; if (fp==NULL) { fprintf(stderr,"%s does not exist.\n",filename); exit(0); } for (i=0;;i++) { if (fgets(buff,4095,fp)==NULL) break; if (getparam(buff,"keyword",keyword)) continue; if (getparachar(buff,"arg_open",&arg_open)) continue; if (getparachar(buff,"arg_close",&arg_close)) continue; if (getparachar(buff,"range_open",&range_open)) continue; if (getparachar(buff,"range_close",&range_close)) continue; if (getparachar(buff,"level",&level)) continue; if (getparachar(buff,"actual",&actual)) continue; if (getparachar(buff,"encap",&encap)) continue; if (getparachar(buff,"quote","e)) continue; if (getparachar(buff,"escape",&escape)) continue; if (getparam(buff,"preamble",preamble)) continue; if (getparam(buff,"postamble",postamble)) continue; if (getparam(buff,"group_skip",group_skip)) continue; if (getparam(buff,"lethead_prefix",lethead_prefix)) continue; if (getparam(buff,"heading_prefix",lethead_prefix)) continue; if (getparam(buff,"lethead_suffix",lethead_suffix)) continue; if (getparam(buff,"heading_suffix",lethead_suffix)) continue; if (getparam(buff,"symhead_positive",symhead_positive)) continue; if (getparam(buff,"symhead_negative",symhead_negative)) continue; if (getparam(buff,"numhead_positive",numhead_positive)) continue; if (getparam(buff,"numhead_negative",numhead_negative)) continue; cc=scompare(buff,"lethead_flag"); if (cc!= -1) { lethead_flag=atoi(&buff[cc]); continue; } cc=scompare(buff,"heading_flag"); if (cc!= -1) { lethead_flag=atoi(&buff[cc]); continue; } cc=scompare(buff,"priority"); if (cc!= -1) { priority=atoi(&buff[cc]); continue; } if (getparam(buff,"item_0",item_0)) continue; if (getparam(buff,"item_1",item_1)) continue; if (getparam(buff,"item_2",item_2)) continue; if (getparam(buff,"item_2",item_2)) continue; if (getparam(buff,"item_01",item_01)) continue; if (getparam(buff,"item_x1",item_x1)) continue; if (getparam(buff,"item_12",item_12)) continue; if (getparam(buff,"item_x2",item_x2)) continue; if (getparam(buff,"delim_0",delim_0)) continue; if (getparam(buff,"delim_1",delim_1)) continue; if (getparam(buff,"delim_2",delim_2)) continue; if (getparam(buff,"delim_n",delim_n)) continue; if (getparam(buff,"delim_r",delim_r)) continue; if (getparam(buff,"delim_t",delim_t)) continue; if (getparam(buff,"suffix_2p",suffix_2p)) continue; if (getparam(buff,"suffix_3p",suffix_3p)) continue; if (getparam(buff,"suffix_mp",suffix_mp)) continue; if (getparam(buff,"encap_prefix",encap_prefix)) continue; if (getparam(buff,"encap_infix",encap_infix)) continue; if (getparam(buff,"encap_suffix",encap_suffix)) continue; cc=scompare(buff,"line_max"); if (cc!= -1) { line_max=atoi(&buff[cc]); continue; } if (getparam(buff,"indent_space",indent_space)) continue; cc=scompare(buff,"indent_length"); if (cc!= -1) { indent_length=atoi(&buff[cc]); continue; } if (getparam(buff,"symbol",symbol)) continue; cc=scompare(buff,"symbol_flag"); if (cc!= -1) { symbol_flag=atoi(&buff[cc]); continue; } cc=scompare(buff,"letter_head"); if (cc!= -1) { letter_head=atoi(&buff[cc]); continue; } if (getparam(buff,"atama",tmp)) { multibyte_to_widechar(atama,STYBUFSIZE,tmp); continue; } if (getparam(buff,"tumunja",tmp)) { multibyte_to_widechar(tumunja,STYBUFSIZE,tmp); continue; } if (getparam(buff,"hanzi_head",tmp)) { multibyte_to_widechar(hanzi_head,STYBUFSIZE,tmp); continue; } if (getparam(buff,"page_compositor",page_compositor)) continue; if (getparam(buff,"page_precedence",page_precedence)) continue; if (getparam(buff,"character_order",character_order)) continue; if (getparam(buff,"icu_locale", icu_locale )) continue; cc=scompare(buff,"icu_rules"); if (cc!= -1) { escape_mode=1; getparam(buff,"icu_rules",icu_rules); escape_mode=0; continue; } if (getparam(buff,"icu_attributes", icu_attr_str )) continue; } fclose(fp); } /* analize string parameter of style file */ static void convline(char *buff1, int start, char *buff2) { int i,j,cc; for (i=start,j=cc=0;;i++) { if (buff1[i]=='\"') { if (cc==0) { cc=1; } else { buff2[j]='\0'; break; } } else if ((buff1[i]=='\n')||(buff1[i]=='\0')) { if (cc==1) { buff2[j++]='\n'; } if (fgets(buff1,4095,fp)==NULL) { buff2[j]='\0'; break; } i= -1; } else if (cc==1) { if ((unsigned char)buff1[i]>0x80) { int len = multibytelen((unsigned char)buff1[i]); if (len<0) { verb_printf(efp,"\nWarning: Illegal input of lead byte 0x%x in UTF-8.", (unsigned char)buff1[i]); continue; } while(len--) { buff2[j++]=buff1[i++]; } i--; continue; } else if (buff1[i]=='\\' && !escape_mode) { i++; if (buff1[i]=='\\') buff2[j]='\\'; else if (buff1[i]=='n') buff2[j]='\n'; else if (buff1[i]=='t') buff2[j]='\t'; else if (buff1[i]=='r') buff2[j]='\r'; else if (buff1[i]=='\"') buff2[j]='\"'; } else buff2[j]=buff1[i]; j++; } } } /* compare strings */ static int scompare(char *buff1, const char *buff2) { int i; if (sstrlen(buff1) == sstrlen(buff2)) { if (sstrcmp(buff1,buff2) == 0) { if (fgets(buff1,4095,fp)==NULL) return -1; return 0; } return -1; } for (i=0;i0) { pos+=10; attr=UCOL_ALTERNATE_HANDLING; if (strstr(pos,"shifted")) icu_attributes[attr]=UCOL_SHIFTED; else if (strstr(pos,"non-ignorable")) icu_attributes[attr]=UCOL_NON_IGNORABLE; else verb_printf(efp,"\nWarning: Illegal input for icu_attributes (alternate)."); } if ((pos=strstr(tmp,"strength:"))>0) { pos+=9; attr=UCOL_STRENGTH; if (strstr(pos,"primary")) icu_attributes[attr]=UCOL_PRIMARY; else if (strstr(pos,"secondary")) icu_attributes[attr]=UCOL_SECONDARY; else if (strstr(pos,"tertiary")) icu_attributes[attr]=UCOL_TERTIARY; else if (strstr(pos,"quaternary")) icu_attributes[attr]=UCOL_QUATERNARY; else if (strstr(pos,"identical")) icu_attributes[attr]=UCOL_IDENTICAL; else verb_printf(efp,"\nWarning: Illegal input for icu_attributes (strength)."); } if ((pos=strstr(tmp,"french-collation:"))>0) { pos+=17; attr=UCOL_FRENCH_COLLATION; if (strstr(pos,"on")) icu_attributes[attr]=UCOL_ON; else if (strstr(pos,"off")) icu_attributes[attr]=UCOL_OFF; else verb_printf(efp,"\nWarning: Illegal input for icu_attributes (french-collation)."); } if ((pos=strstr(tmp,"case-first:"))>0) { pos+=11; attr=UCOL_CASE_FIRST; if (strstr(pos,"off")) icu_attributes[attr]=UCOL_OFF; else if (strstr(pos,"upper-first")) icu_attributes[attr]=UCOL_UPPER_FIRST; else if (strstr(pos,"lower-first")) icu_attributes[attr]=UCOL_LOWER_FIRST; else verb_printf(efp,"\nWarning: Illegal input for icu_attributes (case-first)."); } if ((pos=strstr(tmp,"case-level:"))>0) { pos+=11; attr=UCOL_CASE_LEVEL; if (strstr(pos,"on")) icu_attributes[attr]=UCOL_ON; else if (strstr(pos,"off")) icu_attributes[attr]=UCOL_OFF; else verb_printf(efp,"\nWarning: Illegal input for icu_attributes (case-level)."); } if ((pos=strstr(tmp,"normalization-mode:"))>0) { pos+=19; attr=UCOL_NORMALIZATION_MODE; if (strstr(pos,"on")) icu_attributes[attr]=UCOL_ON; else if (strstr(pos,"off")) icu_attributes[attr]=UCOL_OFF; else verb_printf(efp,"\nWarning: Illegal input for icu_attributes (normalization-mode)."); } }