Add.
This commit is contained in:
rsc
parent
8307dc614a
commit
ad9e684811
5 changed files with 1281 additions and 0 deletions
1035
src/cmd/cb/cb.c
Normal file
1035
src/cmd/cb/cb.c
Normal file
File diff suppressed because it is too large
Load diff
172
src/cmd/cb/cb.h
Normal file
172
src/cmd/cb/cb.h
Normal file
|
|
@ -0,0 +1,172 @@
|
|||
#define IF 1
|
||||
#define ELSE 2
|
||||
#define CASE 3
|
||||
#define TYPE 4
|
||||
#define DO 5
|
||||
#define STRUCT 6
|
||||
#define OTHER 7
|
||||
|
||||
#define ALWAYS 01
|
||||
#define NEVER 02
|
||||
#define SOMETIMES 04
|
||||
|
||||
#define YES 1
|
||||
#define NO 0
|
||||
|
||||
#define KEYWORD 1
|
||||
#define DATADEF 2
|
||||
#define SINIT 3
|
||||
|
||||
#define CLEVEL 200
|
||||
#define IFLEVEL 100
|
||||
#define DOLEVEL 100
|
||||
#define OPLENGTH 100
|
||||
#define LINE 2048
|
||||
#define LINELENG 2048
|
||||
#define MAXTABS 8
|
||||
#define TABLENG 8
|
||||
#define TEMP 20480
|
||||
|
||||
#define OUT outs(clev->tabs); Bputc(output, '\n');opflag = lbegin = 1; count = 0
|
||||
#define OUTK OUT; keyflag = 0;
|
||||
#define BUMP clev->tabs++; clev->pdepth++
|
||||
#define UNBUMP clev->tabs -= clev->pdepth; clev->pdepth = 0
|
||||
#define eatspace() while((cc=getch()) == ' ' || cc == '\t'); unget(cc)
|
||||
#define eatallsp() while((cc=getch()) == ' ' || cc == '\t' || cc == '\n'); unget(cc)
|
||||
|
||||
struct indent { /* one for each level of { } */
|
||||
int tabs;
|
||||
int pdepth;
|
||||
int iflev;
|
||||
int ifc[IFLEVEL];
|
||||
int spdepth[IFLEVEL];
|
||||
} ind[CLEVEL];
|
||||
struct indent *clev = ind;
|
||||
struct keyw {
|
||||
char *name;
|
||||
char punc;
|
||||
char type;
|
||||
} key[] = {
|
||||
"switch", ' ', OTHER,
|
||||
"do", ' ', DO,
|
||||
"while", ' ', OTHER,
|
||||
"if", ' ', IF,
|
||||
"for", ' ', OTHER,
|
||||
"else", ' ', ELSE,
|
||||
"case", ' ', CASE,
|
||||
"default", ' ', CASE,
|
||||
"char", '\t', TYPE,
|
||||
"int", '\t', TYPE,
|
||||
"short", '\t', TYPE,
|
||||
"long", '\t', TYPE,
|
||||
"unsigned", '\t', TYPE,
|
||||
"float", '\t', TYPE,
|
||||
"double", '\t', TYPE,
|
||||
"struct", ' ', STRUCT,
|
||||
"union", ' ', STRUCT,
|
||||
"enum", ' ', STRUCT,
|
||||
"extern", ' ', TYPE,
|
||||
"register", ' ', TYPE,
|
||||
"static", ' ', TYPE,
|
||||
"typedef", ' ', TYPE,
|
||||
0, 0, 0
|
||||
};
|
||||
struct op {
|
||||
char *name;
|
||||
char blanks;
|
||||
char setop;
|
||||
} op[] = {
|
||||
"+=", ALWAYS, YES,
|
||||
"-=", ALWAYS, YES,
|
||||
"*=", ALWAYS, YES,
|
||||
"/=", ALWAYS, YES,
|
||||
"%=", ALWAYS, YES,
|
||||
">>=", ALWAYS, YES,
|
||||
"<<=", ALWAYS, YES,
|
||||
"&=", ALWAYS, YES,
|
||||
"^=", ALWAYS, YES,
|
||||
"|=", ALWAYS, YES,
|
||||
">>", ALWAYS, YES,
|
||||
"<<", ALWAYS, YES,
|
||||
"<=", ALWAYS, YES,
|
||||
">=", ALWAYS, YES,
|
||||
"==", ALWAYS, YES,
|
||||
"!=", ALWAYS, YES,
|
||||
"=", ALWAYS, YES,
|
||||
"&&", ALWAYS, YES,
|
||||
"||", ALWAYS, YES,
|
||||
"++", NEVER, NO,
|
||||
"--", NEVER, NO,
|
||||
"->", NEVER, NO,
|
||||
"<", ALWAYS, YES,
|
||||
">", ALWAYS, YES,
|
||||
"+", ALWAYS, YES,
|
||||
"/", ALWAYS, YES,
|
||||
"%", ALWAYS, YES,
|
||||
"^", ALWAYS, YES,
|
||||
"|", ALWAYS, YES,
|
||||
"!", NEVER, YES,
|
||||
"~", NEVER, YES,
|
||||
"*", SOMETIMES, YES,
|
||||
"&", SOMETIMES, YES,
|
||||
"-", SOMETIMES, YES,
|
||||
"?", ALWAYS,YES,
|
||||
":", ALWAYS,YES,
|
||||
0, 0,0
|
||||
};
|
||||
Biobuf *input;
|
||||
Biobuf *output;
|
||||
int strict = 0;
|
||||
int join = 0;
|
||||
int opflag = 1;
|
||||
int keyflag = 0;
|
||||
int paren = 0;
|
||||
int split = 0;
|
||||
int folded = 0;
|
||||
int dolevel =0;
|
||||
int dotabs[DOLEVEL];
|
||||
int docurly[DOLEVEL];
|
||||
int dopdepth[DOLEVEL];
|
||||
int structlev = 0;
|
||||
int question = 0;
|
||||
char string[LINE];
|
||||
char *lastlook;
|
||||
char *p = string;
|
||||
char temp[TEMP];
|
||||
char *tp;
|
||||
int err = 0;
|
||||
char *lastplace = temp;
|
||||
char *tptr = temp;
|
||||
int maxleng = LINELENG;
|
||||
int maxtabs = MAXTABS;
|
||||
int count = 0;
|
||||
char next = '\0';
|
||||
int inswitch =0;
|
||||
int lbegin = 1;
|
||||
int lineno = 0;
|
||||
|
||||
void work(void);
|
||||
void gotif(void);
|
||||
void gotelse(void);
|
||||
int checkif(char *);
|
||||
void gotdo(void);
|
||||
void resetdo(void);
|
||||
void gottype(struct keyw *lptr);
|
||||
void gotstruct(void);
|
||||
void gotop(int);
|
||||
void keep(struct op *);
|
||||
int getnl(void);
|
||||
void ptabs(int);
|
||||
void outs(int);
|
||||
void putch(char, int);
|
||||
struct keyw *lookup(char *, char *);
|
||||
int comment(int);
|
||||
void putspace(char, int);
|
||||
int getch(void);
|
||||
void unget(char);
|
||||
char *getnext(int);
|
||||
void copy(char *);
|
||||
void clearif(struct indent *);
|
||||
char puttmp(char, int);
|
||||
void error(char *);
|
||||
int cpp_comment(int);
|
||||
21
src/cmd/cb/cbtype.c
Normal file
21
src/cmd/cb/cbtype.c
Normal file
|
|
@ -0,0 +1,21 @@
|
|||
#include "cbtype.h"
|
||||
|
||||
unsigned char _cbtype_[] = {
|
||||
0,
|
||||
_C, _C, _C, _C, _C, _C, _C, _C,
|
||||
_C, _C|_S, _C|_S, _C|_S, _C|_S, _C|_S, _C, _C,
|
||||
_C, _C, _C, _C, _C, _C, _C, _C,
|
||||
_C, _C, _C, _C, _C, _C, _C, _C,
|
||||
_S, _P|_O, _P, _P, _P, _P|_O, _P|_O, _P,
|
||||
_P, _P, _P|_O, _P|_O, _P, _P|_O, _P, _P|_O,
|
||||
_N, _N, _N, _N, _N, _N, _N, _N,
|
||||
_N, _N, _P, _P, _P|_O, _P|_O, _P|_O, _P,
|
||||
_P, _U|_X, _U|_X, _U|_X, _U|_X, _U|_X, _U|_X, _U,
|
||||
_U, _U, _U, _U, _U, _U, _U, _U,
|
||||
_U, _U, _U, _U, _U, _U, _U, _U,
|
||||
_U, _U, _U, _P, _P, _P, _P|_O, _P|_L,
|
||||
_P, _L|_X, _L|_X, _L|_X, _L|_X, _L|_X, _L|_X, _L,
|
||||
_L, _L, _L, _L, _L, _L, _L, _L,
|
||||
_L, _L, _L, _L, _L, _L, _L, _L,
|
||||
_L, _L, _L, _P, _P|_O, _P, _P, _C
|
||||
};
|
||||
42
src/cmd/cb/cbtype.h
Normal file
42
src/cmd/cb/cbtype.h
Normal file
|
|
@ -0,0 +1,42 @@
|
|||
#define _U 01
|
||||
#define _L 02
|
||||
#define _N 04
|
||||
#define _S 010
|
||||
#define _P 020
|
||||
#define _C 040
|
||||
#define _X 0100
|
||||
#define _O 0200
|
||||
|
||||
extern unsigned char _cbtype_[]; /* in /usr/src/libc/gen/ctype_.c */
|
||||
|
||||
#undef isop
|
||||
#undef isalpha
|
||||
#undef isupper
|
||||
#undef islower
|
||||
#undef isdigit
|
||||
#undef isxdigit
|
||||
#undef isspace
|
||||
#undef ispunct
|
||||
#undef isalnum
|
||||
#undef isprint
|
||||
#undef iscntrl
|
||||
#undef isascii
|
||||
#undef toupper
|
||||
#undef tolower
|
||||
#undef toascii
|
||||
|
||||
#define isop(c) ((_cbtype_+1)[(uchar)(c)]&_O)
|
||||
#define isalpha(c) ((_cbtype_+1)[(uchar)(c)]&(_U|_L))
|
||||
#define isupper(c) ((_cbtype_+1)[(uchar)(c)]&_U)
|
||||
#define islower(c) ((_cbtype_+1)[(uchar)(c)]&_L)
|
||||
#define isdigit(c) ((_cbtype_+1)[(uchar)(c)]&_N)
|
||||
#define isxdigit(c) ((_cbtype_+1)[(uchar)(c)]&(_N|_X))
|
||||
#define isspace(c) ((_cbtype_+1)[(uchar)(c)]&_S)
|
||||
#define ispunct(c) ((_cbtype_+1)[(uchar)(c)]&_P)
|
||||
#define isalnum(c) ((_cbtype_+1)[(uchar)(c)]&(_U|_L|_N))
|
||||
#define isprint(c) ((_cbtype_+1)[(uchar)(c)]&(_P|_U|_L|_N))
|
||||
#define iscntrl(c) ((_cbtype_+1)[(uchar)(c)]&_C)
|
||||
#define isascii(c) ((unsigned)(c)<=0177)
|
||||
#define toupper(c) ((c)-'a'+'A')
|
||||
#define tolower(c) ((c)-'A'+'a')
|
||||
#define toascii(c) ((c)&0177)
|
||||
11
src/cmd/cb/mkfile
Normal file
11
src/cmd/cb/mkfile
Normal file
|
|
@ -0,0 +1,11 @@
|
|||
<$PLAN9/src/mkhdr
|
||||
|
||||
TARG=cb
|
||||
OFILES=\
|
||||
cb.$O\
|
||||
cbtype.$O\
|
||||
|
||||
HFILES=cb.h\
|
||||
cbtype.h\
|
||||
|
||||
<$PLAN9/src/mkone
|
||||
Loading…
Add table
Add a link
Reference in a new issue