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; }