Return to lib_longname.c CVS log

Up to [MW Coherent from dump] / coherent / g / usr / lib / ncurses

Annotation of coherent/g/usr/lib/ncurses/lib_longname.c, revision 1.1.1.1

1.1       root        1: /*********************************************************************
                      2: *                         COPYRIGHT NOTICE                           *
                      3: **********************************************************************
                      4: *        This software is copyright (C) 1982 by Pavel Curtis         *
                      5: *                                                                    *
                      6: *        Permission is granted to reproduce and distribute           *
                      7: *        this file by any means so long as no fee is charged         *
                      8: *        above a nominal handling fee and so long as this            *
                      9: *        notice is always included in the copies.                    *
                     10: *                                                                    *
                     11: *        Other rights are reserved except as explicitly granted      *
                     12: *        by written permission of the author.                        *
                     13: *                Pavel Curtis                                        *
                     14: *                Computer Science Dept.                              *
                     15: *                405 Upson Hall                                      *
                     16: *                Cornell University                                  *
                     17: *                Ithaca, NY 14853                                    *
                     18: *                                                                    *
                     19: *                Ph- (607) 256-4934                                  *
                     20: *                                                                    *
                     21: *                Pavel.Cornell@Udel-Relay   (ARPAnet)                *
                     22: *                decvax!cornell!pavel       (UUCPnet)                *
                     23: *********************************************************************/
                     24: 
                     25: /*
                     26: **     lib_longname.c
                     27: **
                     28: **     The routine longname().
                     29: **
                     30: ** $Log:       RCS/lib_longname.v $
                     31:  * Revision 2.2  91/04/20  19:16:14  munk
                     32:  * Usage of register variables
                     33:  *
                     34:  * Revision 2.1  82/10/25  14:47:49  pavel
                     35:  * Added Copyright Notice
                     36:  * 
                     37:  * Revision 2.0  82/10/25  13:46:21  pavel
                     38:  * Beta-one Test Release
                     39:  * 
                     40: **
                     41: */
                     42: 
                     43: #ifdef RCSHDR
                     44: static char RCSid[] =
                     45:        "$Header:   RCS/lib_longname.v  Revision 2.2  91/04/20  19:16:14  munk   Exp$";
                     46: #endif
                     47: 
                     48: #include "curses.h"
                     49: #include "curses.priv.h"
                     50: 
                     51: 
                     52: char *
                     53: longname()
                     54: {
                     55:        register char   *ptr;
                     56: 
                     57: #ifdef TRACE
                     58:        if (_tracing)
                     59:            _tracef("longname() called");
                     60: #endif
                     61: 
                     62:        for (ptr = ttytype + strlen(ttytype); ptr > ttytype; ptr--)
                     63:            if (*ptr == '|')
                     64:                return(ptr + 1);
                     65: 
                     66:         return(ttytype);
                     67: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.