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

Lines Matching defs:stk
507     char stk[32];
510 	sprintf(stk, "#%ld=", ++info->circle_count);
511 	*length += LispWriteStr(stream, stk, strlen(stk));
516     sprintf(stk, "#%ld#", info->circles[circle].circle_nth);
517     *length += LispWriteStr(stream, stk, strlen(stk));
666     char stk[64], fmt[32], *ptr, *fract = NULL;
678 	    sprintf(stk, fmt, value);
681 		sscanf(stk, "%lf", &dcheck);
689 	sprintf(stk, fmt, value);
693     ptr = strchr(stk, 'e');
702     for (ptr = stk; *ptr && !isdigit(*ptr); ptr++)
748     char stk[32];
751     sprintf(stk, "0x%016lx", (long)data);
753     sprintf(stk, "0x%08lx", (long)data);
756     return (LispWriteStr(stream, stk, strlen(stk)));
864     char stk[64];
929 	    format_integer(stk, object->data.ratio.numerator, 10);
930 	    length += LispWriteStr(stream, stk, strlen(stk));
932 	    format_integer(stk, object->data.ratio.denominator, 10);
933 	    length += LispWriteStr(stream, stk, strlen(stk));
942 	    if (sz > sizeof(stk))
945 		ptr = stk;
948 	    if (ptr != stk)
1072 		    format_integer(stk, object->data.stream.source.file->line, 10);
1073 		    length += LispWriteStr(stream, stk, strlen(stk));
1121 	    snprintf(stk, sizeof(stk), " %g %g",
1124 	    length += LispWriteStr(stream, stk, strlen(stk));
1125 	    snprintf(stk, sizeof(stk), " %ld/%ld>",
1128 	    length += LispWriteStr(stream, stk, strlen(stk));
1169 	char stk[64];
1174 	if (count >= sizeof(stk)) {
1175 	    memset(stk, character, sizeof(stk));
1176 	    for (; count >= sizeof(stk); count -= sizeof(stk)) {
1178 		    length += LispFwrite(file, stk, sizeof(stk));
1180 		    length += LispSwrite(string, stk, sizeof(stk));
1184 	    memset(stk, character, count);
1188 		length += LispFwrite(file, stk, count);
1190 		length += LispSwrite(string, stk, count);
1363 	    char stk[32];
1365 	    format_integer(stk, object->data.array.rank, 10);
1367 	    length += LispWriteStr(stream, stk, strlen(stk));
1511     char stk[128], *str = stk;
1515 	format_integer(stk, LONGINT_VALUE(object), radix);
1517 	if (mpi_getsize(object->data.mp.integer, radix) >= sizeof(stk))
1570     /* if number required more than sizeof(stk) bytes */
1571     if (str != stk)
1580     char stk[32];
1585 	stk[length++] = 'M';
1590 	    strcpy(stk + length, "CM");
1595 	    strcpy(stk + length, "CD");
1601 	stk[length++] = 'D';
1605 	stk[length++] = 'C';
1610 	    strcpy(stk + length, "XC");
1615 	    strcpy(stk + length, "XL");
1621 	stk[length++] = 'L';
1625 	stk[length++] = 'X';
1630 	    strcpy(stk + length, "IX");
1635 	    strcpy(stk + length, "IV");
1641 	stk[length++] = 'V';
1645 	stk[length++] = 'I';
1649     stk[length] = '\0';
1651     return (LispWriteStr(stream, stk, length));
1683     char stk[256];
1693 	strcpy(stk, "minus ");
1698 	    strcpy(stk, "zeroth");
1702 	    strcpy(stk, "zero");
1727 		strcpy(stk + length, ", ");
1731 		strcpy(stk + length, " ");
1738 		temp = sprintf(stk + length, "%s hundredth", t);
1740 		temp = sprintf(stk + length, "%s hundred", t);
1747 		    strcpy(stk + length, " ");
1751 		    strcpy(stk + length, " and ");
1755 	    strcpy(stk + length, h);
1761 		strcpy(stk + length, "-");
1766 		    strcpy(stk + length, " ");
1770 		    strcpy(stk + length, " and ");
1774 	    strcpy(stk + length, d);
1793 	    temp = sprintf(stk + length, " %s", tsth[temp]);
1795 	    temp = sprintf(stk + length, " %s", ts[temp]);
1802     return (LispWriteStr(stream, stk, length));
1857     char buffer[512], stk[64];
1863 	strcpy(stk, "+0");
1867 	parse_double(stk, &exponent, value, d + 1 + k);
1881     /* adjust scale factor, exponent is used as an index in stk */
1885     length = strlen(stk) - 1;
1888     sign = atsign || (stk[0] == '-');
1893 	buffer[offset++] = stk[0];
1896 	    memcpy(buffer + offset, stk + 1, length);
1900 	    memcpy(buffer + offset, stk + 1, exponent);
1904 	    memcpy(buffer + offset, stk + 1 + exponent, length - exponent);
1917 	memcpy(buffer + offset, stk + 1, length);
2033     char buffer[512], stk[64];
2040 	strcpy(stk, "+0");
2044 	parse_double(stk, &exponent, value, d + k - 1);
2063     length = strlen(stk) - 1;
2066     sign = atsign || (stk[0] == '-');
2078 	buffer[offset++] = stk[0];
2081 	    memcpy(buffer + offset, stk + 1, length);
2085 	    memcpy(buffer + offset, stk + 1, k);
2090 	    memcpy(buffer + offset, stk + 1 + k, length - k);
2105 	memcpy(buffer + offset, stk + 1, length);
2114     /* XXX destroy stk contents */
2115     sprintf(stk, "%%0%dd", e);
2117     length = sprintf(buffer + offset, stk,
2232     char stk[64];
2240 	strcpy(stk, "+0");
2244 	parse_double(stk, &exponent, value, d + k - 1);
2280     char buffer[512], stk[64];
2286 	strcpy(stk, "+0");
2290 	parse_double(stk, &exponent, value, d == 0 ? FLOAT_PREC : d + 1);
2300     /* use exponent as index in stk */
2305     sign = atsign || (stk[0] == '-');
2318     length = strlen(stk) - 1;
2322 	    memcpy(buffer + offset, stk + 1, length);
2326 	    memcpy(buffer + offset, stk + 1, exponent);
2330 	    memcpy(buffer + offset, stk + 1 + exponent, length - exponent);
2344 	memcpy(buffer + offset, stk + 1, length);