date and time created 82/02/08 20:33:04 by mckusick

SCCS-vsn: usr.bin/pascal/libpc/SIN.c 1.1

diff --git a/usr/src/usr.bin/pascal/libpc/SIN.c b/usr/src/usr.bin/pascal/libpc/SIN.c
new file mode 100644 (file)
index 0000000..3df8b2e
--- /dev/null
+++ b/usr/src/usr.bin/pascal/libpc/SIN.c
@@ -0,0 +1,21 @@
+/* Copyright (c) 1982 Regents of the University of California */
+
+static char sccsid[] = "@(#)SIN.c 1.1 %G%";
+
+#include <math.h>
+extern int errno;
+
+double
+SIN(value)
+       double  value;
+{
+       double result;
+
+       errno = 0;
+       result = sin(value);
+       if (errno != 0) {
+               ERROR("Cannot compute sin(%e)\n", value);
+               return;
+       }
+       return result;
+}