From ed5640d8b587fbcfed7dd7967f3de04b37a76f26 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sun, 7 Apr 2024 11:06:44 +0200 Subject: Adding upstream version 4:7.4.7. Signed-off-by: Daniel Baumann --- bin/lolcat | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100755 bin/lolcat (limited to 'bin/lolcat') diff --git a/bin/lolcat b/bin/lolcat new file mode 100755 index 000000000..27bb32624 --- /dev/null +++ b/bin/lolcat @@ -0,0 +1,21 @@ +#!/usr/bin/perl -w + +use strict; +use IO::Handle; + +die "Usage: $0 identifier\n" . + "(identifier is for example org.libreoffice)" unless $#ARGV == 0; + +my $id = $ARGV[0]; + +open (LOGCAT, "adb logcat |") || die "Could not open pipe from adb logcat"; +my $pid = ''; + +while () { + if (m!^I/ActivityManager\( *\d+\): Start proc $id for activity .*: pid=(\d+)!) { + $pid = $1; + } elsif (m!^[EIWD]/[^(]+\( *$pid\)!) { + print $_; + STDOUT->flush(); + } +} -- cgit v1.2.3