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

   towords(indbuf[i_category]);
 /*   list the categories (among A=all,X=eXercise,O,D,...) corresponding
  *   to this module
  */
   for(i=catcnt=0;i<catno && catcnt<16;i++) {
-  if(wordchr2(indbuf[i_category],cat[i].name)!=NULL)
+    if(wordchr2(indbuf[i_category],cat[i].name)!=NULL)
-    categories[catcnt++]=cat[i].typ;
+      categories[catcnt++]=cat[i].typ;
+  }
   if(catcnt==0) return;
   if(categories[0]!=cat[0].typ)
     categories[catcnt++]=cat[0].typ;
 /*  write module's name in the category.language files, for instance lists/X.fr
         indbuf[i_title], buf);
 /*   Normalize the information of trlist, using dictionary
  *  -- bases/sys/domain.xx without suffix translation (--> english version)
  */
-    entrycount=dentrycount; dicbuf=ddicbuf;
+  entrycount=dentrycount; dicbuf=ddicbuf;
-    memmove(entry,dentry,dentrycount*sizeof(entry[0]));
+  memmove(entry,dentry,dentrycount*sizeof(entry[0]));
-    unknown_type=unk_leave;
+  unknown_type=unk_leave;
-    for(i=0;i<trcnt;i++) {
+  for(i=0;i<trcnt;i++) {
-      detag(indbuf[trlist[i]]);
+    detag(indbuf[trlist[i]]);
-      deaccent2(indbuf[trlist[i]]);
+    deaccent2(indbuf[trlist[i]]);
-      comma(indbuf[trlist[i]]);
+    comma(indbuf[trlist[i]]);
-      singlespace2(indbuf[trlist[i]]);
+    singlespace2(indbuf[trlist[i]]);
-      translate(indbuf[trlist[i]]);
+    translate(indbuf[trlist[i]]);
-    }
+  }
 /*   Normalize the information, using dictionary
  *   bases/sys/words.xx with suffix translation
  */
-    entrycount=mentrycount; dicbuf=mdicbuf;
+  entrycount=mentrycount; dicbuf=mdicbuf;
-    memmove(entry,mentry,mentrycount*sizeof(entry[0]));
+  memmove(entry,mentry,mentrycount*sizeof(entry[0]));
-    unknown_type=unk_leave;/*  used in translator_.c */
+  unknown_type=unk_leave;/*  used in translator_.c */
-    for(i=0;i<trcnt;i++) {
+  for(i=0;i<trcnt;i++) {
-    suffix_translate(indbuf[trlist[i]]);
+  suffix_translate(indbuf[trlist[i]]);
-    translate(indbuf[trlist[i]]);
+  translate(indbuf[trlist[i]]);
-    }
+  }
 /* taken contains all words already seen in the module index */
-    taken[0]=0; takenlen=tweight=0;
+  taken[0]=0; takenlen=tweight=0;
 /*  append words of title  */
-    ovlstrcpy(buf,indbuf[i_title]); towords(buf);
+  ovlstrcpy(buf,indbuf[i_title]); towords(buf);
-    appenditem2(buf,lind,serial,4,module_language);
+  appenditem2(buf,lind,serial,4,module_language);
 /*  extract words of every other information except level */
-    snprintf(buf,sizeof(buf),"%s %s %s %s %s %s %s %s %s %s %s %s %s %s %s",
+  snprintf(buf,sizeof(buf),"%s %s %s %s %s %s %s %s %s %s %s %s %s %s %s",
-         indbuf[i_description],indbuf[i_keywords],
+    indbuf[i_description],indbuf[i_keywords],
-         indbuf[i_keywords_ca],indbuf[i_keywords_en],indbuf[i_keywords_fr],
+    indbuf[i_keywords_ca],indbuf[i_keywords_en],indbuf[i_keywords_fr],
-         indbuf[i_keywords_it],indbuf[i_keywords_nl],
+    indbuf[i_keywords_it],indbuf[i_keywords_nl],
-         indbuf[i_title_ca],indbuf[i_title_en],indbuf[i_title_fr],
+    indbuf[i_title_ca],indbuf[i_title_en],indbuf[i_title_fr],
-         indbuf[i_title_it],indbuf[i_title_nl],
+    indbuf[i_title_it],indbuf[i_title_nl],
-         indbuf[i_domain],indbuf[i_require],indbuf[i_author]);
+    indbuf[i_domain],indbuf[i_require],indbuf[i_author]);
-    towords(buf);
+  towords(buf);
-    appenditem2(buf,lind,serial,2,module_language);
+  appenditem2(buf,lind,serial,2,module_language);
 /*   this time the dictionary is the group dictionary  sys/wgrp/wgrp
  *   with a g (groupdic), not an m (maindic) . see below main, suffix, group.
  *   and delete unknown ?? and translate
  */
   entrycount=gentrycount; dicbuf=gdicbuf;
   memmove(entry,gentry,gentrycount*sizeof(entry[0]));
-/*  append words of every title information  */
+/* append words of every title information  */
   ovlstrcpy(buf,indbuf[i_title]);
   unknown_type=unk_delete;
   translate(buf);
   appenditem1(buf,lind,serial,2,module_language);
-/*  append words of information of description except level  */
+/* append words of information of description except level  */
   snprintf(buf,sizeof(buf),"%s", indbuf[i_description]);
   unknown_type=unk_delete;
   translate(buf);
   appenditem1(buf,lind,serial,4,module_language);
-/*  append words (or group of words) of keywords and domain  */
+/* append words (or group of words) of keywords and domain  */
   snprintf(buf,sizeof(buf),"%s, %s, %s, %s, %s, %s, %s",
-         indbuf[i_domain],indbuf[i_keywords],
+    indbuf[i_domain],indbuf[i_keywords],
-         indbuf[i_keywords_ca], indbuf[i_keywords_en],indbuf[i_keywords_fr],
+    indbuf[i_keywords_ca], indbuf[i_keywords_en],indbuf[i_keywords_fr],
-         indbuf[i_keywords_it], indbuf[i_keywords_nl]);
+    indbuf[i_keywords_it], indbuf[i_keywords_nl]);
   unknown_type=unk_leave;
   translate(buf);
   appenditem1(buf,lind,serial,2,module_language);
-/*   append level information, with weight 2 */
+/* append level information, with weight 2 */
   snprintf(buf,sizeof(buf),"%s",indbuf[i_level]);
   ovlstrcpy(lbuf,"level");
   for(p1=buf; *p1; p1++) if(!isalnum(*p1)) *p1=' ';
   q=buf+strlen(buf);
-  for(p1=find_word_start(buf); (*p1) && (p1 < q) ;
+  for(p1=find_word_start(buf); (*p1) && (p1 < q) ; p1=find_word_start(p2)) {
-  p1=find_word_start(p2)) {
     p2=find_word_end(p1);
     if(p2!=NULL) *p2++=0; else p2=p1+strlen(p1);
     if(strncmp(p1, "Lang" , p2-p1) &&
      (!isalpha(*p1) ||
      (!isdigit(*(p1+1)) && *(p1+1)!=0) ||
   taken[takenlen++]=' ';taken[takenlen++]=' ';
   ovlstrcpy(taken+takenlen,word);
   takenlen+=ll; tweight+=weight;
   fprintf(indf,"%s:%d?%d\n",word,serial,weight);
+}
+/* onesg / onemodule are similar */
 void onesg(int serial, int lind, int index(int))
+{
   int i;
   unsigned char trlist[]={
     s_title,s_description,s_domain,s_keywords,s_information
   };
-  int rcnt=sizeof(trlist)/sizeof(trlist[0]);
+  int trcnt=sizeof(trlist)/sizeof(trlist[0]);
-  char *p1, *p2, buf[MAX_LINELEN+1];
+  char *p1, *p2, *q, buf[MAX_LINELEN+1], lbuf[16];
   if(index(serial)) return;
   fprintf(listf,"%s\n",mod[serial].name);
   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]);
   fprintf(titlef,"%s:%s\n",mod[serial].name,gsindbuf[s_title]);
+/*   Normalize the information of trlist, using dictionary
+ *  -- bases/sys/domain.xx without suffix translation (--> english version)
+ */
   entrycount=dentrycount; dicbuf=ddicbuf;
   memmove(entry,dentry,dentrycount*sizeof(entry[0]));
   unknown_type=unk_leave;
-  for(i=0;i<rcnt;i++) {
+  for(i=0;i<trcnt;i++) {
     detag(gsindbuf[trlist[i]]);
     deaccent2(gsindbuf[trlist[i]]);
     comma(gsindbuf[trlist[i]]);
     singlespace2(gsindbuf[trlist[i]]);
     translate(gsindbuf[trlist[i]]);
+  }
+/*   Normalize the information, using dictionary
+ *   bases/sys/words.xx with suffix translation
+ */
   entrycount=mentrycount; dicbuf=mdicbuf;
   memmove(entry,mentry,mentrycount*sizeof(entry[0]));
-  unknown_type=unk_leave;
+  unknown_type=unk_leave;/*  used in translator_.c */
-  for(i=0;i<rcnt;i++) {
+  for(i=0;i<trcnt;i++) {
     suffix_translate(gsindbuf[trlist[i]]);
     translate(gsindbuf[trlist[i]]);
   }
+/* taken contains all words already seen in the module index */
   taken[0]=0; takenlen=tweight=0;
+/*  append words of title  */
   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);
+  }
+/*  extract words of every other information except level */
   snprintf(buf,sizeof(buf),"%s %s %s %s",
          gsindbuf[s_description],gsindbuf[s_keywords],
          gsindbuf[s_domain],gsindbuf[s_information]);
   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,2);
+  }
+/*   this time the dictionary is the group dictionary  sys/wgrp/wgrp
+ *   with a g (groupdic), not an m (maindic) . see below main, suffix, group.
+ *   and delete unknown ?? and translate
+ */
   entrycount=gentrycount; dicbuf=gdicbuf;
   memmove(entry,gentry,gentrycount*sizeof(entry[0]));
+/*  append words of every title information  */
+  ovlstrcpy(buf,gsindbuf[s_title]);
   unknown_type=unk_delete;
-  ovlstrcpy(buf,gsindbuf[s_title]); translate(buf);
+  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);
     if(strlen(p1)<=0) continue;
     sappenditem(p1,lind,serial,4);
   }
-  unknown_type=unk_leave;
+/*  append words (or group of words) of keywords and domain  */
   snprintf(buf,sizeof(buf),"%s, %s",
        gsindbuf[s_keywords],
        gsindbuf[s_domain]);
+  unknown_type=unk_leave;
   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,',');
     if(p2!=NULL) *p2++=0; else p2=p1+strlen(p1);
     if(strlen(p1)<=0) continue;
     sappenditem(p1,lind,serial,2);
+  }
+/*   append level information, with weight 2 */
+  snprintf(buf,sizeof(buf),"%s",gsindbuf[s_level]);
+  ovlstrcpy(lbuf,"level");
+  for(p1=buf; *p1; p1++) if(!isalnum(*p1)) *p1=' ';
+  q=buf+strlen(buf);
+  for(p1=find_word_start(buf); (*p1) && (p1 < q) ;
+  p1=find_word_start(p2)) {
+    p2=find_word_end(p1);
+    if(p2!=NULL) *p2++=0; else p2=p1+strlen(p1);
+    if(strncmp(p1, "Lang" , p2-p1) &&
+        (!isalpha(*p1) || (!isdigit(*(p1+1))) ||
+        (*(p1+1)!=0 && *(p1+2)!=0)))
+      continue;
+    *p1=tolower(*p1);
+    ovlstrcpy(lbuf+strlen("level"),p1);
+    sappenditem(lbuf,lind,serial,2);
+  }
+/*   append total weight of module to weight file site2/weight.xx  */
   fprintf(weightf,"%d:%d\n",serial,tweight);
+}
 void sgs(char *outdir, int index(int))
+{

Subversion Repositories wimsdev

(root)/trunk/wims/src/Misc/modind.c – Rev 15379 → 15380