From ad547a6b5986815fda458221149728d9d9ab1d87 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 25 Feb 2021 19:22:25 +0000 Subject: restore Build,TODO from r57911 git-svn-id: svn://tug.org/texlive/trunk@57915 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/upmendex/styfile.c | 343 +++++++++++++++++++++++++++++++++++ 1 file changed, 343 insertions(+) create mode 100644 Build/source/texk/upmendex/styfile.c (limited to 'Build/source/texk/upmendex/styfile.c') diff --git a/Build/source/texk/upmendex/styfile.c b/Build/source/texk/upmendex/styfile.c new file mode 100644 index 00000000000..1c94c900770 --- /dev/null +++ b/Build/source/texk/upmendex/styfile.c @@ -0,0 +1,343 @@ +#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)."); + } +} -- cgit v1.2.3