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