/*------------------------------------------------------------------------------- --------------------------------------------------------------------------------*/ void handle_error(int loc) { handle hand; hand = acc_handle_tfarg(loc); io_printf("(%0d)Error:unkown value detected name(%s) value(%s)\n", tf_gettime(), acc_fetch_name(hand), acc_fetch_value(hand, "%h", 0)); tf_putp(0, 1);//indicates error }
static int mytest(int ud, int reason) { PLI_INT32 ht, lt; PLI_BYTE8 *cp; PLI_BYTE8 *inst = tf_getinstance(); PLI_BYTE8 *name = tf_spname(); (void)ud; /* Parameter is not used. */ (void)reason; /* Parameter is not used. */ io_printf("Module %s\n", name); lt = tf_gettime(); io_printf("\ttf_gettime()\t\t\t-> %d\n", (int)lt); cp = tf_strgettime(); io_printf("\ttf_strgettime()\t\t\t-> %s\n", cp); lt = tf_getlongtime(&ht); io_printf("\ttf_getlongtime()\t\t-> %d/%d\n", (int)ht, (int)lt); lt = tf_igetlongtime(&ht, inst); io_printf("\ttf_igetlongtime(inst)\t\t-> %d/%d\n", (int)ht, (int)lt); lt = tf_getlongsimtime(&ht); io_printf("\ttf_getlongsimtime()\t\t-> %d/%d\n", (int)ht, (int)lt); lt = tf_gettimeprecision(); io_printf("\ttf_gettimeprecision()\t\t-> %d\n", (int)lt); lt = tf_igettimeprecision(inst); io_printf("\ttf_igettimeprecision(inst)\t-> %d\n", (int)lt); lt = tf_gettimeunit(); io_printf("\ttf_gettimeunit()\t\t-> %d\n", (int)lt); lt = tf_igettimeunit(inst); io_printf("\ttf_gettimeunit(inst)\t\t-> %d\n", (int)lt); lt = tf_igettimeunit(0); io_printf("\ttf_gettimeunit(0)\t\t-> %d\n", (int)lt); 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; }