- p = PortType = typebuf;
- while (*p && isalnum(*p))
- p++;
- *p++ = NULL;
-
- /* skip separator */
- while (*p && !isalnum(*p))
- p++;
-
- PortName = p;
- /* put NULL at end of name */
- while (*p && isalnum(*p))
- p++;
- *p = NULL;
-
- /* check match on port name */
- if (sequal(PortName, TtyId)) /* found it */
- {
- fclose (f);
- /* get aliases from termcap entry */
- if (Mapped && tgetent(Capbuf, PortType) > 0) {
- makealias(Capbuf);
- if (sequal(Alias[0], PortType) && Alias[1])
- PortType = Alias[1];
- }
- return(PortType);
+ PortType = t->ty_type;
+ /* get aliases from termcap entry */
+ if (Mapped && tgetent(Capbuf, PortType) > 0) {
+ makealias(Capbuf);
+ if (sequal(Alias[0], PortType) && Alias[1])
+ PortType = Alias[1];