ref: 675ee1db15ca969a4b03718cf71af8d4589f0306
dir: /acme/bin/source/spout.c/
#include <u.h> #include <libc.h> #include <ctype.h> #include <bio.h> void spout(int, char*); Biobuf bout; void main(int argc, char *argv[]) { int i, fd; Binit(&bout, 1, OWRITE); if(argc == 1) spout(0, ""); else for(i=1; i<argc; i++){ fd = open(argv[i], OREAD); if(fd < 0){ fprint(2, "spell: can't open %s: %r\n", argv[i]); continue; } spout(fd, argv[i]); close(fd); } exits(nil); } Biobuf b; void spout(int fd, char *name) { char *s, *t, *w; Rune r; int inword, wordchar; int n, wn, wid, c, m; char buf[1024]; Binit(&b, fd, OREAD); n = 0; wn = 0; while((s = Brdline(&b, '\n')) != nil){ if(s[0] == '.') for(c=0; c<3 && *s>' '; c++){ n++; s++; } inword = 0; w = s; t = s; do{ c = *(uchar*)t; if(c < Runeself) wid = 1; else{ wid = chartorune(&r, t); c = r; } wordchar = 0; if(isalpha(c)) wordchar = 1; if(inword && !wordchar){ if(c=='\'' && isalpha(t[1])) goto Continue; m = t-w; if(m > 1){ memmove(buf, w, m); buf[m] = 0; Bprint(&bout, "%s:#%d,#%d:%s\n", name, wn, n, buf); } inword = 0; }else if(!inword && wordchar){ wn = n; w = t; inword = 1; } if(c=='\\' && (isalpha(t[1]) || t[1]=='(')){ switch(t[1]){ case '(': m = 4; break; case 'f': if(t[2] == '(') m = 5; else m = 3; break; case 's': if(t[2] == '+' || t[2]=='-'){ if(t[3] == '(') m = 6; else m = 4; }else{ if(t[2] == '(') m = 5; else if(t[2]=='1' || t[2]=='2' || t[2]=='3') m = 4; else m = 3; } break; default: m = 2; } while(m-- > 0){ if(*t == '\n') break; n++; t++; } continue; } Continue: n++; t += wid; }while(c != '\n'); } Bterm(&b); }