Return to lineops.c CVS log

Up to [Research Unix] / researchv9 / jtools / src / pads / x11

Annotation of researchv9/jtools/src/pads/x11/lineops.c, revision 1.1

1.1     ! root        1: #include "univ.h"
        !             2: 
        !             3: DoCut(l)
        !             4: register Line *l;
        !             5: {
        !             6:        if( l->attributes & USERCUT ){
        !             7:                HostParent = Selected.pad->object;
        !             8:                HostObject = l->object;
        !             9:                ToHost( P_USERCUT /*, garbage */ );
        !            10:        }
        !            11:        if( !(l->attributes&DONT_CUT) ) DelLine(l);
        !            12: }
        !            13: 
        !            14: CutLine()
        !            15: {
        !            16:        if(!Selected.line) return;
        !            17:        DoCut(Selected.line);
        !            18:        Paint(Selected.pad);
        !            19: }
        !            20: 
        !            21: Sever()
        !            22: {
        !            23:        register Line *l = Selected.line, *lu;
        !            24: 
        !            25:        if(!l) return;
        !            26:        for( ; l != &Selected.pad->sentinel; l = lu ){  /* ISLINE */
        !            27:                lu = l->up;
        !            28:                DoCut(l);
        !            29:        }
        !            30:        Paint(Selected.pad);
        !            31: }

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