o5r/acme
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Experimental b script

Browse source
This commit is contained in:
Ev Bogdanov 2018-01-17 01:17:42 +03:00
parent 9d3fbca6cb
commit 191a62616d
1 changed files with 20 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

20
bin/b Executable file
View file

@ -0,0 +1,20 @@
#!/usr/bin/env perl
my $winid = $ENV{winid};
system "echo addr=dot | 9p write acme/$winid/ctl";
system qq(bash -c 'echo -n "__MARKER__"' | 9p write acme/$winid/data);
system qq(bash -c "echo -n '/^.*__MARKER__/'" | 9p write acme/$winid/addr);
my $data = `9p read acme/$winid/data`;
my ($line) = $data =~ /^(.*) b__MARKER__/;
my ($whitespace) = $line =~ /^(\s*)/;
$line = "$line {\n$whitespace\t\n$whitespace}";
system qq(bash -c "echo -n '/^.*__MARKER__/'" | 9p write acme/$winid/addr);
system qq(bash -c "echo -n '$line'" | 9p write acme/$winid/data);