#include "ed.h"
#include "cclass.h"

char cclass[128] =
{       /* character classes. */
       0,      /* ^@ */
       0,      /* ^A */
       0,      /* ^B */
       0,      /* ^C */
       0,      /* ^D */
       0,      /* ^E */
       0,      /* ^F */
       0,      /* ^G */
       0,      /* ^H */
       (c_TAB|c_WHITE),        /* ^I */
       0,      /* ^J */
       0,      /* ^K */
       0,      /* ^L */
       0,      /* ^M */
       0,      /* ^N */
       0,      /* ^O */
       0,      /* ^P */
       0,      /* ^Q */
       0,      /* ^R */
       0,      /* ^S */
       0,      /* ^T */
       0,      /* ^U */
       0,      /* ^V */
       0,      /* ^W */
       0,      /* ^X */
       0,      /* ^Y */
       0,      /* ^Z */
       0,      /* ^[ */
       0,      /* ^\ */
       0,      /* ^] */
       0,      /* ^^ */
       0,      /* ^_ */
       (c_SIMPLE|c_WHITE),     /* blank */
       c_SIMPLE,       /* ! */
       c_SIMPLE,       /* " */
       c_SIMPLE,       /* # */
       c_SIMPLE,       /* $ */
       c_SIMPLE,       /* % */
       c_SIMPLE,       /* & */
       c_SIMPLE,       /* ' */
       (c_FENCE|c_SIMPLE),     /* ( */
       (c_FENCE|c_SIMPLE),     /* ) */
       c_SIMPLE,       /* * */
       c_SIMPLE,       /* + */
       c_SIMPLE,       /* , */
       c_SIMPLE,       /* - */
       c_SIMPLE,       /* . */
       c_SIMPLE,       /* / */
       (c_CWORD|c_DIGIT|c_SIMPLE),     /* 0 */
       (c_CWORD|c_DIGIT|c_SIMPLE),     /* 1 */
       (c_CWORD|c_DIGIT|c_SIMPLE),     /* 2 */
       (c_CWORD|c_DIGIT|c_SIMPLE),     /* 3 */
       (c_CWORD|c_DIGIT|c_SIMPLE),     /* 4 */
       (c_CWORD|c_DIGIT|c_SIMPLE),     /* 5 */
       (c_CWORD|c_DIGIT|c_SIMPLE),     /* 6 */
       (c_CWORD|c_DIGIT|c_SIMPLE),     /* 7 */
       (c_CWORD|c_DIGIT|c_SIMPLE),     /* 8 */
       (c_CWORD|c_DIGIT|c_SIMPLE),     /* 9 */
       c_SIMPLE,       /* : */
       c_SIMPLE,       /* ; */
       c_SIMPLE,       /* < */
       c_SIMPLE,       /* = */
       c_SIMPLE,       /* > */
       c_SIMPLE,       /* ? */
       c_SIMPLE,       /* @ */
       (c_CWORD|c_ALPHA|c_SIMPLE),     /* A */
       (c_CWORD|c_ALPHA|c_SIMPLE),     /* B */
       (c_CWORD|c_ALPHA|c_SIMPLE),     /* C */
       (c_CWORD|c_ALPHA|c_SIMPLE),     /* D */
       (c_CWORD|c_ALPHA|c_SIMPLE),     /* E */
       (c_CWORD|c_ALPHA|c_SIMPLE),     /* F */
       (c_CWORD|c_ALPHA|c_SIMPLE),     /* G */
       (c_CWORD|c_ALPHA|c_SIMPLE),     /* H */
       (c_CWORD|c_ALPHA|c_SIMPLE),     /* I */
       (c_CWORD|c_ALPHA|c_SIMPLE),     /* J */
       (c_CWORD|c_ALPHA|c_SIMPLE),     /* K */
       (c_CWORD|c_ALPHA|c_SIMPLE),     /* L */
       (c_CWORD|c_ALPHA|c_SIMPLE),     /* M */
       (c_CWORD|c_ALPHA|c_SIMPLE),     /* N */
       (c_CWORD|c_ALPHA|c_SIMPLE),     /* O */
       (c_CWORD|c_ALPHA|c_SIMPLE),     /* P */
       (c_CWORD|c_ALPHA|c_SIMPLE),     /* Q */
       (c_CWORD|c_ALPHA|c_SIMPLE),     /* R */
       (c_CWORD|c_ALPHA|c_SIMPLE),     /* S */
       (c_CWORD|c_ALPHA|c_SIMPLE),     /* T */
       (c_CWORD|c_ALPHA|c_SIMPLE),     /* U */
       (c_CWORD|c_ALPHA|c_SIMPLE),     /* V */
       (c_CWORD|c_ALPHA|c_SIMPLE),     /* W */
       (c_CWORD|c_ALPHA|c_SIMPLE),     /* X */
       (c_CWORD|c_ALPHA|c_SIMPLE),     /* Y */
       (c_CWORD|c_ALPHA|c_SIMPLE),     /* Z */
       (c_FENCE|c_SIMPLE),     /* [ */
       c_SIMPLE,       /* \ */
       (c_FENCE|c_SIMPLE),     /* ] */
       c_SIMPLE,       /* ^ */
       (c_CWORD|c_SIMPLE),     /* _ */
       c_SIMPLE,       /* ` */
       (c_CWORD|c_ALPHA|c_LOWC|c_SIMPLE),      /* a */
       (c_CWORD|c_ALPHA|c_LOWC|c_SIMPLE),      /* b */
       (c_CWORD|c_ALPHA|c_LOWC|c_SIMPLE),      /* c */
       (c_CWORD|c_ALPHA|c_LOWC|c_SIMPLE),      /* d */
       (c_CWORD|c_ALPHA|c_LOWC|c_SIMPLE),      /* e */
       (c_CWORD|c_ALPHA|c_LOWC|c_SIMPLE),      /* f */
       (c_CWORD|c_ALPHA|c_LOWC|c_SIMPLE),      /* g */
       (c_CWORD|c_ALPHA|c_LOWC|c_SIMPLE),      /* h */
       (c_CWORD|c_ALPHA|c_LOWC|c_SIMPLE),      /* i */
       (c_CWORD|c_ALPHA|c_LOWC|c_SIMPLE),      /* j */
       (c_CWORD|c_ALPHA|c_LOWC|c_SIMPLE),      /* k */
       (c_CWORD|c_ALPHA|c_LOWC|c_SIMPLE),      /* l */
       (c_CWORD|c_ALPHA|c_LOWC|c_SIMPLE),      /* m */
       (c_CWORD|c_ALPHA|c_LOWC|c_SIMPLE),      /* n */
       (c_CWORD|c_ALPHA|c_LOWC|c_SIMPLE),      /* o */
       (c_CWORD|c_ALPHA|c_LOWC|c_SIMPLE),      /* p */
       (c_CWORD|c_ALPHA|c_LOWC|c_SIMPLE),      /* q */
       (c_CWORD|c_ALPHA|c_LOWC|c_SIMPLE),      /* r */
       (c_CWORD|c_ALPHA|c_LOWC|c_SIMPLE),      /* s */
       (c_CWORD|c_ALPHA|c_LOWC|c_SIMPLE),      /* t */
       (c_CWORD|c_ALPHA|c_LOWC|c_SIMPLE),      /* u */
       (c_CWORD|c_ALPHA|c_LOWC|c_SIMPLE),      /* v */
       (c_CWORD|c_ALPHA|c_LOWC|c_SIMPLE),      /* w */
       (c_CWORD|c_ALPHA|c_LOWC|c_SIMPLE),      /* x */
       (c_CWORD|c_ALPHA|c_LOWC|c_SIMPLE),      /* y */
       (c_CWORD|c_ALPHA|c_LOWC|c_SIMPLE),      /* z */
       (c_FENCE|c_SIMPLE),     /* { */
       c_SIMPLE,       /* | */
       (c_FENCE|c_SIMPLE),     /* } */
       c_SIMPLE,       /* ~ */
       0       /* ^? */
};

isinsert( CcharC )
{       if ( CcharC > 0x80 ) return( 0 );
       return( cclass[ CcharC ] & c_SIMPLE );
}
#ifdef NEVER
isupper( c )
int c;
{       /* if ( c > 0x80 ) return( 0 ); */
       return ( ( cclass[c] & ( c_ALPHA | c_LOWC )) == c_ALPHA );
}
#endif
islower( c )
int c;
{       if ( c > 0x80 ) return ( 0 );
       return ( ( cclass[c] &c_LOWC ));
}

int wstyle;

inword()
{       register int c;
       if (curwp->w_doto == llength(curwp->w_dotp))
               return (FALSE);
       c = cclass[ lgetc( curwp->w_dotp, curwp->w_doto )];
       if ( wstyle &1 ) return ( ( c & ( c_SIMPLE | c_WHITE )) == c_SIMPLE );
       return ( c & c_CWORD );
}



You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.