Return to tabs.c CVS log

Up to [Research Unix] / researchv9 / X11 / src / X.V11R1 / clients / xterm

Annotation of researchv9/X11/src/X.V11R1/clients/xterm/tabs.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  *     $Source: /u1/X11/clients/xterm/RCS/tabs.c,v $
                      3:  *     $Header: tabs.c,v 1.5 87/09/11 08:17:35 toddb Exp $
                      4:  */
                      5: 
                      6: #ifndef lint
                      7: static char *rcsid_tabs_c = "$Header: tabs.c,v 1.5 87/09/11 08:17:35 toddb Exp $";
                      8: #endif lint
                      9: 
                     10: #include <X11/copyright.h>
                     11: 
                     12: /*
                     13:  * Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts.
                     14:  *
                     15:  *                         All Rights Reserved
                     16:  *
                     17:  * Permission to use, copy, modify, and distribute this software and its
                     18:  * documentation for any purpose and without fee is hereby granted,
                     19:  * provided that the above copyright notice appear in all copies and that
                     20:  * both that copyright notice and this permission notice appear in
                     21:  * supporting documentation, and that the name of Digital Equipment
                     22:  * Corporation not be used in advertising or publicity pertaining to
                     23:  * distribution of the software without specific, written prior permission.
                     24:  *
                     25:  *
                     26:  * DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
                     27:  * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
                     28:  * DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
                     29:  * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
                     30:  * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
                     31:  * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
                     32:  * SOFTWARE.
                     33:  */
                     34: 
                     35: /* tabs.c */
                     36: 
                     37: #ifndef lint
                     38: static char rcs_id[] = "$Header: tabs.c,v 1.5 87/09/11 08:17:35 toddb Exp $";
                     39: #endif lint
                     40: 
                     41: #include <X11/Xlib.h>
                     42: #include "ptyx.h"
                     43: /*
                     44:  * This file presumes 32bits/word.  This is somewhat of a crock, and should
                     45:  * be fixed sometime.
                     46:  */
                     47: 
                     48: /*
                     49:  * places tabstops at only every 8 columns
                     50:  */
                     51: TabReset(tabs)
                     52: Tabs   tabs;
                     53: {
                     54:        register int i;
                     55: 
                     56:        for (i=0; i<TAB_ARRAY_SIZE; ++i)
                     57:                tabs[i] = 0;
                     58: 
                     59:        for (i=0; i<MAX_TABS; i+=8)
                     60:                TabSet(tabs, i);
                     61: }      
                     62: 
                     63: 
                     64: /*
                     65:  * places a tabstop at col
                     66:  */
                     67: TabSet(tabs, col)
                     68: Tabs   tabs;
                     69: {
                     70:        tabs[col >> 5] |= (1 << (col & 31));
                     71: }
                     72: 
                     73: /*
                     74:  * clears a tabstop at col
                     75:  */
                     76: TabClear(tabs, col)
                     77: Tabs   tabs;
                     78: {
                     79:        tabs[col >> 5] &= ~(1 << (col & 31));
                     80: }
                     81: 
                     82: /*
                     83:  * returns the column of the next tabstop
                     84:  * (or MAX_TABS - 1 if there are no more).
                     85:  * A tabstop at col is ignored.
                     86:  */
                     87: TabNext (tabs, col)
                     88: Tabs   tabs;
                     89: {
                     90:        extern Terminal term;
                     91:        register TScreen *screen = &term.screen;
                     92: 
                     93:        if(screen->curses && screen->do_wrap && (term.flags & WRAPAROUND)) {
                     94:                Index(screen, 1);
                     95:                col = screen->cur_col = screen->do_wrap = 0;
                     96:        }
                     97:        for (++col; col<MAX_TABS; ++col)
                     98:                if (tabs[col >> 5] & (1 << (col & 31)))
                     99:                        return (col);
                    100: 
                    101:        return (MAX_TABS - 1);
                    102: }
                    103: 
                    104: /*
                    105:  * clears all tabs
                    106:  */
                    107: TabZonk (tabs)
                    108: Tabs   tabs;
                    109: {
                    110:        register int i;
                    111: 
                    112:        for (i=0; i<TAB_ARRAY_SIZE; ++i)
                    113:                tabs[i] = 0;
                    114: }

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