mirror of
https://github.com/notwa/rc
synced 2024-11-05 06:29:02 -08:00
16 lines
683 B
Bash
16 lines
683 B
Bash
#!/bin/sh
|
|
# the first expression is taken from this FAQ:
|
|
# https://perldoc.perl.org/perlfaq6.html#How-do-I-use-a-regular-expression-to-strip-C-style-comments-from-a-file%3f
|
|
noccom() {
|
|
[ -s ~/opt/local/bin/noccom ] || cat > ~/opt/local/bin/noccom <<EOF
|
|
#!/usr/bin/env perl
|
|
$/ = undef;
|
|
\$_ = <>;
|
|
s#/\\*[^*]*\\*+([^/*][^*]*\\*+)*/|//([^\\\\]|[^\\n][\\n]?)*?\\n|("(\\\\.|[^"\\\\])*"|'(\\\\.|[^'\\\\])*'|.[^/"'\\\\]*)#defined \$3 ? \$3 : ""#gse;
|
|
s#|\\\\?\\n\\s*([{}])?\\s*(;*)\\s*(?=\\\\?\\n)|("(?:\\\\.|[^"\\\\])*"|'(?:\\\\.|[^'\\\\])*'|.[^/"'\\\\\\n]*)#defined \$3?\$3:defined \$1?" ".\$1.\$2:\$2#gse;
|
|
s#^(\\s*\\n)+##s;
|
|
print;
|
|
EOF
|
|
perl ~/opt/local/bin/noccom "$@"
|
|
}
|
|
noccom "$@"
|