109 lines
2.2 KiB
C
109 lines
2.2 KiB
C
|
/* varargs.c -
|
||
|
* (Added as part of fix for bug 15306 - "call" to varargs functions fails)
|
||
|
* This program is intended to let me try out "call" to varargs functions
|
||
|
* with varying numbers of declared args and various argument types.
|
||
|
* - RT 9/27/95
|
||
|
*/
|
||
|
|
||
|
#include <stdio.h>
|
||
|
#include <stdarg.h>
|
||
|
|
||
|
int find_max1(int, ...);
|
||
|
int find_max2(int, int, ...);
|
||
|
double find_max_double(int, double, ...);
|
||
|
|
||
|
char ch;
|
||
|
unsigned char uc;
|
||
|
short s;
|
||
|
unsigned short us;
|
||
|
int a,b,c,d;
|
||
|
int max_val;
|
||
|
float fa,fb,fc,fd;
|
||
|
double da,db,dc,dd;
|
||
|
double dmax_val;
|
||
|
|
||
|
main() {
|
||
|
c = -1;
|
||
|
uc = 1;
|
||
|
s = -2;
|
||
|
us = 2;
|
||
|
a = 1;
|
||
|
b = 60;
|
||
|
max_val = find_max1(1, 60);
|
||
|
max_val = find_max1(a, b);
|
||
|
a = 3;
|
||
|
b = 1;
|
||
|
c = 4;
|
||
|
d = 2;
|
||
|
max_val = find_max1(3, 1, 4, 2);
|
||
|
max_val = find_max2(a, b, c, d);
|
||
|
da = 3.0;
|
||
|
db = 1.0;
|
||
|
dc = 4.0;
|
||
|
dd = 2.0;
|
||
|
dmax_val = find_max_double(3, 1.0, 4.0, 2.0);
|
||
|
dmax_val = find_max_double(a, db, dc, dd);
|
||
|
}
|
||
|
|
||
|
/* Integer varargs, 1 declared arg */
|
||
|
|
||
|
int find_max1(int num_vals, ...) {
|
||
|
int max_val = 0;
|
||
|
int x;
|
||
|
int i;
|
||
|
va_list argp;
|
||
|
va_start(argp, num_vals);
|
||
|
printf("find_max(%d,", num_vals);
|
||
|
for (i = 0; i < num_vals; i++) {
|
||
|
x = va_arg(argp, int);
|
||
|
if (max_val < x) max_val = x;
|
||
|
if (i < num_vals - 1)
|
||
|
printf(" %d,", x);
|
||
|
else
|
||
|
printf(" %d)", x);
|
||
|
}
|
||
|
printf(" returns %d\n", max_val);
|
||
|
return max_val;
|
||
|
}
|
||
|
|
||
|
/* Integer varargs, 2 declared args */
|
||
|
|
||
|
int find_max2(int num_vals, int first_val, ...) {
|
||
|
int max_val = 0;
|
||
|
int x;
|
||
|
int i;
|
||
|
va_list argp;
|
||
|
va_start(argp, first_val);
|
||
|
x = first_val;
|
||
|
if (max_val < x) max_val = x;
|
||
|
printf("find_max(%d, %d", num_vals, first_val);
|
||
|
for (i = 1; i < num_vals; i++) {
|
||
|
x = va_arg(argp, int);
|
||
|
if (max_val < x) max_val = x;
|
||
|
printf(", %d", x);
|
||
|
}
|
||
|
printf(") returns %d\n", max_val);
|
||
|
return max_val;
|
||
|
}
|
||
|
|
||
|
/* Double-float varargs, 2 declared args */
|
||
|
|
||
|
double find_max_double(int num_vals, double first_val, ...) {
|
||
|
double max_val = 0;
|
||
|
double x;
|
||
|
int i;
|
||
|
va_list argp;
|
||
|
va_start(argp, first_val);
|
||
|
x = first_val;
|
||
|
if (max_val < x) max_val = x;
|
||
|
printf("find_max(%f, %f", num_vals, first_val);
|
||
|
for (i = 1; i < num_vals; i++) {
|
||
|
x = va_arg(argp, double);
|
||
|
if (max_val < x) max_val = x;
|
||
|
printf(", %f", x);
|
||
|
}
|
||
|
printf(") returns %f\n", max_val);
|
||
|
return max_val;
|
||
|
}
|
||
|
|