Lines Matching refs:curField
724 register Field *curField;
812 curField = &fields[numFields];
819 curField->fmt = 'd';
820 curField->size = sizeof(int);
824 curField->fmt = 'u';
825 curField->size = sizeof(int);
829 curField->fmt = 's';
830 curField->size = strlen(argv[1]) + 1;
840 curField->fmt = 'c';
841 curField->size = sizeof(int);
850 curField->fmt = 'f';
851 curField->size = sizeof(double);
855 curField->fmt = 's';
856 curField->size = strlen(argv[1]) + 1;
875 curField->size = TCL_ALIGN(curField->size);
876 totalSize += curField->size;
892 for (i = 0, totalSize = 0, curField = fields;
893 i < numFields; i++, curField++) {
894 curField->location = results + totalSize;
895 totalSize += curField->size;
904 for ( ; i < MAX_FIELDS; i++, curField++) {
905 curField->location = NULL;
928 for (i = 0, curField = fields; i < numFields; i++, curField++) {
929 switch (curField->fmt) {
933 sprintf(string, "%d", *((int *) curField->location));
945 sprintf(string, "%u", *((int *) curField->location));
952 sprintf(string, "%d", *((char *) curField->location) & 0xff);
959 if (Tcl_SetVar(interp, argv[i+3], curField->location, 0)
966 Tcl_PrintDouble(interp, *((double *) curField->location),