Return to moveto.c CVS log

Up to [Research Unix] / researchv9 / jtools / src / sam

Annotation of researchv9/jtools/src/sam/moveto.c, revision 1.1.1.1

1.1       root        1: #include "sam.h"
                      2: 
                      3: moveto(f, r)
                      4:        register File *f;
                      5:        Range r;
                      6: {
                      7:        register Posn p1=r.p1, p2=r.p2;
                      8:        f->dot.r.p1=p1;
                      9:        f->dot.r.p2=p2;
                     10:        if(f->rasp){
                     11:                telldot(f);
                     12:                outTsl(Hmoveto, f->tag, f->dot.r.p1);
                     13:        }
                     14: }
                     15: telldot(f)
                     16:        register File *f;
                     17: {
                     18:        if(f->rasp==0)
                     19:                panic("telldot");
                     20:        if(f->dot.r.p1==f->tdot.p1 && f->dot.r.p2==f->tdot.p2)
                     21:                return;
                     22:        outTsll(Hsetdot, f->tag, f->dot.r.p1, f->dot.r.p2);
                     23:        f->tdot=f->dot.r;
                     24: }
                     25: tellpat()
                     26: {
                     27:        uchar buf[16];
                     28:        bcopy(lastpat.s, lastpat.s+15, buf, 1);
                     29:        buf[15]=0;
                     30:        outTS(Hsetpat, buf);
                     31:        patset=FALSE;
                     32: }
                     33: #define        CHARSHIFT       128
                     34: lookorigin(f, p0, ls)
                     35:        register File *f;
                     36:        register Posn p0, ls;
                     37: {
                     38:        register nl, nc, c;
                     39:        register Posn oldp0;
                     40:        if(p0>f->nbytes)
                     41:                p0=f->nbytes;
                     42:        oldp0=p0;
                     43:        Fgetcset(f, p0);
                     44:        for(nl=nc=c=0; c!=-1 && nl<ls && nc<ls*CHARSHIFT; nc++)
                     45:                if((c=Fbgetc(f))=='\n'){
                     46:                        nl++;
                     47:                        oldp0=p0-nc;
                     48:                }
                     49:        if(c==-1)
                     50:                p0=0;
                     51:        else if(nl==0){
                     52:                if(p0>=CHARSHIFT/2)
                     53:                        p0-=CHARSHIFT/2;
                     54:                else
                     55:                        p0=0;
                     56:        }else
                     57:                p0=oldp0;
                     58:        outTsl(Horigin, f->tag, p0);
                     59: }
                     60: char *left[]= {
                     61:        "{[(<",
                     62:        "\n",
                     63:        "'\"`",
                     64:        0
                     65: };
                     66: char *right[]= {
                     67:        "}])>",
                     68:        "\n",
                     69:        "'\"`",
                     70:        0
                     71: };
                     72: doubleclick(f, p1)
                     73:        register File *f;
                     74:        register Posn p1;
                     75: {
                     76:        register c, i;
                     77:        register char *r, *l;
                     78:        if(p1>f->nbytes)
                     79:                return;
                     80:        f->dot.r.p1=f->dot.r.p2=p1;
                     81:        for(i=0; left[i]; i++){
                     82:                l=left[i];
                     83:                r=right[i];
                     84:                /* try left match */
                     85:                if(p1==0){
                     86:                        Fgetcset(f, p1);
                     87:                        c='\n';
                     88:                }else{
                     89:                        Fgetcset(f, p1-1);
                     90:                        c=Fgetc(f);
                     91:                }
                     92:                if(strchr(l, c)){
                     93:                        if(clickmatch(f, c, r[strchr(l, c)-l], 1)){
                     94:                                f->dot.r.p1=p1;
                     95:                                f->dot.r.p2=f->getcp-(c!='\n');
                     96:                        }
                     97:                        return;
                     98:                }
                     99:                /* try right match */
                    100:                if(p1==f->nbytes){
                    101:                        Fbgetcset(f, p1);
                    102:                        c='\n';
                    103:                }else{
                    104:                        Fbgetcset(f, p1+1);
                    105:                        c=Fbgetc(f);
                    106:                }
                    107:                if(strchr(r, c)){
                    108:                        if(clickmatch(f, c, l[strchr(r, c)-r], -1)){
                    109:                                f->dot.r.p1=f->getcp;
                    110:                                if(c!='\n' || f->getcp!=0 ||
                    111:                                   (Fgetcset(f, (Posn)0),Fgetc(f))=='\n')
                    112:                                        f->dot.r.p1++;
                    113:                                f->dot.r.p2=p1+(p1<f->nbytes && c=='\n');
                    114:                        }
                    115:                        return;
                    116:                }
                    117:        }
                    118:        /* try filling out word to right */
                    119:        Fgetcset(f, p1);
                    120:        while(alnum(Fgetc(f)))
                    121:                f->dot.r.p2++;
                    122:        /* try filling out word to left */
                    123:        Fbgetcset(f, p1);
                    124:        while(alnum(Fbgetc(f)))
                    125:                f->dot.r.p1--;
                    126: }
                    127: alnum(c)
                    128:        register c;
                    129: {
                    130:        return ('0'<=c && c<='9') || (c=='_') ||
                    131:               ('a'<=c && c<='z') || ('A'<=c && c<='Z');
                    132: }
                    133: clickmatch(f, cl, cr, dir)
                    134:        register File *f;
                    135:        register cl, cr;
                    136:        int dir;
                    137: {
                    138:        register c;
                    139:        register nest=1;
                    140:        while((c=(dir>0? Fgetc(f) : Fbgetc(f)))>0)
                    141:                if(c==cr){
                    142:                        if(--nest==0)
                    143:                                return 1;
                    144:                }else if(c==cl)
                    145:                        nest++;
                    146:        return cl=='\n' && --nest==0;
                    147: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.