rc/sh/noccom

#!/usr/bin/env 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
# YES_ZSH
# YES_BASH
# YES_DASH

# TODO: what's the minimum version of perl required for this?

noccom() { ### @-
    ### strip C-like comments; both multi-line and single-line.
    [ -s ~/opt/local/bin/noccom ] || cat > ~/opt/local/bin/noccom <<EOF
#!/usr/bin/env perl

\$/ = undef;
\$_ = <>;

s{
    /\\*[^*]*\\*+([^/*][^*]*\\*+)*/
    |
    //([^\\\\]
    |
    [^\\n][\\n]?)*?\\n
    |
    (
        "(?:\\\\.|[^"\\\\])*"
        |
        '(?:\\\\.|[^'\\\\])*'
        |
        .[^/"'\\\\]*
    )
}{defined \$3 ? \$3 : ""}gxse;

s{
    \\\\?\\n\\s*([{}])?\\s*(;*)\\s*(?=\\\\?\\n)
    |
    (
        \\#[^\\n]*\\n
        |
        "(?:\\\\.|[^"\\\\])*"
        |
        '(?:\\\\.|[^'\\\\])*'
        |
        .[^#/"'\\\\\\n]*
    )
}{defined \$3 ? \$3 : (defined \$1 ? " ".\$1.\$2 : \$2)}gxse;

s#(^|\\n)\\s+#\$1#gs;

print;
EOF

    perl ~/opt/local/bin/noccom "$@"
}

[ "${SOURCING:-0}" -gt 0 ] || noccom "$@"