static int
calltf(int ud, int reason)
{
int i;
PLI_BYTE8 *inst = tf_getinstance();
(void)ud; /* Parameter is not used. */
(void)reason; /* Parameter is not used. */
for (i = 1; i < 5; i++) {
io_printf("tf_getp(%d)\t\t-> %d\n", i, (int)tf_getp(i));
io_printf("tf_igetp(%d,inst)\t-> %d\n", i, (int)tf_igetp(i,inst));
io_printf("tf_getrealp(%d)\t\t-> %f\n", i, tf_getrealp(i));
io_printf("tf_igetrealp(%d,inst)\t-> %f\n",
i, tf_igetrealp(i,inst));
}
return 0;
}
/*
* format function
*/
char *format(char *mipname)
{
int num_args, cur_arg, len, i, j;
char *fmt_str, *ptr, c;
num_args = tf_nump();
cur_arg = 3;
len = sprintf (format_buffer, " ");
fmt_str = tf_getcstringp(ARG2);
ptr = format_buffer + len;
while (1) {
c = *fmt_str++;
if (c == 0) break;
if (c == '%') {
c = *fmt_str++;
switch (c) {
case 'b':
len = sprintf (ptr, "%s", tf_strgetp(cur_arg, 'b'));
ptr = ptr + len;
cur_arg++;
break;
case 'o':
len = sprintf (ptr, "%s", tf_strgetp(cur_arg, 'o'));
ptr = ptr + len;
cur_arg++;
break;
case 'd':
len = sprintf (ptr, "%s", tf_strgetp(cur_arg, 'd'));
ptr = ptr + len;
cur_arg++;
break;
case 'h':
len = sprintf (ptr, "%s", tf_strgetp(cur_arg, 'h'));
ptr = ptr + len;
cur_arg++;
break;
case 'e':
len = sprintf (ptr, "%e", tf_getrealp(cur_arg));
ptr = ptr + len;
cur_arg++;
break;
case 'f':
len = sprintf (ptr, "%e", tf_getrealp(cur_arg));
ptr = ptr + len;
cur_arg++;
break;
case 't':
len = sprintf (ptr, "%d", tf_gettime());
ptr = ptr + len;
break;
case 's':
len = sprintf (ptr, "%s", tf_strgetp(cur_arg, 'e'));
ptr = ptr + len;
cur_arg++;
break;
case 'm':
len = sprintf (ptr, "%s", mipname);
ptr = ptr + len;
break;
case '%':
*ptr++ = '%';
break;
}
}
else {
*ptr++ = c;
}
}
*ptr++ = '\0';
return format_buffer;
}
