URL
https://opencores.org/ocsvn/or1k_old/or1k_old/trunk
Subversion Repositories or1k_old
[/] [or1k_old/] [trunk/] [insight/] [tix/] [generic/] [tixOption.c] - Rev 1765
Go to most recent revision | Compare with Previous | Blame | View Log
/* * tixOption.c -- * * Handle the "$widget config" commands * * Copyright (c) 1996, Expert Interface Technologies * * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * */ /* ToDo: * * 1) ConfigSpec structures shouldn't be shared between parent and child * classes. * 2) Specs array should be compacted (no duplication) and sorted according * to argvName during class declaration. * 3) Merge aliases with specs * */ #include <tk.h> #include <tixPort.h> #include <tixInt.h> static char * FormatConfigInfo _ANSI_ARGS_(( Tcl_Interp *interp, TixClassRecord *cPtr, char * widRec, TixConfigSpec * spec)); /* * This is a lightweight interface for querying the value of a * variable in the object. This is simpler compared to * [lindex [$w config -flag] 4] */ int Tix_GetVar (interp, cPtr, widRec, flag) Tcl_Interp *interp; TixClassRecord *cPtr; char * widRec; char * flag; { TixConfigSpec * spec; char * value; spec = Tix_FindConfigSpecByName(interp, cPtr, flag); if (spec != NULL) { if (spec->isAlias) { flag = spec->realPtr->argvName; } else { /* The user may have specified a shorthand like -backgro */ flag = spec->argvName; } value = Tcl_GetVar2(interp, widRec, flag, TCL_GLOBAL_ONLY); Tcl_AppendResult(interp, value, (char*)NULL); return TCL_OK; } else { return TCL_ERROR; } } int Tix_QueryOneOption(interp, cPtr, widRec, flag) Tcl_Interp *interp; TixClassRecord *cPtr; char *widRec; char *flag; { TixConfigSpec * spec; char * list; spec = Tix_FindConfigSpecByName(interp, cPtr, flag); if (spec != NULL) { list = FormatConfigInfo(interp, cPtr, widRec, spec); Tcl_SetResult(interp, list, TCL_VOLATILE); ckfree(list); return TCL_OK; } else { return TCL_ERROR; } } /* * Tix_QueryAllOptions -- * * Note: This function does not call Tix_FindConfigSpec() because * it just needs to print out the list of all configSpecs from the * class structure. * */ int Tix_QueryAllOptions (interp, cPtr, widRec) Tcl_Interp *interp; TixClassRecord * cPtr; char *widRec; { int i, code = TCL_OK; char * list; char * lead = "{"; /* Iterate over all the options of class */ for (i=0; i<cPtr->nSpecs; i++) { if (cPtr->specs[i] && cPtr->specs[i]->argvName) { list = FormatConfigInfo(interp, cPtr, widRec, cPtr->specs[i]); Tcl_AppendResult(interp, lead, list, "}", (char *) NULL); ckfree(list); lead = " {"; } } return code; } TixConfigSpec * Tix_FindConfigSpecByName(interp, cPtr, flag) Tcl_Interp * interp; TixClassRecord * cPtr; char * flag; { char * classRec; char * key; int nMatch, i; size_t len; Tcl_HashEntry *hashPtr; TixConfigSpec *configSpec; classRec = cPtr->className; /* * First try to look up the confifspec in a hash table, * it should be faster. */ key = Tix_GetConfigSpecFullName(classRec, flag); hashPtr = Tcl_FindHashEntry(_TixGetHashTable(interp, "tixSpecTab", NULL), key); ckfree(key); if (hashPtr) { return (TixConfigSpec *) Tcl_GetHashValue(hashPtr); } /* * The user may specified a partial name. Try to match, but will * return error if we don't get exactly one match. */ len = strlen(flag); for (configSpec=NULL,nMatch=0,i=0; i<cPtr->nSpecs; i++) { if (strncmp(flag, cPtr->specs[i]->argvName, len) == 0) { if (nMatch > 0) { Tcl_ResetResult(interp); Tcl_AppendResult(interp, "ambiguous option \"", flag, "\"", (char*)NULL); return NULL; } else { nMatch ++; configSpec = cPtr->specs[i]; } } } if (configSpec == NULL) { Tcl_ResetResult(interp); Tcl_AppendResult(interp, "unknown option \"", flag, "\"", (char*)NULL); return NULL; } else { return configSpec; } } char * Tix_GetConfigSpecFullName(classRec, flag) char * classRec; char * flag; { char * buff; int max; int conLen; conLen = strlen(classRec); max = conLen + strlen(flag) + 1; buff = (char*)ckalloc(max * sizeof(char)); strcpy(buff, classRec); strcpy(buff+conLen, flag); return buff; } int Tix_ChangeOptions(interp, cPtr, widRec, argc, argv) Tcl_Interp *interp; TixClassRecord *cPtr; char * widRec; int argc; char ** argv; { int i, code = TCL_OK; TixConfigSpec * spec; if (argc == 0) { goto done; } if ((argc %2) != 0) { if (Tix_FindConfigSpecByName(interp, cPtr, argv[argc-1])) { Tcl_AppendResult(interp, "value for \"", argv[argc-1], "\" missing", (char*)NULL); } else { /* The error message is already appended by * Tix_FindConfigSpecByName() */ } code = TCL_ERROR; goto done; } for (i=0; i<argc; i+=2) { spec = Tix_FindConfigSpecByName(interp, cPtr, argv[i]); if (spec == NULL) { code = TCL_ERROR; goto done; } if (Tix_ChangeOneOption(interp, cPtr, widRec, spec, argv[i+1], 0, 0)!=TCL_OK) { code = TCL_ERROR; goto done; } } done: return code; } int Tix_CallConfigMethod(interp, cPtr, widRec, spec, value) Tcl_Interp *interp; TixClassRecord *cPtr; char * widRec; TixConfigSpec *spec; char * value; { char * argv[2]; char method[200]; char * context = Tix_GetContext(interp, widRec); char * c; sprintf(method, "config%s", spec->argvName); c = Tix_FindMethod(interp, context, method); if (c != NULL) { argv[0] = value; return Tix_CallMethod(interp, c, widRec, method, 1, argv); } c = Tix_FindMethod(interp, context, "config"); if (c != NULL) { argv[0] = spec->argvName; argv[1] = value; return Tix_CallMethod(interp, c, widRec, "config", 2, argv); } return TCL_OK; } int Tix_ChangeOneOption(interp, cPtr, widRec, spec, value, isDefault, isInit) Tcl_Interp *interp; TixClassRecord *cPtr; char * widRec; TixConfigSpec *spec; char * value; int isDefault; /* Set to be true when Tix tries to set * the options according to their default * values */ int isInit; /* Set to true only if the option was * specified at the widget creation command */ { int code = TCL_OK; char * newValue = NULL; if (spec->isAlias) { spec = spec->realPtr; } /* -- STEP 1 -- * Check if these variables are protected. * readonly means the variable can never be assigned to. * static means ths variable can only ne assigned during initialization. */ if (!isDefault && spec->readOnly) { Tcl_AppendResult(interp, "cannot assigned to readonly variable \"", spec->argvName, "\"", (char*) NULL); code = TCL_ERROR; goto done; } if (!(isInit || isDefault) && spec->isStatic) { Tcl_AppendResult(interp, "cannot assigned to static variable \"", spec->argvName, "\"", (char*) NULL); code = TCL_ERROR; goto done; } /* -- STEP 2 -- * Call the verify command to check whether the value is acceptable * */ if (spec->verifyCmd != NULL) { char * cmdArgv[2]; cmdArgv[0] = spec->verifyCmd; cmdArgv[1] = value; if (Tix_EvalArgv(interp, 2, cmdArgv) != TCL_OK) { code = TCL_ERROR; goto done; } else { newValue = value = tixStrDup(interp->result); } } /* -- STEP 3 -- * Call the configuration method of the widget. This method may * override the user-supplied value. The configuration method should * not be called during initialization. */ if (isInit || isDefault) { /* No need to call the configuration method */ Tcl_SetVar2(interp, widRec, spec->argvName, value,TCL_GLOBAL_ONLY); } else { if (Tix_CallConfigMethod(interp, cPtr, widRec, spec, value)!=TCL_OK) { code = TCL_ERROR; goto done; } /* -- STEP 4 -- * If the configuration method does not override the value, set * it in the widget record. * * If the configuration method has override the value, it will * return a non-empty string. In this case, it is the configuration * method's responsibility to set the value in the widget record. */ if (interp->result && (*interp->result)) { /* value was overrided. Don't do anything */ Tcl_ResetResult(interp); } else { Tcl_SetVar2(interp, widRec, spec->argvName, value,TCL_GLOBAL_ONLY); } } done: if (newValue) { ckfree(newValue); } return code; } static char * FormatConfigInfo(interp, cPtr, widRec, sPtr) Tcl_Interp *interp; TixClassRecord *cPtr; char * widRec; TixConfigSpec * sPtr; { char *argv[6]; if (sPtr->isAlias) { if (cPtr->isWidget) { argv[0] = sPtr->argvName; argv[1] = sPtr->realPtr->dbName; } else { argv[0] = sPtr->argvName; argv[1] = sPtr->realPtr->argvName; } return Tcl_Merge(2, argv); } else { argv[0] = sPtr->argvName; argv[1] = sPtr->dbName; argv[2] = sPtr->dbClass; argv[3] = sPtr->defValue; argv[4] = Tcl_GetVar2(interp, widRec, argv[0], TCL_GLOBAL_ONLY); return Tcl_Merge(5, argv); } }
Go to most recent revision | Compare with Previous | Blame | View Log