xfnw
/
dotfiles
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

minix: create

This commit is contained in:
xfnw 2024-02-04 10:23:19 -05:00
parent d6cb30ce85
commit c24b762702
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
bin/minix Executable file
View File

@ -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";