From mboxrd@z Thu Jan  1 00:00:00 1970
MIME-Version: 1.0
Date: Tue, 13 Nov 2012 23:13:27 +0000
Message-ID: <CA+BaOWxu0dTDpj7AnoqkGUyf7zgx1mFjaT_qe5+VSmQ+=KRfTA@mail.gmail.com>
From: Jacek Masiulaniec <jacekm@dobremiasto.net>
To: Fans of the OS Plan 9 from Bell Labs <9fans@9fans.net>
Content-Type: multipart/alternative; boundary=f46d042fddd2c1ce2704ce6890a1
Subject: [9fans] com: comments toggle in acme
Topicbox-Message-UUID: d65e456e-ead7-11e9-9d60-3106f5b1d025

--f46d042fddd2c1ce2704ce6890a1
Content-Type: text/plain; charset=ISO-8859-1

My latest addition to the acme column tag, alongside |a-, |a+, and |fmt.

#!/usr/bin/env rc

fn f {
n=$1
if(! cat $f | cut -c1-$n | 9 grep -v '^[  ]+$' >/dev/null){
x=`{f `{expr $n + 1}}
echo '.'$"x
}
}

f=/tmp/com.$pid
cat >$f

switch($%){
case *.go *.c
c='//'
case *
c='#'
}

# Remove comment?
if(cat $f | 9 grep '^[  ]*'$c' ' >/dev/null){
cat $f | 9 sed 's|'$c' ||'
rm $f
exit
}

# Add comment.
s=`{f 1}
if(~ $#s 0)
cat $f | 9 sed 's|^|'$c' |'
if not
cat $f | 9 sed 's|^('$"s')|\1'$c' |'

rm $f

I name this |com. The original motivation was to avoid manual keying in of
the comment characters, which I found myself doing quite frequently for
short line ranges.

It also works well with Go's "imported and not used" error. Once plumbed to
the offending import line, it only takes one click to temporarily disable
an import.

--f46d042fddd2c1ce2704ce6890a1
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable

<div style=3D"font-family:arial,sans-serif;font-size:12.731481552124023px">=
My latest addition to the acme column tag, alongside |a-, |a+, and |fmt.<br=
></div><div style=3D"font-family:arial,sans-serif;font-size:12.731481552124=
023px">
<br></div><div style=3D"font-family:arial,sans-serif;font-size:12.731481552=
124023px"><div>#!/usr/bin/env rc</div><div><br></div><div>fn f {</div><div>=
<span style=3D"white-space:pre-wrap">	</span>n=3D$1</div><div><span style=
=3D"white-space:pre-wrap">	</span>if(! cat $f | cut -c1-$n | 9 grep -v &#39=
;^[=A0<span style=3D"white-space:pre-wrap">	</span>]+$&#39; &gt;/dev/null){=
</div>
<div><span style=3D"white-space:pre-wrap">		</span>x=3D`{f `{expr $n + 1}}<=
/div><div><span style=3D"white-space:pre-wrap">		</span>echo &#39;.&#39;$&q=
uot;x</div><div><span style=3D"white-space:pre-wrap">	</span>}</div><div>}<=
/div>
<div><br></div><div>f=3D/tmp/com.$pid</div><div>cat &gt;$f</div><div><br></=
div><div>switch($%){</div><div>case *.go *.c</div><div><span style=3D"white=
-space:pre-wrap">	</span>c=3D&#39;//&#39;</div><div>case *</div><div><span =
style=3D"white-space:pre-wrap">	</span>c=3D&#39;#&#39;</div>
<div>}</div><div><br></div><div># Remove comment?</div><div>if(cat $f | 9 g=
rep &#39;^[=A0<span style=3D"white-space:pre-wrap">	</span>]*&#39;$c&#39; &=
#39; &gt;/dev/null){</div><div><span style=3D"white-space:pre-wrap">	</span=
>cat $f | 9 sed &#39;s|&#39;$c&#39; ||&#39;</div>
<div><span style=3D"white-space:pre-wrap">	rm $f</span><br></div><div><span=
 style=3D"white-space:pre-wrap">	</span>exit</div><div>}</div><div><br></di=
v><div># Add comment.</div><div>s=3D`{f 1}</div><div>if(~ $#s 0)</div><div>=
<span style=3D"white-space:pre-wrap">	</span>cat $f | 9 sed &#39;s|^|&#39;$=
c&#39; |&#39;</div>
<div>if not</div><div><span style=3D"white-space:pre-wrap">	</span>cat $f |=
 9 sed &#39;s|^(&#39;$&quot;s&#39;)|\1&#39;$c&#39; |&#39;</div><div><br></d=
iv><div>rm $f</div><div><br></div><div>I name this |com. The original motiv=
ation was to avoid manual keying in of the comment characters, which I foun=
d myself doing quite frequently for short line ranges.</div>
<div><br></div><div>It also works well with Go&#39;s &quot;imported and not=
 used&quot; error. Once plumbed to the offending import line, it only takes=
 one click to temporarily disable an import.</div></div>

--f46d042fddd2c1ce2704ce6890a1--