501 |
return(r); |
return(r); |
502 |
} |
} |
503 |
|
|
504 |
void |
LFD(Lexp)(void) |
|
Lexp(void) |
|
505 |
{ |
{ |
506 |
check_arg(1); |
check_arg(1); |
507 |
check_type_number(&vs_base[0]); |
check_type_number(&vs_base[0]); |
508 |
vs_base[0] = number_exp(vs_base[0]); |
vs_base[0] = number_exp(vs_base[0]); |
509 |
} |
} |
510 |
|
|
511 |
void |
LFD(Lexpt)(void) |
|
Lexpt(void) |
|
512 |
{ |
{ |
513 |
check_arg(2); |
check_arg(2); |
514 |
check_type_number(&vs_base[0]); |
check_type_number(&vs_base[0]); |
517 |
vs_popp; |
vs_popp; |
518 |
} |
} |
519 |
|
|
520 |
void |
LFD(Llog)(void) |
|
Llog(void) |
|
521 |
{ |
{ |
522 |
int narg; |
int narg; |
523 |
|
|
536 |
too_many_arguments(); |
too_many_arguments(); |
537 |
} |
} |
538 |
|
|
539 |
void |
LFD(Lsqrt)(void) |
|
Lsqrt(void) |
|
540 |
{ |
{ |
541 |
check_arg(1); |
check_arg(1); |
542 |
check_type_number(&vs_base[0]); |
check_type_number(&vs_base[0]); |
543 |
vs_base[0] = number_sqrt(vs_base[0]); |
vs_base[0] = number_sqrt(vs_base[0]); |
544 |
} |
} |
545 |
|
|
546 |
void |
LFD(Lsin)(void) |
|
Lsin(void) |
|
547 |
{ |
{ |
548 |
check_arg(1); |
check_arg(1); |
549 |
check_type_number(&vs_base[0]); |
check_type_number(&vs_base[0]); |
550 |
vs_base[0] = number_sin(vs_base[0]); |
vs_base[0] = number_sin(vs_base[0]); |
551 |
} |
} |
552 |
|
|
553 |
void |
LFD(Lcos)(void) |
|
Lcos(void) |
|
554 |
{ |
{ |
555 |
check_arg(1); |
check_arg(1); |
556 |
check_type_number(&vs_base[0]); |
check_type_number(&vs_base[0]); |
557 |
vs_base[0] = number_cos(vs_base[0]); |
vs_base[0] = number_cos(vs_base[0]); |
558 |
} |
} |
559 |
|
|
560 |
void |
LFD(Ltan)(void) |
|
Ltan(void) |
|
561 |
{ |
{ |
562 |
check_arg(1); |
check_arg(1); |
563 |
check_type_number(&vs_base[0]); |
check_type_number(&vs_base[0]); |
564 |
vs_base[0] = number_tan(vs_base[0]); |
vs_base[0] = number_tan(vs_base[0]); |
565 |
} |
} |
566 |
|
|
567 |
void |
LFD(Latan)(void) |
|
Latan(void) |
|
568 |
{ |
{ |
569 |
int narg; |
int narg; |
570 |
|
|
584 |
} |
} |
585 |
|
|
586 |
static void |
static void |
587 |
siLmodf(void) |
FFN(siLmodf)(void) |
588 |
{ |
{ |
589 |
|
|
590 |
object x; |
object x; |