/* Copyright (C) 1998-2003 XIAO, Gang of Universite de Nice - Sophia Antipolis
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/
/* Caches and its management */
#include "wimslogd.h"
struct classdata classdata[MAX_CLASSCACHE];
struct classcache {
struct classdata *ptr;
} classcache[MAX_CLASSCACHE];
int classcaches;
struct sheetdata {
char buffer[SHEETBUFLEN];
int name,header,status,exocnt,exo[MAX_EXOS];
time_t start, last;
int access;
} sheetdata[MAX_SHEETCACHE];
struct sheetcache {
struct sheetdata *ptr;
} sheetcache[MAX_SHEETCACHE];
int sheetcaches;
/* searches a list. Returns index if found, -1 if nomatch.
* Uses binary search, list must be sorted.
*/
int search_data(void *list, int items, size_t item_size, unsigned short int t)
{
int i1,i2,j,k;
unsigned short int *p;
if(items<=0) return -1;
j=0; p=list; k=*p-t;
if(k==0) return k;
if(k>0) return -1;
p=list+(items-1)*item_size;
k=*p-t; if(k==0) return items-1; if(k<0) return ~items;
for(i1=0,i2=items-1;i2>i1+1;) {
j=(i2+i1)/2;
p=list+(j*item_size);
k=*p-t;
if(k==0) return j;
if(k>0) {i2=j; continue;}
if(k<0) {i1=j; continue;}
}
return ~i2;
}
/* remove old cache items */
void cleancache(void)
{
int i;
time_t now;
struct classdata *cd;
struct sheetdata *sd;
for(i=0;i<classcaches;i++) {
cd=classcache[i].ptr;
if(now<cd->start+CLASSCACHE_DELAY) continue;
cd->access=0;
memmove(classcache
+i
,classcache
+i
+1,(classcaches
-i
-1)*sizeof(classcache
[0])); classcaches--;
}
for(i=0;i<sheetcaches;i++) {
sd=sheetcache[i].ptr;
if(now<sd->start+SHEETCACHE_DELAY) continue;
sd->access=0;
memmove(sheetcache
+i
,sheetcache
+i
+1,(sheetcaches
-i
-1)*sizeof(sheetcache
[0])); sheetcaches--;
}
}
/* Locate the cache number of a class */
struct classdata *getclasscache(char *cl)
{
int i,j,k,l,m,n, oldest;
struct stat st;
struct classdata *cd;
char buf[MAX_LINELEN+1], buf2[MAX_LINELEN+1];
char *p1, *p2, *q1, *q2;
time_t tt;
tt=0, oldest=0;
for(i=0;i<classcaches;i++) {
cd=classcache[i].ptr;
if(tt>cd->start) {tt=cd->start; oldest=i;}
cd->access++;
return cd;
}
}
if(classcaches>=MAX_CLASSCACHE) {
i=oldest;cd=classcache[i].ptr;
cd->access=0;
memmove(classcache
+i
,classcache
+i
+1,(classcaches
-i
-1)*sizeof(classcache
[0])); classcaches--;
}
for(i=0;i<MAX_CLASSCACHE && classdata[i].access>0; i++);
if(i>classcaches) return NULL;
cd=classdata+i; cd->access=1;
classcache[classcaches++].ptr=cd;
snprintf(cd
->name
,sizeof(cd
->name
),"%s",cl
); cd
->start
=time(NULL
); cd
->exocnt
=0;/* Now get the exo data */
wlogdaccessfile(buf,"r","sheets/.require");
for(i=k=0,p1=buf; *p1; i++,p1=p2) {
for(j=0,q1=find_word_start(p1); *q1 && k<MAX_CLASSEXOS; j++,q1=find_word_start(q2)) {
q2=find_word_end(q1); if(*q2) *q2++=0;
cd
->exos
[k
].
num=(i
<<8)+j
;cd
->exos
[k
].
require=atof(q1
); cd->exos[k].weight=0;
k++;
}
}
if(k>=MAX_CLASSEXOS) return NULL;
cd->exocnt=k; cd->examstart=k; cd->modif=0;
wlogdaccessfile(buf,"r","sheets/.weight");
for(i=k=0,p1=buf; *p1; i++,p1=p2) {
for(j=0,q1=find_word_start(p1); *q1 && k<MAX_CLASSEXOS; j++,q1=find_word_start(q2)) {
q2=find_word_end(q1); if(*q2) *q2++=0;
if(cd->exos[k].num==(i<<8)+j) {
cd
->exos
[k
].
weight=atof(q1
); k++;
}
else while(k<cd->exocnt && cd->exos[k].num<(i<<8)+j) k++;
}
}
if(stat("exams/.exams",&st)==0) cd->modif=st.st_mtime; else return cd;
wlogdaccessfile(buf,"r","exams/.exams");
if(buf[0]==0) return cd;
if(buf
[0]==':') p1
=buf
-1; else p1
=strstr(buf
,"\n:"); for(n=m=0,k=cd->exocnt; p1 && k<MAX_CLASSEXOS && m<MAX_EXOS; p1=p2,m++) {
p1+=2;
p2
=strstr(p1
,"\n:"); if(p2
) *p2
=0;// if(*find_word_start(p1)<'1') continue; /* status */
fnd_line(p1,3,buf2); if(buf2[0]==0) continue;
q1=find_word_start(buf2); q2=find_word_end(q1);
if(*q2) *q2++=0;
q2=find_word_start(q2); *find_word_end(q2)=0;
i
=atoi(q1
); j
=atoi(q2
); if(i
<=0 || j
<=0) continue; cd->exos[k].num=0xFF00+m;
cd->exos[k].weight=i; cd->exos[k].require=j; /* weight: duration. require: retries */
fnd_line(p1,6,buf2); q1=find_word_start(buf2);
singlespace(q1); strip_trailing_spaces(q1);
cd->ctptr[k-cd->exocnt]=n; cd->ctbuf[n]=0;
if(n
+strlen(q1
)>CTBUFLEN
-MAX_EXOS
-16) *q1
=0; /* silent truncation */ k++;
}
cd->examcnt=k-cd->exocnt; cd->exocnt=k;
return cd;
}
// misprint ?? sheetdata ?? does not seem to be used.
/* prepare cache for a sheet */
struct sheetata *getsheetcache(char *cl, char *sh)
{
return NULL;
}