[unix-history] / usr / src / usr.bin / f77 / libU77 / ttynam_.c

/*
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);
}
Commit	Line	Data
d4fbfe35 DW	1	/*
	2	char id_ttynam[] = "@(#)ttynam_.c 1.1";
	3	*
	4	* Return name of tty port associated with lunit
	5	*
	6	* calling sequence:
	7	* character*19 string, ttynam
	8	* string = ttynam (lunit)
	9	* where:
	10	* the character string will be filled with the name of
	11	* the port, preceded with '/dev/', and blank padded.
	12	* (19 is the max length ever required)
	13	*/
	14
	15	#include "../libI77/fiodefs.h"
	16
	17	extern unit units[];
	18
	19	ttynam_(name, strlen, lu)
	20	char name; long strlen; long lu;
	21	{
	22	char t = NULL, ttyname();
	23
	24	if (0 <= lu && lu < MXUNIT && units[*lu].ufd)
	25	t = ttyname(fileno(units[*lu].ufd));
	26	if (t == NULL)
	27	t = "";
	28	b_char(t, name, strlen);
	29	}