WebSVN – wimsdev – Diff – /trunk/wims/src/variables.c

 /* retain initializing parameters, for use in user references */
 void set_init_parm(void)
+{
   char *rq, rqv[MAX_LINELEN*2+2], *u, *sh, *seedr, *exotrymax;
-  char *shname;
+  char *shname, *dirname;
-  int public_sheet;
+  int public_sheet, freework_sheet;
   if(isexam) return;
+  /* reset sheet number and exo nomber for a sheet */
   force_setvar("wims_sheet",""); force_setvar("wims_exo","");
+  /* reset freework number and exo number for a freework */
+  force_setvar("wims_fwnumber",""); force_setvar("wims_fwexo","");
   rq=getenv("QUERY_STRING");
   if(rq==NULL || *rq==0) {
     empty:
     setvar("module_init_parm",""); return;
+  }
   if(strlen(rq)>=MAX_LINELEN*2) goto empty;
   _http2env(rqv,rq); prep_init_parm(rqv);
-  setvar("module_init_parm",rqv); public_sheet=0;
+  setvar("module_init_parm",rqv); public_sheet=0; freework_sheet=0;
 /* seedrepeat=1 or an integer
   must be in the url and seedrepeat
   in the var.def of the module to be used */
   seedr=getvar("seedrepeat");
   force_setvar("wims_seed_repeat",seedr);
   exotrymax=getvar("exotrymax");
   force_setvar("wims_exotrymax",exotrymax);
 /* now determine the sheet number for user */
   sh=getvar(ro_name[ro_worksheet]); if(sh==NULL) return;
+  if(*sh=='P') {public_sheet=1; sh++;}  /* for public sheet file is in session */
-  if(*sh=='P') {public_sheet=1; sh++;}
+  if(*sh=='F') {     /* for freework */
+    freework_sheet=1; sh++;
+    shname="Wfreework";
+    dirname="freeworks";
+  }
+  else {   /* for sheet */
-  shname="sheet";
+    shname="sheet";
+    dirname="sheets";
+  }
   u=getvar("wims_user"); if(u==NULL) u="";
   if(sh!=NULL && *sh!=0) {
     char buf[MAX_LINELEN+1],ubuf[32], nbuf[1024], *c, *m;
     char *p1,*p2,*p3,*p4,*p5;
     int i,j,sheet;
     sheet=atoi(sh); if(sheet<=0 || sheet>MAX_SHEETS) return;
     m=getvar(ro_name[ro_module]);
     if(m==NULL) internal_error("set_init_parm(): module name disapears.");
     if(*u==0) public_sheet=1;
     if(!public_sheet) {
+    /* make filename for data on a freework or a sheet in a class */
       c=getvar("wims_class"); if(c==NULL) c="";
-      snprintf(nbuf,sizeof(nbuf),"%s/sheets/.%s%d",
+      snprintf(nbuf,sizeof(nbuf),"%s/%s/.%s%d",
-               class_dir,shname,sheet);
+               class_dir,dirname,shname,sheet);
+    }
     else {
+      /* make filename for data in case of a public sheet */
       char bf[MAX_LINELEN+1];
       int i;
       accessfile(bf,"r","%s/.sheets",session_prefix);
       if(bf[0]==0) return;
       for(i=1, p1=bf;i<sheet;i++,p1=p2) {
         if(p2!=NULL) *p2++=0; else p2=p1+strlen(p1);
+      }
       p2=strchr(p1,'\n'); if(p2) *p2=0;
       snprintf(nbuf,sizeof(nbuf),"bases/sheet/%s.def",p1);
+    }
+    /* now nbuf is the filename for data in any case of ressource (sheet / public_sheet / freework) */
     if(readfile(nbuf,buf,sizeof(buf))==NULL) return;
+    /* buf is the data of ressources. nbuf no more needed */
-    for(p1=strstr(buf,"&+");p1!=NULL;p1=strstr(++p1,"&+"))
+    for(p1=strstr(buf,"&+");p1!=NULL;p1=strstr(++p1,"&+"))    /* ????  */
       ovlstrcpy(p1+1,p1+2);
+    /* in case of use an exercice of the class instead of a public exercise */
     if(strncmp(m,"classes/",strlen("classes/"))==0) {
       m="classes/";
       for(p1=strstr(buf,":classes/");p1;p1=strstr(p1+1,":classes/")) {
         if(p1==buf || *(p1-1)=='\n') {
           p1+=strlen(":classes/");
           p2=find_word_end(p1); if(p2>p1 && *p2=='\n') ovlstrcpy(p1,p2);
+        }
+      }
+    }
-    snprintf(nbuf,sizeof(nbuf),":%s\n%s\n",m,rqv);
+    snprintf(nbuf,sizeof(nbuf),":%s\n%s\n",m,rqv);  /* rqv : execution parameters for the module ; m is the name of exercise module */
     p1=strstr(buf,nbuf);
+    /* this boucle search exercise parameters in buf
+      calculate num of the exercice in the ressources (sheet /public_sheet / freework)
+    */
     while(p1>buf && *(p1-1)!='\n') p1=strstr(p1+1,nbuf);
     if(p1!=NULL) {
       p2=strchr(buf,':');
       while(p2>buf && *(p2-1)!='\n') p2=strchr(p2+1,':');
       for(i=1;p2!=NULL && p2<p1;i++) {
         p2=strchr(p2+1,':');
         while(p2>buf && *(p2-1)!='\n') p2=strchr(p2+1,':');
+      }
       if(p2==NULL) return; /* error which should not occur */
       snprintf(ubuf,sizeof(ubuf),"%d",i);
-/* look for dependency information */
+/* look for dependency information */     /* pas utile pour freework mais non active tant que les données ne dépasse pas .... */
       for(j=0, p3=strchr(p1+strlen(nbuf),'\n');
       j<3 && p3 && *(p3+1)!=':';
       j++, p3=strchr(p3+1,'\n'));
       if(j>=3 && p3!=NULL && *(p3+1)!=':') {
         p3++; p4=strchr(p3,'\n');
       if(public_sheet) {
         char bf[32];
         snprintf(bf,16,"P%s",sh);
         force_setvar("wims_sheet",bf);
+      }
+      else {
+        if(freework_sheet) {
+          force_setvar("wims_fwnumber",sh);
+          force_setvar("wims_fwexo",ubuf);
+        } else {
-      else force_setvar("wims_sheet",sh);
+          force_setvar("wims_sheet",sh);
-      force_setvar("wims_exo",ubuf);
+          force_setvar("wims_exo",ubuf);
-      wims_sheet=sheet; wims_exo=i;
+          wims_sheet=sheet; wims_exo=i;
+        }
+      }
+    }
+  }
+}
 /* user with class: whether exercise is registered

Subversion Repositories wimsdev

(root)/trunk/wims/src/variables.c – Rev 16626 → 16647