Cross Reference: /xsrc/external/mit/xedit/dist/lisp/string.c

Lines Matching +defs:string +defs:upcase
30 /* $XdotOrg: xc/programs/xedit/lisp/string.c,v 1.2 2004/04/23 19:54:44 eich Exp $ */
31 /* $XFree86: xc/programs/xedit/lisp/string.c,v 1.24tsi Exp $ */
35 #include "lisp/string.h"
323  char-upcase character
368  char string index
369  schar simple-string index
372     unsigned char *string;
383     string = (unsigned char*)THESTR(ostring);
387 	LispDestroy("%s: index %ld too large for string length %ld",
390     return (SCHAR(string[offset]));
399  xedit::char-store string index value
415 	LispDestroy("%s: index %ld too large for string length %ld",
547  make-string size &key initial-element element-type
551     char *string, initial;
567     string = LispMalloc(length + 1);
568     memset(string, initial, length);
569     string[length] = '\0';
571     return (LSTRING2(string, length));
577  parse-integer string &key start end radix junk-allowed
581     char *ptr, *string;
600     string = THESTR(ostring);
612     ptr = string + start;
665     if ((junk || ptr == string) &&
669     else if (ptr == string)
678 	strncpy(str, string - sign, length + sign);
699  string object
726  read-from-string string &optional eof-error-p eof-value &key start end preserve-whitespace
730     char *string;
743     string = THESTR(ostring);
749     stream = LSTRINGSTREAM(string + start, STREAM_READ, length);
756     /* stream->data.stream.source.string->input is
757      * the offset of the last byte read in string */
758     bytes_read = stream->data.stream.source.string->input;
779  string-{,left-,right-}trim character-bag string
782     unsigned char *string;
799     string = (unsigned char*)THESTR(ostring);
812 		    if (string[start] == chars[i])
821 		    if (string[end] == chars[i])
836 		    if (SCHARP(ochar) && string[start] == SCHAR_VALUE(ochar))
847 		    if (SCHARP(ochar) && string[end] == SCHAR_VALUE(ochar))
864 	memmove(string, string + start, length);
865 	string[length] = '\0';
869 	string = LispMalloc(length + 1);
870 	memcpy(string, THESTR(ostring) + start, length);
871 	string[length] = '\0';
872 	ostring = LSTRING2((char*)string, length);
881  string-trim character-bag string
890  ext::nstring-trim character-bag string
899  string-left-trim character-bag string
908  ext::nstring-left-trim character-bag string
917  string-right-trim character-bag string
926  ext::nstring-right-trim character-bag string
1010  string= string1 string2 &key start1 end1 start2 end2
1019  string< string1 string2 &key start1 end1 start2 end2
1028  string> string1 string2 &key start1 end1 start2 end2
1037  string<= string1 string2 &key start1 end1 start2 end2
1046  string>= string1 string2 &key start1 end1 start2 end2
1055  string/= string1 string2 &key start1 end1 start2 end2
1064  string-equal string1 string2 &key start1 end1 start2 end2
1073  string-lessp string1 string2 &key start1 end1 start2 end2
1082  string-greaterp string1 string2 &key start1 end1 start2 end2
1091  string-not-greaterp string1 string2 &key start1 end1 start2 end2
1100  string-not-lessp string1 string2 &key start1 end1 start2 end2
1109  string-not-equal string1 string2 &key start1 end1 start2 end2
1118  string-upcase string &key start end
1119  nstring-upcase string &key start end
1123     char *string, *newstring;
1135     string = THESTR(ostring);
1140 	if (string[offset] != toupper(string[offset]))
1148 	newstring = string;
1151 	/* upcase a copy of argument */
1154 	    memcpy(newstring, string, offset);
1156 	    memcpy(newstring + end, string + end, length - end);
1161 	newstring[offset] = toupper(string[offset]);
1172  string-upcase string &key start end
1181  nstring-upcase string &key start end
1190  string-downcase string &key start end
1191  nstring-downcase string &key start end
1195     char *string, *newstring;
1207     string = THESTR(ostring);
1212 	if (string[offset] != tolower(string[offset]))
1220 	newstring = string;
1226 	    memcpy(newstring, string, offset);
1228 	    memcpy(newstring + end, string + end, length - end);
1232 	newstring[offset] = tolower(string[offset]);
1243  string-downcase string &key start end
1252  nstring-downcase string &key start end
1261  string-capitalize string &key start end
1262  nstring-capitalize string &key start end
1266     char *string, *newstring;
1267     long start, end, length, offset, upcase;
1278     string = THESTR(ostring);
1282     for (upcase = 1, offset = start; offset < end; offset++) {
1283 	if (upcase) {
1284 	    if (!isalnum(string[offset]))
1286 	    if (string[offset] != toupper(string[offset]))
1288 	    upcase = 0;
1291 	    if (isalnum(string[offset])) {
1292 		if (string[offset] != tolower(string[offset]))
1296 		upcase = 1;
1305 	newstring = string;
1310 	memcpy(newstring, string, length);
1314 	if (upcase) {
1315 	    if (!isalnum(string[offset]))
1317 	    newstring[offset] = toupper(string[offset]);
1318 	    upcase = 0;
1322 		newstring[offset] = tolower(string[offset]);
1324 		upcase = 1;
1337  string-capitalize string &key start end
1346  nstring-capitalize string &key start end
1355  string-concat &rest strings
1360     LispObj *object, *string;
1370 	string = CAR(object);
1371 	CHECK_STRING(string);
1372 	length += STRLEN(string);
1378 	string = CAR(object);
1379 	size = STRLEN(string);
1380 	memcpy(buffer + length, THESTR(string), size);