date and time created 81/08/11 23:39:51 by dlw

SCCS-vsn: usr.bin/f77/libU77/ttynam_.c 1.1

diff --git a/usr/src/usr.bin/f77/libU77/ttynam_.c b/usr/src/usr.bin/f77/libU77/ttynam_.c
new file mode 100644 (file)
index 0000000..3e0d790
--- /dev/null
+++ b/usr/src/usr.bin/f77/libU77/ttynam_.c
@@ -0,0 +1,29 @@
+/*
+char id_ttynam[] = "@(#)ttynam_.c      1.1";
+ *
+ * Return name of tty port associated with lunit
+ *
+ * calling sequence:
+ *     character*19 string, ttynam
+ *     string = ttynam (lunit)
+ * where:
+ *     the character string will be filled with the name of
+ *     the port, preceded with '/dev/', and blank padded.
+ *     (19 is the max length ever required)
+ */
+
+#include "../libI77/fiodefs.h"
+
+extern unit units[];
+
+ttynam_(name, strlen, lu)
+char *name; long strlen; long *lu;
+{
+       char *t = NULL, *ttyname();
+
+       if (0 <= *lu && *lu < MXUNIT && units[*lu].ufd)
+               t = ttyname(fileno(units[*lu].ufd));
+       if (t == NULL)
+               t = "";
+       b_char(t, name, strlen);
+}