This commit is contained in:
Ev Bogdanov 2017-01-26 19:29:57 +03:00
commit c2271ba672
43 changed files with 886 additions and 0 deletions

7
bin/cc- Executable file
View file

@ -0,0 +1,7 @@
#!/usr/bin/env perl
while (<STDIN>) {
s/([A-Z]+)([A-Z][a-z])/$1_$2/g;
s/([a-z\d])([A-Z])/$1_$2/g;
print lc;
}