Lines Matching refs:object
110 LispObj **object; /* CAR(arguments), for plural check */
215 * should default to object type */
323 *ptr == 'V') { /* format object argument is value */
324 LispObj *object;
332 object = CAR((*objects));
333 if (FIXNUMP(object)) {
336 argument->value = FIXNUM_VALUE(object);
338 else if (SCHARP(object)) {
340 argument->value = SCHAR_VALUE(object);
496 format_object(LispObj *stream, LispObj *object)
500 length = LispWriteObject(stream, object);
506 format_ascii(LispObj *stream, LispObj *object, FmtArgs *args)
527 if (object == NIL)
533 if (object == NIL) {
536 length = LispWriteObject(string, object);
555 if (object == NIL) {
563 * and object printed to string */
565 length = format_object(stream, object);
596 format_in_radix(LispObj *stream, LispObj *object, int radix, FmtArgs *args)
598 if (INTEGERP(object)) {
616 LispFormatInteger(stream, object, radix, atsign, collon,
620 format_object(stream, object);
624 format_radix_special(LispObj *stream, LispObj *object, FmtArgs *args)
626 if (FIXNUMP(object)) {
628 format_roman(stream, object, args);
630 format_english(stream, object, args);
633 format_object(stream, object);
637 format_roman(LispObj *stream, LispObj *object, FmtArgs *args)
642 if (FIXNUMP(object)) {
643 value = FIXNUM_VALUE(object);
655 format_object(stream, object);
659 format_english(LispObj *stream, LispObj *object, FmtArgs *args)
664 if (FIXNUMP(object)) {
665 number = FIXNUM_VALUE(object);
674 format_object(stream, object);
678 format_character(LispObj *stream, LispObj *object, FmtArgs *args)
680 if (SCHARP(object))
681 LispFormatCharacter(stream, object, args->atsign, args->collon);
683 format_object(stream, object);
687 format_fixed_float(LispObj *stream, LispObj *object, FmtArgs *args)
689 if (FLOATP(object))
690 LispFormatFixedFloat(stream, object, args->atsign,
697 format_object(stream, object);
701 format_exponential_float(LispObj *stream, LispObj *object, FmtArgs *args)
703 if (FLOATP(object))
704 LispFormatExponentialFloat(stream, object, args->atsign,
713 format_object(stream, object);
717 format_general_float(LispObj *stream, LispObj *object, FmtArgs *args)
719 if (FLOATP(object))
720 LispFormatGeneralFloat(stream, object, args->atsign,
729 format_object(stream, object);
733 format_dollar_float(LispObj *stream, LispObj *object, FmtArgs *args)
735 if (FLOATP(object))
736 LispFormatDollarFloat(stream, object,
743 format_object(stream, object);
784 LispObj *object, *arguments;
803 object = NIL;
808 object = CAR(arguments);
811 *(info->object) = object;
833 object = *(info->object);
835 object = CAR(arguments);
841 object = NIL;
845 object = CAR(arguments);
849 *(info->object) = object;
859 LispObj *object;
887 object = CAR(*(indirect_info.arguments));
889 object = NIL;
891 if (!LISTP(object) || !CONSP(*(info->arguments)))
895 *(info->object) = object;
900 indirect_info.base_arguments = object;
901 indirect_info.arguments = &object;
902 for (num_arguments = 0; CONSP(object); object = CDR(object))
905 /* note that indirect_info.arguments is a pointer to "object",
906 * keep it pointing to the correct object */
907 object = indirect_info.base_arguments;
1140 LispObj *object, *arguments;
1145 object = *(info->object);
1162 object = CAR(arguments);
1165 choice = object == NIL ? 0 : 1;
1175 object = CAR(arguments);
1189 object = CAR(arguments);
1193 if (FIXNUMP(object))
1194 choice = FIXNUM_VALUE(object);
1198 *(info->object) = object;
1233 LispObj *object, *arguments, *iarguments, *iobject;
1239 object = *(info->object);
1266 iarguments = object = CAR(arguments);
1267 object = CAR(arguments);
1272 if (CONSP(object)) {
1274 for (iobject = object; CONSP(iobject); iobject = CDR(iobject))
1277 else if (object != NIL)
1283 iarguments = object;
1286 iterate_info.object = &iobject;
1330 iarguments = object = CAR(arguments);
1331 object = CAR(arguments);
1336 if (CONSP(object)) {
1338 for (iobject = object; CONSP(iobject); iobject = CDR(iobject))
1341 else if (object != NIL)
1347 iarguments = object;
1350 iterate_info.object = &iobject;
1382 sarguments = object = CAR(arguments);
1383 object = CAR(arguments);
1388 if (CONSP(object)) {
1390 for (sobject = object; CONSP(sobject); sobject = CDR(sobject))
1413 if (CONSP(object)) {
1427 iterate_info.object = &iobject;
1456 iterate_info.object = &object;
1489 *(info->object) = object;
1728 LispObj *object, *arguments;
1734 object = *(info->object);
1875 object = CAR(arguments);
1883 *(info->object) = object;
1894 format_ascii(stream, object, args);
1901 format_ascii(stream, object, args);
1905 format_in_radix(stream, object, 2, args);
1908 format_in_radix(stream, object, 8, args);
1911 format_in_radix(stream, object, 10, args);
1914 format_in_radix(stream, object, 16, args);
1919 format_in_radix(stream, object, 0, args);
1921 format_radix_special(stream, object, args);
1925 if (FIXNUMP(object) && FIXNUM_VALUE(object) == 1)
1930 else if (!FIXNUMP(object) || FIXNUM_VALUE(object) != 1)
1934 format_character(stream, object, args);
1937 format_fixed_float(stream, object, args);
1940 format_exponential_float(stream, object, args);
1943 format_general_float(stream, object, args);
1946 format_dollar_float(stream, object, args);
1976 format_indirection(stream, object, info);
2021 object = *(info->object);
2044 *(info->object) = object;
2057 LispObj *object;
2084 for (object = arguments, num_arguments = 0; CONSP(object);
2085 object = CDR(object), num_arguments++)
2089 object = NIL;
2099 info.object = &object;