/*  * This file is part of the UCB release of Plan 9. It is subject to the license * terms in the LICENSE file found in the top-level directory of this * distribution and at http://akaros.cs.berkeley.edu/files/Plan9License. No * part of the UCB release of Plan 9, including this file, may be copied, * modified, propagated, or distributed except according to the terms contained * in the LICENSE file. */ #include "a.h" /* * Section 6 - line length and indenting. */ /* set line length */voidll(int v){	if(v == 0)		v = getnr(L(".l0"));	nr(L(".l0"), getnr(L(".l")));	nr(L(".l"), v);}voidr_ll(int argc, Rune **argv){	if(argc < 2)		ll(0);	else if(argv[1][0] == '+')		ll(getnr(L(".l"))+evalscale(argv[1]+1, 'v'));	else if(argv[1][0] == '-')		ll(getnr(L(".l"))-evalscale(argv[1]+1, 'v'));	else		ll(evalscale(argv[1], 'm'));	if(argc > 2)		warn("extra arguments to .ll");} voidin(int v){	nr(L(".i0"), getnr(L(".i")));	nr(L(".i"), v);	nr(L(".ti"), 0);	/* XXX */}voidr_in(int argc, Rune **argv){	br();	if(argc < 2)		in(getnr(L(".i0")));	else if(argv[1][0] == '+')		in(getnr(L(".i"))+evalscale(argv[1]+1, 'm'));	else if(argv[1][0] == '-')		in(getnr(L(".i"))-evalscale(argv[1]+1, 'm'));	else		in(evalscale(argv[1], 'm'));	if(argc > 3)		warn("extra arguments to .in");} voidti(int v){	nr(L(".ti"), v);}voidr_ti(int argc, Rune **argv){	USED(argc);	br();	ti(evalscale(argv[1], 'm'));} voidt6init(void){	addreq(L("ll"), r_ll, -1);	addreq(L("in"), r_in, -1);	addreq(L("ti"), r_ti, 1);		nr(L(".l"), eval(L("6.5i")));}