Lines Matching +defs:temp +defs:string
324 write-line string &optional output-stream &key start end
333 write-string string &optional output-stream &key start end
636 LispFile **file, LispString **string, int check_writable)
641 *string = NULL;
649 *string = SSTREAMP(stream);
657 *string = NULL;
735 /* use bignum routine to convert number to string */
760 LispWriteCString(LispObj *stream, char *string, long length, write_info *info)
768 for (base = ptr = string, end = string + length; ptr < end; ptr++) {
780 result = LispWriteStr(stream, string, length);
865 const char *string = NULL;
871 string = Snil->value;
873 string = St->value;
875 string = "#<DOT>";
877 string = "#<UNSPEC>";
879 string = "#<UNBOUND>";
881 string = "#<ERROR>";
882 length += LispDoWriteAtom(stream, string, strlen(string),
1000 string = "#<LAMBDA ";
1003 string = "#<FUNCTION ";
1006 string = "#<MACRO ";
1009 string = "#<SETF ";
1012 length += LispDoWriteAtom(stream, string, strlen(string),
1035 string = "FILE-STREAM ";
1037 string = "STRING-STREAM ";
1039 string = "STANDARD-STREAM ";
1041 string = "PIPE-STREAM ";
1042 length += LispDoWriteAtom(stream, string, strlen(string),
1140 LispString *string;
1142 check_stream(stream, &file, &string, 0);
1145 return (string->column);
1153 LispString *string;
1155 check_stream(stream, &file, &string, 1);
1159 return (LispSputc(string, character));
1171 LispString *string;
1173 check_stream(stream, &file, &string, 1);
1180 length += LispSwrite(string, stk, sizeof(stk));
1190 length += LispSwrite(string, stk, count);
1197 /* write a string to stream */
1202 LispString *string;
1204 check_stream(stream, &file, &string, 1);
1207 return (LispSwrite(string, buffer, length));
1211 LispDoWriteAtom(LispObj *stream, const char *string, int length, int print_case)
1218 for (ptr = buffer; length > 0; length--, string++) {
1219 if (isupper(*string))
1220 *ptr = tolower(*string);
1222 *ptr = *string;
1233 for (ptr = buffer; length > 0; length--, string++) {
1234 if (isalnum(*string)) {
1235 if (cap && isupper(*string))
1236 *ptr = tolower(*string);
1238 *ptr = *string;
1242 *ptr = *string;
1256 bytes += LispWriteStr(stream, string, length);
1566 /* else, just print the string */
1707 int count, temp;
1738 temp = sprintf(stk + length, "%s hundredth", t);
1740 temp = sprintf(stk + length, "%s hundred", t);
1741 length += temp;
1781 temp = count;
1793 temp = sprintf(stk + length, " %s", tsth[temp]);
1795 temp = sprintf(stk + length, " %s", ts[temp]);
1796 length += temp;
1825 /* returns 1 if string size must grow, done inplace */
1842 /* string size must change */
2143 /* adjust offset to length of total string */
2192 /* adjust offset to length of total string */