cp = inline.c ; oldcp = cp ; for (i=inline.len; i>0; i--) if (*cp++ == LF) then { ins_line(oldcp,++curlen) ; curlen = 0 ; oldcp = cp ; (*maxline)++ ; } else curlen++ ; if ( curlen ) then { ins_line( oldcp,curlen ) ; (*maxline)++ ; } } saveline( save1,save2 ) ; ins_lnks() ; } cadd(lun) int lun ; { extern int lowlim,*maxline ; lowlim = *maxline ; cinsert(lun) ; } cchange(lun) int lun ; { extern int lowlim,highlim ; register int status ; status = sys_normal ; if ( checkdelete() ) then { if ( (status=delblock(lowlim,highlim)) != 0 ) ; then status = cinsert(lun) ; } return( status ) ; } cdelete(lun) int lun ; { extern int kblun,filopen,lowlim,highlim,*maxline ; register int status ; extern struct textline *textpointer() ; register struct textline *tp ; status = sys_normal ; if ( checkdelete() ) then { if ( lun != kblun ) then clist(lun) ; status = delblock(lowlim,highlim) ; } return( status ) ; } cundel() { extern int lowlim ; undelline(lowlim) ; } delblock(low,high) int low,high; { register int i,status ; for (i=low; i <= high && (status=delline(low)) == true; i++); return(status) ; } delline(linenumber) int linenumber ; { extern struct textline *textpointer() ; register struct textline *tp ; extern struct deltype lastdeleted ; extern struct textwindow *windpt ; extern int curmode[],*maxline,read_only,w ; register char *cp, *dp ; register int *lenp ; int i,temp ; if ( read_only ) then return(0) ; if ( *maxline == 2 ) then { tp = textpointer(1) ; tp->len = 2 ; tp->c[0] = CR ; tp->c[1] = LF ; txtmod() ; return(1) ; } if ( linenumber >= 1 && linenumber < *maxline && *maxline > 2 ) then { if ( curmode[w] != ST_UPDATE ) curmode[w] = ST_DELETING ; temp = findline(linenumber); dp = lastdeleted.lastline.c ; cp = windpt->lines[temp].c ; lenp = &windpt->lines[temp].len ; lastdeleted.lastline.len = 0 ; lastdeleted.lastline.partial = 0 ; for (i=0; i < (*lenp) && isdelimiter(*cp)==0 ; i++) { *dp++ = *cp++ ; lastdeleted.lastline.len++ ; } *lenp = 0 ; curmode[w] = ST_UPDATE ; putback() ; (*maxline)-- ; return(true) ; } else return(false) ; } undelline(lineno) int lineno ; { extern struct deltype lastdeleted ; register int size ; size = lastdeleted.lastline.len ; lastdeleted.lastline.c[size++] = CR ; lastdeleted.lastline.c[size++] = LF ; return( doinsert(lineno,lastdeleted.lastline.c,size) ) ; } doinsert(lineno,s,len) char *s ; int len ; int lineno ; { extern int curbucket[],curmode[],linecount[],*maxline,w ; register int save1,save2 ; extern struct tempindex *workpt ; if ( lineno < 1 || lineno > *maxline ) then return(0) ; linecount[w] = 0 ; save1 = findline( lineno ) ; curmode[w] = ST_INSERT ; save2 = (_gworkpt(curbucket[w]))->lcount ; saveline( 0,save1 ) ; ins_line( s,len ) ; (*maxline)++ ; saveline( save1,save2 ) ; ins_lnks() ; return(1) ; } clist(lun) { extern int lowlim,highlim ; listlines(lowlim,highlim,lun) ; } listlines(low,high,lun) int low,high,lun; { extern int p_lines,sts_one ; extern struct textline *textpointer(); struct textline *tp ; register int i,status ; enabuffering() ; status = 1 ; for (i=low; i <=high ; i++) { if ( (sts_one & ed_end) == 0 ) then if ( testcc() ) then { status = 0 ; break ; } if (p_lines && lun == kb_lun) then plinenumber(i) ; tp = textpointer(i) ; if ( (status = putline(lun,tp->c,tp->len)) == 0 ) then break ; } disbuffering() ; return(status) ; } static checkdelete() { extern int lowlim,highlim,*maxline ; register int junk ; if ( highlim-lowlim > 15 ) then { junk = getyesno("Really delete that many lines ? ","N") ; if ( junk == 1 ) then return(1) ; else return(0) ; } else return(1) ; } EDINS C [.050036]EDINS .C [.050036] X1í˜€4¿|HÞï þÿÿ[ú«4ÿ;ßïöëÿÿÝûÿIßkûÿ(Ÿ«ûÿ&ûÿ'( «á«ôÑkß«Hûÿ&ú«PïŠú«`ï‚ßï®ëÿÿŸ«ûÿüÐ\žËàïR™rP P2PPzPP{PPP÷PP2P~ûÿ®ñÿÿÿÿ\ÐÿŸ«ûÿªŸ«$ûÿ ûÿÐ\Ã\T‘D«á 0D«áó \ìÎ~ûÿŠŸ«ûÿhûÿi) «ô«á+Ô\Â ^( «ánÂ^(ïëÿÿn°«pÀ\Ð^«tú«xÿYÀ\^úË€ÿÐ\ßïÎêÿÿÝûÿ!ßkûÿŸ«ûÿþûÿÿÐVÕk<Ý\ÝûÿñžFË×ïË°<Ë´ßË¬ûÿÇûÿÌÖ\ÀVÑVkÆ”úË¤ÿ—1`þ@ÐïlüÿÿP ABCDEFGHIJKLMNOPQRSTUVWXYZ$.?0123456789<@<¼SÐ¬TÐ¬UÔQÕS><„PÑPÿùÐå¹P×S'{@PRPB¯ …×S{(PRPB¯’…×S@¯‰…¾@@Œ˜ ("@$$Ø#0$è#$8$%˜$%(%è$! @"FORRTLLIBRTL7-./% <=2&?'@O{[lP}M]\Nk`Kaðñòóôõö÷øùz^L~no|ÁÂÃÄÅÆÇÈÉÑÒÓÔÕÖ×ØÙâãäåæçèéJàZ_my‚ƒ„…†‡ˆ‰‘’“”•–—˜™¢£¤¥¦§¨©ÀjÐ¡???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????ÿ\ \\\\ \\\\\\\\\\ \\\\\\\\\\\\\\\\ \\\\\\\\\[.<(+!&\\\\\\\\\]$*);^-/\\\\\\\\|,%_>?\\\\\\\\\`:#@'="\abcdefghi\\\\\\\jklmnopqr\\\\\\\~stuvwxyz\\\\\\\\\\\\\\\\\\\\\\{ABCDEFGHI\\\\\\}JKLMNOPQR\\\\\\\\STUVWXYZ\\\\\\0123456789\\\\\ÿ