Subversion Repositories planix.SVN

Rev

Rev 105 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 105 Rev 118
Line 280... Line 280...
280 
	if (addr > one) {
 280 
	if (addr > one) {
281 
		register char *cp;
 281 
		register char *cp;
282 
		register int cnt = 0;
 282 
		register int cnt = 0;
283 
 
 283 
 
284 
		addr--;
 284 
		addr--;
285 
		getline(*addr);
 285 
		ex_getline(*addr);
286 
		for (cp = linebuf; *cp; cp++)
 286 
		for (cp = linebuf; *cp; cp++)
287 
			if (*cp == '(')
 287 
			if (*cp == '(')
288 
				cnt++;
 288 
				cnt++;
289 
			else if (*cp == ')')
 289 
			else if (*cp == ')')
290 
				cnt--;
 290 
				cnt--;
Line 480... Line 480...
480 
			if (lf == vmove && wcursor > linebuf)
 480 
			if (lf == vmove && wcursor > linebuf)
481 
				wcursor--;
 481 
				wcursor--;
482 
			return (0);
 482 
			return (0);
483 
		}
 483 
		}
484 
		wdot++;
 484 
		wdot++;
485 
		getline(*wdot);
 485 
		ex_getline(*wdot);
486 
		wcursor = linebuf;
 486 
		wcursor = linebuf;
487 
		return (1);
 487 
		return (1);
488 
	} else {
 488 
	} else {
489 
		--wcursor;
 489 
		--wcursor;
490 
		if (wcursor >= linebuf)
 490 
		if (wcursor >= linebuf)
Line 496... Line 496...
496 
		if (wdot <= llimit) {
 496 
		if (wdot <= llimit) {
497 
			wcursor = linebuf;
 497 
			wcursor = linebuf;
498 
			return (0);
 498 
			return (0);
499 
		}
 499 
		}
500 
		wdot--;
 500 
		wdot--;
501 
		getline(*wdot);
 501 
		ex_getline(*wdot);
502 
		wcursor = linebuf[0] == 0 ? linebuf : strend(linebuf) - 1;
 502 
		wcursor = linebuf[0] == 0 ? linebuf : strend(linebuf) - 1;
503 
		return (1);
 503 
		return (1);
504 
	}
 504 
	}
505 
}
 505 
}
506 
 
 506 
 
Line 515... Line 515...
515 
		addr += dir;
 515 
		addr += dir;
516 
		if (addr < one || addr > dol) {
 516 
		if (addr < one || addr > dol) {
517 
			addr -= dir;
 517 
			addr -= dir;
518 
			break;
 518 
			break;
519 
		}
 519 
		}
520 
		getline(*addr);
 520 
		ex_getline(*addr);
521 
		if (linebuf[0] == '{' ||
 521 
		if (linebuf[0] == '{' ||
522 
#ifdef LISPCODE
 522 
#ifdef LISPCODE
523 
		    value(LISP) && linebuf[0] == '(' ||
 523 
		    value(LISP) && linebuf[0] == '(' ||
524 
#endif
 524 
#endif
525 
		    isa(svalue(SECTIONS))) {
 525 
		    isa(svalue(SECTIONS))) {
526 
			if (c == ']' && f != vmove) {
 526 
			if (c == ']' && f != vmove) {
527 
				addr--;
 527 
				addr--;
528 
				getline(*addr);
 528 
				ex_getline(*addr);
529 
			}
 529 
			}
530 
			break;
 530 
			break;
531 
		}
 531 
		}
532 
		if (c == ']' && f != vmove && linebuf[0] == '}')
 532 
		if (c == ']' && f != vmove && linebuf[0] == '}')
533 
			break;
 533 
			break;