Annotation of capa/capa51/GUITools/quizzer.c, revision 1.1
1.1 ! albertel 1: /*
! 2: * quizzer.c
! 3: * Copyright Guy Albertelli II 1996
! 4: */
! 5: #include <stdio.h>
! 6: #include <tk.h>
! 7: #include <stdlib.h>
! 8: #include <Capa/capaCommon.h>
! 9: #include <unistd.h>
! 10: #include <quizzer.h>
! 11:
! 12: extern Tcl_Interp *gInterp;
! 13:
! 14: int Quizzer_Init(Tcl_Interp *interp);
! 15: int main(int argc, char**argv)
! 16: {
! 17: char * rDisplay,*q,filename[BUFFER_SIZE],buffer[BUFFER_SIZE];
! 18: int found=1;
! 19:
! 20: gInterp=Tcl_CreateInterp();
! 21: if (gInterp ==NULL)
! 22: {
! 23: fprintf(stderr,"Couldn't get a new Tcl Interp\n");
! 24: return -1;
! 25: }
! 26:
! 27: rDisplay = getenv("DISPLAY");
! 28:
! 29: if (rDisplay==NULL)
! 30: {
! 31: fprintf(stderr,"getenv for DISPLAY returned NULL\n");
! 32: return -2;
! 33: }
! 34:
! 35: if (Tcl_SetVar2 (gInterp, "env", "DISPLAY", rDisplay, TCL_GLOBAL_ONLY) == NULL)
! 36: {
! 37: fprintf(stderr,"Couldn't set env(DISPLAY) = %s\n",rDisplay);
! 38: return -3;
! 39: }
! 40:
! 41: q = Tcl_Merge(argc-1, argv+1);
! 42: Tcl_SetVar(gInterp, "argv", q, TCL_GLOBAL_ONLY);
! 43: ckfree(q);
! 44: sprintf(buffer, "%d", argc-1);
! 45: Tcl_SetVar(gInterp, "argc", buffer, TCL_GLOBAL_ONLY);
! 46: Tcl_SetVar(gInterp, "argv0", argv[0],TCL_GLOBAL_ONLY);
! 47: Tcl_SetVar(gInterp, "tcl_interactive","0", TCL_GLOBAL_ONLY);
! 48:
! 49: if (Tcl_Init(gInterp) == TCL_ERROR)
! 50: {
! 51: fprintf(stderr,"Tcl_Init error\n");
! 52: fprintf(stderr,"%d\n",TCL_ERROR);
! 53: fprintf(stderr,"%s\n",gInterp->result);
! 54: return -4;
! 55: }
! 56:
! 57: if (Tk_Init(gInterp) == TCL_ERROR)
! 58: {
! 59: fprintf(stderr,"Tk_Init error\n");
! 60: fprintf(stderr,"%d\n",TCL_ERROR);
! 61: fprintf(stderr,"%s\n",gInterp->result);
! 62: return -5;
! 63: }
! 64:
! 65: Quizzer_Init(gInterp);
! 66:
! 67: sprintf(filename,"./utils.tcl");
! 68: if( capa_access(filename, F_OK) == -1 ) {
! 69: sprintf(filename,"/usr/local/bin/Quizzer/utils.tcl");
! 70: if( capa_access(filename, F_OK) == -1 ) {
! 71: sprintf(filename,"/usr/local/lib/CAPA45/utils.tcl");
! 72: if( capa_access(filename, F_OK) == -1 ) {
! 73: sprintf(filename,"/usr/local/lib/utils.tcl");
! 74: if( capa_access(filename, F_OK) == -1 ) {
! 75: sprintf(filename,"/usr/local/lib/utils.tcl");
! 76: if( capa_access(filename, F_OK) == -1 ) {
! 77: sprintf(filename,"/usr/local/lib/CAPA45/Quizzer/utils.tcl");
! 78: if( capa_access(filename, F_OK) == -1 ) {
! 79: sprintf(filename,"/usr/lib/utils.tcl");
! 80: if( capa_access(filename, F_OK) == -1 ) { /* I gave up! */
! 81: found=0;
! 82: }
! 83: }
! 84: }
! 85: }
! 86: }
! 87: }
! 88: }
! 89:
! 90: if( found ) {
! 91: if (Tcl_EvalFile(gInterp, filename) != TCL_OK)
! 92: {
! 93: fprintf(stderr,"%s\n",gInterp->result);
! 94: return -6;
! 95: }
! 96: } else {
! 97: fprintf(stderr,"Unable to find utils.tcl\n");
! 98: exit(-7);
! 99: }
! 100:
! 101: sprintf(filename,"./common.tcl");
! 102: if( capa_access(filename, F_OK) == -1 ) {
! 103: sprintf(filename,"/usr/local/bin/Quizzer/common.tcl");
! 104: if( capa_access(filename, F_OK) == -1 ) {
! 105: sprintf(filename,"/usr/local/lib/CAPA45/common.tcl");
! 106: if( capa_access(filename, F_OK) == -1 ) {
! 107: sprintf(filename,"/usr/local/lib/common.tcl");
! 108: if( capa_access(filename, F_OK) == -1 ) {
! 109: sprintf(filename,"/usr/local/lib/common.tcl");
! 110: if( capa_access(filename, F_OK) == -1 ) {
! 111: sprintf(filename,"/usr/local/lib/CAPA45/Quizzer/common.tcl");
! 112: if( capa_access(filename, F_OK) == -1 ) {
! 113: sprintf(filename,"/usr/lib/common.tcl");
! 114: if( capa_access(filename, F_OK) == -1 ) { /* I gave up! */
! 115: found=0;
! 116: }
! 117: }
! 118: }
! 119: }
! 120: }
! 121: }
! 122: }
! 123: if( found ) {
! 124: if (Tcl_EvalFile(gInterp, filename) != TCL_OK)
! 125: {
! 126: fprintf(stderr,"%s\n",gInterp->result);
! 127: return -6;
! 128: }
! 129: } else {
! 130: fprintf(stderr,"Unable to find common.tcl\n");
! 131: exit(-7);
! 132: }
! 133: sprintf(filename,"./quizzer.tcl");
! 134: if( capa_access(filename, F_OK) == -1 ) {
! 135: sprintf(filename,"/usr/local/bin/Quizzer/quizzer.tcl");
! 136: if( capa_access(filename, F_OK) == -1 ) {
! 137: sprintf(filename,"/usr/local/lib/CAPA45/quizzer.tcl");
! 138: if( capa_access(filename, F_OK) == -1 ) {
! 139: sprintf(filename,"/usr/local/lib/quizzer.tcl");
! 140: if( capa_access(filename, F_OK) == -1 ) {
! 141: sprintf(filename,"/usr/local/lib/quizzer.tcl");
! 142: if( capa_access(filename, F_OK) == -1 ) {
! 143: sprintf(filename,"/usr/local/lib/CAPA45/Quizzer/quizzer.tcl");
! 144: if( capa_access(filename, F_OK) == -1 ) {
! 145: sprintf(filename,"/usr/lib/quizzer.tcl");
! 146: if( capa_access(filename, F_OK) == -1 ) { /* I gave up! */
! 147: found=0;
! 148: }
! 149: }
! 150: }
! 151: }
! 152: }
! 153: }
! 154: }
! 155:
! 156: /*
! 157: fprintf(stderr,"HEY STILL IN DEVELOPEMENT MODE\n");
! 158: if (Tcl_EvalFile(gInterp, "quizzer.tcl")
! 159: != TCL_OK)
! 160: {
! 161: fprintf(stderr,"%s\n",gInterp->result);
! 162: return -6;
! 163: }
! 164: */
! 165:
! 166: if( found ) {
! 167: if (Tcl_EvalFile(gInterp, filename) != TCL_OK)
! 168: {
! 169: fprintf(stderr,"%s\n",gInterp->result);
! 170: return -6;
! 171: }
! 172: while(Tcl_DoOneEvent(TCL_ALL_EVENTS));
! 173: } else {
! 174: fprintf(stderr,"Unable to find quizzer.tcl\n");
! 175: exit(-7);
! 176: }
! 177: return 0;
! 178: }
! 179:
! 180:
! 181:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to quizzer.c CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / capa / capa51 / GUITools