vendor/github.com/gizak/termui/config


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

#!/usr/bin/env perl6

use v6;

my $copyright = '// Copyright 2016 Zack Guo <gizak@icloud.com>. All rights reserved.
// Use of this source code is governed by a MIT license that can
// be found in the LICENSE file.

';

sub MAIN('update-docstr', Str $srcp) {
    if $srcp.IO.f {
        $_ = $srcp.IO.slurp;
        if m/^ \/\/\s Copyright .+? \n\n/ {
            unless ~$/ eq $copyright {
                s/^ \/\/\s Copyright .+? \n\n /$copyright/;
                spurt $srcp, $_;
                say "[updated] doc string for:"~$srcp;
            }
        } else {
            say "[added] doc string for "~$srcp~" (no match found)";
            $_ = $copyright ~ $_;
            spurt $srcp, $_;
        }
    }
}