Lines Matching defs:arguments
44 #define PARSE_NOARGSLEFT 4 /* no arguments left to format */
86 unsigned int count : 4; /* number of arguments processed */
89 FmtArg arguments[MAXFMT];
110 LispObj **object; /* CAR(arguments), for plural check */
111 LispObj **arguments; /* current element of base_arguments */
112 int *num_arguments; /* number of arguments after arguments */
250 merge_arguments(FmtArgs *arguments, const FmtDefs *defaults, int *code)
257 argument = &(arguments->arguments[0]);
259 if (count >= arguments->count)
264 arguments->offset = argument->offset;
275 /* check if extra arguments were provided */
276 if (arguments->count > defaults->count)
280 /* the pointer arguments may be null, useful when just testing/parsing
283 parse_arguments(char *format, FmtArgs *arguments,
294 argument = &(arguments->arguments[0]);
295 arguments->atsign = arguments->collon = arguments->command = 0;
298 for (arguments->count = 0;; arguments->count++) {
299 arguments->offset = ptr - format + 1;
300 if (arguments->count >= MAXFMT) {
315 else if (*ptr == '#') { /* number of arguments is value */
378 else /* no more arguments to format */
385 argument->offset = arguments->offset;
392 if (arguments->atsign) {
399 ++arguments->offset;
400 arguments->atsign = 1;
403 if (arguments->collon) {
410 ++arguments->offset;
411 arguments->collon = 1;
419 arguments->command = *ptr++;
420 tmpcmd = arguments->command;
422 arguments->command = toupper(tmpcmd);
423 ++arguments->offset;
436 "no arguments left to format",
513 mincol = args->arguments[0].value,
514 colinc = args->arguments[1].value,
515 minpad = args->arguments[2].value,
516 padchar = args->arguments[3].value;
518 /* check/correct arguments */
605 radix = args->arguments[0].value;
607 args->offset = args->arguments[0].offset;
611 mincol = args->arguments[i++].value;
612 padchar = args->arguments[i++].value;
613 commachar = args->arguments[i++].value;
614 commainterval = args->arguments[i++].value;
691 args->arguments[0].value,
692 IF_SPECIFIED(args->arguments[1]),
693 args->arguments[2].value,
694 args->arguments[3].value,
695 args->arguments[4].value);
705 args->arguments[0].value,
706 IF_SPECIFIED(args->arguments[1]),
707 args->arguments[2].value,
708 args->arguments[3].value,
709 args->arguments[4].value,
710 args->arguments[5].value,
711 args->arguments[6].value);
721 args->arguments[0].value,
722 IF_SPECIFIED(args->arguments[1]),
723 args->arguments[2].value,
724 args->arguments[3].value,
725 args->arguments[4].value,
726 args->arguments[5].value,
727 args->arguments[6].value);
738 args->arguments[0].value,
739 args->arguments[1].value,
740 args->arguments[2].value,
741 args->arguments[3].value);
750 colnum = args->arguments[0].value,
751 colinc = args->arguments[1].value,
784 LispObj *object, *arguments;
786 /* number of arguments to ignore or goto offset */
787 count = info->args.arguments[0].value;
795 if (!(info->args.arguments[0].specified))
804 arguments = info->base_arguments;
807 for (; count > 0; count--, arguments = CDR(arguments))
808 object = CAR(arguments);
812 *(info->arguments) = arguments;
817 /* relative goto, ignore or go back count arguments */
820 arguments = *(info->arguments);
823 /* go back count arguments? */
834 for (; count > 0; count--, arguments = CDR(arguments))
835 object = CAR(arguments);
842 arguments = info->base_arguments;
844 count++, arguments = CDR(arguments))
845 object = CAR(arguments);
850 *(info->arguments) = arguments;
874 /* use current arguments */
880 /* next argument is the recursive call arguments */
886 if (CONSP(*(indirect_info.arguments)))
887 object = CAR(*(indirect_info.arguments));
891 if (!LISTP(object) || !CONSP(*(info->arguments)))
896 *(info->arguments) = CDR(*(info->arguments));
899 /* set arguments for recursive call */
901 indirect_info.arguments = &object;
905 /* note that indirect_info.arguments is a pointer to "object",
1008 args.arguments[0].specified &&
1009 !args.arguments[0].achar)
1010 *comma_width = args.arguments[0].value;
1012 args.arguments[1].specified &&
1013 !args.arguments[1].achar)
1014 *line_width = args.arguments[1].value;
1140 LispObj *object, *arguments;
1146 arguments = *(info->arguments);
1160 if (!CONSP(arguments))
1162 object = CAR(arguments);
1163 arguments = CDR(arguments);
1170 if (!CONSP(arguments))
1172 if (CAR(arguments) != NIL)
1175 object = CAR(arguments);
1176 arguments = CDR(arguments);
1181 else if (info->args.arguments[0].specified)
1182 /* no arguments consumed */
1183 choice = info->args.arguments[0].value;
1187 if (!CONSP(arguments))
1189 object = CAR(arguments);
1190 arguments = CDR(arguments);
1199 *(info->arguments) = arguments;
1233 LispObj *object, *arguments, *iarguments, *iobject;
1240 arguments = *(info->arguments);
1248 has_max = info->args.arguments[0].specified;
1249 iterate_max = info->args.arguments[0].value;
1264 if (!CONSP(arguments))
1266 iarguments = object = CAR(arguments);
1267 object = CAR(arguments);
1268 arguments = CDR(arguments);
1273 /* count arguments to format */
1282 /* set new arguments to recursive calls */
1287 iterate_info.arguments = &iarguments;
1292 /* if maximum iterations done or all arguments consumed */
1321 /* if maximum iterations done or all arguments consumed */
1328 if (!CONSP(arguments))
1330 iarguments = object = CAR(arguments);
1331 object = CAR(arguments);
1332 arguments = CDR(arguments);
1337 /* count arguments to format */
1346 /* set new arguments to recursive calls */
1351 iterate_info.arguments = &iarguments;
1380 if (!CONSP(arguments))
1382 sarguments = object = CAR(arguments);
1383 object = CAR(arguments);
1384 arguments = CDR(arguments);
1389 /* count arguments to format */
1398 /* if maximum iterations done or all arguments consumed */
1414 /* count arguments to format */
1423 /* set new arguments to recursive calls */
1428 iterate_info.arguments = &iarguments;
1453 /* set new arguments to recursive calls */
1457 iterate_info.arguments = &arguments;
1461 /* if maximum iterations done or all arguments consumed */
1490 *(info->arguments) = arguments;
1507 mincol = info->args.arguments[0].value,
1508 colinc = info->args.arguments[1].value,
1509 minpad = info->args.arguments[2].value,
1510 padchar = info->args.arguments[3].value;
1542 /* format string, maybe consuming arguments */
1728 LispObj *object, *arguments;
1732 /* arguments that will be updated on function exit */
1735 arguments = *(info->arguments);
1756 &arguments, &code);
1860 case '*': /* check arguments below */
1873 if (!CONSP(arguments))
1875 object = CAR(arguments);
1876 arguments = CDR(arguments);
1884 *(info->arguments) = arguments;
1950 --args->arguments[0].value;
1952 LispWriteChars(stream, '\n', args->arguments[0].value);
1955 LispWriteChars(stream, '\f', args->arguments[0].value);
1958 LispWriteChars(stream, '~', args->arguments[0].value);
2022 arguments = *(info->arguments);
2045 *(info->arguments) = arguments;
2052 format destination control-string &rest arguments
2061 LispObj *stream, *format, *arguments;
2063 arguments = ARGUMENT(2);
2083 /* count number of arguments */
2084 for (object = arguments, num_arguments = 0; CONSP(object);
2094 /* arguments to recursive calls */
2096 info.base_arguments = arguments;
2100 info.arguments = &arguments;
2104 /* format arguments */