[34] | 1 | %{ |
---|
[36] | 2 | #define COLOR_Milestone "gtcMilestone" |
---|
| 3 | #define COLOR_BOX_HEAVY "gtcBoxHeavy" |
---|
| 4 | #define COLOR_BOX_LIGHT "gtcBoxLight" |
---|
[34] | 5 | |
---|
[51] | 6 | #define PICT_TOPSEP 0.0 |
---|
| 7 | #define PICT_BOTSEP 3.0 |
---|
[251] | 8 | #define PICT_LEFTSEP 2.0 |
---|
[51] | 9 | #define PICT_RIGHTSEP 3.0 |
---|
| 10 | #define PICT_VSEP 2.0 |
---|
| 11 | #define PICT_HSEP 2.0 |
---|
[34] | 12 | |
---|
| 13 | #define PICT_MONTHHEIGHT 5 // police height |
---|
| 14 | #define PICT_MONTHWIDTH (10./3.) |
---|
| 15 | |
---|
| 16 | #define TASK_VSEP 2 |
---|
[36] | 17 | #define TASK_BGC0 "gtcTaskBG0" |
---|
| 18 | #define TASK_BGC1 "gtcTaskBG1" |
---|
[51] | 19 | #define TASK_TITLEHEIGHT 6. |
---|
| 20 | #define TASK_TITLEFONTHEIGHT 2. |
---|
[34] | 21 | |
---|
| 22 | #define DELIVRABLE_VSEP 1 |
---|
| 23 | #define DELIVRABLE_HEIGHT 3 |
---|
[251] | 24 | #define DELIVRABLE_LABELWIDTH 7.5 |
---|
[34] | 25 | #define DELIVRABLE_LABELHEIGHT DELIVRABLE_HEIGHT |
---|
[251] | 26 | #define DELIVRABLE_TITLEWIDTH 38 |
---|
[34] | 27 | #define DELIVRABLE_TITLEHEIGHT DELIVRABLE_HEIGHT |
---|
[36] | 28 | #define DELIVRABLE_BOXHEIGHT (DELIVRABLE_HEIGHT) |
---|
[34] | 29 | |
---|
[51] | 30 | char* task_names[] = { |
---|
[59] | 31 | 0, |
---|
[51] | 32 | "Project management", |
---|
| 33 | "Backbone infrastructure", |
---|
| 34 | "System generation", |
---|
| 35 | "HAS front-end", |
---|
| 36 | "HAS back-end", |
---|
| 37 | "PC/FPGA communication middleware", |
---|
| 38 | "Industrial demonstrators", |
---|
| 39 | "Dissemination", |
---|
| 40 | 0 |
---|
| 41 | }; |
---|
[59] | 42 | struct partner_def { char *key, *name, *fnfull, *fnshort; } partner_table[] = { |
---|
[147] | 43 | { "UNKNOW" ,"relax" ,0 ,0 }, |
---|
[121] | 44 | { "irisa" ,"irisa" ,"table_inria_cairn_full.tex" ,"table_inria_cairn_short.tex" }, |
---|
[147] | 45 | { "lip" ,"lip" ,"table_inria_compsys_full.tex","table_inria_compsys_short.tex" }, |
---|
| 46 | { "tima" ,"tima" ,"table_tima_full.tex" ,"table_tima_short.tex" }, |
---|
| 47 | { "ubs" ,"ubs" ,"table_ubs_full.tex" ,"table_ubs_short.tex" }, |
---|
| 48 | { "upmc" ,"upmc" ,"table_upmc_full.tex" ,"table_upmc_short.tex" }, |
---|
| 49 | { "bull" ,"bull" ,"table_bull_full.tex" ,"table_bull_short.tex" }, |
---|
| 50 | { "thales" ,"thales" ,"table_thales_full.tex" ,"table_thales_short.tex" }, |
---|
[278] | 51 | { "mds" ,"mds" ,"table_mds_full.tex" ,"table_mds_short.tex" }, |
---|
[147] | 52 | { 0 ,0 ,0 ,0 }, |
---|
[52] | 53 | }; |
---|
[51] | 54 | |
---|
[34] | 55 | typedef struct _Tlivrable { |
---|
[36] | 56 | int tn,stn,dn,vn; // task, sub-task, number |
---|
| 57 | char v; // 0, 1, 2, ..., F |
---|
[151] | 58 | char* kind; |
---|
[34] | 59 | char* title; |
---|
[52] | 60 | int bm,em; // mois de bebut et de fin |
---|
| 61 | double hman[3]; // nombre de mh par an |
---|
| 62 | int partner; // index dans partner_table |
---|
[36] | 63 | // these fields are filled by the program for data[tn][0][0][0] |
---|
[34] | 64 | double task_y; // top of task |
---|
| 65 | double task_dy; // bot of task is task_y+task_dy |
---|
[51] | 66 | double task_y_del; // delivrables start at task_y+task_y_del |
---|
[52] | 67 | double nbma[3]; // durée en mois par annee |
---|
[36] | 68 | // these fields are filled by the program for data[tn][stn][dn][0] |
---|
| 69 | struct _Tlivrable |
---|
| 70 | **vers; // null termiated (vers[i] = &data[tn][stn][dn][i]) |
---|
| 71 | int nbvers; // nombre de vers |
---|
| 72 | double height; // height of livrable |
---|
| 73 | // int del_bm,del_em; // mois de bebut et de fin cummule |
---|
| 74 | // these fields are filled by the program for all elements |
---|
| 75 | int nbTitleLines; |
---|
| 76 | char* titleLines[5]; // null termiated |
---|
[34] | 77 | } Tlivrable; |
---|
| 78 | |
---|
| 79 | #define T_MAX 10 |
---|
| 80 | #define S_MAX 10 |
---|
| 81 | #define D_MAX 10 |
---|
| 82 | #define V_MAX 10 |
---|
[51] | 83 | typedef struct _Tdata { |
---|
| 84 | FILE* os; |
---|
| 85 | Tlivrable* ls[T_MAX][S_MAX][D_MAX][V_MAX]; |
---|
| 86 | } Tdata; |
---|
| 87 | Tdata data_org; |
---|
| 88 | Tdata* curr; |
---|
[36] | 89 | |
---|
[51] | 90 | Tdata* data_new(int *tnplus, int *tnmoins) |
---|
| 91 | { |
---|
| 92 | int i,skip; |
---|
| 93 | int tn,stn,dn,v; |
---|
| 94 | Tdata* data = malloc(sizeof(*data)); |
---|
| 95 | memset(data,0,sizeof(*data)); |
---|
| 96 | for (tn=0 ; tn<T_MAX ; tn++) |
---|
| 97 | for (stn=0; stn<S_MAX; stn++) |
---|
| 98 | for (dn=0; dn<D_MAX; dn++) |
---|
| 99 | for (v=0; v<V_MAX; v++) { |
---|
| 100 | if ( data_org.ls[tn][stn][dn][v]==0 ) continue; |
---|
| 101 | // tnplus treatment |
---|
| 102 | skip = 0; |
---|
| 103 | if (tnplus!=0) { |
---|
| 104 | skip=1; |
---|
| 105 | for (i=0 ; tnplus[i]!=-1 ; i++) { |
---|
| 106 | if ( tnplus[i]==data_org.ls[tn][stn][dn][v]->tn ) { |
---|
| 107 | skip=0; |
---|
| 108 | break; |
---|
| 109 | } } } |
---|
| 110 | if (skip) continue; |
---|
| 111 | // tnmoins treatment |
---|
| 112 | skip = 0; |
---|
| 113 | if (tnmoins!=0) { |
---|
| 114 | for (i=0 ; tnmoins[i]!=-1 ; i++) { |
---|
| 115 | //fprintf(stderr,"i=%d data_org.ls[tn][stn][dn][v]->tn=%d tnmoins[i]=%d\n",i,data_org.ls[tn][stn][dn][v]->tn,tnmoins[i]); |
---|
| 116 | if ( tnmoins[i]==data_org.ls[tn][stn][dn][v]->tn ) { |
---|
| 117 | skip=1; |
---|
| 118 | break; |
---|
| 119 | } } } |
---|
| 120 | //fprintf(stderr,"selected: [tn][stn][dn][v]=%d,%d,%d,%d skip=%d\n",tn,stn,dn,v,skip); |
---|
| 121 | if (skip) continue; |
---|
| 122 | Tlivrable* l=malloc(sizeof(*l)); |
---|
| 123 | *l = *data_org.ls[tn][stn][dn][v]; |
---|
| 124 | data->ls[tn][stn][dn][v] = l; |
---|
[52] | 125 | //fprintf(stderr,"selected: [tn][stn][dn][v]=%d,%d,%d,%d\n",tn,stn,dn,v); |
---|
[51] | 126 | } |
---|
| 127 | return data; |
---|
| 128 | } |
---|
| 129 | |
---|
[36] | 130 | int milestones[100]; |
---|
| 131 | |
---|
| 132 | char* gen_label_base(char* buf,Tlivrable*p) |
---|
[75] | 133 | { if (p->dn >=0) sprintf(buf,"D%d%d%d",p->tn,p->stn,p->dn); else sprintf(buf,""); return buf; } |
---|
[36] | 134 | char* gen_label_vers(char* buf,Tlivrable*p) |
---|
[51] | 135 | { if (p->nbvers<=1) strcpy(buf,""); else sprintf(buf,"V%c",p->v); return buf; } |
---|
[36] | 136 | char* gen_label_full(char* buf,Tlivrable*p) |
---|
| 137 | { char b[100],v[100]; gen_label_base(b,p); gen_label_vers(v,p); |
---|
| 138 | sprintf(buf,"%s%s%s",b,*v?"-":"",v); return buf; } |
---|
| 139 | |
---|
| 140 | void print_put(double x,double y, const char* object) |
---|
[51] | 141 | { fprintf(curr->os,"\\put(%.2f,%.2f){%s}\n",x,y,object); } |
---|
[36] | 142 | void print_hline(double x,double y, double len, const char* color) |
---|
| 143 | { |
---|
| 144 | char object[1024]; |
---|
[51] | 145 | if (color!=0) { fprintf(curr->os,"\\bgroup\\color{%s}\n",color); } |
---|
[36] | 146 | sprintf(object,"\\line(1,0){%.2f}",len); |
---|
| 147 | print_put(x,y,object); |
---|
[51] | 148 | if (color!=0) { fprintf(curr->os,"\\egroup\n"); } |
---|
[36] | 149 | } |
---|
| 150 | void print_vline(double x,double y, double len, const char* color) |
---|
| 151 | { |
---|
| 152 | char object[1024]; |
---|
[51] | 153 | if (color!=0) { fprintf(curr->os,"\\bgroup\\color{%s}\n",color); } |
---|
[36] | 154 | sprintf(object,"\\line(0,1){%.2f}",len); |
---|
| 155 | print_put(x,y,object); |
---|
[51] | 156 | if (color!=0) { fprintf(curr->os,"\\egroup\n"); } |
---|
[36] | 157 | } |
---|
| 158 | void print_box( |
---|
| 159 | int filled, char* vers, // vers may be 0, |
---|
| 160 | double x,double y, double dx, double dy, |
---|
| 161 | const char* boxcolor, // may be 0 (default COLOR_BOX_HEAVY) |
---|
| 162 | const char* bgcolor, // may be 0 (not set) |
---|
| 163 | const char* textcolor // may be 0 (black) |
---|
| 164 | ){ |
---|
| 165 | double tn=.4; |
---|
| 166 | char object[1024]; |
---|
| 167 | if ( boxcolor==0 ) boxcolor = COLOR_BOX_HEAVY; |
---|
| 168 | if ( filled==1 ) { |
---|
| 169 | sprintf(object, |
---|
| 170 | "\\fcolorbox{black}{%s}{\\makebox(%.2f,%.2f){}}", |
---|
| 171 | boxcolor,dx-2-tn,dy-2-tn); |
---|
| 172 | print_put(x,y+1,object); |
---|
| 173 | } else { |
---|
| 174 | double tn2=tn/2; |
---|
| 175 | double e=.1; |
---|
[51] | 176 | fprintf(curr->os,"\\bgroup\\color{%s}\n",boxcolor); |
---|
| 177 | fprintf(curr->os,"\\linethickness{%.2fmm}\n",tn); |
---|
[36] | 178 | print_hline(x+tn2-e ,y, dx ,0); |
---|
| 179 | print_hline(x+tn2-e ,y+dy, dx ,0); |
---|
| 180 | print_vline(x+tn-e ,y+e, dy-2*e ,0); |
---|
| 181 | print_vline(x+dx-2*e,y+e, dy-2*e ,0); |
---|
[51] | 182 | fprintf(curr->os,"\\egroup\n"); |
---|
[36] | 183 | } |
---|
| 184 | if (vers) { |
---|
| 185 | sprintf(object,"\\begin{tiny}\\textbf{%s}\\end{tiny}",vers); |
---|
| 186 | print_put(x+1,y+.5,object); |
---|
| 187 | } |
---|
| 188 | } |
---|
| 189 | |
---|
| 190 | void gen_titleLines(Tlivrable*p) |
---|
| 191 | { |
---|
| 192 | const char* macro="\\ganttlf"; |
---|
| 193 | char* pc = p->title; |
---|
| 194 | char* pc2; |
---|
| 195 | |
---|
| 196 | if (pc==0) return; |
---|
| 197 | |
---|
| 198 | while ( (pc2=strstr(pc,macro))!=0 ) { |
---|
| 199 | char c = *pc2; |
---|
| 200 | *pc2 = 0; |
---|
| 201 | p->titleLines[p->nbTitleLines]=strdup(pc); |
---|
| 202 | p->nbTitleLines+=1; |
---|
| 203 | *pc2=c; |
---|
| 204 | pc=pc2+strlen(macro); |
---|
| 205 | } |
---|
| 206 | p->titleLines[p->nbTitleLines]=strdup(pc); |
---|
| 207 | p->nbTitleLines+=1; |
---|
| 208 | } |
---|
[34] | 209 | %} |
---|
| 210 | |
---|
| 211 | %option noyywrap |
---|
| 212 | |
---|
| 213 | %% |
---|
[151] | 214 | int tn,stn,dn,v,bm,em; char* title; char* kind; |
---|
[52] | 215 | double an[3]; |
---|
| 216 | char* an_comment; |
---|
| 217 | int partner; |
---|
[34] | 218 | #.*\n ; |
---|
[52] | 219 | T=[0-9]+ { tn=atoi(yytext+2); } |
---|
| 220 | S=[0-9]+ { stn=atoi(yytext+2); } |
---|
| 221 | D=[0-9]+ { dn=atoi(yytext+2); } |
---|
[75] | 222 | D=none { dn=-2; } |
---|
[52] | 223 | V=V[1-8F] { v=yytext[3]; } |
---|
[36] | 224 | ML=[0-9]+ { |
---|
| 225 | int i; |
---|
| 226 | for (i=0 ; milestones[i]!=0 ; i++); |
---|
| 227 | milestones[i] = atoi(yytext+3); |
---|
| 228 | } |
---|
[34] | 229 | BM=[0-9]+ { bm=atoi(yytext+3); } |
---|
| 230 | EM=[0-9]+ { em=atoi(yytext+3); } |
---|
[52] | 231 | R=none { an[0]=0; an[1]=0; an[2]=0; an_comment=0; } |
---|
| 232 | R=[0-9:.]+ { |
---|
| 233 | char tmp[1000]; |
---|
| 234 | int status = sscanf(yytext+2,"%lf:%lf:%lf:%s",an+0,an+1,an+2,tmp); |
---|
| 235 | if (status<3) { |
---|
[151] | 236 | fprintf(stderr, |
---|
| 237 | "%s: is not resource definition, expected format \"N:N:N\" (near D%d%d%d-V%c)\n", |
---|
[52] | 238 | yytext+2,tn,stn,dn,v); |
---|
| 239 | an[0]=0; an[1]=0; an[2]=0; an_comment=0; |
---|
| 240 | } else if (status==3) { |
---|
| 241 | an_comment = 0; |
---|
| 242 | } else |
---|
| 243 | an_comment = strdup(tmp); |
---|
| 244 | } |
---|
| 245 | PART="{"[^}]+"}" { |
---|
| 246 | int i; |
---|
| 247 | partner=-1; |
---|
| 248 | for (i=0; partner_table[i].key!=0 ; i++) { |
---|
| 249 | if (strstr(yytext,partner_table[i].key)!=0 ) { |
---|
| 250 | partner=i; |
---|
| 251 | break; |
---|
| 252 | } |
---|
| 253 | } |
---|
| 254 | if ( partner==-1 ) { |
---|
| 255 | fprintf(stderr,"%s: does not contains a partner key (near D%d%d%d-V%c)\n", |
---|
| 256 | yytext+5,tn,stn,dn,v); |
---|
| 257 | partner=0; |
---|
| 258 | } |
---|
| 259 | } |
---|
[151] | 260 | KIND="{"[^}]+"}" { |
---|
| 261 | yytext[yyleng-1]=0; |
---|
| 262 | kind= strdup(yytext+6); |
---|
| 263 | if ( strcmp(kind,"x")!=0 && strcmp(kind,"d")!=0 && strcmp(kind,"h")!=0 && |
---|
| 264 | strcmp(kind,"d+x")!=0 ) |
---|
| 265 | fprintf(stderr,"ERROR:D%d%d%d invalid KIND: %s\n",tn,stn,dn,kind); |
---|
| 266 | } |
---|
| 267 | KIND="{}" { |
---|
| 268 | yytext[yyleng-1]=0; |
---|
| 269 | kind= strdup(yytext+6); |
---|
| 270 | } |
---|
[34] | 271 | TITLE=.*\n { |
---|
| 272 | char* pc=yytext+6; |
---|
[36] | 273 | yytext[yyleng-1]=0; |
---|
[34] | 274 | while ( *pc==' ' || *pc=='\t' ) pc+=1; |
---|
| 275 | title=strdup(pc); |
---|
| 276 | Tlivrable* p= (Tlivrable*) calloc(sizeof(*p),1); |
---|
| 277 | p->tn = tn; |
---|
| 278 | p->stn = stn; |
---|
| 279 | p->dn = dn; |
---|
| 280 | p->v = v; |
---|
[52] | 281 | p->hman[0] = an[0]; |
---|
| 282 | p->hman[1] = an[1]; |
---|
| 283 | p->hman[2] = an[2]; |
---|
| 284 | p->partner = partner; |
---|
[34] | 285 | p->title = title; |
---|
| 286 | p->bm = bm; |
---|
| 287 | p->em = em; |
---|
[151] | 288 | p->kind = kind; |
---|
[36] | 289 | gen_titleLines(p); |
---|
[34] | 290 | |
---|
[51] | 291 | for (v=0; data_org.ls[tn][stn][dn][v]!=0 ; v++); |
---|
| 292 | data_org.ls[tn][stn][dn][v] = p; |
---|
[52] | 293 | //fprintf(stderr,"ADDED: %d %d %d %d\n",tn,stn,dn,v); |
---|
[151] | 294 | tn=stn=dn=v=bm=em=0; |
---|
| 295 | title=kind=0; |
---|
| 296 | an[0]= an[1]=an[1]=0; |
---|
| 297 | an_comment=0; |
---|
| 298 | partner=0; |
---|
[34] | 299 | } |
---|
[52] | 300 | [ \t\n] ; |
---|
| 301 | . { fprintf(stderr,"%c: unexpected value in anr.gantt file (near D%d%d%d-V%c)\n", |
---|
| 302 | *yytext,tn,stn,dn,v); } |
---|
[34] | 303 | %% |
---|
| 304 | |
---|
[51] | 305 | void prepare0(Tdata* data) |
---|
[34] | 306 | { |
---|
[51] | 307 | int tn,stn,v; |
---|
[34] | 308 | int i0,i1,i; |
---|
| 309 | for (tn=0 ; tn<T_MAX ; tn++) |
---|
| 310 | for (stn=0; stn<S_MAX; stn++) { |
---|
[36] | 311 | //fprintf(stderr,"AVANT:t=%d:%d:: ",tn,stn); for (i=0; i<D_MAX ; i++) |
---|
[51] | 312 | //fprintf(stderr,"%d:%p ",i,data->ls[tn][stn][i][0]); fprintf(stderr,"\n"); |
---|
[34] | 313 | while (1) { |
---|
| 314 | for (i0=0 ; i0<D_MAX ; i0++) |
---|
[51] | 315 | if (data->ls[tn][stn][i0][0] == 0) break; |
---|
[34] | 316 | for (i1=i0+1 ; i1<D_MAX ; i1++) |
---|
[51] | 317 | if (data->ls[tn][stn][i1][0] != 0) break; |
---|
[34] | 318 | if (i1>=D_MAX) break; |
---|
| 319 | // shift |
---|
| 320 | for (i=0 ; (i1+i)<D_MAX ; i++) |
---|
| 321 | for (v=0;v<V_MAX;v+=1) { |
---|
[51] | 322 | data->ls[tn][stn][i0+i][v] = data->ls[tn][stn][i1+i][v]; |
---|
| 323 | data->ls[tn][stn][i1+i][v] = 0; |
---|
[34] | 324 | } |
---|
| 325 | } |
---|
[36] | 326 | //fprintf(stderr,"AVANT:t=%d:%d:: ",tn,stn); for (i=0; i<D_MAX ; i++) |
---|
[51] | 327 | //fprintf(stderr,"%d:%p ",i,data->ls[tn][stn][i][0]); fprintf(stderr,"\n"); |
---|
[34] | 328 | } |
---|
| 329 | } |
---|
[51] | 330 | void prepare1(Tdata* data) |
---|
[34] | 331 | { |
---|
[51] | 332 | int tn,dn,v; |
---|
[34] | 333 | int i0,i1,i; |
---|
| 334 | for (tn=0 ; tn<T_MAX ; tn++) { |
---|
[51] | 335 | //fprintf(stderr,"AVANT:t=%d:: ",tn,i0,i1); for (i=0; i<S_MAX ; i++) fprintf(stderr,"%d:%p ",i,data->ls[tn][i][0][0]); fprintf(stderr,"\n"); |
---|
[34] | 336 | while (1) { |
---|
| 337 | for (i0=0 ; i0<S_MAX ; i0++) |
---|
[51] | 338 | if (data->ls[tn][i0][0][0] == 0) break; |
---|
[34] | 339 | for (i1=i0+1 ; i1<S_MAX ; i1++) |
---|
[51] | 340 | if (data->ls[tn][i1][0][0] != 0) break; |
---|
[36] | 341 | //fprintf(stderr,"%d %d %d\n",tn,i0,i1); |
---|
[34] | 342 | if (i1>=S_MAX) break; |
---|
| 343 | // shift |
---|
| 344 | for (i=0 ; (i1+i)<S_MAX ; i++) |
---|
| 345 | for (dn=0;dn<D_MAX;dn+=1) |
---|
| 346 | for (v=0;v<V_MAX;v+=1) { |
---|
[51] | 347 | data->ls[tn][i0+i][dn][v] = data->ls[tn][i1+i][dn][v]; |
---|
| 348 | data->ls[tn][i1+i][dn][v] = 0; |
---|
[34] | 349 | } |
---|
| 350 | } |
---|
[51] | 351 | //fprintf(stderr,"APRES:t=%d:: ",tn,i0,i1); for (i=0; i<S_MAX ; i++) fprintf(stderr,"%d:%p ",i,data->ls[tn][i][0][0]); fprintf(stderr,"\n"); |
---|
[34] | 352 | } |
---|
| 353 | } |
---|
[51] | 354 | void prepare2(Tdata* data) |
---|
[36] | 355 | { |
---|
[51] | 356 | int tn0,tn1,stn,dn,vn; |
---|
| 357 | int moved=1; |
---|
| 358 | while (moved) { |
---|
| 359 | moved=0; |
---|
| 360 | for (tn0=0 ; tn0<T_MAX ; tn0++) |
---|
| 361 | if (data->ls[tn0][0][0][0] == 0) break; |
---|
| 362 | for (tn1=tn0+1 ; tn1<T_MAX ; tn1++) |
---|
| 363 | if (data->ls[tn1][0][0][0] != 0) break; |
---|
| 364 | if (tn1==T_MAX) break; |
---|
| 365 | for (stn=0 ; stn<S_MAX ; stn++) |
---|
| 366 | for (dn=0;dn<D_MAX;dn+=1) |
---|
| 367 | for (vn=0;vn<V_MAX;vn+=1) { |
---|
| 368 | data->ls[tn0][stn][dn][vn] = data->ls[tn1][stn][dn][vn]; |
---|
| 369 | data->ls[tn1][stn][dn][vn] = 0; |
---|
| 370 | } |
---|
| 371 | moved=1; |
---|
| 372 | } |
---|
| 373 | } |
---|
| 374 | |
---|
| 375 | void prepare3(Tdata* data) |
---|
| 376 | { |
---|
[36] | 377 | int tn,stn,dn,vn; |
---|
| 378 | for (tn=0 ; tn<T_MAX ; tn++) |
---|
| 379 | for (stn=0; stn<S_MAX; stn++) |
---|
| 380 | for (dn=0; dn<D_MAX; dn++) { |
---|
[51] | 381 | Tlivrable* p = data->ls[tn][stn][dn][0]; |
---|
[36] | 382 | if (p==0) continue; |
---|
| 383 | p->nbvers=0 ; |
---|
| 384 | for (vn=0 ; vn<V_MAX ; vn+=1) |
---|
[51] | 385 | if (data->ls[tn][stn][dn][vn]!=0) p->nbvers+=1; |
---|
[36] | 386 | p->vers=(Tlivrable**)malloc(sizeof(*p->vers)*(p->nbvers+1)); |
---|
| 387 | for (vn=0 ; vn<p->nbvers ; vn+=1) { |
---|
[51] | 388 | p->vers[vn] = data->ls[tn][stn][dn][vn]; |
---|
| 389 | data->ls[tn][stn][dn][vn]->nbvers = p->nbvers; |
---|
[36] | 390 | } |
---|
| 391 | p->vers[vn] = 0; |
---|
| 392 | p->height = 1.0*DELIVRABLE_HEIGHT; |
---|
| 393 | if (p->nbTitleLines>=1) { |
---|
| 394 | double h=0; |
---|
| 395 | h += p->vers[p->nbvers-1]->nbTitleLines*DELIVRABLE_TITLEHEIGHT; |
---|
| 396 | h += (p->vers[p->nbvers-1]->nbTitleLines-1)*(DELIVRABLE_TITLEHEIGHT/5.); |
---|
| 397 | if ( h>p->height) p->height=h; |
---|
| 398 | } |
---|
[52] | 399 | Tlivrable* lu= p->vers[p->nbvers-1]; |
---|
| 400 | int i; |
---|
[147] | 401 | //fprintf(stderr,"--------------------\n"); |
---|
[52] | 402 | for (i=0 ; i<p->nbvers ; i++) { |
---|
| 403 | Tlivrable* l= p->vers[i]; |
---|
| 404 | double bm= l->bm; |
---|
| 405 | double em= l->em; |
---|
| 406 | //fprintf(stderr," %d%d%d-V%c: bm=%2.f em=%2.f --> %2.1f %2.1f %2.1f\n",l->tn,l->stn,l->dn,l->v,bm,em, lu->nbma[0],lu->nbma[1],lu->nbma[2]); |
---|
| 407 | if (bm<12 && em>0) { |
---|
| 408 | lu->nbma[0] += (em>12?12:em)-bm; |
---|
| 409 | bm=12; |
---|
| 410 | } |
---|
| 411 | if (bm<24 && em>12) { |
---|
| 412 | lu->nbma[1] += (em>24?24:em)-bm; |
---|
| 413 | bm=24; |
---|
| 414 | } |
---|
| 415 | if (bm<36 && em>24) { |
---|
| 416 | lu->nbma[2] += em-bm; |
---|
| 417 | } |
---|
| 418 | //fprintf(stderr," %d%d%d-V%c: bm=%2.f em=%2.f --> %2.1f %2.1f %2.1f %p\n",l->tn,l->stn,l->dn,l->v,bm,em, lu->nbma[0],lu->nbma[1],lu->nbma[2], lu); |
---|
| 419 | } |
---|
[36] | 420 | } |
---|
| 421 | } |
---|
[34] | 422 | |
---|
[51] | 423 | double task_livrable_height(int tn, double* delivrable_y) |
---|
[34] | 424 | { |
---|
[36] | 425 | int stn,dn,nblivrables=0; |
---|
| 426 | double height=0; |
---|
[51] | 427 | height += TASK_TITLEHEIGHT ; |
---|
| 428 | *delivrable_y = height; |
---|
| 429 | for (stn=0 ; curr->ls[tn][stn][0][0]!=0 ; stn++) |
---|
| 430 | for (dn=0 ; curr->ls[tn][stn][dn][0]!=0 ; dn++) { |
---|
[251] | 431 | if ( curr->ls[tn][stn][dn][0]->dn<0 ) continue; |
---|
[36] | 432 | nblivrables += 1; |
---|
[51] | 433 | height+=curr->ls[tn][stn][dn][0]->height; |
---|
[36] | 434 | } |
---|
| 435 | height += DELIVRABLE_VSEP/2; |
---|
| 436 | height += (nblivrables-1)*DELIVRABLE_VSEP; |
---|
| 437 | height += DELIVRABLE_VSEP/2; |
---|
| 438 | return height; |
---|
[34] | 439 | } |
---|
| 440 | |
---|
| 441 | void task_box(double pictwidth) |
---|
| 442 | { |
---|
| 443 | int tn; |
---|
[51] | 444 | for ( tn=0 ; curr->ls[tn][0][0][0]!=0 ; tn++ ) { |
---|
[34] | 445 | const char* color= (tn%2)!=0 ? TASK_BGC1 : TASK_BGC0 ; |
---|
[51] | 446 | fprintf(curr->os, |
---|
[36] | 447 | "\\put(%.2f,%.2f){\\fcolorbox{black}{%s}{\\makebox(%5.2f,%5.2f){}}}\n", |
---|
[51] | 448 | 0.0,curr->ls[tn][0][0][0]->task_y, |
---|
[34] | 449 | color, |
---|
[51] | 450 | pictwidth,curr->ls[tn][0][0][0]->task_dy |
---|
[34] | 451 | ); |
---|
| 452 | } |
---|
| 453 | } |
---|
| 454 | |
---|
| 455 | void month_grid(double x, double y, double dx, double dy) |
---|
| 456 | { |
---|
| 457 | int i; |
---|
| 458 | for (i=0 ; i<=36 ; i+=1,x+=PICT_MONTHWIDTH) { |
---|
| 459 | if ( (i%3)!=0 ) continue; |
---|
[51] | 460 | fprintf(curr->os, |
---|
[34] | 461 | "\\put(%5.1f,%5.1f){\\line(0,1){%5.1f}}\\put(%5.1f,%5.1f){%d}\n", |
---|
| 462 | x,y,dy-PICT_MONTHWIDTH-PICT_VSEP, |
---|
| 463 | x-2,y+dy-PICT_MONTHHEIGHT, |
---|
| 464 | i |
---|
| 465 | ); |
---|
| 466 | } |
---|
| 467 | } |
---|
| 468 | |
---|
[36] | 469 | void print_milestones(double x, double y, double dx, double dy) |
---|
| 470 | { |
---|
| 471 | int i; |
---|
| 472 | double tn=.3; |
---|
| 473 | //x=x-tn/2; |
---|
[51] | 474 | fprintf(curr->os,"\\bgroup\n"); |
---|
| 475 | fprintf(curr->os,"\\color{red}\n"); |
---|
| 476 | fprintf(curr->os,"\\linethickness{%.2fmm}\n",tn); |
---|
[36] | 477 | for (i=0 ; milestones[i]!=0 ; i+=1) { |
---|
| 478 | double xx= x + milestones[i]*PICT_MONTHWIDTH; |
---|
| 479 | print_vline(xx,y,dy-PICT_MONTHWIDTH-PICT_VSEP,0); |
---|
[251] | 480 | char tmp[100]; |
---|
| 481 | sprintf(tmp,"M%d",i+1); |
---|
| 482 | print_put(xx-2,y-3,tmp); |
---|
[36] | 483 | } |
---|
[51] | 484 | fprintf(curr->os,"\\egroup\n"); |
---|
[36] | 485 | } |
---|
| 486 | |
---|
[34] | 487 | double delivrable( |
---|
| 488 | double label_x, double box_x, double title_x, |
---|
| 489 | double y, |
---|
| 490 | int tn, int stn, int dn) |
---|
| 491 | { |
---|
[51] | 492 | Tlivrable* top=curr->ls[tn][stn][dn][0]; |
---|
| 493 | Tlivrable* last=curr->ls[tn][stn][dn][top->nbvers-1]; |
---|
[36] | 494 | char tmp[1000],label[1000],title[1000]; |
---|
[34] | 495 | double y0; |
---|
| 496 | int v; |
---|
| 497 | double label_dx = DELIVRABLE_LABELWIDTH ; |
---|
| 498 | double label_dy = DELIVRABLE_LABELHEIGHT ; |
---|
| 499 | double boxx,box_dx; |
---|
| 500 | double box_dy = DELIVRABLE_BOXHEIGHT ; |
---|
[251] | 501 | double title_dx = DELIVRABLE_TITLEWIDTH ; |
---|
[34] | 502 | double title_dy = DELIVRABLE_TITLEHEIGHT ; |
---|
[36] | 503 | |
---|
| 504 | //print_hline(0,y,180,0); |
---|
| 505 | gen_label_base(label,top); |
---|
| 506 | // y -= DELIVRABLE_HEIGHT; |
---|
| 507 | y -= top->height ; |
---|
| 508 | //print_hline(0,y,180,0); |
---|
[51] | 509 | fprintf(curr->os,"%% Delivrable %s (tn=%d stn=%d dn=%d\n",label,tn,stn,dn); |
---|
[36] | 510 | |
---|
| 511 | // print label |
---|
| 512 | //y0 = (DELIVRABLE_HEIGHT-DELIVRABLE_LABELHEIGHT)/2; |
---|
| 513 | y0 = (top->height-DELIVRABLE_LABELHEIGHT)/2; |
---|
| 514 | sprintf(tmp,"\\ganttlabelstyle{%s}",label); |
---|
| 515 | print_put(label_x,y+y0,tmp); |
---|
| 516 | // print title |
---|
| 517 | if (last->nbTitleLines==1) { |
---|
| 518 | y0 = (DELIVRABLE_HEIGHT-DELIVRABLE_TITLEHEIGHT)/2; |
---|
| 519 | y0 += DELIVRABLE_TITLEHEIGHT/5. ; |
---|
| 520 | sprintf(tmp,"\\gantttitlestyle{%s}",last->title); |
---|
| 521 | print_put(title_x,y+y0,tmp); |
---|
| 522 | } else if (last->nbTitleLines>1) { |
---|
| 523 | int i; |
---|
| 524 | // y0 = (DELIVRABLE_HEIGHT-DELIVRABLE_TITLEHEIGHT)/2; |
---|
| 525 | y0=DELIVRABLE_TITLEHEIGHT/5.; |
---|
| 526 | sprintf(tmp,"\\gantttitlestyle{\\shortstack[l]{%s",last->titleLines[0]); |
---|
| 527 | for (i=1 ; i<last->nbTitleLines ; i+=1) { |
---|
| 528 | strcat(tmp,"\\\\"); |
---|
| 529 | strcat(tmp,last->titleLines[i]); |
---|
| 530 | } |
---|
| 531 | strcat(tmp,"}}"); |
---|
| 532 | print_put(title_x,y+y0,tmp); |
---|
| 533 | } |
---|
| 534 | |
---|
| 535 | // print box |
---|
| 536 | //y0 = (DELIVRABLE_HEIGHT-DELIVRABLE_BOXHEIGHT)/2; |
---|
| 537 | y0 = (top->height-DELIVRABLE_BOXHEIGHT)/2; |
---|
| 538 | if ( last==top ) { |
---|
| 539 | Tlivrable* l=top; |
---|
| 540 | boxx = box_x + l->bm*PICT_MONTHWIDTH ; |
---|
| 541 | box_dx = (l->em - l->bm) * PICT_MONTHWIDTH; |
---|
| 542 | print_box(1,0,boxx,y+y0,box_dx,box_dy,COLOR_BOX_LIGHT,0,0); |
---|
| 543 | print_box(0,0,boxx,y+y0,box_dx,box_dy,0,0,0); |
---|
| 544 | } else for (v=0 ; v<top->nbvers ; v+=1) { |
---|
[51] | 545 | Tlivrable* l=curr->ls[tn][stn][dn][v] ; |
---|
[36] | 546 | gen_label_vers(tmp,l); |
---|
[34] | 547 | boxx = box_x + l->bm*PICT_MONTHWIDTH ; |
---|
| 548 | box_dx = (l->em - l->bm) * PICT_MONTHWIDTH; |
---|
[36] | 549 | print_box(1,0,boxx,y+y0,box_dx,box_dy,COLOR_BOX_LIGHT,0,0); |
---|
| 550 | print_box(0,tmp,boxx,y+y0,box_dx,box_dy,0,0,0); |
---|
[34] | 551 | } |
---|
[36] | 552 | y -= DELIVRABLE_VSEP; |
---|
[34] | 553 | return y; |
---|
| 554 | } |
---|
| 555 | |
---|
| 556 | void task_delivrable(double label_x, double box_x, double title_x, int tn) |
---|
| 557 | { |
---|
| 558 | int stn,dn; |
---|
[51] | 559 | Tlivrable* task=curr->ls[tn][0][0][0]; |
---|
| 560 | double y = task->task_y+task->task_dy-task->task_y_del; |
---|
| 561 | char tmp[1000]; |
---|
| 562 | sprintf(tmp,"\\textbf{Task-%d \\textit{%s}}",task->tn,task_names[task->tn]); |
---|
| 563 | print_put(label_x/2,y+(TASK_TITLEHEIGHT-TASK_TITLEFONTHEIGHT)/2,tmp); |
---|
| 564 | |
---|
[36] | 565 | //y += DELIVRABLE_VSEP/2. ; |
---|
[51] | 566 | for (stn=0 ; curr->ls[tn][stn][0][0]!=0 ; stn++) |
---|
| 567 | for (dn=0 ; curr->ls[tn][stn][dn][0]!=0 ; dn++) { |
---|
[75] | 568 | if (curr->ls[tn][stn][dn][0]->dn >=0) |
---|
| 569 | y=delivrable(label_x,box_x,title_x,y,tn,stn,dn); |
---|
[36] | 570 | } |
---|
[34] | 571 | } |
---|
| 572 | |
---|
[51] | 573 | void do_gantt(const char* fn, int* tnplus, int* tnmoins) |
---|
[34] | 574 | { |
---|
| 575 | int tn; |
---|
| 576 | double pictwidth, pictheight; |
---|
| 577 | double gantt_x,gantt_y; |
---|
| 578 | double gantt_dx,gantt_dy; |
---|
| 579 | |
---|
| 580 | double label_x,title_x; |
---|
[51] | 581 | curr = data_new(tnplus,tnmoins); |
---|
| 582 | if ( (curr->os=fopen(fn,"w"))==0 ) { |
---|
| 583 | fprintf(stderr,"can not open %s file for writing.\n",fn); |
---|
| 584 | fprintf(stderr,"generation of %s graph is skipped.\n",fn); |
---|
| 585 | return; |
---|
| 586 | } |
---|
| 587 | prepare0(curr); |
---|
| 588 | prepare1(curr); |
---|
| 589 | prepare2(curr); |
---|
| 590 | prepare3(curr); |
---|
[34] | 591 | |
---|
| 592 | pictheight=0 ; |
---|
| 593 | pictheight += PICT_BOTSEP ; |
---|
[51] | 594 | for ( tn=0 ; curr->ls[tn][0][0][0]!=0 ; tn++ ); |
---|
[34] | 595 | for ( tn=tn-1 ; tn>=0 ; tn-- ) { |
---|
[51] | 596 | double offset; |
---|
| 597 | curr->ls[tn][0][0][0]->task_y = pictheight; |
---|
| 598 | curr->ls[tn][0][0][0]->task_dy = task_livrable_height(tn,&offset); |
---|
| 599 | curr->ls[tn][0][0][0]->task_y_del = offset; |
---|
| 600 | pictheight += curr->ls[tn][0][0][0]->task_dy; |
---|
[34] | 601 | pictheight += TASK_VSEP; |
---|
| 602 | } |
---|
| 603 | pictheight += PICT_MONTHHEIGHT; |
---|
| 604 | pictheight += PICT_TOPSEP ; |
---|
| 605 | gantt_y = PICT_BOTSEP ; |
---|
| 606 | gantt_dy = pictheight-PICT_TOPSEP-PICT_BOTSEP ; |
---|
| 607 | |
---|
| 608 | pictwidth=0; |
---|
| 609 | pictwidth += PICT_LEFTSEP; |
---|
| 610 | label_x = pictwidth; |
---|
| 611 | pictwidth += DELIVRABLE_LABELWIDTH; |
---|
| 612 | pictwidth += PICT_HSEP; |
---|
| 613 | gantt_x = pictwidth ; |
---|
| 614 | gantt_dx = 36*PICT_MONTHWIDTH ; |
---|
| 615 | pictwidth += gantt_dx ; |
---|
| 616 | pictwidth += PICT_HSEP; |
---|
| 617 | title_x = pictwidth; |
---|
| 618 | pictwidth += DELIVRABLE_TITLEWIDTH; |
---|
| 619 | pictwidth += PICT_RIGHTSEP; |
---|
| 620 | |
---|
[51] | 621 | fprintf(curr->os,"\\setlength{\\unitlength}{1.0mm}\n"); |
---|
| 622 | fprintf(curr->os,"\\begin{picture}(%.1f,%.1f)\n",pictwidth,pictheight); |
---|
| 623 | //print_hline(0,0,pictwidth,0); |
---|
| 624 | //print_hline(0,pictheight,pictwidth,0); |
---|
| 625 | task_box(pictwidth); |
---|
| 626 | month_grid(gantt_x,gantt_y,gantt_dx,gantt_dy); |
---|
| 627 | for ( tn=0 ; curr->ls[tn][0][0][0]!=0 ; tn++ ) { |
---|
[34] | 628 | task_delivrable(label_x,gantt_x,title_x,tn); |
---|
[51] | 629 | } |
---|
[36] | 630 | |
---|
| 631 | print_milestones(gantt_x,0,gantt_dx,gantt_dy+gantt_y); |
---|
[51] | 632 | fprintf(curr->os,"\\end{picture}\n"); |
---|
[52] | 633 | fclose(curr->os); |
---|
| 634 | curr->os=0; |
---|
[51] | 635 | } |
---|
[34] | 636 | |
---|
[59] | 637 | void do_partner_table_full(int partner) |
---|
[52] | 638 | { |
---|
| 639 | struct partner_def* part = partner_table+partner; |
---|
[59] | 640 | if ( (curr->os=fopen(part->fnfull,"w"))==0 ) { |
---|
| 641 | fprintf(stderr,"can not open %s file for writing.\n",part->fnfull); |
---|
| 642 | fprintf(stderr,"generation of %s partner table is skipped.\n",part->fnfull); |
---|
[52] | 643 | return; |
---|
| 644 | } |
---|
[123] | 645 | fprintf(curr->os,"\\begin{tabular}{|c|l||r|r|r||r|}\\hline\n"); |
---|
[52] | 646 | fprintf(curr->os, |
---|
| 647 | "number & \\multicolumn{1}{c||}{title} & \\multicolumn{3}{c||}{years } & total \\\\\\cline{3-5}\n"); |
---|
| 648 | fprintf(curr->os, |
---|
| 649 | " & & \\multicolumn{1}{c|}{1} & \\multicolumn{1}{c|}{2} & " |
---|
| 650 | "\\multicolumn{1}{c||}{3} & \\\\\\hline\\hline\n"); |
---|
| 651 | int tn,stn,dn,v=0; |
---|
| 652 | double an1=0,an2=0,an3=0,an=0; |
---|
[54] | 653 | double tsk1,tsk2,tsk3,tsk; |
---|
[52] | 654 | int newlineadded=1; |
---|
| 655 | for (tn=0 ; tn<T_MAX ; tn++) { |
---|
| 656 | if (curr->ls[tn][0][0][0]==0) break; |
---|
| 657 | if (tn!=0 && newlineadded==0 ) { |
---|
| 658 | newlineadded = 1; |
---|
| 659 | fprintf(curr->os,"\\hline "); |
---|
| 660 | } |
---|
[54] | 661 | tsk1=tsk2=tsk3=tsk=0; |
---|
[52] | 662 | for (stn=0; stn<S_MAX; stn++) { |
---|
| 663 | for (dn=0; dn<D_MAX; dn++) { |
---|
| 664 | Tlivrable* top=curr->ls[tn][stn][dn][v]; |
---|
| 665 | if (top==0) continue; |
---|
| 666 | Tlivrable* last=top->vers[top->nbvers-1]; |
---|
| 667 | if (last->partner!=partner) continue; |
---|
| 668 | double sum1,sum2,sum3,sum=0; |
---|
| 669 | sum1 = last->hman[0]; sum +=sum1; |
---|
| 670 | sum2 = last->hman[1]; sum +=sum2; |
---|
| 671 | sum3 = last->hman[2]; sum +=sum3; |
---|
| 672 | char label[1000],title[1000]; |
---|
| 673 | gen_label_base(label,last); |
---|
| 674 | sprintf(title,"\\resstablestyletitle{%s}",last->title); |
---|
| 675 | fprintf(curr->os,"%s & %s & %2.1f & %2.1f & %2.1f & %2.1f \\\\\\hline\n", |
---|
| 676 | label,title,sum1,sum2,sum3,sum); |
---|
[54] | 677 | an1 += sum1 ; tsk1 += sum1 ; |
---|
| 678 | an2 += sum2 ; tsk2 += sum2 ; |
---|
| 679 | an3 += sum3 ; tsk3 += sum3 ; |
---|
| 680 | an += sum ; tsk += sum ; |
---|
[52] | 681 | newlineadded=0; |
---|
[63] | 682 | if ( sum1==0 && last->nbma[0]!=0) |
---|
[145] | 683 | fprintf(stderr,"ERROR: %-10s:%s probleme sur l'an 1 (in table=%2.1f, in gantt=%2.1f\n", |
---|
[52] | 684 | part->name,label,sum1,last->nbma[0]); |
---|
[145] | 685 | else if (sum1!=0 && last->nbma[0]==0 ) |
---|
| 686 | fprintf(stderr,"ERROR: %-10s:%s probleme sur l'an 1 (in table=%2.1f, in gantt=%2.1f\n", |
---|
[63] | 687 | part->name,label,sum1,last->nbma[0]); |
---|
[145] | 688 | else if (sum1!=0 && sum1>last->nbma[0] ) |
---|
| 689 | fprintf(stderr,"WARNING: %-10s:%s probleme sur l'an 1 (in table=%2.1f, in gantt=%2.1f\n", |
---|
| 690 | part->name,label,sum1,last->nbma[0]); |
---|
[63] | 691 | if ( sum2==0 && last->nbma[1]!=0) |
---|
[145] | 692 | fprintf(stderr,"ERROR: %-10s:%s probleme sur l'an 2 (in table=%2.1f, in gantt=%2.1f\n", |
---|
[52] | 693 | part->name,label,sum2,last->nbma[1]); |
---|
[145] | 694 | else if ( sum2!=0 && last->nbma[1]==0) |
---|
| 695 | fprintf(stderr,"ERROR: %-10s:%s probleme sur l'an 2 (in table=%2.1f, in gantt=%2.1f\n", |
---|
| 696 | part->name,label,sum2,last->nbma[1]); |
---|
| 697 | else if (sum2!=0 && sum2>last->nbma[1]) |
---|
| 698 | fprintf(stderr,"WARNING: %-10s:%s probleme sur l'an 2 (in table=%2.1f, in gantt=%2.1f\n", |
---|
| 699 | part->name,label,sum2,last->nbma[1]); |
---|
[63] | 700 | if ( sum3==0 && last->nbma[2]!=0) |
---|
[145] | 701 | fprintf(stderr,"ERROR: %-10s:%s probleme sur l'an 3 (in table=%2.1f, in gantt=%2.1f\n", |
---|
[52] | 702 | part->name,label,sum3,last->nbma[2]); |
---|
[145] | 703 | else if ( sum3!=0 && last->nbma[2]==0) |
---|
| 704 | fprintf(stderr,"ERROR: %-10s:%s probleme sur l'an 3 (in table=%2.1f, in gantt=%2.1f\n", |
---|
[63] | 705 | part->name,label,sum3,last->nbma[2]); |
---|
[145] | 706 | else if (sum3!=0 && sum3>last->nbma[2]) |
---|
| 707 | fprintf(stderr,"WARNING: %-10s:%s probleme sur l'an 3 (in table=%2.1f, in gantt=%2.1f\n", |
---|
| 708 | part->name,label,sum3,last->nbma[2]); |
---|
[52] | 709 | } |
---|
| 710 | } |
---|
[54] | 711 | if (tsk!=0) |
---|
| 712 | fprintf(curr->os,"%s & total Task-%d & %2.1f & %2.1f & %2.1f & %2.1f \\\\\\hline\n", |
---|
| 713 | "",curr->ls[tn][0][0][0]->tn,tsk1,tsk2,tsk3,tsk); |
---|
| 714 | |
---|
[52] | 715 | } |
---|
| 716 | if ( an!=(an1+an2+an3) ) { |
---|
[59] | 717 | fprintf(stderr,"bad computation in %s table.\n",part->fnfull); |
---|
[52] | 718 | } |
---|
[54] | 719 | fprintf(curr->os,"\\hline\n"); |
---|
[52] | 720 | fprintf(curr->os,"%s & %s & %2.1f & %2.1f & %2.1f & %2.1f \\\\\\hline\n", |
---|
| 721 | "","total",an1,an2,an3,an); |
---|
| 722 | |
---|
| 723 | fprintf(curr->os,"\\end{tabular}\n"); |
---|
| 724 | fclose(curr->os); |
---|
| 725 | curr->os=0; |
---|
| 726 | } |
---|
| 727 | |
---|
[59] | 728 | void do_partner_table_short(int partner) |
---|
| 729 | { |
---|
| 730 | struct partner_def* part = partner_table+partner; |
---|
| 731 | if ( (curr->os=fopen(part->fnshort,"w"))==0 ) { |
---|
| 732 | fprintf(stderr,"can not open %s file for writing.\n",part->fnshort); |
---|
| 733 | fprintf(stderr,"generation of %s partner table is skipped.\n",part->fnshort); |
---|
| 734 | return; |
---|
| 735 | } |
---|
| 736 | fprintf(curr->os,"\\begin{center}\\begin{small}\\begin{tabular}{|c|l||r|r|r||r|}\\hline\n"); |
---|
| 737 | fprintf(curr->os, |
---|
| 738 | " & title & \\multicolumn{3}{c||}{years } & total \\\\\\cline{3-5}\n"); |
---|
| 739 | fprintf(curr->os, |
---|
| 740 | " & & \\multicolumn{1}{c|}{1} & \\multicolumn{1}{c|}{2} & " |
---|
| 741 | "\\multicolumn{1}{c||}{3} & \\\\\\hline\\hline\n"); |
---|
| 742 | int tn,stn,dn,v=0; |
---|
| 743 | double an1=0,an2=0,an3=0,an=0; |
---|
| 744 | double tsk1,tsk2,tsk3,tsk; |
---|
| 745 | int newlineadded=1; |
---|
| 746 | for (tn=0 ; tn<T_MAX ; tn++) { |
---|
| 747 | if (curr->ls[tn][0][0][0]==0) break; |
---|
| 748 | tsk1=tsk2=tsk3=tsk=0; |
---|
| 749 | for (stn=0; stn<S_MAX; stn++) { |
---|
| 750 | for (dn=0; dn<D_MAX; dn++) { |
---|
| 751 | Tlivrable* top=curr->ls[tn][stn][dn][v]; |
---|
| 752 | if (top==0) continue; |
---|
| 753 | Tlivrable* last=top->vers[top->nbvers-1]; |
---|
| 754 | if (last->partner!=partner) continue; |
---|
| 755 | double sum1,sum2,sum3,sum=0; |
---|
| 756 | sum1 = last->hman[0]; sum +=sum1; |
---|
| 757 | sum2 = last->hman[1]; sum +=sum2; |
---|
| 758 | sum3 = last->hman[2]; sum +=sum3; |
---|
| 759 | an1 += sum1 ; tsk1 += sum1 ; |
---|
| 760 | an2 += sum2 ; tsk2 += sum2 ; |
---|
| 761 | an3 += sum3 ; tsk3 += sum3 ; |
---|
| 762 | an += sum ; tsk += sum ; |
---|
| 763 | newlineadded=0; |
---|
| 764 | char label[1000]; |
---|
| 765 | gen_label_base(label,last); |
---|
| 766 | } |
---|
| 767 | } |
---|
| 768 | if (tsk!=0) |
---|
| 769 | fprintf(curr->os,"Task-%d & %s & %2.1f & %2.1f & %2.1f & %2.1f \\\\\\hline\n", |
---|
| 770 | curr->ls[tn][0][0][0]->tn, |
---|
| 771 | task_names[curr->ls[tn][0][0][0]->tn],tsk1,tsk2,tsk3,tsk); |
---|
| 772 | |
---|
| 773 | } |
---|
| 774 | if ( an!=(an1+an2+an3) ) { |
---|
| 775 | fprintf(stderr,"bad computation in %s table.\n",part->fnshort); |
---|
| 776 | } |
---|
| 777 | fprintf(curr->os,"\\hline\n"); |
---|
| 778 | fprintf(curr->os," & %s & %2.1f & %2.1f & %2.1f & %2.1f \\\\\\hline\n", |
---|
| 779 | "total",an1,an2,an3,an); |
---|
| 780 | |
---|
| 781 | fprintf(curr->os,"\\end{tabular}\\end{small}\\end{center}\n"); |
---|
| 782 | fclose(curr->os); |
---|
| 783 | curr->os=0; |
---|
| 784 | } |
---|
| 785 | |
---|
[147] | 786 | void do_livrable_tables_open(int tablenum, int last) |
---|
| 787 | { |
---|
| 788 | char fn[1024]; |
---|
| 789 | |
---|
| 790 | if (curr->os!=0) { |
---|
| 791 | fprintf(curr->os,"\\end{tabular}\n"); |
---|
| 792 | fclose(curr->os); |
---|
| 793 | curr->os = 0; |
---|
| 794 | } |
---|
| 795 | |
---|
| 796 | if ( last ) |
---|
| 797 | return; |
---|
| 798 | |
---|
| 799 | sprintf(fn,"table_livrable_%02d.tex",tablenum); |
---|
| 800 | if ( (curr->os=fopen(fn,"w"))==0 ) { |
---|
| 801 | fprintf(stderr,"FATAL: can not open %s file for writing.\n",fn); |
---|
| 802 | exit(1); |
---|
| 803 | } |
---|
| 804 | fprintf(curr->os,"\\begin{tabular}[t]{|l|c|c|c|p{\\desclen}|}\\hline\n"); |
---|
[151] | 805 | fprintf(curr->os,"number"); |
---|
| 806 | fprintf(curr->os," & resp."); |
---|
| 807 | fprintf(curr->os," & \\makebox[2mm]{T0+}"); |
---|
| 808 | fprintf(curr->os," & \\makebox[2mm]{kind}"); |
---|
| 809 | fprintf(curr->os," & description\\\\\\hline\\hline\n"); |
---|
[147] | 810 | } |
---|
| 811 | |
---|
| 812 | void do_livrable_tables(int maxlines) |
---|
| 813 | { |
---|
| 814 | int nblines=maxlines; |
---|
| 815 | int nbfile=1; |
---|
| 816 | int tn,stn,dn,v; |
---|
| 817 | do_livrable_tables_open(nbfile,0); nbfile +=1 ; |
---|
| 818 | for (tn=0 ; tn<T_MAX ; tn++) { if ( curr->ls[tn][0][0][0]==0 ) break; |
---|
| 819 | for (stn=0; stn<S_MAX; stn++) { if ( curr->ls[tn][stn][0][0]==0 ) break; |
---|
| 820 | for (dn=0; dn<D_MAX; dn++) { |
---|
| 821 | Tlivrable* top = curr->ls[tn][stn][dn][0]; |
---|
| 822 | if ( top==0 ) break; |
---|
| 823 | Tlivrable* last=top->vers[top->nbvers-1]; |
---|
| 824 | if ( (nblines-top->nbvers) <= 0 ) { |
---|
| 825 | do_livrable_tables_open(nbfile,0); nbfile +=1 ; |
---|
| 826 | nblines = maxlines; |
---|
| 827 | } |
---|
| 828 | for (v=0; v<V_MAX; v++) { |
---|
| 829 | Tlivrable* l = curr->ls[tn][stn][dn][v]; |
---|
| 830 | if ( l==0 ) break; |
---|
| 831 | if ( l->dn<0 ) continue; |
---|
| 832 | char label[1000],resp[100],date[100],kind[100],desc[1000]; |
---|
| 833 | gen_label_full(label,l); |
---|
| 834 | sprintf(resp,"\\S%s",partner_table[l->partner].key); |
---|
[151] | 835 | sprintf(date,"\\makebox[2mm][r]{%d}",l->em); |
---|
| 836 | sprintf(kind,"\\makebox[1mm]{%s}",l->kind); |
---|
[147] | 837 | if ( top->nbvers == 1 ) |
---|
| 838 | sprintf(desc,"%s \\\\\\hline\n",last->title); |
---|
| 839 | else if ( v==(top->nbvers-1) ) |
---|
| 840 | sprintf(desc, |
---|
| 841 | "\\multirow{-%d}{\\desclen}{%s}\\\\\\hline\n", |
---|
| 842 | top->nbvers,last->title); |
---|
| 843 | //else if ( v==(top->nbvers-1) ) |
---|
| 844 | // sprintf(desc, "\\\\\\hline\n"); |
---|
| 845 | else |
---|
| 846 | sprintf(desc, "\\\\\\cline{1-4}\n"); |
---|
| 847 | |
---|
| 848 | fprintf(curr->os,"%-15s", label); |
---|
| 849 | fprintf(curr->os," & %-10s", resp); |
---|
[151] | 850 | fprintf(curr->os," & %-30s", date); |
---|
| 851 | fprintf(curr->os," & %-30s", kind); |
---|
[147] | 852 | fprintf(curr->os," & %s", desc); |
---|
| 853 | nblines -= 1; |
---|
| 854 | } |
---|
| 855 | }}} |
---|
| 856 | do_livrable_tables_open(nbfile,1); |
---|
| 857 | } |
---|
| 858 | |
---|
[51] | 859 | int main() |
---|
| 860 | { |
---|
[278] | 861 | int tnplus[10] = { 1, 2, 3, 4, 5, 6, -1 }; |
---|
| 862 | int tnmoins[10] = { 1, 2, 3, 4, 5, 6, -1 }; |
---|
[51] | 863 | |
---|
| 864 | yylex(); |
---|
| 865 | do_gantt("gantt.tex",0,0); |
---|
| 866 | do_gantt("gantt1.tex",tnplus,0); |
---|
| 867 | do_gantt("gantt2.tex",0,tnmoins); |
---|
| 868 | |
---|
[52] | 869 | curr = data_new(0,0); |
---|
| 870 | prepare0(curr); |
---|
| 871 | prepare1(curr); |
---|
| 872 | prepare2(curr); |
---|
| 873 | prepare3(curr); |
---|
[147] | 874 | do_partner_table_full(1); do_partner_table_short(1); |
---|
[278] | 875 | do_partner_table_full(2); do_partner_table_short(2); |
---|
[147] | 876 | do_partner_table_full(3); do_partner_table_short(3); |
---|
| 877 | do_partner_table_full(4); do_partner_table_short(4); |
---|
| 878 | do_partner_table_full(5); do_partner_table_short(5); |
---|
[278] | 879 | do_partner_table_full(6); do_partner_table_short(6); |
---|
[147] | 880 | do_partner_table_full(7); do_partner_table_short(7); |
---|
| 881 | do_partner_table_full(8); do_partner_table_short(8); |
---|
[52] | 882 | |
---|
[147] | 883 | curr = data_new(0,0); |
---|
| 884 | prepare0(curr); |
---|
| 885 | prepare1(curr); |
---|
| 886 | prepare2(curr); |
---|
| 887 | prepare3(curr); |
---|
[278] | 888 | do_livrable_tables(40); |
---|
[34] | 889 | return 0; |
---|
| 890 | } |
---|