[BACK]Return to qzparse.c CVS log [TXT] [DIR] Up to [LON-CAPA] / capa / capa51 / pProj

Diff for /capa/capa51/pProj/qzparse.c between versions 1.2 and 1.3

version 1.2, 1999/10/14 19:01:38 version 1.3, 1999/12/16 22:18:35
Line 29  double atof(); Line 29  double atof();
 #include "capaCommon.h"  #include "capaCommon.h"
 #include "ranlib.h"  #include "ranlib.h"
   
   #define  Q_ONLY        1
   #define  A_ONLY        2
   #define  QA_BOTH       3
   #define  F_CLASS       1
   #define  F_SECTIONS    2
   #define  F_STUDENT     3
   #define  F_ALPHA       4
   
 char    *progname;  char    *progname;
   
 void free_header(T_header* header)   void free_header(T_header* header) 
Line 137  extern  char      *EndText_p; Line 145  extern  char      *EndText_p;
   }    }
 }  }
   
   void output_problems(Problem_t* first_prob,int outputFlag,int q_cnt,FILE* dfp,
        T_student* a_student,int setIdx) 
   {
     extern  int        Parsemode_f;
     extern  char      *EndText_p;
     extern  char      *StartText_p;
   
     Problem_t *p;
     int q_idx;
     char* ans_str;
   
     p = first_prob;
     switch(outputFlag) {
     case  Q_ONLY: 
       if( StartText_p != NULL) {
         fprintf(dfp, "%s", StartText_p); fflush(dfp);
       }
       for( q_idx = 0; q_idx < q_cnt; printf("."),fflush(stdout), q_idx++ ) {
         fprintf(dfp, "%s", p->question); p = p->next;
       } 
       if( EndText_p != NULL) {
         fprintf(dfp, "%s", EndText_p); fflush(dfp);
       }
       break;
     case  A_ONLY:
       print_header(Parsemode_f, dfp,a_student->s_sec,setIdx,a_student->s_nm, 
    a_student->s_sn);
       for( q_idx = 0; q_idx < q_cnt; printf("."),fflush(stdout), q_idx++ ) {
         print_begin_item(Parsemode_f,dfp,q_idx+1);
         ans_str = answers_string(Parsemode_f,p);
         fprintf(dfp, "%s",ans_str); fflush(dfp);
         capa_mfree((char *)ans_str);
         p = p->next;
       }
       print_footer(Parsemode_f, dfp);
       break;
     case  QA_BOTH:
       if( StartText_p != NULL ) {
         fprintf(dfp, "%s", StartText_p);
       }
       for( q_idx = 0; q_idx < q_cnt; printf("."),fflush(stdout), q_idx++ ) {
         fprintf(dfp, "%s", p->question);  fflush(dfp);
         ans_str = answers_string(Parsemode_f,p);
         fprintf(dfp, "%s",ans_str); fflush(dfp);
         capa_mfree((char *)ans_str);
         p = p->next;
       }  
       if( EndText_p != NULL ) {
         fprintf(dfp, "%s", EndText_p);
       }
       break;
     }
   }
   
 /* ============================================================== */  /* ============================================================== */
 /*  qz --> tex    -Tq */  /*  qz --> tex    -Tq */
 /*  qz --> html   -Ha */  /*  qz --> html   -Ha */
Line 182  void usage() Line 244  void usage()
  printf("------------------------------------------------------\n");   printf("------------------------------------------------------\n");
 }  }
   
 #define  Q_ONLY        1  
 #define  A_ONLY        2  
 #define  QA_BOTH       3  
 #define  F_CLASS       1  
 #define  F_SECTIONS    2  
 #define  F_STUDENT     3  
   
   
   
 /* filter out the number to be [1:999] */  /* filter out the number to be [1:999] */
 int  scan_num(char *num_str,int *first, int *second) {  int  scan_num(char *num_str,int *first, int *second) {
   char  tmp_str[SMALL_LINE_BUFFER], *ch;    char  tmp_str[SMALL_LINE_BUFFER], *ch;
Line 221  int  scan_num(char *num_str,int *first, Line 274  int  scan_num(char *num_str,int *first,
   return (result);    return (result);
 }  }
   
   FILE* start_set(int directory_specified,char* out_directory,int file_specified,
    char *out_filename,char* filestart,char* filename)
   {
     extern int Parsemode_f;
   
     char cmd[MAX_BUFFER_SIZE];
     FILE* dfp;
   
     if (file_specified == 0) {
         if (directory_specified == 0 ) {
     switch( Parsemode_f ) {
     case TeX_MODE: 
         sprintf(filename,"TeX/%s.tex",filestart);  
         break;
     case ASCII_MODE: 
         sprintf(filename,"ASCII/%s.ascii",filestart); 
         break;
     case HTML_MODE:  
         sprintf(filename,"HTML/%s.text",filestart); 
         break;
     }
         } else {
     switch( Parsemode_f ) {
     case TeX_MODE: 
         sprintf(filename,"%s/%s.tex",out_directory,filestart);  
         break;
     case ASCII_MODE: 
         sprintf(filename,"%s/%s.ascii",out_directory,filestart); 
         break;
     case HTML_MODE:  
         sprintf(filename,"%s/%s.text", out_directory,filestart); 
         break;
     }
         }
     } else {
         if (directory_specified == 0 ) {
     sprintf(filename,"%s",out_filename);
         } else {
     sprintf(filename,"%s/%s",out_directory,out_filename);
         }
     }
     switch ( Parsemode_f ) {
     case TeX_MODE: sprintf(cmd, "cp TeXheader %s\n",filename); system(cmd); break;
     default: sprintf(cmd,"rm %s\n",filename);system(cmd); break;
     }
   
     if((dfp=fopen(filename,"a"))==NULL)  { printf("File error\n");  exit(-1); }
     return dfp;
   }
   
   void end_set(FILE*dfp,char* filename)
   {
       extern int Parsemode_f;
       char cmd[MAX_BUFFER_SIZE];
       fflush(dfp); 
       fclose(dfp);
       if(Parsemode_f == TeX_MODE) {
    sprintf(cmd, "cat TeXfooter >> %s\n", filename); 
    system(cmd);
       }
   }
   
   void end_page(FILE*dfp,int pagebreak)
   {
       extern int Parsemode_f;
       if( Parsemode_f == TeX_MODE && pagebreak ) { 
    fprintf(dfp, "\\clearpage\n\\setcounter{page}{1}\n"); fflush(dfp); 
       } else {
    printf("\n"); 
       }
   }
   
 int main (int argc, char  **argv)   int main (int argc, char  **argv) 
 {  {
   extern  int        Parsemode_f;    extern  int        Parsemode_f;
Line 233  int main (int argc, char  **argv) Line 358  int main (int argc, char  **argv)
   T_student  *students_p,*s_p, a_student;    T_student  *students_p,*s_p, a_student;
   int         num_students, q_cnt, result, inputNotOK = 1,     int         num_students, q_cnt, result, inputNotOK = 1, 
               ii, sectionIdx, setIdx = 1, q_idx, outputFlag = 0;                ii, sectionIdx, setIdx = 1, q_idx, outputFlag = 0;
   char        filename[FILE_NAME_LENGTH], path[FILE_NAME_LENGTH];    char        filename[FILE_NAME_LENGTH], path[FILE_NAME_LENGTH],
                 filestart[FILE_NAME_LENGTH];
   FILE       *dfp;    FILE       *dfp;
   int         tmp_num, first_stu, file_specified, directory_specified;    int         tmp_num, first_stu, file_specified, directory_specified;
   int         ForWhat  = F_SECTIONS, pagebreak=1,    int         ForWhat  = F_SECTIONS, pagebreak=1,
Line 383  int main (int argc, char  **argv) Line 509  int main (int argc, char  **argv)
      T_dates* dates;       T_dates* dates;
      T_header header;       T_header header;
      for(ii=StartSet;ii<=EndSet;ii++) {       for(ii=StartSet;ii<=EndSet;ii++) {
        if (capa_get_header(&header,ii)<0) {   if (capa_get_header(&header,ii)<0) setdb_error(ii);
  setdb_error(ii);   free_header(&header);
        }   if (capa_get_all_dates(ii,&dates)<0) setdb_error(ii); 
        free_header(&header);   free_dates(dates);
        if (capa_get_all_dates(ii,&dates)<0) {  
  setdb_error(ii);  
        }   
        free_dates(dates);  
      }       }
    }     }
   
    if( ForWhat == F_STUDENT ) {     switch (ForWhat) {
      result = capa_get_student(StuNum, &a_student);     case F_STUDENT:
      if ( result == 0 ) {         result = capa_get_student(StuNum, &a_student);
        fprintf(stderr,"Unable to find student %s in %s/classl",StuNum,path);         if ( result == 0 ) {
        exit(-1);     fprintf(stderr,"Unable to find student %s in %s/classl",StuNum,path);
      } else {     exit(-1);
        if (result == -1 ) {  
  fprintf(stderr,"Unable to read %s/classl",path);  
  exit(-1);  
        }  
      }  
      if ( file_specified == 0) {  
        if ( directory_specified == 0) {  
  switch( Parsemode_f ) {  
          case TeX_MODE: sprintf(filename,"TeX/%s.tex",StuNum);  break;  
          case ASCII_MODE: sprintf(filename,"ASCII/%s.ascii",StuNum); break;  
          case HTML_MODE:  sprintf(filename,"HTML/%s.html",StuNum);   break;  
  }  
        } else {         } else {
  switch( Parsemode_f ) {     if (result == -1 ) {
          case TeX_MODE: sprintf(filename,"%s/%s.tex",out_directory,StuNum); break;         fprintf(stderr,"Unable to read %s/classl",path);
          case ASCII_MODE: sprintf(filename,"%s/%s.ascii",out_directory,StuNum); break;         exit(-1);
          case HTML_MODE:  sprintf(filename,"%s/%s.html",out_directory,StuNum); break;     }
  }  
        }         }
      } else {         dfp=start_set(directory_specified,out_directory,file_specified,out_filename,
        if (directory_specified == 0 ) {       StuNum,filename);
  sprintf(filename,"%s",out_filename);         for(setIdx=StartSet; setIdx <= EndSet; setIdx++) {
        } else {     result = capa_parse(setIdx, &first_prob, StuNum, &q_cnt, NULL);
  sprintf(filename,"%s/%s",out_directory,out_filename);     if ( result != 0 ) {
          output_problems(first_prob,outputFlag,q_cnt,dfp,&a_student,setIdx);
          free_problems(first_prob);
      }
      if( setIdx < EndSet ) { end_page(dfp,pagebreak); }
      if( ErrorMsg_count > 0 ) { printf("%s",ErrorMsg_p); }
        }         }
      }         printf("\n  DONE Student %s\n",StuNum);
      switch ( Parsemode_f ) {         break;
      case TeX_MODE: sprintf(cmd, "cp TeXheader %s\n",filename); system(cmd); break;     case F_SECTIONS:
      default: sprintf(cmd,"rm %s\n",filename);system(cmd); break;         for(sectionIdx = StartSec; sectionIdx <= EndSec; sectionIdx++ ) { 
      }     num_students = capa_sorted_section(&students_p, sectionIdx);
      if((dfp=fopen(filename,"a"))==NULL)  {      if( num_students > 0 ) {
        fprintf(stdout,"File error! Cannot open [%s].\n",filename);           printf("Section %2d: %d students\n",sectionIdx,num_students);
        return -1;          for(setIdx=StartSet; setIdx <= EndSet; setIdx++) {
      }     sprintf(filestart,"section%d-set%d",sectionIdx,setIdx);
      for(setIdx=StartSet; setIdx <= EndSet; setIdx++) {     dfp=start_set(directory_specified,out_directory,file_specified,
        result = capa_parse(setIdx, &first_prob, StuNum, &q_cnt, NULL);   out_filename,filestart,filename);
        if ( result != 0 ) { p = first_prob;     for(s_p = students_p,first_stu=1; s_p ; s_p = s_p->s_next ) {
   switch(outputFlag) {         s_p->s_sn[MAX_STUDENT_NUMBER]=0;
     case  Q_ONLY:          printf("    Student: %s%s   set %d\n",s_p->s_nm,s_p->s_sn,setIdx);
                  if( StartText_p != NULL) {         result = capa_parse(setIdx, &first_prob, s_p->s_sn, &q_cnt, NULL);
                             fprintf(dfp, "%s", StartText_p); fflush(dfp);         if ( result != 0 ) {
                           }     output_problems(first_prob,outputFlag,q_cnt,dfp,s_p,setIdx);
                   for( q_idx = 0; q_idx < q_cnt; printf("."),fflush(stdout), q_idx++ ) {     free_problems(first_prob);
                     fprintf(dfp, "%s", p->question); p = p->next;     if( s_p->s_next != NULL ) { end_page(dfp,pagebreak); }
                           }          }
                           if( EndText_p != NULL) {     }
                             fprintf(dfp, "%s", EndText_p); fflush(dfp);     end_set(dfp,filename);
                           }     printf("\n  DONE set%2d\n",setIdx);
                           break;         }
     case  A_ONLY:     }
                 print_header(Parsemode_f, dfp,a_student.s_sec,setIdx,a_student.s_nm, StuNum);     printf("\n  DONE section%2d\n",sectionIdx);
         for( q_idx = 0; q_idx < q_cnt; printf("."),fflush(stdout), q_idx++ ) {         }
                    print_begin_item(Parsemode_f,dfp,q_idx+1);         free_students(students_p);
                    ans_str = answers_string(Parsemode_f,p);         break;
                    fprintf(dfp, "%s",ans_str); fflush(dfp);     case F_ALPHA:
                    capa_mfree((char *)ans_str);         break;
                            p = p->next;  
                         }  
                         print_footer(Parsemode_f, dfp);  
         break;  
     case  QA_BOTH:  
                     if( StartText_p != NULL ) {  
                       fprintf(dfp, "%s", StartText_p);  
                     }  
     for( q_idx = 0; q_idx < q_cnt; printf("."),fflush(stdout), q_idx++ ) {  
        fprintf(dfp, "%s", p->question);  fflush(dfp);  
        ans_str = answers_string(Parsemode_f,p);  
                fprintf(dfp, "%s",ans_str); fflush(dfp);  
                capa_mfree((char *)ans_str);  
                        p = p->next;  
                     }    
                     if( EndText_p != NULL ) {  
                       fprintf(dfp, "%s", EndText_p);  
                     }  
                     break;  
            }  
                 
         }  
         free_problems(first_prob);  
         if( setIdx < EndSet ) {   
           if( Parsemode_f == TeX_MODE && pagebreak ) {   
     fprintf(dfp, "\\clearpage\n\\setcounter{page}{1}\n");   
   } else {  
     printf("\n");   
   }  
  }  
  if( ErrorMsg_count > 0 ) {  
            printf("%s",ErrorMsg_p);  
         }  
      }  
      fflush(dfp); fclose(dfp);  
   
      switch( Parsemode_f ) {  
        case TeX_MODE: sprintf(cmd, "cat TeXfooter >> %s\n", filename); system(cmd); break;  
      }  
      printf("\n  DONE Student %s\n",StuNum);  
 } else {  /*   For section(s) */  
     for(sectionIdx = StartSec; sectionIdx <= EndSec; sectionIdx++ ) {   
       num_students = capa_sorted_section(&students_p, sectionIdx);  
       printf("Section %2d: %d students\n",sectionIdx,num_students);  
       if( num_students > 0 ) {  
         for(setIdx=StartSet; setIdx <= EndSet; setIdx++) {  
             
   if (directory_specified == 0 ) {  
     switch( Parsemode_f ) {  
       case TeX_MODE: sprintf(cmd, "cp TeXheader TeX/section%d-set%d.tex\n", sectionIdx,setIdx);   
         system(cmd);  
         sprintf(filename,"TeX/section%d-set%d.tex",sectionIdx,setIdx);  break;  
       case ASCII_MODE: sprintf(filename,"ASCII/section%d-set%d.ascii",sectionIdx,setIdx); break;  
       case HTML_MODE:  sprintf(filename,"HTML/section%d-set%d.text",sectionIdx,setIdx); break;  
     }  
   } else {  
     switch( Parsemode_f ) {  
                case TeX_MODE: sprintf(cmd, "cp TeXheader %s/section%d-set%d.tex\n", out_directory,  
       sectionIdx,setIdx);   
                               system(cmd);  
                               sprintf(filename,"%s/section%d-set%d.tex",out_directory,  
       sectionIdx,setIdx);  break;  
                case ASCII_MODE: sprintf(filename,"%s/section%d-set%d.ascii",out_directory,  
  sectionIdx,setIdx); break;  
                case HTML_MODE:  sprintf(filename,"%s/section%d-set%d.text",out_directory,  
  sectionIdx,setIdx); break;  
     }  
   }  
           if((dfp=fopen(filename,"a"))==NULL)  { printf("File error\n");  return -1; }  
           for(s_p = students_p,first_stu=1; s_p ; s_p = s_p->s_next ) {  
             s_p->s_sn[MAX_STUDENT_NUMBER]=0;  
             printf("    Student: %s%s   set %d",s_p->s_nm,s_p->s_sn,setIdx);  
             result = capa_parse(setIdx, &first_prob, s_p->s_sn, &q_cnt, NULL);  
             if ( result != 0 ) {  
                 p = first_prob;  
         switch(outputFlag) {  
           case  Q_ONLY:  
                       if( StartText_p != NULL ) {  
                             fprintf(dfp, "%s", StartText_p); fflush(dfp);  
                       }   
                       for( q_idx = 0; q_idx < q_cnt; printf("."),fflush(stdout), q_idx++ ) {  
                  fprintf(dfp, "%s", p->question); fflush(dfp); p = p->next;  
                       }  
                       if( EndText_p != NULL ) {  
                             fprintf(dfp, "%s", EndText_p); fflush(dfp);  
                       }   
                       break;  
   case  A_ONLY:  
       print_header(Parsemode_f,dfp,s_p->s_sec,setIdx,s_p->s_nm,s_p->s_sn);  
       for( q_idx = 0; q_idx < q_cnt; printf("."),fflush(stdout), q_idx++ ) {  
                  print_begin_item(Parsemode_f,dfp,q_idx+1);  
                  ans_str = answers_string(Parsemode_f,p);  
                  fprintf(dfp, "%s",ans_str); fflush(dfp);  
                  capa_mfree((char *)ans_str);  
                          p = p->next;  
                       }  
                       print_footer(Parsemode_f,dfp);  
       break;  
   case  QA_BOTH:  
                       if( StartText_p != NULL ) {  
                             fprintf(dfp, "%s", StartText_p); fflush(dfp);  
                       }   
       for( q_idx = 0; q_idx < q_cnt; printf("."),fflush(stdout), q_idx++ ) {  
                  fprintf(dfp, "%s", p->question);  fflush(dfp);  
                  ans_str = answers_string(Parsemode_f,p);  
                  fprintf(dfp, "%s",ans_str); fflush(dfp);  
                  capa_mfree((char *)ans_str);  
                          p = p->next;  
                       }  
                       if( ( EndText_p != NULL) ) {  
                          fprintf(dfp, "%s", EndText_p);  
                       }  
                       break;  
                 }  
                 if( s_p->s_next != NULL ) {      
                   if(Parsemode_f == TeX_MODE && pagebreak) {  
                         fprintf(dfp, "\\clearpage\n\\setcounter{page}{1}\n"); fflush(dfp);   
                   }  
                   printf("\n");   
                 }  
                 free_problems(first_prob);  
               }  
             }  
             fflush(dfp); fclose(dfp);  
             if(Parsemode_f == TeX_MODE) {  
       if (directory_specified==0) {  
  sprintf(cmd, "cat TeXfooter >> TeX/section%d-set%d.tex\n", sectionIdx,setIdx); system(cmd);  
       } else {  
  sprintf(cmd, "cat TeXfooter >> %s/section%d-set%d.tex\n", out_directory,  
  sectionIdx,setIdx); system(cmd);  
       }  
     }  
     printf("\n  DONE set%2d\n",setIdx);  
  }  
   
       }  
       printf("\n  DONE section%2d\n",sectionIdx);  
     }  
     free_students(students_p);  
    }     }
    printf("ALL DONE\n");     printf("ALL DONE\n");
    return (0);     return (0);
Removed from v.1.2  
changed lines
  Added in v.1.3

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>