users/edef/sources.pl


1
2
3
4
5
6
7
8
9
10
11

#! /usr/bin/env -S perl -ln
use strict;

if (/^evaluating file '(.*)'$/ or
    /^copied source '(.*)' -> '.*'$/ or
    /^trace: lorri read: '(.*)'$/) {
    print $1;
    next;
}

print STDERR unless /^instantiated '.*' -> '.*'$/;