mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 00:14:25 +00:00
58 lines
1.1 KiB
C
58 lines
1.1 KiB
C
#include <logo.h>
|
||
/*****************************************************************/
|
||
/* */
|
||
/* LOGO Primitive Functions-1 */
|
||
/* */
|
||
/*****************************************************************/
|
||
double tan();
|
||
double sin();
|
||
double cos();
|
||
double sqrt();
|
||
double atan();
|
||
double exp();
|
||
double log();
|
||
double log10();
|
||
double fabs();
|
||
|
||
lnum rnval();
|
||
lnum nval();
|
||
|
||
sub_f ();
|
||
add_f ();
|
||
div_f ();
|
||
lss_f ();
|
||
gtr_f ();
|
||
mul_f ();
|
||
pow_f ();
|
||
|
||
nextcom()
|
||
{
|
||
editon = FALSE; /* not in editor */
|
||
defining = FALSE; /* not in TO */
|
||
getcom('?');
|
||
if (acceq("to"))
|
||
makdef();
|
||
else
|
||
{
|
||
if (!(initial || inpath == CONSOLE))
|
||
{
|
||
if (!((acceq("make")) ||
|
||
(acceq("package")) ||
|
||
(acceq("pprop"))))
|
||
putcom();
|
||
}
|
||
if (acceq("bye"))
|
||
{
|
||
full_scr();
|
||
exit(0);
|
||
}
|
||
else
|
||
if (acceq("collect"))
|
||
debcoll = !debcoll;
|
||
else
|
||
{
|
||
interp();
|
||
}
|
||
}
|
||
}
|
||
|