WebSVN – wimsdev – Diff – /trunk/wims/src/Misc/modind.c

 #define MAX_LANGS    MAX_LANGUAGES
 #define MAX_MODULES    65536
 char *moduledir=    "public_html/modules";
 char *sheetdir=     "public_html/bases/sheet";
+char *glossarydir=  "public_html/scripts/data/glossary";
 char *dicdir=       "public_html/bases";
 char *outdir=       "public_html/bases/site2";
 char *sheetoutdir=  "public_html/bases/sheet/index";
+char *glossaryoutdir=  "public_html/scripts/data/glossary/index";
 char *maindic=      "sys/words";
 char *groupdic=     "sys/wgrp/wgrp";
 char *suffixdic=    "sys/suffix";
 char *domaindic=    "sys/domaindic";
 char *ignoredic=    "sys/indignore";
   char *pp;
   for(pp=strchr(p,','); pp; pp=strchr(pp+1,','))
     string_modify3(p,pp,pp+1,", ");
+}
+/* _getdef from lines.c except the error msg*/
 void _getdef(char buf[], char *name, char value[])
+{
-  char *p1, *p2, *p3;
+  char *p1, *p2, *p3, *p4;
-  value[0]=0;
+  if(*name==0) goto nothing;      /* this would create segfault. */
   for(p1=strstr(buf,name); p1!=NULL; p1=strstr(p1+1,name)) {
     p2=find_word_start(p1+strlen(name));
     if((p1>buf && !isspace(*(p1-1))) || *p2!='=') continue;
-    p3=p1; while(p3>buf && isspace(*(p3-1)) && *(p3-1)!='\n') p3--;
+    p3=p1; while(p3>buf && *(p3-1)!='\n') p3--;
+    p3=find_word_start(p3);
-    if(p3>buf && *(p3-1)!='\n') continue;
+    if(p3<p1 && *p3!='!') continue;
+    if(p3<p1) {
+      p3++; p4=find_word_end(p3);
+      if(find_word_start(p4)!=p1) continue;
+      if(p4-p3!=3 || (strncmp(p3,"set",3)!=0 &&
-    p3=strchr(p2,'\n');
+           strncmp(p3,"let",3)!=0 &&
+           strncmp(p3,"def",3)!=0)) {
+        if(p4-p3!=6 || strncmp(p3,"define",6)!=0) continue;
+      }
+    }
+    p2++;p3=strchr(p2,'\n'); if(p3==NULL) p3=p2+strlen(p2);
-    p2=find_word_start(p2+1);
+    p2=find_word_start(p2);
-    if(p3 <= p2) continue;
+    if(p2>p3) goto nothing;
-    snprintf(value,MAX_LINELEN,"%s",p2);
+    /*if(p3-p2>=MAX_LINELEN) user_error("cmd_output_too_long");*/
-    if(p3!=NULL && p3-p2<MAX_LINELEN) value[p3-p2]=0;
+    memmove(value,p2,p3-p2); value[p3-p2]=0;
-    strip_trailing_spaces2(value);
+    strip_trailing_spaces(value); return;
-    break;
+  }
+nothing:
+  value[0]=0; return;
+}
 /*  Get variable definition from a file.
  * Result stored in buffer value of length MAX_LINELEN.
  */
     l=p2-p1; if(*p2) *p2++=0;
     for(i=0;i<langcnt;i++) if(strncasecmp(lang[i],p1,2)==0) break;
     if(i<langcnt) thislang=i; else continue;
     mod[modcnt].name=p1;
     mod[modcnt].langs[0]=thislang;
+    mod[modcnt].langcnt=1;
+    modcnt++;
+  }
+}
+void gprep(void)
+{
+  char *p1,*p2,*s;
+  int l,i;
+  modcnt=0;
+  s=getenv("glist"); if(s==NULL) return;
+  l=strlen(s); if(l<0 || l>100*MAX_LINELEN) return;
+  mlist=xmalloc(l+16); ovlstrcpy(mlist,s);
+  for(p1=find_word_start(mlist); *p1 && modcnt<MAX_MODULES; p1=find_word_start(p2)) {
+    p2=find_word_end(p1);
+    if(*p2) *p2++=0;
+    s=strchr(p1,'/');
+    if(s != NULL) s=strchr(s+1,'/');
+    if(s==NULL) {
+      fprintf(stderr,"modind: no language %s\n",p1); exit(1);
+    }
+    s++;
+    for(i=0;i<langcnt;i++) if(strncasecmp(lang[i],s,2)==0) break;
+    if(i==langcnt) continue;
+    mod[modcnt].name=p1;
+    mod[modcnt].langs[0]=i;
     mod[modcnt].langcnt=1;
     modcnt++;
+  }
+}
   "title", "description",
   "duration", "severity",
   "level", "domain",
   "keywords", "reserved1", "reserved2", "information"
 };
+/* correspond to the order of sheetindex */
+char *glindex[]={
+  "gl_title", "gl_description",
+  "", "",
+  "gl_level", "gl_domain",
+  "gl_keywords","","",""};
 #define SHEETINDEX_NO (sizeof(sheetindex)/sizeof(sheetindex[0]))
-char sindbuf[SHEETINDEX_NO][MAX_LINELEN+1];
+char gsindbuf[SHEETINDEX_NO][MAX_LINELEN+1];
+/* do not modify the order, correspond to the order in the sheet file */
 enum{s_title, s_description,
       s_duration, s_severity,
       s_level, s_domain,
       s_keywords, s_reserved1, s_reserved2,
       s_information
   snprintf(fbuf,sizeof(fbuf),"%s/%s.def",sheetdir,mod[serial].name);
   indf=fopen(fbuf,"r"); if(indf==NULL) return -1;
   l=fread(ibuf,1,MAX_LINELEN,indf); fclose(indf);
   if(l>0 && l<MAX_LINELEN) ibuf[l]=0; else return -1;
-  for(i=0;i<SHEETINDEX_NO;i++) sindbuf[i][0]=0;
+  for(i=0;i<SHEETINDEX_NO;i++) gsindbuf[i][0]=0;
   for(i=0,p1=find_word_start(ibuf);
       i<SHEETINDEX_NO-1 && *p1!=':' && *p1!=0;
       i++,p1=p2) {
     p2=strchr(p1,'\n');
     if(p2!=NULL) *p2++=0; else p2=p1+strlen(p1);
     p1=find_word_start(p1); strip_trailing_spaces2(p1);
-    snprintf(sindbuf[i],MAX_LINELEN,"%s",p1);
+    snprintf(gsindbuf[i],MAX_LINELEN,"%s",p1);
+  }
   p2=strstr(p1,"\n:"); if(p2==NULL) p2=p1+strlen(p1);
   else *p2=0;
   p1=find_word_start(p1); strip_trailing_spaces2(p1);
   for(p2=p1;*p2;p2++) if(*p2=='\n') *p2=' ';
-  ovlstrcpy(sindbuf[s_information],p1);
+  ovlstrcpy(gsindbuf[s_information],p1);
+  return 0;
+}
+int glossary_index(int serial)
+{
+  char fbuf[MAX_LINELEN+1], ibuf[MAX_LINELEN+1];
+  FILE *indf;
+  int i,l;
+  snprintf(fbuf,sizeof(fbuf),"%s/%s",glossarydir,mod[serial].name);
+  indf=fopen(fbuf,"r");
+  l=fread(ibuf,1,MAX_LINELEN,indf); fclose(indf);
+  if(l>0 && l<MAX_LINELEN) ibuf[l]=0; else return -1;
+  for(i=0;i<SHEETINDEX_NO;i++) {
+    _getdef(ibuf,glindex[i],gsindbuf[i]);
+  }
   return 0;
+}
 unsigned char categories[16];
 char taken[MAX_LINELEN+1];
   i_title,i_description,i_category,i_domain,i_keywords,
   i_require,i_author,
   i_keywords_ca,i_keywords_en,i_keywords_fr,i_keywords_it,i_keywords_nl,
   i_title_ca,i_title_en,i_title_fr,i_title_it,i_title_nl
   };
-  #define trcnt (sizeof(trlist)/sizeof(trlist[0]))
+  int trcnt=sizeof(trlist)/sizeof(trlist[0]);
   char *p1, *p2, *pp, *q, buf[MAX_LINELEN+1], lbuf[16];
   FILE *f;
   if(module_index(name)) return;
   towords(indbuf[i_category]);
   char mdic[MAX_LINELEN+1], sdic[MAX_LINELEN+1], gdic[MAX_LINELEN+1], ddic[MAX_LINELEN+1];
   for(j=0;j<langcnt;j++) {
     snprintf(namebuf,sizeof(namebuf),"%s/weight.%s",outdir,lang[j]);
     weightf=fopen(namebuf,"w");
     snprintf(mdic,sizeof(mdic),"%s/%s.%s",dicdir,maindic,lang[j]);
     snprintf(sdic,sizeof(sdic),"%s/%s.%s",dicdir,suffixdic,lang[j]);
     snprintf(gdic,sizeof(gdic),"%s/%s.%s",dicdir,groupdic,lang[j]);
     snprintf(ddic,sizeof(ddic),"%s/%s.%s",dicdir,domaindic,lang[j]);
     suffix_dic(sdic); prepare_dic(gdic);
     gdicbuf=dicbuf; gentrycount=entrycount;
     memmove(gentry,entry,gentrycount*sizeof(entry[0]));
     prepare_dic(mdic);
     mdicbuf=dicbuf; mentrycount=entrycount;
     memmove(mentry,entry,mentrycount*sizeof(entry[0]));
     prepare_dic(ddic);
     ddicbuf=dicbuf; dentrycount=entrycount;
     memmove(dentry,entry,dentrycount*sizeof(entry[0]));
     unknown_type=unk_leave; translate(ignore[j]);
     if(mentrycount>0) free(mdicbuf);
     if(gentrycount>0) free(gdicbuf);
     if(suffixcnt>0) free(sufbuf);
     if(dentrycount>0) free(ddicbuf);
     if(weightf) fclose(weightf);
   }
 }
 /* FIXME ? differences with appenditem - use fprintf instead of  snprintf */
 void sappenditem(char *word, int lind, int serial, int weight)
+{
   int ll;
   char *p;
   ovlstrcpy(taken+takenlen,word);
   takenlen+=ll; tweight+=weight;
   fprintf(indf,"%s:%d?%d\n",word,serial,weight);
+}
-void onesheet(int serial, int lind)
+void onesg(int serial, int lind, int index(int))
+{
   int i;
   unsigned char trlist[]={
-  s_title,s_description,s_domain,s_keywords,s_information
+    s_title,s_description,s_domain,s_keywords,s_information
   };
-  #define trcnt (sizeof(trlist)/sizeof(trlist[0]))
+  int rcnt=sizeof(trlist)/sizeof(trlist[0]);
   char *p1, *p2, buf[MAX_LINELEN+1];
-  if(sheet_index(serial)) return;
+  if(index(serial)) return;
-  fprintf(listf,"%s\n",mod[serial].name+3);
+  fprintf(listf,"%s\n",mod[serial].name);
-  fprintf(titf,"%d:%s\n",serial,sindbuf[s_title]);
+  fprintf(titf,"%d:%s\n",serial,gsindbuf[s_title]);
-  fprintf(descf,"%d:%s\n",serial,sindbuf[s_description]);
+  fprintf(descf,"%d:%s\n",serial,gsindbuf[s_description]);
-  fprintf(remf,"%d:%s\n",serial,sindbuf[s_information]);
+  fprintf(remf,"%d:%s\n",serial,gsindbuf[s_information]);
-  fprintf(titlef,"%s:%s\n",mod[serial].name,sindbuf[s_title]);
+  fprintf(titlef,"%s:%s\n",mod[serial].name,gsindbuf[s_title]);
   entrycount=dentrycount; dicbuf=ddicbuf;
   memmove(entry,dentry,dentrycount*sizeof(entry[0]));
   unknown_type=unk_leave;
-  for(i=0;i<trcnt;i++) {
+  for(i=0;i<rcnt;i++) {
-    detag(sindbuf[trlist[i]]);
+    detag(gsindbuf[trlist[i]]);
-    deaccent2(sindbuf[trlist[i]]);
+    deaccent2(gsindbuf[trlist[i]]);
-    comma(sindbuf[trlist[i]]);
+    comma(gsindbuf[trlist[i]]);
-    singlespace2(sindbuf[trlist[i]]);
+    singlespace2(gsindbuf[trlist[i]]);
-    translate(sindbuf[trlist[i]]);
+    translate(gsindbuf[trlist[i]]);
+  }
   entrycount=mentrycount; dicbuf=mdicbuf;
   memmove(entry,mentry,mentrycount*sizeof(entry[0]));
   unknown_type=unk_leave;
-  for(i=0;i<trcnt;i++) {
+  for(i=0;i<rcnt;i++) {
-    suffix_translate(sindbuf[trlist[i]]);
+    suffix_translate(gsindbuf[trlist[i]]);
-    translate(sindbuf[trlist[i]]);
+    translate(gsindbuf[trlist[i]]);
+  }
   taken[0]=0; takenlen=tweight=0;
-  ovlstrcpy(buf,sindbuf[s_title]); towords(buf);
+  ovlstrcpy(buf,gsindbuf[s_title]); towords(buf);
   for(p1=find_word_start(buf);*p1;
       p1=find_word_start(p2)) {
     p2=find_word_end(p1); if(*p2) *p2++=0;
     sappenditem(p1,lind,serial,4);
+  }
   snprintf(buf,sizeof(buf),"%s %s %s %s",
-         sindbuf[s_description],sindbuf[s_keywords],
+         gsindbuf[s_description],gsindbuf[s_keywords],
-         sindbuf[s_domain],sindbuf[s_information]);
+         gsindbuf[s_domain],gsindbuf[s_information]);
   towords(buf);
-  for(p1=find_word_start(buf);*p1;
+  for(p1=find_word_start(buf);*p1;p1=find_word_start(p2)) {
-  p1=find_word_start(p2)) {
-  p2=find_word_end(p1); if(*p2) *p2++=0;
+    p2=find_word_end(p1); if(*p2) *p2++=0;
-  sappenditem(p1,lind,serial,2);
+    sappenditem(p1,lind,serial,2);
+  }
   entrycount=gentrycount; dicbuf=gdicbuf;
   memmove(entry,gentry,gentrycount*sizeof(entry[0]));
   unknown_type=unk_delete;
-  ovlstrcpy(buf,sindbuf[s_title]); translate(buf);
+  ovlstrcpy(buf,gsindbuf[s_title]); translate(buf);
-  for(p1=find_word_start(buf); *p1;
+  for(p1=find_word_start(buf); *p1; p1=find_word_start(p2)) {
-  p1=find_word_start(p2)) {
-  p2=strchr(p1,',');
+    p2=strchr(p1,',');
-  if(p2!=NULL) *p2++=0; else p2=p1+strlen(p1);
+    if(p2!=NULL) *p2++=0; else p2=p1+strlen(p1);
-  if(strlen(p1)<=0) continue;
+    if(strlen(p1)<=0) continue;
-  sappenditem(p1,lind,serial,4);
+    sappenditem(p1,lind,serial,4);
+  }
   unknown_type=unk_leave;
   snprintf(buf,sizeof(buf),"%s, %s",
-       sindbuf[s_keywords],
+       gsindbuf[s_keywords],
-       sindbuf[s_domain]);
+       gsindbuf[s_domain]);
   translate(buf);
   for(p1=find_word_start(buf); *p1;
   p1=find_word_start(p2)) {
     p2=strchr(p1,',');
     if(p2!=NULL) *p2++=0; else p2=p1+strlen(p1);
     sappenditem(p1,lind,serial,2);
+  }
   fprintf(weightf,"%d:%d\n",serial,tweight);
+}
-void sheets(void)
+void sgs(char *outdir, int index(int))
+{
   int i,j;
   char mdic[MAX_LINELEN+1], sdic[MAX_LINELEN+1], gdic[MAX_LINELEN+1], ddic[MAX_LINELEN+1];
   char buf[MAX_LINELEN+1];
   for(j=0;j<langcnt;j++) {
-    snprintf(buf,sizeof(buf),"%s/title.%s",sheetoutdir,lang[j]);
+    snprintf(buf,sizeof(buf),"%s/title.%s",outdir,lang[j]);
     titf=fopen(buf,"w");
-    snprintf(buf,sizeof(buf),"%s/description.%s",sheetoutdir,lang[j]);
+    snprintf(buf,sizeof(buf),"%s/description.%s",outdir,lang[j]);
     descf=fopen(buf,"w");
-    snprintf(buf,sizeof(buf),"%s/%s",sheetoutdir,lang[j]);
+    snprintf(buf,sizeof(buf),"%s/%s",outdir,lang[j]);
     indf=fopen(buf,"w");
-    snprintf(buf,sizeof(buf),"%s/list.%s",sheetoutdir,lang[j]);
+    snprintf(buf,sizeof(buf),"%s/list.%s",outdir,lang[j]);
     listf=fopen(buf,"w");
-    snprintf(buf,sizeof(buf),"%s/weight.%s",sheetoutdir,lang[j]);
+    snprintf(buf,sizeof(buf),"%s/weight.%s",outdir,lang[j]);
     weightf=fopen(buf,"w");
-    snprintf(buf,sizeof(buf),"%s/addr.%s",sheetoutdir,lang[j]);
+    snprintf(buf,sizeof(buf),"%s/addr.%s",outdir,lang[j]);
     addrf=fopen(buf,"w");
-    snprintf(buf,sizeof(buf),"%s/information.%s",sheetoutdir,lang[j]);
+    snprintf(buf,sizeof(buf),"%s/information.%s",outdir,lang[j]);
     remf=fopen(buf,"w");
-    snprintf(buf,sizeof(buf),"%s/serial.%s",sheetoutdir,lang[j]);
+    snprintf(buf,sizeof(buf),"%s/serial.%s",outdir,lang[j]);
     serialf=fopen(buf,"w");
-    snprintf(buf,sizeof(buf),"%s/tit.%s",sheetoutdir,lang[j]);
+    snprintf(buf,sizeof(buf),"%s/tit.%s",outdir,lang[j]);
     titlef=fopen(buf,"w");
     if(!titlef || !serialf || !remf || !addrf || !weightf || !listf
       || !indf || !descf || !titf ) {
-    fprintf(stderr,"modind: error creating output files for sheet %s.\n",sheetoutdir); exit(1);
+    fprintf(stderr,"modind: error creating output files for %s.\n",outdir); exit(1);
+    }
     snprintf(mdic,sizeof(mdic),"%s/%s.%s",dicdir,maindic,lang[j]);
     snprintf(sdic,sizeof(sdic),"%s/%s.%s",dicdir,suffixdic,lang[j]);
     snprintf(gdic,sizeof(gdic),"%s/%s.%s",dicdir,groupdic,lang[j]);
     snprintf(ddic,sizeof(ddic),"%s/%s.%s",dicdir,domaindic,lang[j]);
     ddicbuf=dicbuf; dentrycount=entrycount;
     memmove(dentry,entry,dentrycount*sizeof(entry[0]));
     unknown_type=unk_leave; translate(ignore[j]);
     for(i=0;i<modcnt;i++) {
       if(mod[i].langs[0]!=j) continue;
-      fprintf(addrf,"%d:%s\n",i,mod[i].name+3);
+      fprintf(addrf,"%d:%s\n",i,mod[i].name);
-      fprintf(serialf,"%s:%d\n",mod[i].name+3,i);
+      fprintf(serialf,"%s:%d\n",mod[i].name,i);
-      onesheet(i,j);
+      onesg(i,j,index);
+    }
     if(mentrycount>0) free(mdicbuf);
     if(gentrycount>0) free(gdicbuf);
     if(suffixcnt>0) free(sufbuf);
     if(dentrycount>0) free(ddicbuf);
   mentry=xmalloc(entry_size);
   prep();
   if(modcnt>0) modules();
   clean();
   sprep();
-  if(modcnt>0) sheets();
+  if(modcnt>0) sgs(sheetoutdir,sheet_index);
+  clean();
+  gprep();
+  if(modcnt>0) sgs(glossaryoutdir,glossary_index);
   return 0;
+}

Subversion Repositories wimsdev

(root)/trunk/wims/src/Misc/modind.c – Rev 15336 → 15375