minix: create
This commit is contained in:
parent
d6cb30ce85
commit
c24b762702
|
@ -0,0 +1,28 @@
|
||||||
|
#!/usr/bin/env perl
|
||||||
|
|
||||||
|
$s = 0;
|
||||||
|
$n = 0;
|
||||||
|
|
||||||
|
while (<>) {
|
||||||
|
s/^\s*(.*)$/\1/g;
|
||||||
|
if (m/^\s*$/) { next; }
|
||||||
|
if ($s) {
|
||||||
|
if (m/''/) {
|
||||||
|
s/^([^#]*)\R+$/\1/g;
|
||||||
|
$s = 0;
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
if (m/''/) {
|
||||||
|
$s = 1;
|
||||||
|
} else {
|
||||||
|
s/^([^#]*)\R+$/\1/g;
|
||||||
|
}
|
||||||
|
if (!$n || m/^,/) {
|
||||||
|
$n = 1;
|
||||||
|
} else {
|
||||||
|
print " ";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
print;
|
||||||
|
}
|
||||||
|
print "\n";
|
Loading…
Reference in New Issue