Return to capaCommon.c CVS log

Up to [LON-CAPA] / loncom / homework / CAPA-converter

- added CAPA-converter
- lonproblem reformatting

    1: /* =||>|===================== capaCommon.c =====================|<||= */
    2: /* created 1994 by Isaac Tsai                                         */
    3: /* 1994, 1995, 1996, 1997, 1998, 1999  copyrighted by Isaac Tsai      */
    4: /* TODO: restructure capa_check_ans*() calls into one                 */
    5: /* =||>|===================== capaCommon.c =====================|<||= */
    6: #include <ctype.h>
    7: #if defined(__sun) || defined(linux) || defined(__alpha) || defined(hpux) || defined(AIX) || defined(IRIX) 
    8: #include <unistd.h>  /* lockf() */
    9: #endif
   10: #include <sys/types.h>
   11: #include <sys/stat.h>
   12: #include <fcntl.h>
   13: #include "capaParser.h"
   14: #include "capaToken.h"
   15: #include "capaCommon.h"
   16: #include "ranlib.h"
   17: 
   18: 
   19: /*----------------------------------------------------------*/
   20: /*  flock() in SUN is in BSD compatibility lib              */
   21: /*  #include <sys/file.h>                                   */
   22: /*----------------------------------------------------------*/
   23: char        Parse_class[QUARTER_K];
   24: int         Parse_set;
   25: int         Parse_section; 
   26: char        Parse_student_number[MAX_STUDENT_NUMBER+1];
   27: char        Parse_name[MAX_NAME_CHAR+1];
   28: long        capaid_plus_gen;
   29: int         managermode;
   30:  
   31: int     yyparse();
   32: int     yylex();
   33: extern  FILE *yyin;
   34: extern  void yyrestart();
   35: 
   36: 
   37: /*----------------------------------------------------------*/
   38: /*  Lock file shared                                        */
   39: /*  lock the file specified by file stream pointer sp       */
   40: /*----------------------------------------------------------*/
   41: int
   42: flockstream_sh(sp) FILE *sp;
   43: {
   44:   int fd;
   45:   
   46:   fd = fileno(sp);
   47:   
   48: #if defined(__sun) || defined(hpux) || defined(AIX)
   49:   return ( lockf(fd,F_LOCK, 0L) );
   50: #else
   51:   return (flock(fd,LOCK_SH));
   52: #endif
   53: }
   54: /*----------------------------------------------------------*/
   55: int
   56: flockstream(sp) FILE *sp;
   57: {
   58:   int fd;
   59:   
   60:   fd = fileno(sp);
   61:   
   62: #if defined(__sun) || defined(hpux) || defined(AIX)
   63:   return ( lockf(fd,F_LOCK, 0L) );
   64: #else
   65:   return (flock(fd,LOCK_EX));
   66: #endif
   67: }
   68: /*----------------------------------------------------------*/
   69: int
   70: funlockstream(sp) FILE *sp;
   71: {
   72:   int fd;
   73:   
   74:   fd = fileno(sp);
   75:   
   76: #if defined(__sun) || defined(hpux) || defined(AIX)
   77:   return ( lockf(fd,F_ULOCK, 0L) );
   78: #else
   79:   return ( flock(fd,LOCK_UN) );
   80: #endif
   81: }
   82: 
   83: int
   84: inquery_a_lock(sp,cmd,type,offset,whence,len)
   85: FILE *sp;int cmd;off_t offset;int whence;off_t len;
   86: {
   87:   struct flock lock;
   88:   int    fd;
   89:   lock.l_type   = type;   lock.l_start = offset;
   90:   lock.l_whence = whence; lock.l_len   = len;
   91:   fd=fileno(sp);
   92:   return (fcntl(fd,cmd,&lock));
   93: }
   94: #define  Blocked_Write_Lock(sp) \
   95:           inquery_a_lock(sp,F_SETLK,F_WRLCK,0,0,0)
   96: 
   97: #define  Blocked_Write_Lock(sp) \
   98:           inquery_a_lock(sp,F_SETLK,F_WRLCK,0,0,0)
   99: 
  100: #define  Un_Lock(sp) \
  101:           inquery_a_lock(sp,F_SETLK,F_UNLCK,0,0,0)
  102: 
  103:          
  104: 
  105: 
  106: /******************************************************************************/
  107: /* PARSE SOURCE FILE AND RETURN BLOCKS OF TEXT, unlike capa_parse_student     */
  108: /******************************************************************************/
  109: int  
  110: capa_parse(set,problem,filename,num_questions,func_ptr)
  111: int  set;Problem_t **problem;char *filename;int  *num_questions;
  112: void (*func_ptr)();
  113: {
  114:   int   errcode;
  115: extern  FILE      *Input_stream[MAX_OPENED_FILE];
  116: extern  char       Opened_filename[MAX_OPENED_FILE][QUARTER_K];
  117: extern  int        Lexi_line;
  118: extern  int        Lexi_qnum;
  119: extern  Problem_t *FirstProblem_p;
  120: extern  Problem_t *LastProblem_p;
  121: extern  Problem_t *LexiProblem_p;
  122: extern  char      *StartText_p;
  123: extern  char      *EndText_p;
  124: extern  char      *ErrorMsg_p;
  125: extern  int        ErrorMsg_count;
  126: extern  int        Symb_count;
  127: extern  int        first_run;
  128: extern  void       (*Status_Func)();
  129:   char             warn_msg[WARN_MSG_LENGTH];
  130:   
  131:   if(ErrorMsg_p) { capa_mfree(ErrorMsg_p); ErrorMsg_p = NULL; }
  132:   if(EndText_p)  { capa_mfree(EndText_p);  EndText_p  = NULL; }
  133:   if(StartText_p)  { capa_mfree(StartText_p);  StartText_p  = NULL; }
  134:   ErrorMsg_p = NULL; first_run = 1; EndText_p = NULL;
  135:   Symb_count = ErrorMsg_count = Lexi_line = Lexi_qnum = 0;
  136:   FirstProblem_p = LastProblem_p = NULL;
  137:   LexiProblem_p = (Problem_t *)capa_malloc(sizeof(Problem_t),1);
  138:   Status_Func=func_ptr;
  139: 
  140: #ifdef AVOIDYYINPUT
  141:   yyin=fopen(filename,"r");
  142: #else
  143:  if ( (Input_stream[0]=fopen(filename,"r")) == NULL) {
  144:      /* printf("Error: can't open %s\n",filename);*/
  145:      sprintf(warn_msg,"capa_parse(): CANNOT OPEN FILE\"%s\", file does not exist or is not readable.\n", filename);
  146:      capa_msg(MESSAGE_ERROR,warn_msg);
  147:      return (-1);
  148:   }
  149: #endif
  150:   sprintf(Opened_filename[0],"%s",filename);
  151:   
  152:   /*yyrestart(yyin);*/
  153:   begin_text();
  154:   /*if ( !yyparse() )  { errcode = Lexi_qnum; } else { errcode = 0; }*/
  155:   if (!yylex()) { errcode = Lexi_qnum; } else { errcode = 0; }
  156:   /* fclose(Input_stream[0]);*/ /*The Lexer handles closing this*/
  157:   /* print_symb_stat(); */
  158:   /*
  159:   capa_mfree((char *)LexiProblem_p);
  160:   LexiProblem_p = NULL;
  161:   */
  162:  (*problem) = FirstProblem_p;
  163:  (*num_questions) = Lexi_qnum;
  164:   return (errcode);
  165: }
  166: 
  167: void send(char *text)
  168: {
  169:     printf(text);
  170: }
  171: /* =||>|===================== End of capaCommon.c =====================|<||= */
  172: