Subversion Repositories planix.SVN

#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);
}