mirror of
https://github.com/gryf/pentadactyl-pm.git
synced 2025-12-19 23:57:59 +01:00
Slight modification to make_jar.sh.
This commit is contained in:
@@ -37,22 +37,23 @@ then
|
|||||||
}
|
}
|
||||||
fi
|
fi
|
||||||
|
|
||||||
mungeliterals=$(cat <<'!'
|
mungeliterals_() {
|
||||||
local $/;
|
cat <<'!'
|
||||||
$_ = <>;
|
local $/;
|
||||||
s{(?<!function )\bliteral\((?:function \(\) )?/\*(.*?)\*/\$?\)}{
|
$_ = <>;
|
||||||
my $s = $1;
|
s{(?<!function )\bliteral\((?:function \(\) )?/\*(.*?)\*/\$?\)}{
|
||||||
$s =~ s/[\\']/\\$&/g;
|
my $s = $1;
|
||||||
$s =~ s/\n/\\n\\$&/g;
|
$s =~ s/[\\']/\\$&/g;
|
||||||
"/* Preprocessors FTW. */ '$s'";
|
$s =~ s/\n/\\n\\$&/g;
|
||||||
}ges;
|
"/* Preprocessors FTW. */ '$s'";
|
||||||
print;
|
}ges;
|
||||||
|
print;
|
||||||
!
|
!
|
||||||
)
|
}
|
||||||
|
|
||||||
mungeliterals() {
|
mungeliterals() {
|
||||||
if which perl >/dev/null 2>&1
|
if which perl >/dev/null 2>&1
|
||||||
then perl -e "$mungeliterals"
|
then perl -e "$(mungeliterals_)"
|
||||||
else cat
|
else cat
|
||||||
fi
|
fi
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user