Changeset 151 for anr/gantt.l

Timestamp:

Feb 15, 2010, 8:16:20 AM (14 years ago)

Author:

coach

Message:

IA: added kind in delivrable tables

File:

• anr/gantt.l (modified) (9 diffs)

anr/gantt.l

@@ -59 +59 @@
     int tn,stn,dn,vn;  // task, sub-task, number
     char v;            // 0, 1, 2, ..., F 
+    char* kind;
     char* title;
     int   bm,em;       // mois de bebut et de fin
@@ -214 +215 @@
 
 %%
- int tn,stn,dn,v,bm,em; char* title;
+ int tn,stn,dn,v,bm,em; char* title; char* kind;
  double an[3];
  char*  an_comment;
@@ -236 +237 @@
         int status = sscanf(yytext+2,"%lf:%lf:%lf:%s",an+0,an+1,an+2,tmp);
         if (status<3) {
-            fprintf(stderr,"%s: is not resource definition, expected format \"N:N:N\" (near D%d%d%d-V%c)\n",
+            fprintf(stderr,
+                "%s: is not resource definition, expected format \"N:N:N\" (near D%d%d%d-V%c)\n",
                yytext+2,tn,stn,dn,v);
             an[0]=0; an[1]=0; an[2]=0; an_comment=0;
@@ -258 +260 @@
             partner=0;
         }
+    }
+KIND="{"[^}]+"}"  {
+        yytext[yyleng-1]=0;
+        kind= strdup(yytext+6);
+        if ( strcmp(kind,"x")!=0 && strcmp(kind,"d")!=0 && strcmp(kind,"h")!=0 &&
+             strcmp(kind,"d+x")!=0 )
+          fprintf(stderr,"ERROR:D%d%d%d invalid KIND: %s\n",tn,stn,dn,kind);
+    }
+KIND="{}"  {
+        yytext[yyleng-1]=0;
+        kind= strdup(yytext+6);
     }
 TITLE=.*\n {
@@ -276 +289 @@
         p->bm = bm;
         p->em = em;
+        p->kind = kind;
         gen_titleLines(p);
 
@@ -281 +295 @@
         data_org.ls[tn][stn][dn][v] = p;
 //fprintf(stderr,"ADDED: %d %d %d %d\n",tn,stn,dn,v);
+        tn=stn=dn=v=bm=em=0;
+        title=kind=0;
+        an[0]= an[1]=an[1]=0; 
+        an_comment=0;
+        partner=0;
     }
 [ \t\n] ;
@@ -783 +802 @@
     }
     fprintf(curr->os,"\\begin{tabular}[t]{|l|c|c|c|p{\\desclen}|}\\hline\n");
-    fprintf(curr->os,"number & resp. & T0+ & kd & description\\\\\\hline\\hline\n");
+    fprintf(curr->os,"number");
+    fprintf(curr->os," & resp.");
+    fprintf(curr->os," & \\makebox[2mm]{T0+}");
+    fprintf(curr->os," & \\makebox[2mm]{kind}");
+    fprintf(curr->os," & description\\\\\\hline\\hline\n");
 }
 
@@ -809 +832 @@
             gen_label_full(label,l);
             sprintf(resp,"\\S%s",partner_table[l->partner].key);
-            sprintf(date,"%d",l->em);
-            sprintf(kind,"%s","x");
+            sprintf(date,"\\makebox[2mm][r]{%d}",l->em);
+            sprintf(kind,"\\makebox[1mm]{%s}",l->kind);
             if ( top->nbvers == 1 )
                 sprintf(desc,"%s \\\\\\hline\n",last->title);
@@ -824 +847 @@
              fprintf(curr->os,"%-15s", label);
              fprintf(curr->os," & %-10s", resp);
-             fprintf(curr->os," & %-10s", date);
-             fprintf(curr->os," & %-8s", kind);
+             fprintf(curr->os," & %-30s", date);
+             fprintf(curr->os," & %-30s", kind);
              fprintf(curr->os," & %s", desc);
              nblines -= 1;