home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.update.uu.se
/
ftp.update.uu.se.2014.03.zip
/
ftp.update.uu.se
/
pub
/
rainbow
/
cpm
/
emacs
/
emacssrc.lzh
/
cclass.c
< prev
next >
Wrap
C/C++ Source or Header
|
1992-03-11
|
4KB
|
164 lines
#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 );
}