Lines Matching +defs:temp +defs:string
187 * Routines of the form Parse_XXX take a string which is parsed to a value.
188 * Routines of the form Scan_XXX take a string, parse the beginning to a value,
189 * and return the rest of the string. The value is returned via. the last
195 Skip_Digits (const char *string)
197 while (isdigit((unsigned char) string[0])) string++;
198 return string;
202 Scan_Long (const char *string, long *value)
204 if (!isdigit((unsigned char) *string))
205 Fatal_Error("Bad number: %s.", string);
207 *value = atol(string);
208 return Skip_Digits(string);
212 Scan_Octal (const char *string, unsigned long *value)
214 if (sscanf(string, "%lo", value)!=1)
215 Fatal_Error("Bad octal number: %s.", string);
216 return Skip_Digits(string);
227 Skip_Past_Right_Paren (const char *string)
232 while (c = string++[0], c != ')' || nesting)
243 string++;
246 return string;
567 * values to a static read-only string useful for output.
710 Format_String (const char *string, int unicode)
718 while ((c = string++[0]))
727 Format_Len_String (const char *string, int len, int unicode)
736 memcpy(data, string, len);
907 Format_Len_Text (const char *string, int len, Atom encoding)
916 textprop.value = (unsigned char *) string;
924 string = *list++;
925 len = strlen(string);
928 int n = mbtowc(&wc, string, len);
931 memcpy(_buf_ptr, string, n);
935 string += n;
939 snprintf(_buf_ptr, _buf_len, "%03o", (unsigned char) *string);
942 string++;
958 return Format_Len_String(string, len, 0);
962 * Validate a string as UTF-8 encoded according to RFC 3629
975 * only the left-most problem in the string.
978 * UTF8_VALID: Valid UTF-8 encoded string
990 is_valid_utf8 (const char *string, int len)
996 unsigned char c = (unsigned char) string[i];
1036 Format_Len_Unicode (const char *string, int len)
1038 int validity = is_valid_utf8(string, len);
1046 error = "<Invalid UTF-8 string: Forbidden value> "; break;
1048 error = "<Invalid UTF-8 string: Overlong encoding> "; break;
1050 error = "<Invalid UTF-8 string: Tail too short> "; break;
1052 error = "<Invalid UTF-8 string: Tail too long> "; break;
1054 error = "<Invalid UTF-8 string: Unknown error>"; break;
1057 result = Format_Len_String(string, len, 0);
1071 return Format_Len_String(string, len, is_utf8_locale());
1081 Is_A_Format (const char *string)
1083 return isdigit((unsigned char) string[0]);
1174 Is_A_DFormat (const char *string)
1176 return string[0] && string[0] != '-'
1177 && !(isalpha((unsigned char) string[0]) || string[0] == '_');
1250 Scan_Term (const char *string, thunk *thunks, const char *format, long *value)
1256 if (isdigit((unsigned char) *string))
1257 string = Scan_Long(string, value);
1258 else if (*string == '$') {
1259 string = Scan_Long(++string, &i);
1263 } else if (*string == 'm') {
1264 string = Scan_Long(++string, &i);
1267 Fatal_Error("Bad term: %s.", string);
1269 return string;
1273 Scan_Exp (const char *string, thunk *thunks, const char *format, long *value)
1275 long temp;
1277 if (string[0] == '(') {
1278 string = Scan_Exp(++string, thunks, format, value);
1279 if (string[0]!=')')
1281 return ++string;
1283 if (string[0] == '!') {
1284 string = Scan_Exp(++string, thunks, format, value);
1286 return string;
1289 string = Scan_Term(string, thunks, format, value);
1291 if (string[0] == '=') {
1292 string = Scan_Exp(++string, thunks, format, &temp);
1293 *value = *value == temp;
1296 return string;
1383 Extract_Len_String (const char **pointer, int *length, int size, const char **string)
1389 len = 0; *string = *pointer;
1451 * Other Stuff (temp.):