Re: [Txr-users] ANN: 034 is out.

[Daniel Lyons]

Excerpts from Kaz Kylheku's message of 2010-02-28 06:47:13 -0700:
> I fixed the broken  @(freeform), I think. :)

My code still doesn't work, but I'm fairly sure it's my fault somehow and I
haven't yet undertaken to rewrite it incorporating your prior suggestions.

Incidentally, I have updated the 'ps.txr' utility from the webpage to fix the
deprecated @(next)/foo syntax:

#!/home/fusion/stow/bin/txr -f
@(next "$/proc")
@(collect)
@{process /[0-9]+/}
@  (next `/proc/@process/status`)
Name:@address@hidden
State:@address@hidden (@state_desc)
@(skip)
Tgid:@address@hidden
Pid:@address@hidden
PPid:@address@hidden
@(bind pid proc_id)
@(bind ppid parent_id)
@(skip)
Uid:@address@hidden@\t@/.*/
Gid:@address@hidden@\t@/.*/
@  (next `$/proc/@process/task`)
@  (collect)
@thr
@  (end)
@  (bind thread thr)
@  (some)
@    (next "/etc/passwd")
@    (skip)
@user:@pw:@uid:@/.*/
@  (or)
@    (bind user uid)
@  (end)
@(end)
@(output)
USER       PID  PPID S NAME             THREADS
@  (repeat)
@{user 8} @{proc_id -5} @{parent_id -5} @state @{name 16} @(rep)@thr, 
@(first)@(last)@thr@(single)~@(end)
@  (end)
@(end)
-- 
Daniel Lyons