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

     int imod;
 } revmod[MAX_MODULES];
 int modcnt;
 char *mlist;
+char *sheetindex[]={
+  "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 gsindbuf[SHEETINDEX_NO+1][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
+};
+char *modindex[]={
+  "title", "description",
+  "author", "address", "copyright",
+  "version", "wims_version", "language",
+  "category", "level", "domain", "keywords",
+  "keywords_ca", "keywords_en", "keywords_fr", "keywords_it", "keywords_nl",
+  "title_ca", "title_en", "title_fr", "title_it", "title_nl",
+  "require"
+};
+#define MODINDEX_NO (sizeof(modindex)/sizeof(modindex[0]))
+char indbuf[MODINDEX_NO][MAX_LINELEN+1];
+enum{i_title, i_description,
+  i_author,i_address,i_copyright,
+  i_version,i_wims_version,i_language,
+  i_category,i_level,i_domain,i_keywords,
+  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,
+  i_require
+};
+char *module_special_file[]={
+  "intro","help","about"
+};
+#define MODSPEC_NO (sizeof(module_special_file)/sizeof(module_special_file[0]))
+char module_language[4];
+char *mdicbuf, *gdicbuf, *ddicbuf, *gentry, *mentry, *dentry;
+int gentrycount, mentrycount, dentrycount;
 /*  fold known accented letters to unaccented, other strange characters to space
  *  apostrophe is among the exceptions to be kept (important for multi-word expressions)
  */
 void deaccent2(char *p)
 {
   char *sp;
   char *v;
   for(sp=p;*sp;sp++) {
   if(*sp<0 && (v=strchr(acctab,*sp))!=NULL)
     *sp=*(deatab+(v-acctab));
 /*  translate everything non-alphanumeric into space */
 void towords(char *p)
+{
   char *pp;
   for(pp=p;*pp;pp++) if(!isalnum(*pp) && strchr("&$+*",*pp)==0) *pp=' ';
 }
 /*  Find first occurrence of word */
 char *wordchr2(char *p, char *w)
+{
   char *r;
     if(*pp=='<') {
       pp=find_tag_end(pp)-1; continue;
+    }
     if(*pp=='"') {
       pp=strchr(pp+1,'"');
       if(pp==NULL) return p+strlen(p); else continue;
     }
     if(*pp=='\'') {
       pp=strchr(pp+1,'\'');
       if(pp==NULL) return p+strlen(p); else continue;
+    }
+  }
   buf=xmalloc(l+256); l=fread(buf,1,l,f);
   fclose(f);
   if(l<=0) return; else buf[l]=0;
   _getdef(buf,name,value);
   free(buf);
 }
-char *mdicbuf, *gdicbuf, *ddicbuf, *gentry, *mentry, *dentry;
-int gentrycount, mentrycount, dentrycount;
-/*  Preparation of data */
-void prep(void)
+void init(void)
 {
   char buf[MAX_LINELEN+1];
-  char *p1,*p2,*s,*old;
+  char *p1,*p2,*s;
-  int i,l,thislang,t;
+  int i,l;
   FILE *f;
   s=getenv("modind_outdir"); if(s!=NULL && *s!=0) outdir=s;
   s=getenv("modind_sheetdir"); if(s!=NULL && *s!=0) sheetdir=s;
   s=getenv("modind_sheetoutdir"); if(s!=NULL && *s!=0) sheetoutdir=s;
-  snprintf(buf,sizeof(buf),"%s/addr",outdir);
-  addrf=fopen(buf,"w");
-  if(!addrf) { fprintf(stderr,"modind: error creating output files addr.\n"); exit(1);}
+  s=getenv("modind_glossaryoutdir"); if(s!=NULL && *s!=0) glossaryoutdir=s;
-  snprintf(buf,sizeof(buf),"%s/serial",outdir);
-  serialf=fopen(buf,"w");
-  if(!serialf) { fprintf(stderr,"modind: error creating output files serial.\n"); exit(1);}
-  modcnt=langcnt=0;
 /* take the langs declared in conffile */
   getdef(conffile,"site_languages",buf);
+  langcnt=0;
   for(p1=buf;*p1;p1++) if(!isalnum(*p1)) *p1=' ';
   for(p1=find_word_start(buf); *p1 && langcnt<MAX_LANGS; p1=find_word_start(p2)) {
     p2=find_word_end(p1);
     if(p2!=p1+2 || !isalpha(*p1) || !isalpha(*(p1+1))) continue;
     memmove(lang[langcnt],p1,2); lang[langcnt++][2]=0;
+  }
   if(langcnt==0) {/*  default languages */
     langcnt=DEFAULT_LANGCNT;
   }
-  s=getenv("mlist"); if(s==NULL) exit(1);
-  l=strlen(s); if(l<0 || l>100*MAX_LINELEN) exit(1);
-  mlist=xmalloc(l+16); ovlstrcpy(mlist,s); old="";
   for(i=0;i<langcnt;i++) {
     snprintf(buf,sizeof(buf),"%s/%s.%s",dicdir,ignoredic,lang[i]);
     f=fopen(buf,"r"); if(f==NULL) continue;
     l=fread(ignore[i],1,MAX_LINELEN,f);fclose(f);
     if(l<0 || l>=MAX_LINELEN) l=0;
     ignore[i][l]=0;
+  }
+}
+/*  Preparation of data */
+void prep(void)
+{
+  char buf[MAX_LINELEN+1];
+  char *p1,*p2,*s,*old;
+  int i,l,thislang,t;
+  modcnt=0;
+  snprintf(buf,sizeof(buf),"%s/addr",outdir);
+  addrf=fopen(buf,"w");
+  if(!addrf) { fprintf(stderr,"modind: error creating output files addr.\n"); exit(1);}
+  snprintf(buf,sizeof(buf),"%s/serial",outdir);
+  serialf=fopen(buf,"w");
+  if(!serialf) { fprintf(stderr,"modind: error creating output files serial.\n"); exit(1);}
+  s=getenv("mlist"); if(s==NULL) exit(1);
+  l=strlen(s); if(l<0 || l>100*MAX_LINELEN) exit(1);
+  mlist=xmalloc(l+16); ovlstrcpy(mlist,s); old="";
   for(t=0, p1=find_word_start(mlist); *p1 && modcnt<MAX_MODULES;
         p1=find_word_start(p2), t++) {
     p2=find_word_end(p1);
     l=p2-p1; if(*p2) *p2++=0;
     fprintf(addrf,"%d:%s\n",t,p1);
     fprintf(serialf,"%s:%d\n",p1,t);
     thislang=-1;
 /* language is taken from the address */
     if(l>3 && p1[l-3]=='.') {
     if(modcnt>0 && strcmp(old,p1)==0 && thislang>=0) {
       if(mod[modcnt-1].langcnt<langcnt) {
         mod[modcnt-1].langs[mod[modcnt-1].langcnt]=thislang;
         mod[modcnt-1].counts[mod[modcnt-1].langcnt]=t;
         (mod[modcnt-1].langcnt)++;
       }
     }
     else {
       mod[modcnt].name=old=p1;
       if(thislang>=0) {
         mod[modcnt].langs[0]=thislang;
         mod[modcnt].langcnt=1;
   robotf=fopen(buf,"w");
   fclose(addrf); fclose(serialf);
   if(!robotf || !versionf || !authorf || !descf || !titf || !langf) {
     fprintf(stderr,"modind: error creating output files.\n");
     exit(1);
   }
+}
 void sprep(void)
+{
   char buf[MAX_LINELEN+1];
       modcnt++;
+    }
+  }
   fclose(addrf); fclose(serialf);
+}
-char *sheetindex[]={
-  "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 gsindbuf[SHEETINDEX_NO+1][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
-};
-char *modindex[]={
-  "title", "description",
-  "author", "address", "copyright",
-  "version", "wims_version", "language",
-  "category", "level", "domain", "keywords",
-  "keywords_ca", "keywords_en", "keywords_fr", "keywords_it", "keywords_nl",
-  "title_ca", "title_en", "title_fr", "title_it", "title_nl",
-  "require"
-};
-#define MODINDEX_NO (sizeof(modindex)/sizeof(modindex[0]))
-char indbuf[MODINDEX_NO][MAX_LINELEN+1];
-enum{i_title, i_description,
-  i_author,i_address,i_copyright,
-  i_version,i_wims_version,i_language,
-  i_category,i_level,i_domain,i_keywords,
-  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,
-  i_require
-};
-char *module_special_file[]={
-  "intro","help","about"
-};
-#define MODSPEC_NO (sizeof(module_special_file)/sizeof(module_special_file[0]))
-char module_language[4];
 /*  read and treat module's INDEX file */
 int module_index(const char *name)
+{
   char *p, fbuf[MAX_LINELEN+1], ibuf[MAX_LINELEN+1];
   };
   int trcnt=sizeof(trlist)/sizeof(trlist[0]);
   char *p1, *p2, *q, buf[MAX_LINELEN+1], lbuf[16];
   if(index(serial)) return;
-  fprintf(listf,"%d:%s\n",serial,gsindbuf[SHEETINDEX_NO]);
   fprintf(titf,"%d:%s\n",serial,gsindbuf[s_title]);
   fprintf(descf,"%d:%s\n",serial,gsindbuf[s_description]);
   fprintf(remf,"%d:%s\n",serial,gsindbuf[s_information]);
 /*   Normalize the information of trlist, using dictionary
+{
   int i,j,k,d;
   char mdic[MAX_LINELEN+1], sdic[MAX_LINELEN+1], gdic[MAX_LINELEN+1], ddic[MAX_LINELEN+1];
   char buf[MAX_LINELEN+1];
-  snprintf(buf,sizeof(buf),"%s/list",outdir);
+  //snprintf(buf,sizeof(buf),"%s/list",outdir);
-  listf=fopen(buf,"w");
+  //listf=fopen(buf,"w");
   snprintf(buf,sizeof(buf),"%s/title",outdir);
   titf=fopen(buf,"w");
   snprintf(buf,sizeof(buf),"%s/description",outdir);
   descf=fopen(buf,"w");
   snprintf(buf,sizeof(buf),"%s/information",outdir);
   remf=fopen(buf,"w");
-  if(!remf || !listf || !descf || !titf ) {
+  if(!remf || !descf || !titf ) {
     fprintf(stderr,"modind: error creating output files for %s.\n",outdir); exit(1);
+  }
   for(j=0;j<langcnt;j++) {
     snprintf(buf,sizeof(buf),"%s/%s",outdir,lang[j]);
     indf=fopen(buf,"w");
     if(gentrycount>0) free(gdicbuf);
     if(suffixcnt>0) free(sufbuf);
     if(dentrycount>0) free(ddicbuf);
     fclose(indf); fclose(weightf);
+  }
-  fclose(titf); fclose(descf); fclose(listf); fclose(titlef); fclose(remf);
+  fclose(titf); fclose(descf); fclose(titlef); fclose(remf);
+}
 int main()
+{
   gentry=xmalloc(entry_size);
   dentry=xmalloc(entry_size);
   mentry=xmalloc(entry_size);
+  init();
   prep();
   if(modcnt>0) modules();
   clean();
   sprep();
   if(modcnt>0) sgs(sheetoutdir,sheet_index);

Subversion Repositories wimsdev

(root)/trunk/wims/src/Misc/modind.c – Rev 15440 → 15442