[BACK]Return to common.funct.c CVS log [TXT] [DIR] Up to [LON-CAPA] / capa / capa51 / GUITools

Diff for /capa/capa51/GUITools/common.funct.c between versions 1.1 and 1.4

version 1.1, 1999/09/28 21:25:41 version 1.4, 2000/07/07 18:25:12
Line 1 Line 1
   /* general functionality for all parts of GUI CAPA
      Copyright (C) 1992-2000 Michigan State University
   
      The CAPA system is free software; you can redistribute it and/or
      modify it under the terms of the GNU Library General Public License as
      published by the Free Software Foundation; either version 2 of the
      License, or (at your option) any later version.
   
      The CAPA system 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
      Library General Public License for more details.
   
      You should have received a copy of the GNU Library General Public
      License along with the CAPA system; see the file COPYING.  If not,
      write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
      Boston, MA 02111-1307, USA.
   
      As a special exception, you have permission to link this program
      with the TtH/TtM library and distribute executables, as long as you
      follow the requirements of the GNU GPL in regard to all of the
      software in the executable aside from TtH/TtM.
   */
   
 /*  /*
  * common.funct.c   * common.funct.c
  * Copyright Guy Albertelli II 1998   * Created Guy Albertelli II 1998
  * Portions Copyright Issac Tsai  
  */   */
 #include <stdio.h>  #include <stdio.h>
 #include <tk.h>  #include <tk.h>
Line 126  int capaGetExistingSections(ClientData c Line 149  int capaGetExistingSections(ClientData c
   return TCL_OK;    return TCL_OK;
 }  }
   
   /* finds how many set.db files there are */
   int howManySetDBFile()
   {
     char     filename[BUFFER_SIZE], *pathName;
     int     ii;
     
     pathName=getcwd(NULL,BUFFER_SIZE);
     ii=1;
     sprintf(filename,"%s/records/set%d.db",pathName,ii);
     while(!access(filename, F_OK)) {
       ii++;
       sprintf(filename,"%s/records/set%d.db",pathName,ii);
     }
     free(pathName);
     return (ii-1);
   }
   
   /* argv[1] is student number argv[2] is setnumber */
   int capaGetSpecifiCapaId(ClientData clientdata, Tcl_Interp *interp, int argc, 
    char *argv[])
   {
     char buf[MAX_BUFFER_SIZE];
     if (argc==3) {
       sprintf(buf,"%d",capa_PIN(argv[1],atoi(argv[2]),0));
       Tcl_AppendElement(interp,buf);
     } else {
       sprintf(buf,"Usage: %s StudentNumber SetNumber",argv[0]);
       Tcl_AppendElement(interp,buf);
     }
     return TCL_OK;
   }
   
   /* argv[1] is student number argv[2] is section number argv[3] is setnumber */
   int capaIsSetOpen(ClientData clientdata, Tcl_Interp *interp, int argc, 
    char *argv[])
   {
     char buf[MAX_BUFFER_SIZE];
     if (argc==4) {
       sprintf(buf,"%d",capa_check_date(CHECK_OPEN_DATE,argv[1],atoi(argv[2]),atoi(argv[3])));
       Tcl_AppendElement(interp,buf);
     } else {
       sprintf(buf,"Usage: %s StudentNumber SectionNumber SetNumber",argv[0]);
       Tcl_AppendElement(interp,buf);
     }
     return TCL_OK;
   }
   
 void message()  void message()
 {  {
   unsigned char *message=    signed char *message=
 "*****                *****        ************        *****               *****\n"  "*****                *****        ************        *****               *****\n"
 "******              ******     ******************     *****               *****\n"  "******              ******     ******************     *****               *****\n"
 " ******            ******    ****              ****    ****               **** \n"  " ******            ******    ****              ****    ****               **** \n"
Removed from v.1.1  
changed lines
  Added in v.1.4

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